View previous topic :: View next topic
|
Author |
Message |
AJAYREDDY
New User
Joined: 17 Feb 2007 Posts: 52 Location: USA
|
|
|
|
Hi All,
This question might have asked in this forum, but I could not find by searching.
Here is the requirement. I need to generate the Sequence Numbers in output file regardless of what the value is in Input file.
Example:
INPUT FILE
002AAAUUU
005BBBKKK
007OOOWWW
025KKKMMM
412TTTEEE
I should get the output as
001AAAUUU
002BBBKKK
003OOOWWW
004KKKMMM
005TTTEEE
The first field in INPUT file is PIC S9(9) COMP. I should get Sequence Numbers starting with 1 in the same field.
I am wondering if we can do this by SORT or DFSORT. Please let me know.
Thanks |
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
PIC S9(9) COMP is a 4-byte binary value. If you want to overlay positions 1-4 with 4-byte BI sequence numbers, you can use a DFSORT job like this:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(1:SEQNUM,4,BI)
/*
|
If you really want 4-byte displayable (ZD) sequence numbers, you can use:
Code: |
INREC OVERLAY=(1:SEQNUM,4,ZD)
|
If you want something else, be more specific about what you want. |
|
Back to top |
|
|
AJAYREDDY
New User
Joined: 17 Feb 2007 Posts: 52 Location: USA
|
|
|
|
Thanks Frank. It worked. |
|
Back to top |
|
|
|