Peter Farley at IBM Mainframe Discussion List <[email protected]> wrote
on 03/30/2012 06:41:17 AM:
> However, I'm not sure if I understand you correctly: Are you saying
> that the IFTHEN's which add the SEQNUM in the INREC would move to
> the OUTREC, but the BUILD of each IFTHEN in the OUTREC would then
> strip off? How could I both add SEQNUM and remove it at the same time?
Like this:
OPTION VLSHRT,VLSCMP
OMIT COND=(((5,3,CH,EQ,C'000'),AND, OMIT(HEADER RECORD AND
(34,5,CH,NE,C'FILE1')),OR, NOT FILE1) OR
(5,3,CH,EQ,C'999')) TRAILER RECORD)
MERGE FIELDS=(5,03,CH,A),
EQUALS,FILES=4 SORTIN01 TO 04
* ADD SEQNUM BETWEEN RDW AND DATA.
OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:SEQNUM,11,ZD,16:5)),
* USE SEQNUM-2 TO PUT COUNT OF DATA RECORDS INTO
* DUMMY TRAILER RECORD (IDENTIFIED BY X'FAFAFA').
IFTHEN=(WHEN=(16,3,CH,EQ,X'FAFAFA'),
BUILD=(1,4,19,13,5,11,ZD,SUB,+2,M11,LENGTH=11,43)),
IFTHEN=(WHEN=NONE,BUILD=(1,4,5:16))
Alternatively, you could use OUTREC to build the records with
the SEQNUM, and OUTFIL to remove the SEQNUM like this:
OPTION VLSHRT,VLSCMP
OMIT COND=(((5,3,CH,EQ,C'000'),AND, OMIT(HEADER RECORD AND
(34,5,CH,NE,C'FILE1')),OR, NOT FILE1) OR
(5,3,CH,EQ,C'999')) TRAILER RECORD)
MERGE FIELDS=(5,03,CH,A),
EQUALS,FILES=4 SORTIN01 TO 04
* ADD SEQNUM BETWEEN RDW AND DATA.
OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:SEQNUM,11,ZD,16:5)),
* USE SEQNUM-2 TO PUT COUNT OF DATA RECORDS INTO
* DUMMY TRAILER RECORD (IDENTIFIED BY X'FAFAFA').
IFTHEN=(WHEN=(16,3,CH,EQ,X'FAFAFA'),
OVERLAY=(32:5,11,ZD,SUB,+2,M11,LENGTH=11))
OUTFIL BUILD=(1,4,5:16)
However, I would suggest using my TRAILER1 job as it's simpler.
Frank Yaeger - DFSORT Development Team (IBM) - [email protected]
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
