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