IBM Mainframe Forum

Hi there,

Please help me generating the below given sort card dynamically. Need to get a date value from input file rather than hardcoding it.

Sort fields=copy
Omit cond=(53,8,ch,LT,C'20140515', AND,
88,3,CH,EQ,'AUT',AND,
143,3,CH,EQ,AUT)


other than the first condition, 2 conditions are direct hardcoding
I tried with Header, Build and trailer options in sort, but no luck in getting that

the sort card i tried so far,

//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,
HEADER1=(' SORT FIELDS=COPY '),
BUILD=(C' OMIT COND=(53,8,CH,LT,C''',2,8,C''',AND,
88,3,CH,EQ,C'''AUT,C''',AND,',),



I tried various combinations with the above given
Please do let me know if anything is not clear in this to help

Regards,
Damo

Hi,
I am able to generate it.

//S020 EXEC PGM=SORT,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTIN DD DSN=SEY.COTBL.RUNDATE,DISP=SHR
//SORTOUT DD DSN=SEE.DAMO.SORTCARD,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB)
//SORTWK1 DD DSN=&&SORTWK1,UNIT=SYSDA,SPACE=(CYL,(250))
//SYSIN DD *
OPTION COPY
INCLUDE COND=(1,1,CH,EQ,C'O')
OUTFIL REMOVECC,
HEADER1=(' SORT FIELDS=COPY '),
BUILD=(C' OMIT COND=(53,8,CH,LT,C''',2,8,C''',AND,',40X,/,
C' 88,3,CH,EQ,C''',C'AUT',C''',AND,143,3,CH,EQ,C''',C'REV',C''')')
/*

works for me

Thanks a lot.