Evantra
New User
Joined: 05 Jan 2008 Posts: 15 Location: Sacramento, Ca
|
|
|
|
I have a quick question. My output data starts in column 2 and I need it in column 4.
//SORT1 EXEC PGM=SORT
//SORTJNF1 DD DSN=OPSA90.ORSCO.CLIENTSP.DATA(0),DISP=SHR
//SORTJNF2 DD DSN=OPSA90.ORSCO.CLIENTSP.WRKFILE,DISP=SHR
//SORTOF01 DD DSN=OPSA90.ORSCO.CLIENTSP.NOTSENT(+1),
// DISP=(,CATLG),
// UNIT=SYSDA,
// SPACE=(CYL,(90,60),RLSE),
// RECFM=FB,BLKSIZE=27951,LRECL=121
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILES=F1,FIELDS=(1,15,A)
JOINKEYS FILES=F2,FIELDS=(1,15,A)
JOIN UNPAIRED,F2,ONLY
SORT FIELDS=COPY
OUTFIL FILES=01,OUTREC=(1,121),REMOVECC,
HEADER1=(' SCO CLIENT ACCOMPANY TAPES - PRIMARYS',45:&DATE),
TRAILER1=(' TOTAL TAPE COUNT: ',COUNT=(M11,LENGTH=4)) |
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
OUTREC=(1:2X,1,121) but your lrecl is now 123.
OUTREC=(1:2X,1,119) your lrecl is now 121 but you lost the last two bytes. |
|