MVSFORUMS.com

[ramlak]

Hi,

I am using SORT to copy a file excluding few fields and adding a header from another file,

I need a help in formatting the output using SORT.

Input
LRECL = 1652

There are three fields which repeatedly occur from column 62 to end of record.

Example
1 - 61
xxxxxxxxxxxxxxxxxxx
61-1652
aaaaa bbb cccc aaaaa bbb cccc .......................

is there a simple way to delimit these repeating fields with comma wihtout specifying the whole layout in the OUTREC.

any help appreciated.

[Frank Yaeger]

Here's a DFSORT/ICETOOL job that will do what you asked for:

[ramlak]

Many thanks frank i always admired you and kolusu,
i have been a passive spectator for around 2 years ......

[Frank Yaeger]

I thought of a much easier way to do this if your aaaaa, bbb and cccc variables represent strings without embedded blanks. We can just replace each blank with a comma. Here's the DFSORT job:

[ramlak]

Thanks once again for ur effort frank,
My requirements are changed now to convert the repeating fileds to
display format , among the recurring field one field is COMP-3 9(4).

i think i should be using TO=ZD ???

Also when we overlay the Comma in the records the comma should not be inserted when it is end of record(end of values).

example ,

even after the record is over the output shows ' , , , ,'

any help ?

i guess doing all this by a program would make it simpler , but i need to know whether all these is possible by JCL ?

[Frank Yaeger]

I set up the job specifically NOT to put the commas at the end based on what you told me about how the data looks. If the data looks different, then you just need to adjust the positions to account for those last positions. I used 62:62,1589,TRAN=ALTSEQ to avoid putting commas in the last two positions. If you're getting commas past where you want them, then just subtract the number of extra commas from 1589. For example, if you're getting 4 extra commas, change it to 62:62,1585,TRAN=ALTSEQ.

Or for my other job, just adjust the positions to avoid putting commas past where you want them.

COMP-3 9(4) is a 3-byte PD field, so you can use p,3,PD,TO=ZD,LENGTH=n to convert it to ZD where p is the input starting position and n is the output length.

If you have binary or PD values in the recurring fields, the TRAN=ALTSEQ solution problaby won't work because these fields could have embedded X'40' characters.

Conceptually, my other job would work but it wasn't set up to do any conversions because you didn't say you needed to. It would have to be changed based on what your recurring fields actually look like and what you want the output to look like. I don't know exactly what your data looks like, so I can't tell you exactly how to code the job. You should be able to use my job as a model and adjust it for what you need. Just play around with it.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort