Copy list of files from PS to another PS with different LREC

Lithikshaa · New User Joined: 11 Dec 2020 Posts: 4 Location: India

Hello Team,

I have a requirement that I need to copy the content from filenames which is present in one PS input file to another PS output file having the same different file names and different LRECL.

e.g.,
Input PS file consider - ABC.DEF.INPUT.PS contains below list of files that contains the data,
ABC.INPUT.FILE1
ABC.INPUT.FILE2
ABC.INPUT.FILE3
All these files having the LRECL as 3000
here, I need to copy the content from these files to another PS file ABC.DEF.OUTPUT.PS which contains below output files in the same order.

ABC.OUTPUT.FILE1
ABC.OUTPUT.FILE2
ABC.OUTPUT.FILE3

But LRECL of above output files should be 3300. All Data from input file should be copied to output file (i.e., 3000) and remaining 300 should be spaces.

Will Sort steps work many files in PS to many files in another PS, for this condition ?

In REXX, we can copy only with the same LRECL, please let me know how to copy files from one LRECL to different LRECL.

Thank you in advance.

enrico-sorichetti · Posted: Fri Dec 11, 2020 11:50 pm

Rohit Umarjikar · Posted: Sat Dec 12, 2020 12:13 am

Welcome!
I think you can write a Rexx and pass it to DFSORT/SORT PGM, which will blow the input data set and create SORTIN step expansion to those many concatenated data sets as in the original input and run DFSORT, the SORTOUT would have what you want.

sergeyken · Posted: Sat Dec 12, 2020 1:07 am

sergeyken · Posted: Sat Dec 12, 2020 2:27 am

Nic Clouston · Posted: Sat Dec 12, 2020 3:24 am

Reading a list of dataset names from a dataset and then doing something with those datasets has been asked before. The topics that refer to this process may not do exactly what you want to do but it should not be hard to adjust one of them to your requirement. You should search the forum - which you should have done before posting.

How many lines of data are to be copied? Large amounts, say over 50,000 lines, would make this an unsuitable use of Rexx althugh you could use your program to generate and submit copy jobs.

steve-myers · Posted: Sat Dec 12, 2020 4:04 am

I think most of the people that regularly respond to these queries will agree about this.

Your "requirement" is poorly worded, Something like this might be better. I would like to copy a data set containing fix length records with a record length of 3000 bytes to a new data set containing record length 3300 byte records. I would like the 300 extra bytes to contain blank characters.
Rexx is a useful tool, but it is inappropriate for some tasks. Copying data sets containing a large number of records is not a good way to use Rexx.

Personally, I think your installation's sort/merge product, either DFSORT or Syncsort, can do this task with little, if any, trouble. Since we do not know what you have we cannot answer this query.

Pedro · Posted: Sat Dec 12, 2020 7:48 am

re: "I have a requirement that I need to copy the content from..."

It was not stated, but this seems like a one time task. I would just manually build and submit IEBGENER jobs. It will take 15 minutes, depending on how many data sets there are.

Lithikshaa · New User Joined: 11 Dec 2020 Posts: 4 Location: India

Thank you for your reply.

It would be good if you can give me the rexx code for this as am new to rexx.

Lithikshaa · New User Joined: 11 Dec 2020 Posts: 4 Location: India

Also the input file names will 300 - 500.

Rohit Umarjikar · Posted: Sat Dec 12, 2020 2:03 pm

Try this way.

enrico-sorichetti · Posted: Sat Dec 12, 2020 3:04 pm