Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You didn't give much detail, so I'll give you a made up example to show you how to do this.
9(3) is a 3-byte ZD field. 9(5) is a 5-byte ZD field.
Let's say your input file has RECFM=FB and LRECL=80. The input records look like this:
NT01001123
NT01001005
NT02001631
and you want the output file to have RECFM=FB and LRECL=80 with records that look like this:
NT0100100123
NT0100100005
NT02001631
You can use a DFSORT job like this:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(1,7,CH,EQ,C'NT01001'),
BUILD=(1,7,8:8,3,ZD,TO=ZD,LENGTH=5,13:11,68))
/*
|
If you need more specific help, you need to describe in detail what you're trying to do. |
|
