Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hello,
Can you use something like: Change the string in SRCHFOR with the files you want to search & string in SELECT with the JOB names...just a JCL from 3.14 & modified for my needs.
Code: |
//SEARCH EXEC PGM=ISRSUPC, *
// PARM=(SRCHCMP,
// 'ANYC')
//NEWDD DD DSN=XXXX.XXXXXX.JCLLIB,
// DISP=SHR
//OUTDD DD DSN=XXXXXX.FIANLIST.PROC.JOB,DISP=(,CATLG,CATLG)
//SYSIN DD *
SRCHFOR 'AGPROIND,AGPROIND'
SRCHFOR 'AGPROFLG,AGPROIND,AGRTRPRT,AGSETA,AGSETP,AGSETT,KOD505,LCD160'
SRCHFOR 'LCD160W,LFUSDA30,LFUSDA4P,LFUSDA40,LFUSDA50,LFUSDA60,LFUSDB40'
SRCHFOR 'LFUSDE30,LFUSDN30,LFUSDT30,LFUSIA90,LFUSIB90,LFUSIC90,LGGFDA60'
SRCHFOR 'LGUADA40,LGUADD40,LGUFDD40,LGUGDD40,LGUJDA40,LGUKDC40,LGUKDC41'
SRCHFOR 'LGULDC41,LGUSDA40,LGUSDA41,LGUSDA42,LGUSDA50,LGUSDA60,LGUSDA61'
SRCHFOR 'LGUSDB40,LGUSDB41,LGUSDD40,LGUUDA41,LGUXDA42,MBD110K,NJUSW25'
SRCHFOR 'PFUSI30,PF0KM028,QLC400,QLD145,QLD145,QLD150,QLD175,QLD400'
SRCHFOR 'QLD400T,QLI151,QLW200,QLW230,QLW300,QLW301,WN0KD010'
SELECT $JTWTEMP,@ESFDR,@JTJEGJB,@JTWCMPA,@JTWCMPC,@JTWCOMP
SELECT @PRINT,ABD00000,ABD10000,ABM13000,ABM20XCM,ABM20000
SELECT ABM60000,ABM61000,ABM62000,ABRT4700,ABR11000,ABR12000
SELECT ABR13000,ABR13001,ABR19000,ABR21000,ABR23000,ABR25000
SELECT ABR26000,ABR27000,ABR29000,ABR40000,ABR40500,ABR41000
SELECT ABR42001,ABR42002,ABR43000,ABR43600,ABR44000,ABR44300
/*
|
|
|