IBM Mainframe Forum

Hi

Is there a possibility to format records in JCL (instead of REXX)

In the input file (it's a flat file) i have the following records:
AD1112
BD1111
CD2121
DD1222

I want them to be written to the output dataset in the following format:
AD1112,BD1111,CD2121,DD1222

comas are not necessarily needed.
Is there a utility to do it via JCL ? I could easily do it in REXX but currently it is not an option.
DFSORT - as i see - is not happy with doing the above.


Please let me know about your opinion
thanks
David

DFSORT - as i see - is not happy with doing the above.

You'd have to do a better job of explaining the "rules" for what you're trying to do before I could tell if that statement is correct or not.

Do you always just have 5 input records each with 6 byte values from which you want to create one output record? Or are there other variations? If there are other variations, you need to describe the complete requirement. Also, give the RECFM and LRECL of the input and output files and the starting position, length and format of the input fields.

Hi Frank

Thanks for your reply.

Both the input and output files use RECFM FB and LRECL 80
The input file contains 3 records, whose lenght can be different, from 1 byte to 5.
These records are always whole numbers from 0 to 99999.
The starting position of each record is the first byte.

an example of how the input records look like:

111
22222
33


The output record should look like:
YY.MM.DD,111,22222,33



Please let me know if you need further info
Thanks,
David

Assuming that YY.MM.DD is the current year, month, day, you can use a DFSORT/ICETOOL job like the following to do what you asked for:



Running your example today, I get the following for OUT:

Hi Frank

thanks for your reply.
Your code is working fine. Will take a while to read it up in the manual and understand it all.
DFSORT getting started and the programmes guides will be useful.

I have one more question. I have plenty of jobs stored in a pds. Time to time i have to change certain things - like dataset suffix - in each.
Currently i do it via an ISPF macro but thinking if it can be done via DFSORT.
I can change the strings vai DFSORT but not sure how to get DFSORT to go thrugh each member.

Is there an easy way to do that? Or i should specify each member as input to DFSORT

Thanks,
David

Is there an easy way to do that? Or i should specify each member as input to DFSORT

You would have to specify each member - DFSORT cannot process the members of a PDS automatically.

With z/OS DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct,2010), you can use the new RESIZE function of DFSORT's ICETOOL to create the output record more easily like this:



For complete details on the new functions for DFSORT and DFSORT's ICETOOL available with the Oct, 2010 PTF, see:

http://www.ibm.com/support/docview.wss? ... g3T7000242