/********************************************************************/ 00200003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00250003
 /*          MACSTAT  Y30LB22          74/170/341040         @Y30LB22*/ 00300003
 /*                                                                   */00350003
 /*          NAME: IEZSGP                                             */00400003
 /*                                                                   */00450003
 /*          FUNCTION:                                                */00500003
 /*                  MAPS THE REQUEST BLOCK FOR A SCRATCH    @Y30LB22*/ 00502003
 /*                  GROUP RECORD REQUEST.  REGISTER         @Y30LB22*/ 00504003
 /*                  1 MUST POINT TO THE REQUEST BLOCK WHEN  @Y30LB22*/ 00506003
 /*                  THE REQUEST IS EXECUTED (MACRO ICBVVIC  @Y30LB22*/ 00508003
 /*                  - SVC 126).                             @Y30LB22*/ 00508403
 /*                                                                   */00550003
 /*          STATUS:  CHANGE LEVEL = 0                                */00600003
 /*                                                                   */00650003
 /********************************************************************/ 00700003
    /*                 CONSTANTS                             @Y30LB22*/ 00702003
     DCL  SGPLEN  FIXED(15) INIT (LENGTH(SGP)); /* LENGTH OF @Y30LB22   00720003
                                           REQUEST BLOCK     @Y30LB22*/ 00722003
     DCL  SGPOP BIT(8) CONSTANT('84'X);   /*REQ. OP CODE     @Y30LB22*/ 00730003
    /*                MAPPING MACRO                          @Y30LB22*/ 00742003
 DCL                                                                    00746003
    1        SGP BASED(SGPPTR) BDY(WORD),                  /*@Y30LB22*/ 00750003
       2     SGPLNGTH  FIXED(31), /* LENGTH OF REQUEST BLOCK @Y30LB22*/ 00800003
       2     SGPCODE   CHAR(4),   /* OPERATION IDENTIFIER    @Y30LB22*/ 00850003
          3  SGPOPCD   BIT(8),    /* OP CODE                 @Y30LB22*/ 00900003
          3  *         CHAR(3),   /* UNUSED                  @Y30LB22*/ 00950003
       2      SGPGROUP  CHAR(8),  /* NAME OF USER DEFINED    @Y30LB22   01000003
                                     GROUP                   @Y30LB22*/ 01050003
       2      *         CHAR(4);  /* UNUSED                  @Y30LB22*/ 01100003