Can some one help me on this....I need to fetch the system date and sort the PS record matching with system date.................i used the following method but getting o/p blank............date in PS record in the format yyyymmdd ........... if i can get yymmdd also fine
Code: Select all
//xxxxx JOB (234),'TEST',CLASS=A,NOTIFY=&SYSUID
//STEP1 EXEC PGM=SORT
//SYSNAMES DD *
CURDAT,S'&DAY.&MON.&YR2'
//SORTIN DD DSN=xxxx.TRNG.PS,DISP=SHR
//SORTOUT DD DSN=xxxx.TRNG.PSTEST,DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(4,2)),DCB=(LRECL=40,BLKSIZE=400,RECFM=FB,
// DSORG=PS)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(12,8,CH,LE,C'CURDAT')
OUTREC FIELDS=(1,8,2X,10,8)
/*
Code: Select all
000100 xxxxxxx 20120830 xxxxxxx xx
000200 xxxxxx 20120906 xxxxxx xx
000300 xxxxxx 20120905 xxxx xx
000400 xxxxxx 20120824 xxxxxx xx