*        %GOTO PLSRRRA1;     /*                                         00400002
         MACRO                                                          00450002
         IHARRRA                                                        00500002
**/                                                                     00502002
*  %PLSRRRA1: ;                                                         00504002
*/********************************************************************/ 00510002
*/*            REPAIR ROUTINE RECOVERY AREA                          */ 00520002
*/*            OS/VS2 RELEASE 2,5/1/73,LEVEL 1                       */ 00530002
*/*                                                                  */ 00540002
*/********************************************************************/ 00542002
*  % GOTO PLSRRRA2 ; /*                                                 00544002
RRRA     DSECT                                                          00550002
RRRASTAT DS    0F                      STATUS INFORMATION WORD          00600002
RRRAFLG1 DS    B                       BYTE 1                           00650002
RRRALOCK EQU   X'80'                   SETLOCK FRR TO BE ENTERED        00700002
RRRAASVT EQU   X'40'                   ASVT RTN TO BE ENTERED           00750002
RRRAFLG2 DS    B                       BYTE 2 RESERVED                  00800002
RRRAFLG3 DS    B                       BYTE 3 RESERVED                  00850002
RRRAFLG4 DS    B                       BYTE 4 RESERVED                  00900002
RRRASA14 DS    A                       REGISTER 14 SAVE AREA            00950002
RRRASAV0 DS    F                       REGISTER 0 SAVE AREA             01000002
         DS    3F                      RESERVED FIELDS                  01050002
RRRAEND  DS    0F                      END OF RRRA                      01100002
RRRALEN  EQU   RRRAEND-RRRA            LENGTH OF RRRA                   01150002
         MEND                                                           01200002
**/                                                                     01210002
*%PLSRRRA2 :    ;                                                       01250002
*DECLARE                                                                01300002
*  1 RRRA BASED(SDWAPARM),             /* REPAIR ROUTINE REC AREA    */ 01350002
*    2 RRRASTAT BDY(WORD),             /* STATUS INFORMATION WORD    */ 01400002
*      3 RRRAFLG1 BIT(8),              /* BYTE 1                     */ 01450002
*        4 RRRALOCK BIT(1),            /* SETLOCK FRR TO BE ENTERED  */ 01500002
*        4 RRRAASVT BIT(1),            /* ASVT RTN TO BE ENTERED     */ 01550002
*        4 * BIT(6),                   /* RESERVED                   */ 01600002
*      3 RRRAFLG2 BIT(8),              /* BYTE 2 RESERVED            */ 01650002
*      3 RRRAFLG3 BIT(8),              /* BYTE 3 RESERVED            */ 01700002
*      3 RRRAFLG4 BIT(8),              /* BYTE 4 RESERVED            */ 01750002
*    2 RRRASA14 PTR(31),               /* REGISTER 14 SAVE AREA      */ 01800002
*    2 RRRASAV0 FIXED(31),             /* REGISTER 0 SAVE AREA       */ 01850002
*    2 * (3) FIXED(31),                /* RESERVED FIELDS            */ 01900002
*    2 RRRAEND CHAR(0) BDY(WORD);      /* END OF RRRA                */ 01950002
* % RRRALEN= 'LENGTH(RRRA)' ;                                           02000002