Advertisement
mainframed767

Untitled

Mar 8th, 2023
2,571
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
JCL 2.07 KB | Source Code | 0 0
  1. //VSAMLRAC JOB (RACIND),
  2. //             'SET RACF INDICATOR',
  3. //             CLASS=A,REGION=4M,
  4. //             MSGCLASS=A,
  5. //             MSGLEVEL=(1,1)
  6. //********************************************************************
  7. //*
  8. //* NAME: VSAMLRAC
  9. //*
  10. //* DESC: LIST RACF INDICATOR STATUS OF ALL VSAM OBJECTS
  11. //* REQUIRES BREXX V2R5M2 OR GREATER
  12. //*
  13. //********************************************************************
  14. //LISTUCTL EXEC PGM=IDCAMS
  15. //SYSPRINT DD DSN=&&UCAT,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(1,1))
  16. //SYSIN    DD *
  17.  LISTCAT UCAT
  18. /*
  19. //********************************************************************
  20. //UCTREXXL EXEC PGM=IEBGENER
  21. //SYSPRINT DD SYSOUT=*
  22. //SYSIN DD DUMMY
  23. //SYSUT1    DD *
  24. say ''
  25. say '******************************************'
  26. say '* rexx script to generate cdscb commands *'
  27. say '******************************************'
  28. say ''
  29. say '*** processing listcat ucat output'
  30.  
  31. "EXECIO * DISKR INDD (FINIS STEM indata."
  32. IF rc > 0 THEN do
  33.     say "(t_t) error reading sysut1:" rc
  34.     exit 1
  35. END
  36. say '*** number of entries' indata.0
  37.  
  38. outdd.1 = " listcat all"
  39.  
  40. j = 2
  41. do i = 1 to indata.0
  42.     parse var indata.i . . cat .
  43.     IF index(indata.i,'0usercatalog') > 0 THEN do
  44.         outdd.j = " listcat all cat("||cat||")"
  45.         j = j + 1
  46.     END
  47. END
  48. outdd.0 = j -1
  49. say "*** commands:"
  50. do i=1 to outdd.0
  51.     say outdd.i
  52. END
  53.  
  54. "EXECIO * DISKW OUTDD (STEM outdd. FINIS"
  55.  
  56. say "*** done"
  57. say ''
  58. /*
  59. //SYSUT2   DD DSN=&&RXCAT,DISP=(,PASS),UNIT=VIO,
  60. //            SPACE=(TRK,(5,5))
  61. //* **********************************************************
  62. //* CHANGE RACF BELOW TO NORACF TO REMOVE RACF INDICATOR
  63. //EXECCTL  EXEC PGM=BREXX,PARM='RXRUN',REGION=8192K
  64. //RXRUN    DD   DSN=&&RXCAT,DISP=SHR
  65. //RXLIB    DD   DSN=BREXX.V2R5M2.RXLIB,DISP=SHR
  66. //STDIN    DD   DUMMY
  67. //INDD     DD   DSN=&&UCAT,DISP=SHR
  68. //OUTDD    DD   DSN=&&CATS,DISP=(,PASS),UNIT=VIO,SPACE=(TRK,(5,5)),
  69. //         DCB=(LRECL=80,BLKSIZE=800,RECFM=FB)
  70. //STDOUT   DD   SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)
  71. //STDERR   DD   SYSOUT=*,DCB=(RECFM=FB,LRECL=140,BLKSIZE=5600)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement