ISREDIT MACRO PROCESS                                                   00010000
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020000
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030000
/*  ISPEXEC CONTROL ERRORS RETURN                                       00040000
ISREDIT (CMEM) = MEMBER                                                 00050000
SET &CMEM  = &STR(&CMEM)                                                00060000
SET &CMEM  = &STR(P&SUBSTR(2:8,&CMEM)                                   00070000
FINDIT: +                                                               00080000
ISREDIT SAVE                                                            00090000
SUB 'J108SC.JCL.CNTL(&CMEM)'                                            00100000
EXIT CODE(0)                                                            00110000
