how to copy this two headers

julian123 · New User Joined: 14 Aug 2006 Posts: 23

i have an input file, have to convert amty from pd to ch, and output as following. now i use 8,8,PD,EDIT=(SIIIIIIIIIIIIT.TT),SIGNS=(,-) to do the conversion, it works well.
but i don't know how to copy the first two lines to output file, can anybody help. thanks very much.

input

Manuneedhi K · Posted: Wed May 28, 2008 6:02 pm Post subject:

Hi ,

I just tried for these three records assuming the amount will always be the third record. I also tried to expand this assuming that the amount record will always be the record with record number as multiples of 3 but couldn't get the syntax of MOD (modulus) funtion right.

Here is the code which i used. This works if there are only 3 records. I am looking for something like WHEN=(71,8,ZD,MOD,=3,EQ,+0) i.e modulus of the seqnum divided by 3 should be zero. Sorry if i had deviated from the topic but just trying to experiment.

Skolusu

Manuneedhi K,

Here is a DFSORT JCl which will give you the desired results

Manuneedhi K · Posted: Wed May 28, 2008 9:00 pm Post subject:

Thanks Kolusu. This is exactly what i was attempting but wasn't sure of the MOD syntax.