I am trying to do - INREC OVERLAY as follows
Code: Select all
//SYSIN DD *
INREC IFTHEN=(WHEN=(25,04,CH,EQ,C'0.00'),
OVERLAY=(5:5,20,C'"0.00"',29,35)),
IFTHEN=(WHEN=(22,04,CH,EQ,C'0.00'),
OVERLAY=(5:5,17,C'"0.00"',26,35))
SORT FIELDS=COPY
//
Input:
Code: Select all
----+----1----+----2----+----3----+----4----+----5----
C01.C03.YRCOMP.0001.0.00."25,000.00"
3CR..YRCOMP.0001.0.00."25,000.00"
Code: Select all
----+----1----+----2----+----3----+----4----+----5---
********************************* Top of Data *******
C01.C03.YRCOMP.0001."0.00"0"25,000.00"
Code: Select all
----+----1----+----2----+----3----+----4----+--
3CR..YRCOMP.0001."0.00"0"25,000.00"
C01.C03.YRCOMP.0001."0.00"0"25,000.00"
My intention is to change the 0.00 to "0.00" that's it.
I/P info - 80 B, VB file (Tab delimited file)
O/P info - 80B, VB file