That's a kind offer, but please don't look at the (un)elegance of the code. This made a different thread :-) Just search for TRNSTCK and OVERLAY, at the end.
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(OUT) TO(OUT2) USING(CTL2)
SPLICE FROM(OUT2) TO(OUT3) ON(1,8,ZD) WITHANY -
WITH(500,300) WITH(800,300)
COPY FROM(OUT3) TO(OUT4) USING(CTL3)
//CTL1CNTL DD *
INCLUDE COND=(5,1,CH,EQ,X'FA')
OUTFIL FNAMES=OUT,VTOF,
BUILD=(SEQNUM,8,ZD,5,992,/,SEQNUM,8,ZD,993,56,/,
BUILD=(SEQNUM,8,ZD,5,992,/,SEQNUM,8,ZD,993,56,/,
SEQNUM,8,ZD,1049,56,/,
SEQNUM,8,ZD,1105,56,/,
SEQNUM,8,ZD,1161,56,/,
SEQNUM,8,ZD,1217,56,/,
SEQNUM,8,ZD,1273,56,/,
SEQNUM,8,ZD,1329,56,/,
SEQNUM,8,ZD,1385,56,/,
SEQNUM,8,ZD,1441,56,/,
SEQNUM,8,ZD,1497,56)
//CTL2CNTL DD *
INCLUDE COND=(9,1,CH,EQ,X'FA',OR,
(9,1,BI,EQ,UC,AND,
10,1,BI,EQ,UC,AND,9,6,BI,NE,C'ALLDBS'),OR,9,1,BI,EQ,X'00')
INREC IFTHEN=(WHEN=(9,1,BI,EQ,UC,AND,
10,1,BI,EQ,UC,AND,9,6,BI,NE,C'ALLDBS'),
BUILD=(1,8,500C' ',
C'"DB2":"DB2",',
C'"DBTPLAN":"',9,8,C'",',
C'"DB2SEL":"',21,4,BI,C'",',
C'"DB2OPEN":"',25,4,BI,C'",',
C'"DB2ISRT":"',29,4,BI,C'",',
C'"DB2DLET":"',33,4,BI,C'",',
C'"DB2UPD":"',37,4,BI,C'",',
C'"DB2DDL":"',41,2,BI,C'",',
C'"DB2DYN":"',43,2,BI,C'",',
C'"DB2CTRL":"',45,2,BI,C'",',
C'"DB2OTHER":"',47,2,BI,C'",',
C'"DB2SSID":"',49,4,C'",',
C'}'),
HIT=NEXT),
IFTHEN=(WHEN=(9,1,BI,EQ,X'00'),
BUILD=(1,8,800C' ',
C'"MQ":"MQ",',
C'"MQGET":"',21,4,BI,C'",',
C'"MQPUT":"',25,4,BI,C'",',
C'"MQPUT1":"',29,4,BI,C'",',
C'"MQSET":"',33,4,BI,C'",',
C'"MQOPEN":"',37,2,BI,C'",',
C'"MQCLOSE":"',39,2,BI,C'",',
C'"MQBACK":"',41,2,BI,C'",',
C'"MQCMT":"',43,2,BI,C'",',
C'"MQCONN":"',45,2,BI,C'",',
C'"MQDISC":"',47,2,BI,C'",',
C'"MQSSID":"',49,4,C'",',
C'"MQINQ":"',53,2,BI,C'",',
C'"MQUNKN":"',55,2,BI,C'",',
C'}',200C' '),
HIT=NEXT),
HIT=NEXT),
IFTHEN=(WHEN=NONE,
BUILD=(1,8,C'{',
C'"MFSOURCETYPE":"CSFA",',
C'"TRNSTCK":"',393,8,DC1,EDIT=(TTTT-TT-TT),C'T',
393,8,TC1,EDIT=(TT:TT:TT),
C'.',
63:6X,
X,
83:C'0',
393,08,HEX,
C'+0000:00',C'",',
C'"ELAMICS":"',(517,8,BI,SUB,393,8,BI),DIV,+4096,C'",',
C'"TRNARVD":"',117,4,TRAN=HEX,C'",',
C'"TRNARVTH":"',587,4,TRAN=HEX,C'",',
C'"TRNIMSID":"',25,4,C'",',
C'"TRNSMFID":"',29,4,C'",',
C'"TRNJOBNM":"',37,8,C'",',
C'"TRNPSBNM":"',61,8,C'",',
C'"TRNCODE":"',69,8,C'",',
C'"TRNESSID":"',77,4,C'",',
C'"TRNLTERM":"',125,8,C'",',
C'"TRNTCPU":"',509,8,BI,DIV,+4096,EDIT=(TTTT.TTTTTT),C'",',
C'"TRNSTCKE":"',517,8,DC1,EDIT=(TTTT-TT-TT),C'T',
517,8,TC4,EDIT=(TT:TT:TT.TT),C'+0000:00',C'",',
C'"UOW":"',615,32,TRAN=HEX,C'",',
C'}'))
//CTL3CNTL DD *
OUTREC OVERLAY=(103:83,14,TRAN=UNHEX,
63:103,7,BI,+1000000,M11,LENGTH=6)
OUTREC BUILD=(9,1100,SQZ=(SHIFT=LEFT))
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
