>> Desired output data: Built from APPLICATION ID / JOB NAME / WORKSTATION NAME
Andreas,
As Massimo mentioned, it is quite simple using WHEN=GROUP. Here are Untested
Control cards that will give you the desired results
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(033,12,CH,EQ,C'CURRENT PLAN'),
PUSH=(081:ID=8)),
IFTHEN=(WHEN=(006,14,CH,EQ,C'APPLICATION ID'),
OVERLAY=(090:40,10)),
IFTHEN=(WHEN=(006,08,CH,EQ,C'JOB NAME'),
OVERLAY=(100:40,10)),
IFTHEN=(WHEN=(006,16,CH,EQ,C'WORKSTATION NAME'),
OVERLAY=(110:40,10))
OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(090,10,CH,GT,C' '),
PUSH=(090:090,10)),
IFTHEN=(WHEN=GROUP,
BEGIN=(100,10,CH,GT,C' '),
PUSH=(100:100,10)),
IFTHEN=(WHEN=GROUP,
BEGIN=(110,10,CH,GT,C' '),
PUSH=(110:110,10))
OUTFIL INCLUDE=(081,08,ZD,EQ,1),
REMOVECC,NODETAIL,
SECTIONS=(081,08,
TRAILER3=(090,10,100,10,110,10))
/*
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
