Here is how I did this some 30 years ago. I bet it will still work:
Edit your proc and this as the last step:
//IWASUSED EXEC PGM=IKJEFT01,COND=EVEN,
// PARM='IWASUSED PROC *the dsn and member I am editing goes here*'
//SYSPROC DD DISP=SHR,DSN=your sysproc dataset
//SYSTSPRT DD DUMMY
//SYSTSIN DD DUMMY
put this CLIST in "your sysproc dataset":
PROC 2 TYPE DSN
CONTROL END(ENDO)
ERROR DO
GOTO OUT
ENDO
IF &SYSDSN('SYS1.IWASUSED') NE OK THEN GOTO OUT
ALLOC FI(IWASUSED) DA('SYS1.IWASUSED') MOD
IF &LASTCC > 0 THEN GOTO OUT
IF &SYSENV = FORE THEN SET PROC = &SYSPROC
ELSE SET PROC = BATCH
IF &SYSENV = FORE THEN SET JOBN = &SYSUID
ELSE SET JOBN = &SYSSYMDEF(JOBNAME)
OPENFILE IWASUSED OUTPUT
SET IWASUSED = &STR(&SYSDATE &SYSTIME &JOBN &PROC &TYPE &DSN)
PUTFILE IWASUSED
CLOSFILE IWASUSED
FREE FI(IWASUSED)
OUT: +
SET MAXCC = 0
SET LASTCC = 0
EXIT CODE(0)
Create dataset SYS1.IWASUSED (or change the name if you like) as FB 133 and
probably lots of tracks if the proc may be used a lot. Give it RACF UACC
UPDATE.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
