%ICBVOLTB: ;                       /* MACRO                 @ZA27588*/ 00050000
     /***********************************************        @ZA27588*/ 00100000
     /*              ***** MAPPING MACRO *****               @ZA27588*/ 00150000
     /*                                                      @ZA27588*/ 00200000
     /* MACRO NAME = ICBVOLTB(VS2)                           @ZA27588*/ 00250000
     /*                                                      @ZA27588*/ 00300000
     /* DESCRIPTIVE NAME = MSSC VS2 VOLUME TRACKING          @ZA27588*/ 00350000
     /*                    TABLE FORMAT                      @ZA27588*/ 00400000
     /*                                                      @ZA27588*/ 00450000
     /* COPYRIGHT = NONE                                     @ZA27588*/ 00500000
     /*                                                      @ZA27588*/ 00550000
     /* CHANGE ACTIVITY = 10/24/77 ELIMINATE REDUNDANT       @ZA27588*/ 00600000
     /*                            ACQUIRES                  @ZA27588*/ 00650000
     /*                                                      @ZA27588*/ 00700000
     /* %SSCLEVEL DEFAULTS                                   @ZA27588*/ 00750000
     /*      DCL 1 ICBVLIST BASED(ICBVOLST) BDY(WORD),       @ZA27588*/ 00800000
     /*                                                      @ZA27588*/ 00850000
     /* %SSC9999 DEFAULTS TO SEMICOLON                       @ZA27588*/ 00900000
     /*                                                      @ZA27588*/ 00950000
     /* TO SET YOUR OWN LEVEL 1 USE %SSCLEVEL = 'N' WHERE    @ZA27588*/ 01000000
     /*        N IS THE LEVEL YOU WANT                       @ZA27588*/ 01050000
     /*                                                      @ZA27588*/ 01100000
     /* TO SET END TO , USE %SSC9999 = ','                   @ZA27588*/ 01150000
     /***********************************************        @ZA27588*/ 01200000
 %IF SSCLEVEL = ''                  /*DEFAULT BASE           @ZA27588*/ 01250000
    %THEN SSCBASE = 'BASED(ICBVOLST)' ;/*BASED ON ICBVOLST   @ZA27588*/ 01300000
    %ELSE SSCBASE = '' ;            /*NOT BASED              @ZA27588*/ 01350000
 %IF SSCLEVEL = ''                  /*DEFAULT LEVEL          @ZA27588*/ 01400000
    %THEN SSCLEVEL = 'DCL 1 ' ;     /*SET LEVEL TO 1         @ZA27588*/ 01450000
 %IF SSC9999 ^= ','                 /*COMMA TO CONTINUE      @ZA27588*/ 01500000
    %THEN SSC9999 = ';' ;           /*DEFAULT TO END         @ZA27588*/ 01550000
    SSCLEVEL ICBVLIST SSCBASE BDY(WORD),/*MSSC VOLUME TABLE  @ZA27588*/ 01600000
        5 ICBVLCNT FIXED(31),       /*NUMBER OF VOLUMES      @ZA27588*/ 01650000
        5 ICBVLENT(*) CHAR(60),     /*ENTRY ARRAY            @ZA27588*/ 01700000
          7 ICBVLVID CHAR(6),       /*VOLID                  @ZA27588*/ 01750000
          7 ICBVLCYL CHAR(54)       /*CYLINDER INDICATORS    @ZA27588*/ 01800000
             SSC9999                /*MSSC VOLUME TABLE END  @ZA27588*/ 01850000