Table of Contents

SYSRES History

References

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

  1. HRC102DK V02 ADD UPPER BOUNDARY FOR NUCLEUS WRITE/READ
  2. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
  3. 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.