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