>> 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.
Radoslaw,
Use the following control cards which will give you the desired results. I
optimized the job a bit to include records that have a minimum length of 188
which is the last position of the field you are interested.
//TOOLIN DD *
COPY FROM(INPUT) TO(TMP) USING(ABCD)
DISPLAY FROM(TMP) LIST(REPORT) -
HEADER('CODE ') ON(001,8,CH) -
HEADER('DESC1') ON(009,8,CH) -
HEADER('DESC2') ON(017,8,CH) -
HEADER('DESC3') ON(025,8,CH) -
BLANK
/*
//ABCDCNTL DD *
INCLUDE COND=(1,2,BI,GE,188)
OUTFIL VTOF,
BUILD=(023,2,CHANGE=(8,X'0000',C'ALTER ',
X'0001',C'READ ',
X'0002',C'UPDATE '),
NOMATCH=(C'ERROR '),
101,08,
109,08,
181,08)
/*
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
