Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Assuming you only have to convert '0'-'9', you can use a DFSORT job like this:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB)
//SORTOUT DD DSN=... output file (FB
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(6:1,1,CHANGE=(4,C'0',C'0000',C'1',C'0001',
C'2',C'0010',C'3',C'0011',C'4',C'0100',C'5',C'0101',
C'6',C'0110',C'7',C'0111',C'8',C'1000',C'9',C'1001'),
10:2,1,CHANGE=(4,C'0',C'0000',C'1',C'0001',
C'2',C'0010',C'3',C'0011',C'4',C'0100',C'5',C'0101',
C'6',C'0110',C'7',C'0111',C'8',C'1000',C'9',C'1001'),
14:3,1,CHANGE=(4,C'0',C'0000',C'1',C'0001',
C'2',C'0010',C'3',C'0011',C'4',C'0100',C'5',C'0101',
C'6',C'0110',C'7',C'0111',C'8',C'1000',C'9',C'1001'))
/*
|
|
|