|
View previous topic :: View next topic
|
| Author |
Message |
jagamohan1981
New User
Joined: 10 May 2006
Posts: 1
Location: Kolkata,India
|
|
|
|
Hi,
My require ment is as followes.
My input file is having record length 1068(FB) and out put too.
From 170 position I have one field Acct no having PICX(7).
My requirement is that if that field contain less than 7 digits then that should be appended as 0 else as it is.
E.g. 1234567 will be moved as 1234567
123456 will be moved as 0123456
12345 will be moved as 0012345 and so on.
Hope I have provided the requirement in detail.
Please some one provide me the JCL(sortcard) if this is possible.
Input:
--7----+
235248
82792
82792
82792
82792
82792
82792
82792
878484
output:
---7----+
235248
082792
082792
082792
082792
082792
082792
082792
878484 |
|
| Back to top |
|
 |
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 (FB/1068)
//SORTOUT DD DSN=... output file (FB/1068)
//SYSIN DD *
OPTION COPY
OUTREC OVERLAY=(170:170,7,UFF,M11,LENGTH=7)
/*
|
|
|
| Back to top |
|
|
|
|
