ISREDIT MACRO PROCESS                                                   00001200
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00001300
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00001400
/*  ISPEXEC CONTROL ERRORS RETURN                                       00001500
ISREDIT (CMEM) = MEMBER                                                 00001600
SET &CMEM  = &STR(&CMEM)                                                00001700
SET &CMEM  = &STR(P&SUBSTR(2:7,&CMEM)                                   00001800
FINDIT: +                                                               00001900
ISREDIT SAVE                                                            00002000
SUB 'J108SC.JCL.CNTL(&CMEM)'                                            00002100
EXIT CODE(0)                                                            00003000
