*        %GOTO STEPLBSL;           /*                                   00050002
         MACRO                                                          00100002
         IEFZB622                                                       00150002
STEPL    DSECT                                                          00200002
*                                                                    */ 00202002
* /* MACMEAN STEPL MEANS STAE EXIT PARAMETER LIST                    */ 00210002
* /* MACCOMP Y-2 SC1B6/PZD90                                         */ 00220002
* /* MACSTAT Y-2 72339/013400                                        */ 00230002
* /*     THIS MACRO CONTAINS INFORMATION REQUIRED BY THE         Y02653 00250002
*        INITIATOR TASK RECOVERY ROUTINE.                        Y02653 00300002
STELCT   DS    F -   POINTER TO LCT                                     00350002
STEPARAM DS    F -   POINTER TO IEFPARAM                                00400002
STEFLAGS DS    B -   FLAGS                                              00450002
STERETRY EQU   X'80' RETRY IS BEING ATTEMPTED. NEXT JOB MUST RUN.       00500002
STETJMR  EQU   X'40' RETRY IN PROGRESS. THIS JOB MUST RUN.              00550002
STEJOBLB EQU   X'20' JOBLIB WAS LAST LIB. OPENED                        00560002
STESTPLB EQU   X'10' STEPLIB WAS LAST LIB. OPENED                       00570002
STEFCHLB EQU   X'08' FETCHLIB WAS LAST LIB. OPENED                      00580002
         DS    XL3 - RESERVED                                           00600002
         DS    F -   RESERVED                                           00650002
STELEN   EQU   *-STEPL SIZE OF STEPL                                    00700002
         MEND , */                                                      00750002
*%STEPLBSL: ;                                                           00800002
* /* MACMEAN STEPL MEANS STAE EXIT PARAMETER LIST                    */ 00810002
* /* MACCOMP Y-2 SC1B6/PZD90                                         */ 00820002
* /* MACSTAT Y-2 72339/013400                                        */ 00830002
*   DECLARE                                                             00850002
*         1 STEPL BASED(STEPLPTR),                                      00900002
*        /*THE STEPL CONTAINS INFORMATION REQUIRED BY THE      Y02653   00950002
*          INITIATOR TASK RECOVERY ROUTINE.                    Y02653*/ 01000002
*           2 STELCT PTR(31),      /*POINTER TO LCT                  */ 01050002
*           2 STEPARAM PTR(31),    /*POINTER TO IEFPARAM             */ 01100002
*           2 *        PTR(31),                                         01150002
*             3 STEFLAGS BIT(8),                                        01200002
*               4 STERETRY BIT(1), /*RETRY IS BEING ATTEMPTED.          01250002
*                                    NEXT JOB MUST RUN.              */ 01300002
*               4 STETJMR BIT(1),  /*RETRY IN PROGRESS. THIS            01350002
*                                    JOB MUST RUN.                   */ 01400002
*               4 STEJOBLB BIT(1), /* JOBLIB WAS LAST LIB. OPENED    */ 01410002
*               4 STESTPLB BIT(1), /* STEPLIB WAS LAST LIB. OPENED   */ 01420002
*               4 STEFCHLB BIT(1), /* FETCHLIB WAS LAST LIB. OPENED  */ 01430002
*           2 *        PTR(31);                                         01450002