Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //VSAMLRAC JOB (RACIND),
- // 'SET RACF INDICATOR',
- // CLASS=A,REGION=4M,
- // MSGCLASS=A,
- // MSGLEVEL=(1,1)
- //********************************************************************
- //*
- //* NAME: VSAMLRAC
- //*
- //* DESC: LIST RACF INDICATOR STATUS OF ALL VSAM OBJECTS
- //* REQUIRES BREXX V2R5M2 OR GREATER
- //*
- //********************************************************************
- //LISTUCTL EXEC PGM=IDCAMS
- //SYSPRINT DD DSN=&&UCAT,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(1,1))
- //SYSIN DD *
- LISTCAT UCAT
- /*
- //********************************************************************
- //UCTREXXL EXEC PGM=IEBGENER
- //SYSPRINT DD SYSOUT=*
- //SYSIN DD DUMMY
- //SYSUT1 DD *
- say ''
- say '******************************************'
- say '* rexx script to generate cdscb commands *'
- say '******************************************'
- say ''
- say '*** processing listcat ucat output'
- "EXECIO * DISKR INDD (FINIS STEM indata."
- IF rc > 0 THEN do
- say "(t_t) error reading sysut1:" rc
- exit 1
- END
- say '*** number of entries' indata.0
- outdd.1 = " listcat all"
- j = 2
- do i = 1 to indata.0
- parse var indata.i . . cat .
- IF index(indata.i,'0usercatalog') > 0 THEN do
- outdd.j = " listcat all cat("||cat||")"
- j = j + 1
- END
- END
- outdd.0 = j -1
- say "*** commands:"
- do i=1 to outdd.0
- say outdd.i
- END
- "EXECIO * DISKW OUTDD (STEM outdd. FINIS"
- say "*** done"
- say ''
- /*
- //SYSUT2 DD DSN=&&RXCAT,DISP=(,PASS),UNIT=VIO,
- // SPACE=(TRK,(5,5))
- //* **********************************************************
- //* CHANGE RACF BELOW TO NORACF TO REMOVE RACF INDICATOR
- //EXECCTL EXEC PGM=BREXX,PARM='RXRUN',REGION=8192K
- //RXRUN DD DSN=&&RXCAT,DISP=SHR
- //RXLIB DD DSN=BREXX.V2R5M2.RXLIB,DISP=SHR
- //STDIN DD DUMMY
- //INDD DD DSN=&&UCAT,DISP=SHR
- //OUTDD DD DSN=&&CATS,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(5,5)),
- // DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
- //STDOUT DD SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)
- //STDERR DD SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement