/ --- Rexx --------------------------------------------------------- /
/ Recherche d'une chaine dans un ensemble de PDS /
/ Paramètres : - Chaine /
/ - Environnement /
/ - Langage /
/ - PDS /
/ - Type /
/ - Edit /
/ Entrée : - néant /
/ Sortie : - néant /
/ ------------------------------------------------------------------ /

Address ISREDIT
"MACRO (param)"
if param = "PARAM" then parse arg param
parse upper value param with param

call initialisation
call traitement
call fin

exit

initialisation:

Address TSO
"ALLOC F(sysin) NEW REU UNIT(VIO) RECFM(F B) LRECL(80)"
Queue "SRCHFOR '&DB2$$$$'"
Queue "SRCHFOR '&CREATOR'"
Queue "SRCHFOR '&COLL$$$'"
Queue "SRCHFOR '&COLL1$$'"
Queue "SRCHFOR '&PLAN$$$'"
Queue "SRCHFOR '&DZ00$$$'"
Queue "SRCHFOR '&DBPA$$$'"
Queue "SRCHFOR '&DBGS$$$'"
Queue "SRCHFOR '&SG$$$$$'"
Queue "SRCHFOR '&SGIX$$$'"
Queue "SRCHFOR '&BPTS$$$'"
Queue "SRCHFOR '&BPTX$$$'"
Queue "SRCHFOR '&PDSDBRM'"
Queue "SRCHFOR '&OWNER$$'"
Queue "SRCHFOR '&QUALIF$'"
Queue "SRCHFOR '&PCTFRE1'"
Queue "SRCHFOR '&PCTFRE2'"
Queue "SRCHFOR '&PCTFR31'"
Queue "SRCHFOR '&PCTFR32'"
Queue "SRCHFOR '&PCTFRE4'"
Queue "SRCHFOR '&PCTFRE5'"
Queue "SRCHFOR '&PCTFREE'"
Queue "SRCHFOR '&FREEPA1'"
Queue "SRCHFOR '&FREEPA2'"
Queue "SRCHFOR '&FREEP31'"
Queue "SRCHFOR '&FREEP32'"
Queue "SRCHFOR '&FREEPA4'"
Queue "SRCHFOR '&FREEPA5'"
Queue "SRCHFOR '&FREEPAG'"
Queue "SRCHFOR '&CLOSE$$'"
Queue "SRCHFOR '&ERASE$$'"
Queue "SRCHFOR '&COMPRES'"
Queue "SRCHFOR '&LOCKSIZ'"
Queue "SRCHFOR '&DEFER$$'"
Queue "SRCHFOR '&CURENTD'"
Queue "SRCHFOR '&EXPLAIN'"
Queue "SRCHFOR '&DEGREE$'"
Queue "SRCHFOR '&VALIDAT'"
Queue "SRCHFOR '&ACTION$'"
Queue "SRCHFOR '&SQLERRO'"
Queue "SRCHFOR '&REOPT$$'"
Queue "SRCHFOR '&RELEASE'"
Queue "SRCHFOR '&KEEPDYN'"
Queue "SRCHFOR '&DBPROTO'"
Queue "SRCHFOR '&ENCODIN'"
Queue "SRCHFOR '&IMMEDWR'"
Queue "SRCHFOR '&FLAG$$$'"
Queue "SRCHFOR '&BPTS4$$'"
Queue "SRCHFOR '&BPTS8$$'"
Queue "SRCHFOR '&BPTS16$'"
Queue "SRCHFOR '&BPTS32$'"
Queue "SRCHFOR '&BPTS64$'"
Queue "SRCHFOR 'NOTIFY='"
Queue "SRCHFOR 'NOTIFY=&SYSUID'"
Queue "SRCHFOR 'PZ00MBDJ'"
Queue "SRCHFOR 'PZ00MBDF'"
Queue "SRCHFOR '&PDS$$$$'"
Queue "SRCHFOR '&ACT$$$$'"
Queue "SRCHFOR '&CLASS$$'"
Queue "SRCHFOR '&JOBLIB$'"
Queue "SRCHFOR '&PROCLIB'"
Queue "SRCHFOR '&NOM$$$$'"
Queue "SRCHFOR '&ALIAS$$'"
Queue "SRCHFOR '&ENVDB2$'"
Queue "SRCHFOR '&REGION$'"
Queue "SRCHFOR '&MSGCLAS'"
Queue "SRCHFOR '&SYSOUT$'"
Queue "SRCHFOR '&UNIT$$$'"
Queue "SRCHFOR '&UPGM$$$'"
Queue "SRCHFOR '&DB2PROC'"
Queue "SRCHFOR '&DB2UTID'"
Queue "SRCHFOR '&UTCHECK'"
Queue "SRCHFOR '&UTFIC$$'"
Queue "SRCHFOR '&UTSTAT$'"
Queue "SRCHFOR '&UTUNLOA'"
Queue "SRCHFOR '&UTREORG'"
Queue "SRCHFOR '&UTREBLD'"
Queue "SRCHFOR '&UTLOADR'"
Queue "SRCHFOR '&UTLOADA'"
Queue "SRCHFOR '&UTLOADV'"
Queue "SRCHFOR '&UTPROGU'"
Queue "SRCHFOR 'CHECK '"
Queue "SRCHFORC ' DATA'"
Queue "SRCHFOR 'RUNSTATS'"
Queue "SRCHFOR 'IMAGE '"
Queue "SRCHFORC ' COPY'"
Queue "SRCHFOR 'UNLOAD'"
Queue "SRCHFOR 'REORG'"
Queue "SRCHFOR 'REBUILD'"
Queue "SRCHFOR 'LOAD'"
Queue "SRCHFOR 'DSNTEP2'"
Queue "SRCHFOR 'DSNTEP4'"
Queue "SRCHFOR 'DSNTIAUL'"
"EXECIO "Queued()" DISKW sysin (FINIS"

return

traitement:

call liste "ULIVR.NDV.STC.JCL.BASE" ULIVR JCL Batch

return

fin:

return

liste:
parse arg pds reste

Address TSO
"ALLOC F(newdd) DA('"pds"') SHR REU"
"ALLOC F(outdd) NEW REU UNIT(VIO) SP(1,1) CYLINDERS"
"CALL (ISRSUPC) 'SRCHCMP,ANYC'"
"EXECIO DISKR outdd (STEM supc. FINIS"
Do i = 1 To supc.0
Parse Var supc.i word1 word2 word3 word4 .
If c2x(left(word1, 1)) ^= 'FE' &,
word2 = '---------' &,
word3 = 'STRING(S)' &,
word4 = 'FOUND' Then
say word1
End
"FREE F(newdd)"
"FREE F(outdd)"

return