superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
Something like this:
| Code: |
//STEP0001 EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&&LISTCAT,UNIT=VIO,DISP=(NEW,PASS)
//SYSIN DD *
LISTCAT LVL(GDGHLQ)
/*
//*
//STEP0002 EXEC PGM=ICETOOL
//IN DD DSN=&&LISTCAT,DISP=(OLD,DELETE)
//T1 DD DSN=&&T1,UNIT=VIO,DISP=(NEW,PASS)
//OUT DD DSN=&&DELETE,UNIT=VIO,DISP=(NEW,PASS)
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(T1) USING(CTL2)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,INCLUDE=(6,8,CH,EQ,C'GDG BASE'),
OUTREC=(1:22,44,80:X),CONVERT
/*
//CTL2CNTL DD *
INREC IFTHEN=(WHEN=(2,1,CH,EQ,C' '),
OVERLAY=(2:C')')),
IFTHEN=(WHEN=(3,1,CH,EQ,C' '),
OVERLAY=(3:C')')),
IFTHEN=(WHEN=(4,1,CH,EQ,C' '),
OVERLAY=(4:C')')),
IFTHEN=(WHEN=(5,1,CH,EQ,C' '),
OVERLAY=(5:C')')),
IFTHEN=(WHEN=(6,1,CH,EQ,C' '),
OVERLAY=(6:C')')),
IFTHEN=(WHEN=(7,1,CH,EQ,C' '),
OVERLAY=(7:C')')),
IFTHEN=(WHEN=(8,1,CH,EQ,C' '),
OVERLAY=(8:C')')),
IFTHEN=(WHEN=(9,1,CH,EQ,C' '),
OVERLAY=(9:C')')),
IFTHEN=(WHEN=(10,1,CH,EQ,C' '),
OVERLAY=(10:C')')),
IFTHEN=(WHEN=(11,1,CH,EQ,C' '),
OVERLAY=(11:C')')),
IFTHEN=(WHEN=(12,1,CH,EQ,C' '),
OVERLAY=(12:C')')),
IFTHEN=(WHEN=(13,1,CH,EQ,C' '),
OVERLAY=(13:C')')),
IFTHEN=(WHEN=(14,1,CH,EQ,C' '),
OVERLAY=(14:C')')),
IFTHEN=(WHEN=(15,1,CH,EQ,C' '),
OVERLAY=(15:C')')),
IFTHEN=(WHEN=(16,1,CH,EQ,C' '),
OVERLAY=(16:C')')),
IFTHEN=(WHEN=(17,1,CH,EQ,C' '),
OVERLAY=(17:C')')),
IFTHEN=(WHEN=(18,1,CH,EQ,C' '),
OVERLAY=(18:C')')),
IFTHEN=(WHEN=(19,1,CH,EQ,C' '),
OVERLAY=(19:C')')),
IFTHEN=(WHEN=(20,1,CH,EQ,C' '),
OVERLAY=(20:C')')),
IFTHEN=(WHEN=(21,1,CH,EQ,C' '),
OVERLAY=(21:C')')),
IFTHEN=(WHEN=(22,1,CH,EQ,C' '),
OVERLAY=(22:C')')),
IFTHEN=(WHEN=(23,1,CH,EQ,C' '),
OVERLAY=(23:C')')),
IFTHEN=(WHEN=(24,1,CH,EQ,C' '),
OVERLAY=(24:C')')),
IFTHEN=(WHEN=(25,1,CH,EQ,C' '),
OVERLAY=(25:C')')),
IFTHEN=(WHEN=(26,1,CH,EQ,C' '),
OVERLAY=(26:C')')),
IFTHEN=(WHEN=(27,1,CH,EQ,C' '),
OVERLAY=(27:C')')),
IFTHEN=(WHEN=(28,1,CH,EQ,C' '),
OVERLAY=(28:C')')),
IFTHEN=(WHEN=(29,1,CH,EQ,C' '),
OVERLAY=(29:C')')),
IFTHEN=(WHEN=(30,1,CH,EQ,C' '),
OVERLAY=(30:C')')),
IFTHEN=(WHEN=(31,1,CH,EQ,C' '),
OVERLAY=(31:C')')),
IFTHEN=(WHEN=(32,1,CH,EQ,C' '),
OVERLAY=(32:C')')),
IFTHEN=(WHEN=(33,1,CH,EQ,C' '),
OVERLAY=(33:C')')),
IFTHEN=(WHEN=(34,1,CH,EQ,C' '),
OVERLAY=(34:C')')),
IFTHEN=(WHEN=(35,1,CH,EQ,C' '),
OVERLAY=(35:C')')),
IFTHEN=(WHEN=(36,1,CH,EQ,C' '),
OVERLAY=(36:C')')),
IFTHEN=(WHEN=(37,1,CH,EQ,C' '),
OVERLAY=(37:C')')),
IFTHEN=(WHEN=(38,1,CH,EQ,C' '),
OVERLAY=(38:C')')),
IFTHEN=(WHEN=(39,1,CH,EQ,C' '),
OVERLAY=(39:C')')),
IFTHEN=(WHEN=(40,1,CH,EQ,C' '),
OVERLAY=(40:C')')),
IFTHEN=(WHEN=(41,1,CH,EQ,C' '),
OVERLAY=(41:C')')),
IFTHEN=(WHEN=(42,1,CH,EQ,C' '),
OVERLAY=(42:C')')),
IFTHEN=(WHEN=(42,1,CH,EQ,C' '),
OVERLAY=(43:C')')),
IFTHEN=(WHEN=(44,1,CH,EQ,C' '),
OVERLAY=(44:C')')),
IFTHEN=(WHEN=NONE),
OVERLAY=(45:C')'))
OUTFIL FNAMES=OUT,OUTREC=(1:C' DELETE (',1,45,80:X)
/*
//*
//STEP0003 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&DELETE,DISP=(OLD,PASS)
//*
|
|
|
