ibm:vm370-lib:macro:sysres.macro_hst
Table of Contents
SYSRES History
References
- Fixes Applied : 3
- Latest Source Date : Friday, December 8, 1978
- Last Fix ID : [HRC075DK]
Update History
CMS File Input : SYSRES MACRO
Date : 12/8/1978 4:38:00 PM
VM Context : MAINT(394)
File Name : SYSRES.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Update Order
- HRC102DK V02 ADD UPPER BOUNDARY FOR NUCLEUS WRITE/READ
- HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
- HRC075DK V01 Alternate nucleus support
HRC102DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC102DK: ./ I 00005200 $ 5400 200 03/15/06 11:42:57
HRC102DK: GBLA &NUCEND HRC102DK 00005400
HRC102DK: GBLA &ERREND HRC102DK 00005600
HRC102DK: ./ R 00007000 $ 7490 490 03/15/06 11:42:57
HRC102DK: &SYSCYL SETA &SYSNUC(1) HRC102DK 00007490
HRC102DK: ./ R 00025000 $ 25030 30 03/15/06 11:42:57
HRC102DK: DMKSYSNU DC H'&SYSNUC(1)' HRC102DK 00025030
HRC102DK: AIF (N'&SYSNUC EQ 1).SYSNU2 HRC102DK 00025060
HRC102DK: AIF (N'&SYSNUC NE 2).ERR12 HRC102DK 00025090
HRC102DK: AIF (&SYSNUC(2) LT 2 OR &SYSNUC(2) GT 32).ERR12 HRC102DK 00025120
HRC102DK: &NUCEND SETA &SYSNUC(1)+&SYSNUC(2)-1 HRC102DK 00025150
HRC102DK: AGO .GOTEND HRC102DK 00025180
HRC102DK: .SYSNU2 ANOP HRC102DK 00025210
HRC102DK: MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSNUC' HRC102DK 00025240
HRC102DK: &NUCEND SETA &SYSNUC(1)+1 HRC102DK 00025270
HRC102DK: .GOTEND ANOP HRC102DK 00025300
HRC102DK: DC H'&NUCEND' ENDING NUC CYL HRC102DK 00025330
HRC102DK: ./ I 00025800 $ 25850 50 03/15/06 11:42:57
HRC102DK: &ERREND SETA &SYSERR(1)+&SYSERR(2)-1 HRC102DK 00025850
HRC102DK: ./ I 00026100 $ 26130 30 03/15/06 11:42:57
HRC102DK: MNOTE 0,'DEFAULT OF 2 CYLINDERS ALLOCATED FOR SYSERR' HRC102DK 00026130
HRC102DK: &ERREND SETA &SYSERR(1)+1 HRC102DK 00026160
HRC102DK: ./ I 00028600 $ 28650 50 03/15/06 11:42:57
HRC102DK: MNOTE *,'System Residence Setup' HRC102DK 00028650
HRC102DK: MNOTE *,'Volume = &SYSSER, Unit &SYSRES, Type &SYSTYP' HRC102DK 00028700
HRC102DK: MNOTE *,'Nucleus = &SYSNUC(1)-&NUCEND' HRC102DK 00028750
HRC102DK: MNOTE *,'Error = &SYSERR(1)-&ERREND' HRC102DK 00028800
HRC102DK: MNOTE *,'Warm = &SYSWRM(1)-&WRMEND' HRC102DK 00028850
HRC102DK: MNOTE *,'CKPT = &SYSCKP(1)-&CKPEND' HRC102DK 00028900
HRC102DK: ./ I 00032990 $ 32993 3 03/15/06 11:42:57
HRC102DK: MEXIT HRC102DK 00032993
HRC102DK: .ERR12 MNOTE 8,'INVALID SYSNUC OPTIONS' HRC102DK 00032996
BEGIN APPLY >>> ./ I 00005200 $ 5400 200 03/15/06 11:42:57
END APPLY >>> ./ I 00005200 $ 5400 200 03/15/06 11:42:57
BEGIN APPLY >>> ./ R 00007000 $ 7490 490 03/15/06 11:42:57
END APPLY >>> ./ R 00007000 $ 7490 490 03/15/06 11:42:57
BEGIN APPLY >>> ./ R 00025000 $ 25030 30 03/15/06 11:42:57
END APPLY >>> ./ R 00025000 $ 25030 30 03/15/06 11:42:57
BEGIN APPLY >>> ./ I 00025800 $ 25850 50 03/15/06 11:42:57
END APPLY >>> ./ I 00025800 $ 25850 50 03/15/06 11:42:57
BEGIN APPLY >>> ./ I 00026100 $ 26130 30 03/15/06 11:42:57
END APPLY >>> ./ I 00026100 $ 26130 30 03/15/06 11:42:57
BEGIN APPLY >>> ./ I 00028600 $ 28650 50 03/15/06 11:42:57
END APPLY >>> ./ I 00028600 $ 28650 50 03/15/06 11:42:57
BEGIN APPLY >>> ./ I 00032990 $ 32993 3 03/15/06 11:42:57
END APPLY >>> ./ I 00032990 $ 32993 3 03/15/06 11:42:57
Update Succeeded
Update Execution Time 16 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:18:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00012100 $ 00012200 100
HRC106DK: AIF ('&SYSTYPE' EQ '3375').LOOP HRC106DK
HRC106DK: AIF ('&SYSTYPE' EQ '3380').LOOP HRC106DK
BEGIN APPLY >>> ./ I 00012100 $ 00012200 100
END APPLY >>> ./ I 00012100 $ 00012200 100
Update Succeeded
Update Execution Time 16 milliseconds.
HRC075DK
Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
HRC075DK: ./ I 00006000 $ 6020 20
HRC075DK: LCLC &ERRVOL,&ERRDEV,&ERRTYP HRC075DK
HRC075DK: LCLC &WRMVOL,&WRMDEV,&WRMTYP HRC075DK
HRC075DK: LCLC &CKPVOL,&CKPDEV,&CKPTYP HRC075DK
HRC075DK: ./ I 00025500 $ 25530 30
HRC075DK: &ERRVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00025530
HRC075DK: &ERRDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00025560
HRC075DK: &ERRTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK
HRC075DK: ./ R 00025700 $ 25740 40
HRC075DK: AIF (N'&SYSERR GT 3).ERR11 HRC075DK 00025740
HRC075DK: ./ R 00026000 $ 26010 10
HRC075DK: AIF (N'&SYSERR NE 3).ERRDEF NO 3RD PARAM; DEFAULT HRC075DK 00026010
HRC075DK: &ERRVOL SETC '&SYSERR(3)' VOLUME NAME HRC075DK 00026020
HRC075DK: &ERRDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00026030
HRC075DK: &ERRTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK
HRC075DK: AGO .ERRDEF HRC075DK 00026040
HRC075DK: ./ I 00026200 $ 26220 20
HRC075DK: .ERRDEF ANOP HRC075DK 00026220
HRC075DK: DC XL2'&ERRDEV' ERR AREA DEVICE ADDR HRC075DK 00026240
HRC075DK: DC AL1(CLASDASD,&ERRTYP) ERR AREA DEVICE TYPE HRC075DK
HRC075DK: DC CL6'&ERRVOL' ERR AREA VOLUME HRC075DK 00026260
HRC075DK: ./ I 00027100 $ 27130 30
HRC075DK: &WRMVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00027130
HRC075DK: &WRMDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00027160
HRC075DK: &WRMTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK
HRC075DK: ./ R 00027400 $ 27440 40
HRC075DK: AIF (N'&SYSWRM GT 3).ERR3 HRC075DK 00027440
HRC075DK: ./ I 00027800 $ 27820 20
HRC075DK: AIF (N'&SYSWRM NE 3).WRMDEF NO 3RD PARAM; DEFAULT HRC075DK 00027820
HRC075DK: &WRMVOL SETC '&SYSWRM(3)' VOLUME NAME HRC075DK 00027840
HRC075DK: &WRMDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00027860
HRC075DK: &WRMTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK
HRC075DK: .WRMDEF ANOP HRC075DK 00027880
HRC075DK: DC XL2'&WRMDEV' WRM AREA DEVICE ADDR HRC075DK 00027900
HRC075DK: DC AL1(CLASDASD,&WRMTYP) WRM AREA DEVICE TYPE HRC075DK
HRC075DK: DC CL6'&WRMVOL' WRM AREA VOLUME HRC075DK 00027920
HRC075DK: ./ I 00028100 $ 28110 10
HRC075DK: &CKPVOL SETC '&SYSVOL' DEFAULT VOLUME IF NOT SPECIFIEDHRC075DK 00028110
HRC075DK: &CKPDEV SETC '&SYSRES' DEFAULT DEVADDR IF NOT SPECIF'DHRC075DK 00028120
HRC075DK: &CKPTYP SETC 'TYP&SYSTYP' DEFAULT DEVTYPE IF NOT SPECIF'DHRC075DK
HRC075DK: ./ R 00028250 $ 28260 10
HRC075DK: AIF (N'&SYSCKP GT 3).ERR10 HRC075DK 00028260
HRC075DK: ./ I 00028450 $ 28457 6
HRC075DK: AIF (N'&SYSCKP NE 3).CKPDEF NO 3RD PARAM; DEFAULT HRC075DK 00028457
HRC075DK: &CKPVOL SETC '&SYSCKP(3)' VOLUME NAME HRC075DK 00028464
HRC075DK: &CKPDEV SETC '0' DEV ADDR TO BE FILLED AT IPL HRC075DK 00028471
HRC075DK: &CKPTYP SETC '0' DEVTYPE TO BE FILLED AT IPL HRC075DK
HRC075DK: .CKPDEF ANOP HRC075DK 00028478
HRC075DK: DC XL2'&CKPDEV' CKP AREA DEVICE ADDR HRC075DK 00028485
HRC075DK: DC AL1(CLASDASD,&CKPTYP) CKP AREA DEVICE TYPE HRC075DK
HRC075DK: DC CL6'&CKPVOL' CKP AREA VOLUME HRC075DK 00028492
BEGIN APPLY >>> ./ I 00006000 $ 6020 20
END APPLY >>> ./ I 00006000 $ 6020 20
BEGIN APPLY >>> ./ I 00025500 $ 25530 30
END APPLY >>> ./ I 00025500 $ 25530 30
BEGIN APPLY >>> ./ R 00025700 $ 25740 40
END APPLY >>> ./ R 00025700 $ 25740 40
BEGIN APPLY >>> ./ R 00026000 $ 26010 10
END APPLY >>> ./ R 00026000 $ 26010 10
BEGIN APPLY >>> ./ I 00026200 $ 26220 20
END APPLY >>> ./ I 00026200 $ 26220 20
BEGIN APPLY >>> ./ I 00027100 $ 27130 30
END APPLY >>> ./ I 00027100 $ 27130 30
BEGIN APPLY >>> ./ R 00027400 $ 27440 40
END APPLY >>> ./ R 00027400 $ 27440 40
BEGIN APPLY >>> ./ I 00027800 $ 27820 20
END APPLY >>> ./ I 00027800 $ 27820 20
BEGIN APPLY >>> ./ I 00028100 $ 28110 10
END APPLY >>> ./ I 00028100 $ 28110 10
BEGIN APPLY >>> ./ R 00028250 $ 28260 10
END APPLY >>> ./ R 00028250 $ 28260 10
BEGIN APPLY >>> ./ I 00028450 $ 28457 6
END APPLY >>> ./ I 00028450 $ 28457 6
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/macro/sysres.macro_hst.txt · Last modified: 2023/08/06 13:38 by Site Administrator