Copy files dynamically

dharunvarsha06 · New User Joined: 03 Aug 2007 Posts: 1 Location: USA

i have to copy records from a ps file to multiple ps files depending upon a criteria
ex:
i/p file:
-------
GX0001 3 4 GT777 dddd aaa
GX0001 3 4 GT777 dddd bbb
GX0002 3 4 GT777 dddd ccc
GX0003 3 4 GT777 dddd ddd
GX0004 3 4 GT777 dddd eee
GX0004 3 4 GT777 dddd ffff
GX0004 3 4 GT777 dddd ggg

o/p files:
I have to create these files dynamically as per the records in the input file (first 6 bytes is the key)
xx.xxxx.GX0001.DMMDDYYY.THHMM
xx.xxxx.GX0002.DMMDDYYY.THHMM
xx.xxxx.GX0003.DMMDDYYY.THHMM
xx.xxxx.GX0004.DMMDDYYY.THHMM
( where MMDDYYY - current date & HHMM current time)
and copy the following records
GX0001 3 4 GT777 dddd aaa
GX0001 3 4 GT777 dddd bbb
to xx.xxxx.GX0001.DMMDDYYY.THHMM
&
GX0002 3 4 GT777 dddd ccc
to xx.xxxx.GX0002.DMMDDYYY.THHMM
&
GX0003 3 4 GT777 dddd ddd
to xx.xxxx.GX0003.DMMDDYYY.THHMM
&
GX0004 3 4 GT777 dddd eee
GX0004 3 4 GT777 dddd ffff
GX0004 3 4 GT777 dddd ggg
to
xx.xxxx.GX0004.DMMDDYYY.THHMM

Please let me know whether we can get this done out of rexx.

superk · Posted: Fri Feb 29, 2008 11:16 pm

You could use REXX, CLIST, COBOL, standard utilities, or whatever else you wish to. It seems like a relatively straight-forward process.

You'll probably want to run this in a TSO address space and use the TSO ALLOCATE command to create and catalog the datasets with all of their required attributes. Some simple file I-O and basic looping.

- Read record from the file.
- If first index, create the dataset name using the index value and the current date/time values. Write the first record to the output.
- If same index, just write to the output.
- When the index changes, close the output, and go back to the second step.