//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)