MVSFORUMS.com

[Ram]

Hey Guys,

We have a job that FTP's a certain file everyday. In order to differentiate the files being sent ,we have to append the date to the file name being FTP'd.
The parm used by FTP contains the following info :

server name
password
PUT 'aaaaaaaa.bbbbbbbb.ccc' filename.txt quit

This is what I did:

My first data set contains :
server name
password

I used a sort step something like this to append the date to the file name and write it to data set 2.

//********************************************************
//STEP01 EXEC PGM=SORT
//********************************************************
//SORTIN DD *
PUT 'aaaaaaaa.bbbbbbbb.ccc' filename
/*
//SORTOUT DD DSN=xxx.yyy.zzz,(disp=shr)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,36,DATE1,C'.txt',32X)
/*
//SYSOUT DD SYSOUT=*

My third data set contains:
quit

I had a IEBGENER step that would concatenate the above three data sets and copy it to the parm member that would be later used by the FTP step.
The output from IEBGENER step would look something like this :

server name
password
PUT 'aaaaaaaa.bbbbbbbb.ccc' filename20040722.txt
quit

Finally I had the FTP step which would use this parm member to FTP the file.

My question is can we achieve this in a single sort step without having to go thru all the tedious steps that I have mentined above I am rephrasing my question, can we have a sort statement that will read in
server name
password
PUT 'aaaaaaaa.bbbbbbbb.ccc' filename.txt
quit

and output this

server name
password
PUT 'aaaaaaaa.bbbbbbbb.ccc' filename20040722.txt
quit

Thanks,

Ram

[kolusu]

Ram,

The following JCL will give you the desired results. The parm / is used to write a new line. You can hardcode a value by enclosing by C'MY HARD CODED VALUE' which will be printed as

[Ram]

Kolusu,

Thanx a zillion . I want to quote something that is really apt and suited for this site.

Knowledge is power, Knowledge shared is power multiplied. Bob Noyce.

Thanks once again

Ram

[YSMVS]

[Phantom]

YSMVS,

What is the Record format of the SORTOUT / SORTIN you are using ? Is it FBA by any chance ? If so, then you will not be able to see the first column in browse mode since it treats the first col as the ANSI Carriage control char (used for page breaks & line breaks). Change the RECFM to FB. It should work.

If not, please post the JCL you are using. 'cas I could not see any problem in kolusu's solution.

Thanks,
Phantom

[kolusu]

ysmvs,