Author: atulbaviskar
Subject: How to pick only YYMMDD from DATE1P (Hex) format?
Posted: Wed Mar 22, 2017 11:39 am (GMT 5.5)
The DATE1P display date in hex format with CCYYMMDD, but I want only YYMMDD in hex, I tried various options to split but couldn't achieve it.
Please suggest.
_________________
Thanks,
Atul
Subject: How to pick only YYMMDD from DATE1P (Hex) format?
Posted: Wed Mar 22, 2017 11:39 am (GMT 5.5)
| Code: |
| //STPU040 EXEC PGM=SORT,ACCT='C=0',PARM='JP1"170320"' //SORTIN DD DSN=TEMP.TCU.INPUT,DISP=SHR //SORTOUT DD DSN=TEMP.TCU.TEST.OUTPUT, // DISP=(NEW,CATLG),UNIT=DISK, // DCB=(RECFM=VB,LRECL=2064), // SPACE=(27998,(30,30),RLSE) //SYSIN DD * SORT FIELDS=COPY RECORD TYPE=F OUTFIL FTOV,OUTREC=(JP1,C'230000',C'FTL',01,24,01,24, C'00000',X'0000000000000000000C',12X,DATE1P, C'2300',C'4H',2X,X'0000000000000000000C',X'0000000C',1X, X'0000000000000000000C',X'0000000C',2X,1X,2X,1X, C'BXYMGMT ',12X,2X,12X,1X,1X,1X,5X) //SYSOUT DD SYSOUT=* |
The DATE1P display date in hex format with CCYYMMDD, but I want only YYMMDD in hex, I tried various options to split but couldn't achieve it.
Please suggest.
_________________
Thanks,
Atul