/********************************************************************/ 00200003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00250003
 /*          MACSTAT  Y30LB22          74/178/341040         @Y30LB22*/ 00300003
 /*                                                                   */00350003
 /*          NAME: IEZINIT                                   @Y30LB22*/ 00400003
 /*                                                                   */00450003
 /*          FUNCTION:                                       @Y30LB22*/ 00550003
 /*                  A MAPPING MACRO THAT ENABLES THE USER   @Y30LB22*/ 00560003
 /*                  TO ISSUE SVC 126 TO INITIALIZE, ENABLE  @Y30LB22*/ 00570003
 /*                  AND DISABLE MSVC.                       @Y30LB22*/ 00590003
 /*                                                                   */00750003
 /*          STATUS:  CHANGE LEVEL = 1                       @Z37LB26*/ 00800042
 /*                                                                   */00950003
    /* CONSTANTS                                             @Y30LB22*/ 01000003
     DCL  INICODE  BIT(8) CONSTANT('88'X); /* OP CODE        @Y30LB22*/ 01600003
     DCL  INILEN  FIXED(15) INIT(LENGTH(INITVVI)); /* LENGTH @Y30LB22   01650003
                                           OF REQUEST BLOCK  @Y30LB22*/ 01660003
     /* MAPPING MACRO                                        @Y30LB22*/ 01700003
 DCL  1         INITVVI   BASED(INITPTR) BDY(WORD),        /*@Y30LB22*/ 01800003
         2      INILNGTH  FIXED(31), /* LEN OF PARM LIST     @Y30LB22*/ 01850003
         2      INITOPCD  CHAR(1),   /* OP CODE ID           @Y30LB22*/ 01900003
         2      INIFLAGA  CHAR(1),   /* OPERATION FLAGS      @Y30LB22*/ 02200003
           3    ININIT    BIT(1),    /* INIT OPERATION       @Y30LB22*/ 02210003
           3    INIENABL  BIT(1),    /* ENABLE OPERATION     @Y30LB22*/ 02220003
           3    INIDISAB  BIT(1),    /* DISABLE OPERATION    @Y30LB22*/ 02230003
           3    *         BIT(5),    /* UNUSED               @Y30LB22*/ 02240003
         2      INIFLAGB  CHAR(1),   /* VERIFICATION FLAGS   @Y30LB22*/ 02550003
           3    INIVERFY  BIT(1),    /* BIT 0=0, NO VERIFI-  @Y30LB22   02560003
                                        CATION REQUIRED      @Y30LB22   02570003
                                        BIT 0=1, OPERATOR    @Y30LB22   02580003
                                        VERIFICATION OF PARM @Y30LB22   02590003
                                        LIB KEYWORD OR       @Y30LB22   02592003
                                        REQUIRED DEFAULT     @Y30LB22*/ 02594003
           3    INIJRNL   BIT(1),    /* BIT 1=1, JRNL IS     @Y30LB22   02596003
                                        TO BE ENABLED        @Y30LB22*/ 02598003
           3    INIABLE   BIT(1),    /* BIT 2=1, MSVC IS     @Y30LB22   02600003
                                        TO BE ENABLED        @Y30LB22*/ 02650003
           3    INIRESTR  BIT(1),    /* BIT 3=1, MSVI WAS    @Z37LB26   02700042
                                        RESTORED             @Z37LB26*/ 02750042
           3    *         BIT(4),    /* UNUSED               @Z37LB26*/ 02800042
         2      INIVCODE  CHAR(1),   /* VERIFICATION CODE    @Y30LB22*/ 02850003
         2      INIUCAT   CHAR(8),   /* USER CATALOG NAME    @Y30LB22*/ 03150003
         2      *         CHAR(4);   /* UNUSED               @Y30LB22*/ 03200003