MACRO 00001000
SYSRES &SYSVOL=,&SYSRES=,&SYSTYPE=,&SYSNUC=,&SYSERR=,&SYSWRM=,X00002000
&SYSCKP= 00002100
.* THIS MACRO DESCRIBES THE SYSTEM RESIDENCE VOLUME FOR CP 00003000
.* R0035DMK - ALLOW 3333 DEVICE TYPE FOR SYSRES 00004000
GBLC &SY$RES @V60BBBC 00004300
&SY$RES SETC 'HERE' ANNOUNCE PRESENCE TO SYSLOCS @V60BBBC 00004600
GBLA &OWNCNT,&SYSCYL,&SYSRDC 00005000
GBLA &WRMEND 00005100
GBLA &CKPEND 00005200
GBLA &NUCEND HRC102DK 00005400
GBLA &ERREND HRC102DK 00005600
GBLC &OWNLST(255),&SYSSER,&SYSTYP 00006000
LCLC &ERRVOL,&ERRDEV,&ERRTYP HRC075DK 00006020
LCLC &WRMVOL,&WRMDEV,&WRMTYP HRC075DK 00006040
LCLC &CKPVOL,&CKPDEV,&CKPTYP HRC075DK 00006060
AIF ('&SYSVOL' EQ '').ERR4 00006100
AIF ('&SYSTYPE' EQ '').ERR5 00006200
AIF ('&SYSERR' EQ '').ERR6 00006300
AIF ('&SYSRES' EQ '').ERR7 00006400
AIF ('&SYSNUC' EQ '').ERR8 00006500
AIF ('&SYSWRM' EQ '').ERR9 00006600
&SYSCYL SETA &SYSNUC(1) HRC102DK 00007490
&SYSSER SETC '&SYSVOL' 00008000
&SYSTYP SETC '&SYSTYPE' 00009000
AIF (('&SYSTYPE' EQ '2314') OR ('&SYSTYPE' EQ '2319')).LOOP 00010000
AIF (('&SYSTYPE' EQ '3330') OR ('&SYSTYPE' EQ '2305')).LOOP 00011000
AIF (('&SYSTYPE' EQ '3333') OR ('&SYSTYPE' EQ '3340')).LOOP 00012000
AIF ('&SYSTYPE' EQ '3350').LOOP 00012100
AIF ('&SYSTYPE' EQ '3375').LOOP HRC106DK 00012200
AIF ('&SYSTYPE' EQ '3380').LOOP HRC106DK 00012300
AGO .ERR1 00013000
.LOOP ANOP 00014000
&SYSRDC SETA &SYSRDC+1 00015000
AIF (&SYSRDC GT &OWNCNT).ERR2 00016000
AIF ('&OWNLST(&SYSRDC)' NE '&SYSVOL').LOOP 00017000
&SYSRDC SETA &SYSRDC-1 00018000
SPACE 00019000
ENTRY DMKSYSVL,DMKSYSRS,DMKSYSTP 00020000
ENTRY DMKSYSNU,DMKSYSER,DMKSYSCT,DMKSYSWM 00021050
ENTRY DMKSYSCH,DMKSYSCN 00021100
DMKSYSVL DC CL6'&SYSVOL' 00022000
DMKSYSRS DC XL2'&SYSRES' 00023000
DMKSYSTP DC AL1(CLASDASD,TYP&SYSTYP) 00024000
DMKSYSNU DC H'&SYSNUC(1)' HRC102DK 00025030
AIF (N'&SYSNUC EQ 1).SYSNU2 HRC102DK 00025060
AIF (N'&SYSNUC NE 2).ERR12 HRC102DK 00025090
AIF (&SYSNUC(2) LT 2 OR &SYSNUC(2) GT 32).ERR12 HRC102DK 00025120
&NUCEND SETA &SYSNUC(1)+&SYSNUC(2)-1 HRC102DK 00025150
AGO .GOTEND HRC102DK 00025180
.SYSNU2 ANOP HRC102DK 00025210
MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSNUC' HRC102DK 00025240
&NUCEND SETA &SYSNUC(1)+1 HRC102DK 00025270
.GOTEND ANOP HRC102DK 00025300
DC H'&NUCEND' ENDING NUC CYL HRC102DK 00025330
DMKSYSER DC H'&SYSERR(1)' @ OF 1ST ERROR RECORDING CYL 00025500
&ERRVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00025530
&ERRDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00025560
&ERRTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00025590
AIF (N'&SYSERR EQ 1).SYSCT2 00025600
AIF (N'&SYSERR GT 3).ERR11 HRC075DK 00025740
AIF (&SYSERR(2) LT 2 OR &SYSERR(2) GT 9).ERR11 00025800
&ERREND SETA &SYSERR(1)+&SYSERR(2)-1 HRC102DK 00025850
DMKSYSCT DC H'&SYSERR(2)' COUNT OF ERROR CYLINDERS 00025900
AIF (N'&SYSERR NE 3).ERRDEF NO 3RD PARAM; DEFAULT HRC075DK 00026010
&ERRVOL SETC '&SYSERR(3)' VOLUME NAME HRC075DK 00026020
&ERRDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00026030
&ERRTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00026040
AGO .ERRDEF HRC075DK 00026050
.SYSCT2 ANOP 00026100
MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSERR' HRC102DK 00026130
&ERREND SETA &SYSERR(1)+1 HRC102DK 00026160
DMKSYSCT DC H'2' COUNT OF ERROR CYLINDERS 00026200
.ERRDEF ANOP HRC075DK 00026220
DC XL2'&ERRDEV' ERR AREA DEVICE ADDR HRC075DK 00026240
DC AL1(CLASDASD,&ERRTYP) ERR AREA DEVICE TYPE HRC075DK 00026260
DC CL6'&ERRVOL' ERR AREA VOLUME HRC075DK 00026280
.WRMSTRT ANOP 00026300
DMKSYSWM DC H'&SYSWRM(1)' ADDRESS OF FIRST WARM START CYLINDER 00027100
&WRMVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00027130
&WRMDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00027160
&WRMTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00027190
&WRMEND SETA &SYSWRM(1) 00027200
AIF (N'&SYSWRM EQ 1).WRM 00027300
AIF (N'&SYSWRM GT 3).ERR3 HRC075DK 00027440
AIF (&SYSWRM(2) LT 1 OR &SYSWRM(2) GT 9).ERR3 00027500
&WRMEND SETA &SYSWRM(1)+&SYSWRM(2)-1 00027600
.WRM ANOP 00027700
DC H'&WRMEND' ADDRESS OF LAST WARM START CYLINDER 00027800
AIF (N'&SYSWRM NE 3).WRMDEF NO 3RD PARAM; DEFAULT HRC075DK 00027820
&WRMVOL SETC '&SYSWRM(3)' VOLUME NAME HRC075DK 00027840
&WRMDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00027860
&WRMTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00027880
.WRMDEF ANOP HRC075DK 00027900
DC XL2'&WRMDEV' WRM AREA DEVICE ADDR HRC075DK 00027920
DC AL1(CLASDASD,&WRMTYP) WRM AREA DEVICE TYPE HRC075DK 00027940
DC CL6'&WRMVOL' WRM AREA VOLUME HRC075DK 00027960
SPACE 3 00028000
DMKSYSCH DC H'&SYSCKP(1)' ADDRESS OF FIRST CKPT START 00028050
* CYLINDER 00028100
&CKPVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00028110
&CKPDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00028120
&CKPTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK 00028130
&CKPEND SETA &SYSCKP(1) 00028150
AIF (N'&SYSCKP EQ 1).CKP 00028200
AIF (N'&SYSCKP GT 3).ERR10 HRC075DK 00028260
AIF (&SYSCKP(2) LT 1 OR &SYSCKP(2) GT 9).ERR10 00028300
&CKPEND SETA &SYSCKP(1)+&SYSCKP(2)-1 00028350
.CKP ANOP 00028400
DC H'&CKPEND' ADDRESS OF LAST CKPT START 00028450
AIF (N'&SYSCKP NE 3).CKPDEF NO 3RD PARAM; DEFAULT HRC075DK 00028457
&CKPVOL SETC '&SYSCKP(3)' VOLUME NAME HRC075DK 00028463
&CKPDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00028469
&CKPTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK 00028475
.CKPDEF ANOP HRC075DK 00028481
DC XL2'&CKPDEV' CKP AREA DEVICE ADDR HRC075DK 00028487
DC AL1(CLASDASD,&CKPTYP) CKP AREA DEVICE TYPE HRC075DK 00028493
DC CL6'&CKPVOL' CKP AREA VOLUME HRC075DK 00028499
* CYLINDER 00028500
DMKSYSCN DC H'0' COUNT OF CHECKPOINT SLOTS IN USE 00028550
SPACE 3 00028600
MNOTE *,'System Residence Setup' HRC102DK 00028650
MNOTE *,'Volume = &SYSSER, Unit &SYSRES, Type &SYSTYP' HRC102DK 00028700
MNOTE *,'Nucleus = &SYSNUC(1)-&NUCEND' HRC102DK 00028750
MNOTE *,'Error = &SYSERR(1)-&ERREND' HRC102DK 00028800
MNOTE *,'Warm = &SYSWRM(1)-&WRMEND' HRC102DK 00028850
MNOTE *,'CKPT = &SYSCKP(1)-&CKPEND' HRC102DK 00028900
MEXIT 00029000
.ERR1 MNOTE 8,'INVALID DEVICE TYPE FOR SYSRES' 00030000
MEXIT 00031000
.ERR2 MNOTE 8,'SYSVOL NOT IN OWNED LIST' 00032000
MEXIT 00032100
.ERR3 MNOTE 8,'INVALID SYSWRM OPTIONS' 00032200
MEXIT 00032300
.ERR4 MNOTE 8,'SYSVOL OPERAND NOT SPECIFIED' 00032350
MEXIT 00032400
.ERR5 MNOTE 8,'SYSTYPE OPERAND NOT SPECIFIED' 00032450
MEXIT 00032500
.ERR6 MNOTE 8,'SYSERR OPERAND NOT SPECIFIED' 00032550
MEXIT 00032600
.ERR7 MNOTE 8,'SYSRES OPERAND NOT SPECIFIED' 00032650
MEXIT 00032700
.ERR8 MNOTE 8,'SYSNUC OPERAND NOT SPECIFIED' 00032750
MEXIT 00032800
.ERR9 MNOTE 8,'SYSWRM OPERAND NOT SPECIFIED' 00032850
MEXIT 00032900
.ERR10 MNOTE 8,'INVALID SYSCKP OPTIONS' 00032950
MEXIT 00032970
.ERR11 MNOTE 8,'INVALID SYSERR OPTIONS' 00032990
MEXIT HRC102DK 00032993
.ERR12 MNOTE 8,'INVALID SYSNUC OPTIONS' HRC102DK 00032996
MEND 00033000