Adding a Trailer Record

kirankumarj · New User Joined: 18 Dec 2007 Posts: 51 Location: delaware

I have a INPUT FILE of FB, 200 bytes LRECL.

Data would be :

Skolusu · Posted: Mon Mar 31, 2008 11:02 pm

Try the following control cards

kirankumarj · New User Joined: 18 Dec 2007 Posts: 51 Location: delaware

I could get what i wanted from this control card. Thanks a bunch.

If you dont mind , one more follow up on this. The input file has data only till 41 columns. So, the jcl is forcing me to have the output file also as 41.

Cant i have it as 200 ?

kirankumarj · New User Joined: 18 Dec 2007 Posts: 51 Location: delaware

Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 SORT FIELDS=COPY
000002 OMIT COND=(1,1,CH,EQ,C'0',OR,1,1,CH,EQ,C'6')
000003 OUTFIL REMOVECC,
000004 TRAILER1=(1:'T',10:COUNT=(M11,LENGTH=11),
000005 25:TOT=(09,11,ZD,M11,LENGTH=10))
000006 OUTREC FIELDS=(1:C'38774212',09:19,11,20:C'0',21:10,09,30:30,06,
000007 36:02,6)
****** **************************** Bottom of Data ****************************

Skolusu · Posted: Mon Mar 31, 2008 11:41 pm

try the following control cards to have the output file as 200 bytes

kirankumarj · New User Joined: 18 Dec 2007 Posts: 51 Location: delaware

It worked like a charm. Thanks for your time and effort.