MACRO                                                          00001000
&LABEL   NAME3800 &CPNAME=,&SYSVOL=,&SYSSTRT=,&SYSPGCT=        @V60B9BA 00002000
.*       THIS MACRO CREATED FOR VM/370 SUPPORT OF 3800 PRINTER @V60B9BA 00003000
         GBLA &N38SW                                           @V60B9BA 00004000
         LCLA  &A,&B                                           @V60B9BA 00005000
DMKQNTBL CSECT                                                 @V60B9BA 00006000
         AIF   ('&N38SW' EQ '1').NTFIRST                       @V60B9BA 00007000
&N38SW   SETA  1                                               @V60B9BA 00008000
         AGO   .BEG                                            @V60B9BA 00009000
.NTFIRST ANOP                                                  @V60B9BA 00010000
         ORG   *-4                                             @V60B9BA 00011000
.BEG     ANOP                                                  @V60B9BA 00012000
S&SYSNDX EQU   *                                               @V60B9BA 00013000
         DC    AL4(E&SYSNDX-S&SYSNDX) DSPLCMENT TO NEXT ENT.   @V60B9BA 00014000
         DC    AL4(0)            RESERVED FOR FUTURE USE       @V60B9BA 00015000
         AIF   ('&CPNAME' EQ '').NAMERR                        @V60B9BA 00016000
&B       SETA  K'&CPNAME                                       @V60B9BA 00017000
         AIF   (&B LT 1).NAMER1    NAME LT 1 CHAR - ERROR      @V60B9BA 00018000
         AIF   (&B GT 8).NAMER1   NAME GT 8 CHARS - ERROR      @V60B9BA 00019000
         DC    CL8'&CPNAME'  SYSTEM NAME                       @V60B9BA 00020000
.VOL1    ANOP                                                  @V60B9BA 00021000
         AIF   ('&SYSVOL' EQ '').SVOLERR                       @V60B9BA 00022000
         DC    CL6'&SYSVOL'   VOL SER CONTAINING SAVED SYSTEM  @V60B9BA 00023000
         DC    X'00'         CP*1 - CURRENT ACTIVITY COUNT     @V60B9BA 00024000
         DC    X'00'         CP*2 - RESERVED FOR FUTURE USE    @V60B9BA 00025000
.STRT1   ANOP                                                  @V60B9BA 00026000
         AIF   ('&SYSSTRT' EQ '').STRTERR                      @V60B9BA 00027000
&A       SETA  1                                               @V60B9BA 00028000
         DC    AL2(&SYSSTRT(&A))   CYLINDER                    @V60B9BA 00029000
&A       SETA  &A+1                                            @V60B9BA 00030000
         AIF   ('&SYSSTRT(&A)' EQ '0').PERR                    @V60B9BA 00031000
         DC    AL1(&SYSSTRT(&A))   PAGE NUMBER                 @V60B9BA 00032000
         DC    AL1(0)                                          @V60B9BA 00033000
.PGCT1   ANOP                                                  @V60B9BA 00034000
         AIF   ('&SYSPGCT' EQ '').PGCTERR                      @V60B9BA 00035000
         DC    AL4(&SYSPGCT)  NUMBER OF PAGES SAVED            @V60B9BA 00036000
.END     ANOP                                                  @V60B9BA 00037000
E&SYSNDX DS    0F                                              @V60B9BA 00038000
         DC    X'00000000'                                     @V60B9BA 00039000
         SPACE 2                                               @V60B9BA 00040000
         AGO   .EXIT                                           @V60B9BA 00041000
.NAMERR  MNOTE 12,'''CPNAME'' NOT SPECIFIED'                   @V60B9BA 00042000
         AGO   .VOL1                                           @V60B9BA 00043000
.NAMER1  MNOTE 12,'INVALID ''CPNAME'' OPERAND'                 @V60B9BA 00044000
         AGO   .VOL1                                           @V60B9BA 00045000
.SVOLERR MNOTE 12,'''SYSVOL'' NOT SPECIFIED'                   @V60B9BA 00046000
         AGO   .STRT1                                          @V60B9BA 00047000
.STRTERR MNOTE 12,'''SYSSTRT'' NOT SPECIFIED'                  @V60B9BA 00048000
         AGO   .PGCT1                                          @V60B9BA 00049000
.PERR    MNOTE 12,'''SYSSTRT'' PAGE NUMBER MUST BE ''1'' OR MORE'       00050000
         AGO   .PGCT1                                          @V60B9BA 00051000
.PGCTERR MNOTE 12,'''SYSPGCT'' NOT SPECIFIED'                  @V60B9BA 00052000
         AGO   .END                                            @V60B9BA 00053000
.PGCTER1 MNOTE 12,'''SYSPGCT'' GREATER THAN NUMBER OF PAGES IMPLIED BY X00054000
               ''CPSIZE'' PARAMETER.'                          @V60B9BA 00055000
         AGO   .END                                            @V60B9BA 00056000
.EXIT    ANOP                                                  @V60B9BA 00057000
         MEND                                                  @V60B9BA 00058000