The following scenario:
Input file VB.
At offset 23 (RDW included) 2-byte field
Other relevant fields are 101,8  109,8  181,8
No sort needed.

ICETOOL TOOLIN:
COPY FROM(INPUT) TO(TMP) USING(ABCD)
DISPLAY FROM(TMP) LIST(REPORT) -
HEADER('desc1') ON(101,8,CH) -
HEADER('desc2') ON(109,8,CH) -
HEADER('desc3') ON(181,8,CH) -
BLANK

//ABCDCNTL DD *
 OPTION COPY,VLSHRT

Now the problem:
I want to add new column to the report.  The value depend on 23,2 field content:
field              text in report
X'0000'  -> C'ALTER   '
X'0001' -> C'READ    '
X'0002' -> C'UPDATE  '
any other -> C'ERROR   '

I tried with OUTREC FIELD=(... CHANGE=(...)) with no effect (excluding various error codes).
Or maybe I should not change ABCDCNTL, rather modify TOOLIN instead?


--
Radoslaw Skorupka
Lodz, Poland

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to