vijayamadhuri
Active User
Joined: 06 Apr 2005
Posts: 180
|
|
|
|
Hi all,
This is sample of my file layout
| Code: |
B7GL23X6SS109578 32637661 2007121 EC12N {000200{
B4GP44R2TB131768 18946276 2007121 EC520L {000673D
B4GP44R2TB131768 18946276 2007121 EC520L DC {000150{
|
The amount in positions 54-60 is in the format PIC S9(005)V9(002) . I need to convert this to the readable format and when there is a dc it implies a negative amount which i have to display accordingly , in this example above it should say -15.00 .
Please advice . |
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like this to do what you asked for. You didn't show exactly what you want your output to look like so I'm taking a guess.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
B7GL23X6SS109578 32637661 2007121 EC12N {000200{
B4GP44R2TB131768 18946276 2007121 EC520L {000673D
B4GP44R2TB131768 18946276 2007121 EC520L DC {000150{
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(50,2,CH,EQ,C'DC'),
OVERLAY=(54:54,7,ZD,EDIT=('-IIIIT.TT'))),
IFTHEN=(WHEN=NONE,
OVERLAY=(54:54,7,ZD,EDIT=(' IIIIT.TT')))
/*
|
For your example, SORTOUT will have:
| Code: |
B7GL23X6SS109578 32637661 2007121 EC12N { 20.00
B4GP44R2TB131768 18946276 2007121 EC520L { 67.34
B4GP44R2TB131768 18946276 2007121 EC520L DC { -15.00
|
|
|
