Code: Select all
//TOOLIN DD *
RESIZE FROM(INJCL) TO(T1) TOLEN(4480)
COPY JKFROM TO(OUT) USING(CTL1)
/*
- - - - - - - - - - - - - - - -
//CTL1CNTL DD *
JOINKEYS F1=T1,FIELDS=(72,1,A),SORTED
JOINKEYS F2=INPRMS,FIELDS=(15,1,A),SORTED
REFORMAT FIELDS=(F1:1,4480,F2:1,14)
OPTION COPY
INREC OVERLAY=(447:4481,2,
672:4483,6,
679:4489,6,
2451:4483,6,
2457:4489,6,
2737:4481,2)
OUTFIL FNAMES=OUT,
BUILD=(1,80,/,81,80,/,161,80,/,241,80,/,321,80,/,401,80,/,
481,80,/,561,80,/,641,80,/,
721,80,/,801,80,/,881,80,/,961,80,/,
1041,80,/,1121,80,/,1201,80,/,1281,80,/,1361,80,/,1441,80,/,
1521,80,/,1601,80,/,1681,80,/,1761,80,/,1841,80,/,1921,80,/,
2001,80,/,2081,80,/,2161,80,/,2241,80,/,2321,80,/,2401,80,/,
2481,80,/,2561,80,/,2641,80,/,2721,80,/,2801,80,/,2881,80,/,
2961,80,/,3041,80,/,3121,80,/,3201,80,/,3281,80,/,3361,80,/,
3441,80,/,3521,80,/,3601,80,/,3681,80,/,3761,80,/,3841,80,/,
3921,80,/,4001,80,/,4081,80,/,4161,80,/,4241,80,/,4321,80,/,
4401,80)
My jcl sample is 56 lines long.
My file with variable fields is format NNAAAAAABBBBBB.
And some parameters must be replaced at two places in the sample.