Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC FIELDS=(3,10,X,C'x''',13,3,HEX,C'''')
OUTREC OVERLAY=(14:14,6,TRAN=UTOL)
/*
|
The INREC statement gives you:
0820385479 x'001C1C'
The OUTREC statement changes 001C1C to 001c1c. |
|