ISREDIT MACRO PROCESS                                                   00000100
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00000200
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00000300
/*  ISPEXEC CONTROL ERRORS RETURN                                       00000400
ISREDIT (CMEM) = MEMBER                                                 00000500
SET &CMEM  = &STR(&CMEM)                                                00000600
SET &CMEM  = &STR(P&SUBSTR(2:7,&CMEM)                                   00000700
FINDIT: +                                                               00000800
ISREDIT SAVE                                                            00000900
SUB 'J231SC.JCL.CNTL(&CMEM)'                                            00100001
EXIT CODE(0)                                                            00110000
