Position of Records in Outfile Using Syncsort

Ed VanBebber

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 · Posted: Fri Aug 29, 2008 12:27 am Post subject:

Alter the OUTREC by inserting two blanks before the actual data?

Ed VanBebber · Posted: Fri Aug 29, 2008 12:32 am Post subject:

I'm sorry CICS Guy, I'm not following. Would you mind showing the syntax?
Thanks

CICS Guy · Posted: Fri Aug 29, 2008 12:59 am Post subject:

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.

Ed VanBebber · Posted: Fri Aug 29, 2008 1:08 am Post subject:

That worked great. Thanks CICS Guy! I think this is the second or third time you have helped me out...