Table of Contents

DMKCPI History

References

Update History

CMS File Input : DMKCPI ASSEMBLE
Date : 1/31/1979 2:37:00 PM
VM Context : MAINT(394)
File Name : DMKCPI.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

Update Order

  1. R09296DK 601 REASSEMBLE FOR V09296
  2. R09587DK 602 SPLIT MODULE DMKIOS INTO DMKIOS AND DMKIOT
  3. R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  4. R10074DK 604 CHANNEL SET SWITCHING AND MULTIPLE SRF SUPPORT
  5. R09802DK 606 CPUSER AND CPUMODEL LENGTH ATTRIBUTES ARE INCORRECT
  6. R09916DK 610 REAL MACHINE SIZE=16M DUMP FILE INCORRECTLY CALCULATED
  7. R08341DK 610 PAGE REPLENISHMENT WILL NOT SELECT UNLOCKED V=R PAGES
  8. R09952DK 610 ADDITIONAL DIAGNOSE FOR CP UNDER CP
  9. R11565DK 616 UV01666 SENSE RETRY COUNT FOR D/T3880 TO LOW IN DMKCPI
  10. R11615DK 616 UV01742 UNABLE TO IPL AN (AP) NUCLEUS AFTER APAR VM09952
  11. R11619DK 616 UV02136 MSDMKCPI952I MESSAGE CORRECTION
  12. R11344DK 618 UV01215 DESTAGE MODIFIED DATA TO MINIMIZE DATA LOSSES
  13. R12591DK 619 UV03927 UNDEFINED ABEND CODE WHEN USING 16 MEG MACHINE
  14. R12596DK 620 UV03973 DMKFRE CPEXBLOK DURING EXTEND + SYSTEM LOCK
  15. R13845DK 623 UV04974 IPL SHUTDOWN GET DMKCPI960I WARM DATA NOT SAVED
  16. R14280DK 624 UV05427 MICROCODE UPDATE FOR TCH AND FREE/FRET
  17. R11813DK 625 UV03086 ALLOW CP V=R AREA TO BE GREATER THAN 8MEG
  18. R13167DK 625 UV04191 INSURE A CORRECT COPY OF DMKVMI AT INITIALIZATION
  19. R13364DK 625 UV05742 ENSURE DMKSYM IS WRITTEN TO THE BACKING DEVICE
  20. HRC004DK V01 ENABLE SUPPORT FOR 4K STORAGE KEYS
  21. HRC008DK V01 FIX INTERVAL TIMER FOR FASTER PROCESSORS
  22. HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
  23. HRC015DK V01 CP NOT SUPPORTING NEW FORMAT CMS FS/E DASD LABELS
  24. HRC016DK V01 CHANGE NAME OF USER TO BE AUTOLOGGED TO “AUTOLOG1-9”
  25. HRC019DK V01 IMPLEMENT EXTENDED HRC QUERY FUNCTIONS
  26. HRC020DK V01 DELETE LINE FEEDS AROUND DUPLICATE VOLID MESSAGE AT IPL TIME
  27. HRC028DK V01 MAKE STARTUP MESSAGE MORE READABLE
  28. HRC032DK V01 RE-ASK IF WARM START FAILS
  29. HRC033DK V01 ADD LIST OF SYSTEM PACKS NOT CP OWNED
  30. HRC035DK V01 ADD SUPPORT FOR FRET TRAP
  31. HRC036DK V01 ADD SYSIPL MACRO FOR DEFAULT START
  32. HRC201DK V03 SAVE SYSTEM CONSOLE ADDRESS FOR LATER
  33. HRC202DK V03 GENERAL MESSAGE CLEANUP
  34. HRC370DK V03 new CPLEVEL message for “Sixpack” release.
  35. HRC039DK H40 Fix various DASD attached to SYSTEM issues
  36. HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
  37. HRC108DK H40 Implement SYSID (System identification)
  38. HRC075DK V01 Alternate nucleus support

R09296DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09296DK: ./ * REASSEMBLE FOR V09296                                              00001000
 BEGIN APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
     Comment >>> ./ * REASSEMBLE FOR V09296                                              00001000
   END APPLY >>> ./ * REASSEMBLE FOR V09296                                              00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R09587DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09587DK: ./ R 351000 $ 351000                                                    DMK00010
       R09587DK:          EXTRN DMKQCNRD,DMKPSAEX,DMKPRGIN,DMKMCHIN,DMKIOTIN    @VA09587 DMK00020
       R09587DK: ./ R 1751000 $ 1751000                                                  DMK00030
       R09587DK: CHANRET  MVC   IONPSW+4(4),=A(DMKIOTIN) RETURN TO NORMAL       @VA09587 DMK00040
       R09587DK: ./ R 1915000 $ 1915000                                                  DMK00050
       R09587DK:          DC    A(MCHEKENB,DMKIOTIN) I/O      NEW PSW           @VA09587 DMK00060
 BEGIN APPLY >>> ./ R 351000 $ 351000                                                    DMK00010
   END APPLY >>> ./ R 351000 $ 351000                                                    DMK00010
 BEGIN APPLY >>> ./ R 1751000 $ 1751000                                                  DMK00030
   END APPLY >>> ./ R 1751000 $ 1751000                                                  DMK00030
 BEGIN APPLY >>> ./ R 1915000 $ 1915000                                                  DMK00050
   END APPLY >>> ./ R 1915000 $ 1915000                                                  DMK00050
Update Succeeded
Update Execution Time 39 milliseconds.

R09957DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 16 milliseconds.

R10074DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R10074DK: ./ I 333000 $ 333100                                                    DMK00010
       R10074DK: *        016 - CHANNEL SET SWITCHING ERROR                              DMK00020
       R10074DK: ./ R 439000 440000 $ 439100 1000                                        DMK00030
       R10074DK:          OI    APSTAT1,PROCIO+PROCIPL INDICATE THIS PROCESSOR  @V60B7AA DMK00040
       R10074DK: *                             HAS I/O CAPABILITY AND IS IPL PROCESSOR   DMK00050
       R10074DK: ./ R 486000 $ 485020 20                                                 DMK00060
       R10074DK:          SPACE                                                          DMK00070
       R10074DK:          LA    R2,16          LOAD LOOP CONTROL FOR SIO        @V60B7AB DMK00080
       R10074DK:          LA    R5,CPINOCSS    GET ADDRESS OF CPINOCSS          @V60B7AB DMK00090
       R10074DK:          ST    R5,PRNPSW+4    SET UP PROGRAM CHECK ADDRESS     @V60B7AB DMK00100
       R10074DK:          LH    R15,SYSIPLDV   GET ADDRESS OF IPL DEVICE        @VMV0001
       R10074DK:          LA    R5,CPICCW1     GET ADDRESS OF SENSE CCW         @V60B7AB DMK00120
       R10074DK:          ST    R5,CAW         STORE ADDRESS OF SENSE CCW       @V60B7AB DMK00130
       R10074DK:          LA    R5,N63         HIGHEST CHANNEL ADDRESS, X'003F' @V60B7AB DMK00140
       R10074DK:          L     R1,FFS         PUT A NEGATIVE 1 IN REGISTER 1   @V60B7AB DMK00150
       R10074DK: *                             THE NEXT INSTRUCTION INCREMENTS           DMK00160
       R10074DK: *                             R1 BY 1.  CHANNEL SET ADDRESS 0           DMK00170
       R10074DK: *                             WILL BE ATTEMPTED FIRST                   DMK00180
       R10074DK: CSSAVAIL DS    0H                                              @V60B7AB DMK00190
       R10074DK:          LA    R1,1(0,R1)     INCREMENT CHANNEL ADDRESS BY ONE @V60B7AB DMK00200
       R10074DK:          SPACE                                                          DMK00210
       R10074DK: *        CONCS 0(R1)          CONNECT THIS CHANNEL SET         @V60B7AB DMK00220
       R10074DK:          DC    X'B2001000'                                     @V60B7AB DMK00230
       R10074DK:          SPACE                                                          DMK00240
       R10074DK:          BZ    SENSEIPL       BRANCH, IF CONNECT SUCCESSFUL    @V60B7AB DMK00250
       R10074DK:          CLR   R5,R1          TRIED ALL CHANNEL SET ADDRESSES? @V60B7AB DMK00260
       R10074DK:          BNE   CSSAVAIL       NO, BRANCH                       @V60B7AB DMK00270
       R10074DK:          B     WAITCHER       GO LOAD A WAIT STATE             @V60B7AB DMK00280
       R10074DK: SENSEIPL DS    0H                                              @V60B7AB DMK00290
       R10074DK:          SIO   0(R15)         DO SENSE TO THE IPL DEVICE       @V60B7AB DMK00300
       R10074DK:          BZ    CHKSENSE       BRANCH ON CONDITION CODE 0       @V60B7AB DMK00310
       R10074DK: *                             (SUCCESSFUL)                              DMK00320
       R10074DK:          BC    1,NEXTADDR     BRANCH ON CONDITION CODE 3       @V60B7AB DMK00330
       R10074DK: *                             (NOT OPERATIONAL)                         DMK00340
       R10074DK:          BC    2,SENSEIPL     LOOP ON CONDITION CODE 2         @V60B7AB DMK00350
       R10074DK: *                             (SUBCHANNEL BUSY)                         DMK00360
       R10074DK: *        HERE ON CONDITION CODE 1 (CSW STORED)                          DMK00370
       R10074DK:          TM    CSW+4,UC       UNIT CHECK?                      @V60B7AB DMK00380
       R10074DK:          BO    TRYSIO         YES, BRANCH                      @V60B7AB DMK00390
       R10074DK:          TM    CSW+5,CCC+IFCC PERMANENT ERRORS?                @V60B7AB DMK00400
       R10074DK:          BO    NEXTADDR       YES, BRANCH                      @V60B7AB DMK00410
       R10074DK: TRYSIO   DS    0H                                              @V60B7AB DMK00420
       R10074DK:          BCT   R2,SENSEIPL    TRY SIO 16 TIMES                 @V60B7AB DMK00430
       R10074DK:          LA    R2,16          RELOAD LOOP CONTROL FOR SIO      @V60B7AB DMK00440
       R10074DK:          B     NEXTADDR       PERMANENT ERRORS, TRY NEXT ADDR. @V60B7AB DMK00450
       R10074DK: CHKSENSE DS    0H                                              @V60B7AB DMK00460
       R10074DK:          TM    CPISNS,INTREQ  IS IPL DEVICE ACCESSIBLE?        @V60B7AB DMK00470
       R10074DK:          BNO   SETCSSON       YES, BRANCH                      @V60B7AB DMK00480
       R10074DK: NEXTADDR DS    0H                                              @V60B7AB DMK00490
       R10074DK:          MVI   CPISNS,00      CLEAR FIRST BYTE OF SENSE DATA   @V60B7AB DMK00500
       R10074DK:          CLR   R5,R1          TRIED ALL CHANNEL SET ADDRESSES? @V60B7AB DMK00510
       R10074DK:          BNE   CSSAVAIL       NO, BRANCH                       @V60B7AB DMK00520
       R10074DK:          SPACE                                                          DMK00530
       R10074DK: WAITCHER LPSW XWAITCSS        LOAD WAIT STATE CODE X'016'      @V60B7AB DMK00540
       R10074DK:          SPACE                                                          DMK00550
       R10074DK: SETCSSON DS    0H                                              @V60B7AB DMK00560
       R10074DK:          OI    APSTAT1,CSSFEAT INDICATE CHANNEL SET SWITCHING  @V60B7AB DMK00570
       R10074DK: *                             FACILITY IS AVAILABLE                     DMK00580
       R10074DK:          STH   R1,CSADDR      SAVE CHANNEL SET ADDRESS         @V60B7AB DMK00590
       R10074DK:          XC    CPISNS(24),CPISNS CLEAR SENSE DATA AREA         @V60B7AB DMK00600
       R10074DK: CPINOCSS DS    0H                                              @V60B7AB DMK00610
       R10074DK: ./ R 552000 $ 552100                                                    DMK00620
       R10074DK: *        R5 CONTAINS THE HIGHEST POSSIBLE PROCESSOR ADDRESS, X'003F'.   DMK00630
       R10074DK: ./ R 791000 $ 791100                                                    DMK00640
       R10074DK:          OI    CPI955SW,FF    NO--VM/370 TOO LARGE FOR MACHINE @V60B7AB DMK00650
       R10074DK: ./ I 1799000 $ 1799100 100                                              DMK00660
       R10074DK: CPI955SW DC    X'00'          SWITCH FOR ISSUE OF MSG 955W     @V60B7AB DMK00670
       R10074DK: ./ I 1902000 $ 1902100                                                  DMK00680
       R10074DK: XWAITCSS DC    X'0002000000000016' FAILED TO CONNECT CHANNELS  @V60B7AB DMK00690
       R10074DK: ./ R 2274000 $ 2274100 100                                              DMK00700
       R10074DK:          CLI   CPI955SW,FF    IS SYSTEM TOO BIG FOR MACHINE?   @V60B7AB DMK00710
       R10074DK:          BE    CPI955         YES, BRANCH.  ISSUE DMKCPI955W   @V60B7AB DMK00720
 BEGIN APPLY >>> ./ I 333000 $ 333100                                                    DMK00010
   END APPLY >>> ./ I 333000 $ 333100                                                    DMK00010
 BEGIN APPLY >>> ./ R 439000 440000 $ 439100 1000                                        DMK00030
   END APPLY >>> ./ R 439000 440000 $ 439100 1000                                        DMK00030
 BEGIN APPLY >>> ./ R 486000 $ 485020 20                                                 DMK00060
   END APPLY >>> ./ R 486000 $ 485020 20                                                 DMK00060
 BEGIN APPLY >>> ./ R 552000 $ 552100                                                    DMK00620
   END APPLY >>> ./ R 552000 $ 552100                                                    DMK00620
 BEGIN APPLY >>> ./ R 791000 $ 791100                                                    DMK00640
   END APPLY >>> ./ R 791000 $ 791100                                                    DMK00640
 BEGIN APPLY >>> ./ I 1799000 $ 1799100 100                                              DMK00660
   END APPLY >>> ./ I 1799000 $ 1799100 100                                              DMK00660
 BEGIN APPLY >>> ./ I 1902000 $ 1902100                                                  DMK00680
   END APPLY >>> ./ I 1902000 $ 1902100                                                  DMK00680
 BEGIN APPLY >>> ./ R 2274000 $ 2274100 100                                              DMK00700
   END APPLY >>> ./ R 2274000 $ 2274100 100                                              DMK00700
Update Succeeded
Update Execution Time 78 milliseconds.

R09802DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09802DK: ./ * FORCE RE-ASSEMBLY FOR PTF V09802
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR PTF V09802
Update Succeeded
Update Execution Time 16 milliseconds.

R09916DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09916DK: ./ R 2896000 $ 2896500                                                  00001000
       R09916DK:          AL    R10,=X'00000800'  ROUND UP TO 4K BOUNDRY        @VA09916 00002000
 BEGIN APPLY >>> ./ R 2896000 $ 2896500                                                  00001000
   END APPLY >>> ./ R 2896000 $ 2896500                                                  00001000
Update Succeeded
Update Execution Time 23 milliseconds.

R08341DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R08341DK: ./ I 382000 $ 382100
       R08341DK:          EXTRN DMKPTRSN                                        @VA08341
       R08341DK: ./ R 798000 799000 $ 798100 1000
       R08341DK:          ST    R6,20(,R10)    THAT ARE MAINTAINED BY           @VA08341
       R08341DK:          ST    R6,60(,R10)    DMKPTR....                       @VA08341
       R08341DK: ./ R 802000 803000 $ 802100 1000
       R08341DK:          ST    R3,24(,R10)    CORETABLE ENTRY FOR              @VA08341
       R08341DK:          ST    R3,64(,R10)    DMKPTR....                       @VA08341
       R08341DK: ./ R 846000 847000 $ 846100 100
       R08341DK:          ST    R3,32(,R10)    FOR DMKPTR....                   @VA08341
       R08341DK:          ST    R3,72(,R10)    ............                     @VA08341
       R08341DK: ./ I 852000 $ 852100 100
       R08341DK:          L     R10,=A(DMKPTRSN)  ADDRESS OF PAGE SELECTION DATA@VA08341
       R08341DK:          LA    R15,2          NUMBER OF BLOCKS OF FRAMES FOR   @VA08341
       R08341DK: *                             PAGE SELECTION TO SCAN
       R08341DK:          STH   R15,0(R10)     SET UP SCANNUM FIELD IN DMKPTR   @VA08341
       R08341DK:          STH   R15,2(R10)     SET UP SCANBLOK FIELD IN DMKPTR  @VA08341
       R08341DK:          SLR   R15,R15        ZERO REGISTER                    @VA08341
       R08341DK:          STC   R15,6(R10)     INITIALIZE FLAGS FOR DMKPTR PAGE @VA08341
       R08341DK: *                             SELECTION ROUTINE
 BEGIN APPLY >>> ./ I 382000 $ 382100
   END APPLY >>> ./ I 382000 $ 382100
 BEGIN APPLY >>> ./ R 798000 799000 $ 798100 1000
   END APPLY >>> ./ R 798000 799000 $ 798100 1000
 BEGIN APPLY >>> ./ R 802000 803000 $ 802100 1000
   END APPLY >>> ./ R 802000 803000 $ 802100 1000
 BEGIN APPLY >>> ./ R 846000 847000 $ 846100 100
   END APPLY >>> ./ R 846000 847000 $ 846100 100
 BEGIN APPLY >>> ./ I 852000 $ 852100 100
   END APPLY >>> ./ I 852000 $ 852100 100
Update Succeeded
Update Execution Time 55 milliseconds.

R09952DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R09952DK: ./ R 466000 $ 466010 10                                                 00001000
       R09952DK:          BE    CPINITV                                         @VA09952 00002000
       R09952DK: ./ I 557000 $ 557010 10                                                 00003000
       R09952DK: CPINITV  DS    0H                                              @VA09952 00004000
       R09952DK:          LA    R1,8           ISSUE DIAGNOSE '48' TO SET       @VA09952 00005000
       R09952DK:          DC    X'83120048'    IN VMBLOK CP VIRTUAL BIT         @VA09952 00006000
       R09952DK:          B     CPIPINTA                                        @VA09952 00007000
 BEGIN APPLY >>> ./ R 466000 $ 466010 10                                                 00001000
   END APPLY >>> ./ R 466000 $ 466010 10                                                 00001000
 BEGIN APPLY >>> ./ I 557000 $ 557010 10                                                 00003000
   END APPLY >>> ./ I 557000 $ 557010 10                                                 00003000
Update Succeeded
Update Execution Time 31 milliseconds.

R11565DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R11565DK: ./ I 417000 $ 417500                                                    00001000
       R11565DK: SENRETCT EQU   X'100'         SENSE RETRY COUNT                @VA11565 00002000
       R11565DK: ./ R 485040 $ 485041                                                    00003000
       R11565DK:          LA    R2,SENRETCT    LOAD LOOP CONTROL FOR SIO        @VA11565 00004000
       R11565DK: ./ R 485760 $ 485761                                                    00005000
       R11565DK:          LA    R2,SENRETCT    LOAD LOOP CONTROL FOR SIO        @VA11565 00006000
       R11565DK: ./ R 1567000 $ 1567500                                                  00007000
       R11565DK:          LA    R1,SENRETCT    LOAD RETRY COUNT                 @VA11565 00008000
 BEGIN APPLY >>> ./ I 417000 $ 417500                                                    00001000
   END APPLY >>> ./ I 417000 $ 417500                                                    00001000
 BEGIN APPLY >>> ./ R 485040 $ 485041                                                    00003000
   END APPLY >>> ./ R 485040 $ 485041                                                    00003000
 BEGIN APPLY >>> ./ R 485760 $ 485761                                                    00005000
   END APPLY >>> ./ R 485760 $ 485761                                                    00005000
 BEGIN APPLY >>> ./ R 1567000 $ 1567500                                                  00007000
   END APPLY >>> ./ R 1567000 $ 1567500                                                  00007000
Update Succeeded
Update Execution Time 47 milliseconds.

R11615DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R11615DK: ./ R 466010 $ 466020 10                                                 00001000
       R11615DK:          BNE   INITREAL       NO BRANCH                        @VA11615 00002000
       R11615DK:          LA    R1,8           SET DIAGNOSE REG                 @VA11615 00003000
       R11615DK:          DC    X'83120048'    DIAG 48 TO SET VIRTUAL BIT       @VA11615 00004000
       R11615DK:          B     CPIPINTA       INIT IN UNIPROCESSOR ONLY        @VA11615 00005000
       R11615DK: INITREAL DS    0H                                              @VA11615 00006000
       R11615DK: ./ D 557010 557040 $                                                    00007000
 BEGIN APPLY >>> ./ R 466010 $ 466020 10                                                 00001000
   END APPLY >>> ./ R 466010 $ 466020 10                                                 00001000
 BEGIN APPLY >>> ./ D 557010 557040 $                                                    00007000
   END APPLY >>> ./ D 557010 557040 $                                                    00007000
Update Succeeded
Update Execution Time 31 milliseconds.

R11619DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R11619DK: ./ R  2129000  $  2129100                                               00001000
       R11619DK: CORSMSG  DC    CL5' '                                          @VA11619 00002000
       R11619DK: ./ R  2779000  $  2779100  100                                          00003000
       R11619DK:          STC   R0,CORSMSG     SAVE HIGH ORDER DIGIT OF SIZE    @VA11619 00004000
       R11619DK:          STCM  R1,B'1111',CORSMSG+1 SAVE THE REST              @VA11619 00005000
 BEGIN APPLY >>> ./ R  2129000  $  2129100                                               00001000
   END APPLY >>> ./ R  2129000  $  2129100                                               00001000
 BEGIN APPLY >>> ./ R  2779000  $  2779100  100                                          00003000
   END APPLY >>> ./ R  2779000  $  2779100  100                                          00003000
Update Succeeded
Update Execution Time 31 milliseconds.

R11344DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R11344DK: ./ I 01190000          $ 1190100 100                  09/12/80 15:03:18
       R11344DK:          TM    RDEVFTR,SYSVIRT+VIRTUAL  THIS AN MSS VUA?       @VA11344
       R11344DK:          BZ    SAVESER2       NO - THEN DON'T TURN ON          @VA11344
       R11344DK: *                             'MTD-BY-CP' FLAG                 @VA11344
       R11344DK:          OI    RDEVFLAG,RDEVVMNT   ELSE TURN IT ON!            @VA11344
       R11344DK: SAVESER2 DS    0H                                              @VA11344
 BEGIN APPLY >>> ./ I 01190000          $ 1190100 100                  09/12/80 15:03:18
   END APPLY >>> ./ I 01190000          $ 1190100 100                  09/12/80 15:03:18
Update Succeeded
Update Execution Time 23 milliseconds.

R12591DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R12591DK: ./ I 597000 $ 597500                                                    00001000
       R12591DK:          LPSW  PRNPSW         LOAD EC PSW                      @VA12591 00002000
 BEGIN APPLY >>> ./ I 597000 $ 597500                                                    00001000
   END APPLY >>> ./ I 597000 $ 597500                                                    00001000
Update Succeeded
Update Execution Time 23 milliseconds.

R12596DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R12596DK: ./ I 977000 $ 977100 200
       R12596DK:          LA    R0,CPEXSIZE    MUST GET CPEXBLOK TOO            @VA12596
       R12596DK:          CALL  DMKFREE                                         @VA12596
       R12596DK:          ST    R1,4(,R10)     PUT CPEX POINTER IN DMKFREAP     @VA12596
 BEGIN APPLY >>> ./ I 977000 $ 977100 200
   END APPLY >>> ./ I 977000 $ 977100 200
Update Succeeded
Update Execution Time 16 milliseconds.

R13845DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R13845DK: ./ R 2194000 $ 2194000                                                  00001000
       R13845DK:          DC    C'DMKCPI968I NO WARM START, PREVIOUS DATA STILL VALID'   00002000
 BEGIN APPLY >>> ./ R 2194000 $ 2194000                                                  00001000
   END APPLY >>> ./ R 2194000 $ 2194000                                                  00001000
Update Succeeded
Update Execution Time 23 milliseconds.

R14280DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R14280DK: ./ R 312000 $ 312000 500
       R14280DK: *        DMKCPI185E CP ASSIST LEVEL XXXX NOT SUPPORTED - CP ASSIST      00312000
       R14280DK: *                   DISABLED                                            00312500
       R14280DK: ./ I 610000 $ 610200 200
       R14280DK:          MVI   PSAEVMA,MICLPSW+MICPTLB+MICSCSP+MICSIO+MICSTSM+MICSTPT+M*00610200
       R14280DK:                ICTCH        ENABLE ALL EVMA EXCEPT DIAG ASSIST @VA14280 00610400
       R14280DK: *  NOTE DIAG NOT ENABLED BECAUSE NOT SUPPORTED IN RELEASE 6 SCP         00610600
       R14280DK: ./ R 616000 $ 616000 10
       R14280DK: ******************************************************************      00616000
       R14280DK: *                                                                *      00616010
       R14280DK: *    CHECK OUT LEVEL OF CP ASSIST AND TAKE ACTION AS FOLLOWS:    *      00616020
       R14280DK: *                                                                *      00616030
       R14280DK: *    BELOW LEVEL 18:  DISABLE CP ASSIST                          *      00616040
       R14280DK: *                                                                *      00616050
       R14280DK: *    LEVEL 18 OR 19:  USE CP ASSIST, BUT MODIFY FREE/FRET AND    *      00616060
       R14280DK: *                     DISABLE TCH ASSIST                         *      00616070
       R14280DK: *                                                                *      00616080
       R14280DK: *    LEVEL 20:        USE CP ASSIST                              *      00616090
       R14280DK: *                                                                *      00616100
       R14280DK: *    ABOVE LEVEL 20:  DISABLE CP ASSIST                          *      00616110
       R14280DK: *                                                                *      00616120
       R14280DK: ******************************************************************      00616130
       R14280DK:          SPACE ,                                                        00616140
       R14280DK:          CLC   F20,0(R3)      CHECK FOR LEVEL 20 ASSIST        @VA14280 00616150
       R14280DK:          BL    CPIPINT3       GREATER THAN 20... DON'T USE IT  @VA14280 00616160
       R14280DK:          BE    CPINTFRE       ASSIST IS LEVEL 20. GOOD, USE IT @VA14280 00616170
       R14280DK:          CLC   F18,0(R3)      CHECK FOR LEVEL 18 OR 19 ASSIST  @VA14280 00616180
       R14280DK:          BH    CPIPINT3       LESS THAN 18... DON'T USE IT     @VA14280 00616190
       R14280DK: *                                                                       00616200
       R14280DK: *    ASSIST LEVEL 18 OR 19... MUST CHANGE FREEX/FRETX INSTRUCTIONS BACK 00616210
       R14280DK: *    TO REGULAR FREE/FRET, AND ADJUST FIRST OPERAND LOCATION.           00616220
       R14280DK: *                                                                       00616230
       R14280DK:          L     R15,CPATFREE   ADDRESS OF DMKFREE INSTRUCTION   @VA14280 00616240
       R14280DK:          MVI   OP1(R15),OLDFREE RESTORE OLD DMKFREE OPCODE     @VA14280 00616250
       R14280DK:          LH    R14,OP2(,R15)  GET S(MAXSIZE)                   @VA14280 00616260
       R14280DK:          AL    R14,F4         POINT IT TO S(SUBTABLE)          @VA14280 00616270
       R14280DK:          STH   R14,OP2(,R15)  STORE IT BACK                    @VA14280 00616280
       R14280DK:          L     R15,CPATFRET   ADDRESS OF DMKFRET INSTRUCTION   @VA14280 00616290
       R14280DK:          MVI   OP1(R15),OLDFRET RESTORE OLD DMKFRET OPCODE     @VA14280 00616300
       R14280DK:          LH    R14,OP2(,R15)  GET S(MAXSIZE)                   @VA14280 00616310
       R14280DK:          AL    R14,F4         POINT IT TO S(SUBTABLE)          @VA14280 00616320
       R14280DK:          STH   R14,OP2(,R15)  STORE IT BACK                    @VA14280 00616330
       R14280DK: *                                                                       00616340
       R14280DK: *    ASSIST LEVEL 18 OR 19... MUST CHANGE OPERANDS OF DSP2 AND UNTFR    00616350
       R14280DK: *    INSTRUCTIONS TO POINT TO SUBTABLE INSTEAD OF MAXSIZE.              00616360
       R14280DK: *                                                                       00616370
       R14280DK:          L     R15,ADSPRQ     POINT TO DSP2 DATA LIST          @VA14280 00616380
       R14280DK:          L     R14,DSPRQD(,R15)   GET POINTER TO MAXSIZE       @VA14280 00616390
       R14280DK:          AL    R14,F4         INCREMENT, POINT TO SUBTABLE     @VA14280 00616400
       R14280DK:          ST    R14,DSPRQD(,R15)   PUT IT BACK                  @VA14280 00616410
       R14280DK:          L     R15,AUNTF1     POINT TO UNTFR DATA LIST         @VA14280 00616420
       R14280DK:          L     R14,UNTF1D(,R15)   GET POINTER TO MAXSIZE       @VA14280 00616430
       R14280DK:          AL    R14,F4         INCREMENT, POINT TO SUBTABLE     @VA14280 00616440
       R14280DK:          ST    R14,UNTF1D(,R15)   PUT IT BACK                  @VA14280 00616450
       R14280DK: *                                                                       00616460
       R14280DK: *    ASSIST LEVEL 18 OR 19... MUST DISABLE TEST CHANNEL (TCH) ASSIST    00616470
       R14280DK: *    BECAUSE IT DOESN'T MATCH THE SOFTWARE.                             00616480
       R14280DK: *                                                                       00616490
       R14280DK:          NI    PSAEVMA,255-MICTCH DISABLE TCH ASSIST           @VA14280 00616500
       R14280DK:          B     CPINTFRE       CONTINUE... USE ASSISTS          @VA14280 00616510
       R14280DK:          SPACE ,
       R14280DK: F18      DC    F'18'          USED TO CHECK CP ASSIST LEVEL    @VA14280 03454000
       R14280DK: ADSPRQ   DC    V(DMKDSPRQ)    ADDRESS OF DSP2 ASSIST DATA LIST @VA14280 03454200
       R14280DK: DSPRQD   EQU   28             DISP TO MAXSIZE POINTER          @VA14280 03454400
       R14280DK: AUNTF1   DC    V(DMKUNTF1)    ADDRESS OF UNTFR ASSIST DATA LIST@VA14280 03454600
       R14280DK: UNTF1D   EQU   4              DISP TO MAXSIZE POINTER          @VA14280 03454800
       R14280DK: OLDFREE  EQU   X'00'          2ND BYTE OF OLD 'FREE' OPCODE    @VA14280 03455000
       R14280DK: OLDFRET  EQU   X'01'          2ND BYTE OF OLD 'FRET' OPCODE    @VA14280 03455200
       R14280DK: OP1      EQU   1              DISPLACEMENT TO 2ND OPCODE BYTE  @VA14280 03455400
       R14280DK: OP2      EQU   2              DISPLACEMENT TO FIRST OPERAND    @VA14280 03455600
       R14280DK:          SPACE ,
       R14280DK: CPIPINT3 DS    0H             HERE IF CP ASSIST ON CPU, BUT    @VA14280*
       R14280DK:                               WRONG LEVEL                      @VA14280
       R14280DK:          NI    CPSTAT2,255-CPASTON     SET FLAG, WILL SEND     @VA14280*
       R14280DK:                               MESSAGE LATER                    @VA14280
       R14280DK: ./ D 620000
       R14280DK: ./ D 1988000 1989000
       R14280DK: ./ R 1991000 1992000 $ 1991000 1000
       R14280DK: CPATFREE DC    V(DMKFREE)     E614                             @VA14280 01991000
       R14280DK: CPATFRET DC    V(DMKFRET)     E615                             @VA14280 01992000
       R14280DK: ./ R 2115000 2116000 $ 2115100
       R14280DK:          DC    C' NOT SUPPORTED - CP ASSIST DISABLED'          @VA14280 02115000
       R14280DK: ./ R 2807000 2808000 $ 2807000 400
       R14280DK: *   IF CP ASSIST WAS AVAILABLE ON THE MACHINE, BUT IT IS THE WRONG
       R14280DK: *   LEVEL, WE SHOULD SEND A MESSAGE.
       R14280DK:          TM    CPSTAT2,CPASTAVL+CPASTON  CHECK AVAIL. BITS     @VA14280 02807000
       R14280DK:          BNM   WARMTEST       ALL IS OK, NO MESSAGE                     02808000
       R14280DK:          NI    CPSTAT2,255-CPASTAVL    TURN IT OFF NOW
       R14280DK: ./ D 2810000 2823000
       R14280DK: ./ D 3453000 3455700
 BEGIN APPLY >>> ./ R 312000 $ 312000 500
   END APPLY >>> ./ R 312000 $ 312000 500
 BEGIN APPLY >>> ./ I 610000 $ 610200 200
   END APPLY >>> ./ I 610000 $ 610200 200
 BEGIN APPLY >>> ./ R 616000 $ 616000 10
   END APPLY >>> ./ R 616000 $ 616000 10
 BEGIN APPLY >>> ./ D 620000
   END APPLY >>> ./ D 620000
 BEGIN APPLY >>> ./ D 1988000 1989000
   END APPLY >>> ./ D 1988000 1989000
 BEGIN APPLY >>> ./ R 1991000 1992000 $ 1991000 1000
   END APPLY >>> ./ R 1991000 1992000 $ 1991000 1000
 BEGIN APPLY >>> ./ R 2115000 2116000 $ 2115100
   END APPLY >>> ./ R 2115000 2116000 $ 2115100
 BEGIN APPLY >>> ./ R 2807000 2808000 $ 2807000 400
   END APPLY >>> ./ R 2807000 2808000 $ 2807000 400
 BEGIN APPLY >>> ./ D 2810000 2823000
   END APPLY >>> ./ D 2810000 2823000
 BEGIN APPLY >>> ./ D 3453000 3455700
   END APPLY >>> ./ D 3453000 3455700
Update Succeeded
Update Execution Time 70 milliseconds.

R11813DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R11813DK: ./ I 1442000 $ 1442300 300                                              00001000
       R11813DK:          S     R2,=A(DMKSLC)  MINUS THE V=R SIZE               @VA11813 00002000
       R11813DK: * R2 CONTAINS THE REAL CP STORAGE SIZE MINUS THE V=R AREA               00003000
       R11813DK: ./ I 1459000 $ 1459080 80                                               00004000
       R11813DK:          CL    R1,=A(X'FFF000') STORAGE OVER 16M VIRTUAL?      @VA11813 00005000
       R11813DK:          BNH   VBUFFOK        NO WE ARE OK                     @VA11813 00006000
       R11813DK:          L     R1,=A(X'FFF000') SET VIRTUAL STOR TO 16M        @VA11813 00007000
       R11813DK:          LR    R0,R1          INTO R0 ALSO                     @VA11813 00008000
       R11813DK:          S     R0,=A(DMKCKP)  MINUS THE END OF THE CP NUC      @VA11813 00009000
       R11813DK:          BNP   CPI955         ERROR-CP IS TOO LARGE            @VA11813 00010000
       R11813DK:          SRL   R0,15          NUMBER OF VIRTUAL BUFFERS        @VA11813 00011000
       R11813DK: *                             DIVIDED BY 8                              00012000
       R11813DK:          C     R0,F16         AT LEAST 128 VIRTUAL BUFFERS?    @VA11813 00013000
       R11813DK:          BL    CPI955         NOT ENOUGH STOR FOR CP           @VA11813 00014000
       R11813DK:          STC   R0,0(,R3)      STORE VALUE IN DMKPGUBN          @VA11813 00015000
       R11813DK: VBUFFOK  EQU   *                                               @VA11813 00016000
       R11813DK: ./ I 1794000 $ 1794100 100                                              00017000
       R11813DK:          USING DMKCPINT,R12,R13 MUST SPECIFY THIS SINCE WE     @VA11813 00018000
       R11813DK: *                             CAN COME HERE                             00019000
       R11813DK: *                             FROM VBUFF ROUTINE                        00020000
       R11813DK:          LM    R12,R13,BASEREGS SET UP BASE REGISTERS          @VA11813 00021000
       R11813DK:          USING DMKCPIEM,R12,R13 NOW BASE REGS ARE OK           @VA11813 00022000
       R11813DK:          L     R11,ASYSOP     POINT TO OPERATOR VMBLOK         @VA11813 00023000
 BEGIN APPLY >>> ./ I 1442000 $ 1442300 300                                              00001000
   END APPLY >>> ./ I 1442000 $ 1442300 300                                              00001000
 BEGIN APPLY >>> ./ I 1459000 $ 1459080 80                                               00004000
   END APPLY >>> ./ I 1459000 $ 1459080 80                                               00004000
 BEGIN APPLY >>> ./ I 1794000 $ 1794100 100                                              00017000
   END APPLY >>> ./ I 1794000 $ 1794100 100                                              00017000
Update Succeeded
Update Execution Time 31 milliseconds.

R13167DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R13167DK: ./ R 03289000 $ 3289000 500                                             00001000
       R13167DK: WRTOUT   LA    R6,20          TRY 20 TIMES IF I/O ERROR        @VA13167 00002000
       R13167DK: GETCCPD  LR    R2,R1          SAVE THE ADDR IN R2              @VA13167 00003000
       R13167DK: ./ R 03294000 $ 3294000 1000                                            00004000
       R13167DK:          B     CPI4           TERMINATE SYS - SPACE NOT AVAIL  @VA13167 00005000
       R13167DK: ./ R 03299000 $ 3299000 300                                             00006000
       R13167DK:          BZ    TRANSLP        WRITE SUCCESSFUL                 @VA13167 00007000
       R13167DK:          BCT   R6,GETCCPD     IF FATAL ERROR, TRY ANOTHER CCPD @VA13167 00008000
       R13167DK:          ABEND 4              ABEND 4 - PAGING ERRORS          @VA13167 00009000
 BEGIN APPLY >>> ./ R 03289000 $ 3289000 500                                             00001000
   END APPLY >>> ./ R 03289000 $ 3289000 500                                             00001000
 BEGIN APPLY >>> ./ R 03294000 $ 3294000 1000                                            00004000
   END APPLY >>> ./ R 03294000 $ 3294000 1000                                            00004000
 BEGIN APPLY >>> ./ R 03299000 $ 3299000 300                                             00006000
   END APPLY >>> ./ R 03299000 $ 3299000 300                                             00006000
Update Succeeded
Update Execution Time 23 milliseconds.

R13364DK

Date Tuesday Feb 18, 2003 11:05:00 AM
Loaded from MAINT(294)
       R13364DK: ./ R 03274000 03275000 $ 3274000 400                  11/04/81 11:14:37
       R13364DK: *                                                                       03274000
       R13364DK: *        CHECK IF A SYMBOL TABLE (DMKSYM) EXISTS.  IF ONE DOES,         03274400
       R13364DK: *        WRITE IT OUT TO THE PAGING DEVICE TO ENSURE WE HAVE A          03274800
       R13364DK: *        COPY OF IT.  IN ADDITION, WRITE OUT MODULE DMKVMI.             03275200
       R13364DK: *        READ IN ALL PAGABLE MODULES BETWEEN DMKSAV AND                 03275600
       R13364DK: ./ I 03277000          $ 3277090 90                   11/04/81 11:14:37
       R13364DK:          L     R1,=A(DMKSYM)  GET ADDR OF SYMBOL TABLE         @VA13364 03277090
       R13364DK:          LTR   R1,R1          DO WE HAVE ONE                   @VA13364 03277180
       R13364DK:          BZ    GETVMI         NO, GO TO GET DMKVMI MODULE      @VA13364 03277270
       R13364DK:          BAL   R3,WRTOUT      GO WRITE OUT THE SYMBOL TABLE    @VA13364 03277360
       R13364DK: GETVMI   DS    0H                                              @VA13364 03277450
       R13364DK:          L     R1,=A(DMKVMI)  GET ADDR OF DMKVMI               @VA13364 03277540
       R13364DK:          LTR   R1,R1          MAKE SURE WE HAVE A DMKVMI       @VA13364 03277630
       R13364DK:          BZ    STRTLOOP       DON'T HAVE A VMI, SKIP THIS      @VA13364 03277720
       R13364DK:          BAL   R3,WRTOUT      GO WRITE OUT THE SYMBOL TABLE    @VA13364 03277810
       R13364DK: STRTLOOP DS    0H                                              @VA13364 03277900
       R13364DK: ./ R 03283000          $ 3283000 1000                 11/04/81 11:14:37
       R13364DK:          BE    TRANSLP        YES, NO NEED TO WRITE IT AGAIN   @VA13364 03283000
       R13364DK: ./ R 03285000          $ 3285000 1000                 11/04/81 11:14:37
       R13364DK:          BE    TRANSLP        YES, NO NEED TO WRITE IT AGAIN   @VA13364 03285000
       R13364DK: ./ R 03299000          $ 3299000 300                  11/04/81 11:14:37
       R13364DK:          BZR   R3             WRITE SUCCESSFUL,RETURN TO CALLER@VA13364 03299000
 BEGIN APPLY >>> ./ R 03274000 03275000 $ 3274000 400                  11/04/81 11:14:37
   END APPLY >>> ./ R 03274000 03275000 $ 3274000 400                  11/04/81 11:14:37
 BEGIN APPLY >>> ./ I 03277000          $ 3277090 90                   11/04/81 11:14:37
   END APPLY >>> ./ I 03277000          $ 3277090 90                   11/04/81 11:14:37
 BEGIN APPLY >>> ./ R 03283000          $ 3283000 1000                 11/04/81 11:14:37
   END APPLY >>> ./ R 03283000          $ 3283000 1000                 11/04/81 11:14:37
 BEGIN APPLY >>> ./ R 03285000          $ 3285000 1000                 11/04/81 11:14:37
   END APPLY >>> ./ R 03285000          $ 3285000 1000                 11/04/81 11:14:37
 BEGIN APPLY >>> ./ R 03299000          $ 3299000 300                  11/04/81 11:14:37
   END APPLY >>> ./ R 03299000          $ 3299000 300                  11/04/81 11:14:37
Update Succeeded
Update Execution Time 23 milliseconds.

HRC004DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC004DK: ./ R 01926000          $ 1926290 290                  02/11/02 09:38:08
       HRC004DK:          DC    AL1(BLKMPX+NOSSKCK)                             HRC004DK 01926000
       HRC004DK:          DC    AL1(PAGE4K,CKCMASK,INTMASK+KEYMASK)             HRC004DK 01926000
       HRC004DK: ./ R 02080000          $ 2080290 290                  02/11/02 09:38:08
       HRC004DK: MFAONLY  DC    AL1(BLKMPX+NOSSKCK)                             HRC004DK 02080000
       HRC004DK:          DC    AL1(PAGE4K,MFAMASK,N0) MFA ONLY FOR CR0         HRC004DK 02080000
 BEGIN APPLY >>> ./ R 01926000          $ 1926290 290                  02/11/02 09:38:08
   END APPLY >>> ./ R 01926000          $ 1926290 290                  02/11/02 09:38:08
 BEGIN APPLY >>> ./ R 02080000          $ 2080290 290                  02/11/02 09:38:08
   END APPLY >>> ./ R 02080000          $ 2080290 290                  02/11/02 09:38:08
Update Succeeded
Update Execution Time 39 milliseconds.

HRC008DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC008DK: ./ R 02787000          $ 2787490 490                  02/08/06 16:13:31
       HRC008DK: TLOOP1  L   R0,=F'40000'         FIX FOR FASTER PROCESSORS     HRC008DK 02787000
 BEGIN APPLY >>> ./ R 02787000          $ 2787490 490                  02/08/06 16:13:31
   END APPLY >>> ./ R 02787000          $ 2787490 490                  02/08/06 16:13:31
Update Succeeded
Update Execution Time 31 milliseconds.

HRC011DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC011DK: ./ R 00486080          $ 486090 10                    01/26/06 18:16:47
       HRC011DK:          XC    CPISNS,CPISNS CLEAR DATA AREA                   HRC011DK 00486090
       HRC011DK: ./ R 01131000 01132000 $ 1131390 390                  01/26/06 18:16:47
       HRC011DK:          CLI   RDEVTYPE,TYP3380  OK - MOUNTING A 3380 ??       HRC011DK 01131390
       HRC011DK:          BE    TEST3380       YES - CONTINUE --                HRC011DK 01131780
       HRC011DK:          CLI   RDEVTYPE,TYP2305  OK - MOUNTING A 2305 ??       HRC011DK 01132170
       HRC011DK:          BNE   TEST3340       NO -- CONTINUE --                HRC011DK 01132560
       HRC011DK: ./ R 01138000          $ 1138490 490                  01/26/06 18:16:47
       HRC011DK:          XC    CPISNS,CPISNS  CLEAR DATA AREA                  HRC011DK 01138490
       HRC011DK: ./ I 01148000          $ 1148100 100                  01/26/06 18:16:47
       HRC011DK: TEST3380 DS    0H                                              HRC011DK 01148100
       HRC011DK:          XC    CPISNS,CPISNS  CLEAR DATA AREA                  HRC011DK 01148200
       HRC011DK:          MVC   CAW(4),=A(CPISNSE4) SETUP FOR E4 SENSE ID       HRC011DK 01148300
       HRC011DK:          BAL   R14,SNSIOR      GO READ                         HRC011DK 01148400
       HRC011DK:          MVC   RDEVMDL,CPISNSB6                                HRC011DK 01148500
       HRC011DK:          B     CPISTCAW        CONTINUE                        HRC011DK 01148600
       HRC011DK: ./ R 01567500          $ 1567690 190                  01/26/06 18:16:47
       HRC011DK: SNSIOR   LA    R1,SENRETCT    LOAD RETRY COUNT                 HRC011DK 01567690
       HRC011DK: ./ R 01875000          $ 1875490 490                  01/26/06 18:16:47
       HRC011DK: CPICCW1  CCW   X'04',CPISNS,SILI,32 SENSE UP TO 32 BYTES       HRC011DK 01875490
       HRC011DK: ./ I 01878000          $ 1878500 500                  01/26/06 18:16:47
       HRC011DK: CPISNSE4 CCW   X'E4',CPISNS,SILI,7 SENSE ID                    HRC011DK 01878500
       HRC011DK: ./ R 01975000          $ 1975090 90                   01/26/06 18:16:47
       HRC011DK: CPISNS   DC    32X'00'        SENSE DATA FIELD EXTENDED        HRC011DK 01975090
       HRC011DK: CPISNSB0 EQU   CPISNS+00                                       HRC011DK 01975180
       HRC011DK: CPISNSB1 EQU   CPISNS+01                                       HRC011DK 01975270
       HRC011DK: CPISNSB2 EQU   CPISNS+02                                       HRC011DK 01975360
       HRC011DK: CPISNSB3 EQU   CPISNS+03                                       HRC011DK 01975450
       HRC011DK: CPISNSB4 EQU   CPISNS+04,2                                     HRC011DK 01975540
       HRC011DK: CPISNSB6 EQU   CPISNS+06                                       HRC011DK 01975630
 BEGIN APPLY >>> ./ R 00486080          $ 486090 10                    01/26/06 18:16:47
   END APPLY >>> ./ R 00486080          $ 486090 10                    01/26/06 18:16:47
 BEGIN APPLY >>> ./ R 01131000 01132000 $ 1131390 390                  01/26/06 18:16:47
   END APPLY >>> ./ R 01131000 01132000 $ 1131390 390                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ R 01138000          $ 1138490 490                  01/26/06 18:16:47
   END APPLY >>> ./ R 01138000          $ 1138490 490                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ I 01148000          $ 1148100 100                  01/26/06 18:16:47
   END APPLY >>> ./ I 01148000          $ 1148100 100                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ R 01567500          $ 1567690 190                  01/26/06 18:16:47
   END APPLY >>> ./ R 01567500          $ 1567690 190                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ R 01875000          $ 1875490 490                  01/26/06 18:16:47
   END APPLY >>> ./ R 01875000          $ 1875490 490                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ I 01878000          $ 1878500 500                  01/26/06 18:16:47
   END APPLY >>> ./ I 01878000          $ 1878500 500                  01/26/06 18:16:47
 BEGIN APPLY >>> ./ R 01975000          $ 1975090 90                   01/26/06 18:16:47
   END APPLY >>> ./ R 01975000          $ 1975090 90                   01/26/06 18:16:47
Update Succeeded
Update Execution Time 78 milliseconds.

HRC015DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC015DK: ./ R 01179000
       HRC015DK:          CLC   CPIATABL(3),=C'CMS' ANY CMS HEADER?             HRC015DK 01179000
 BEGIN APPLY >>> ./ R 01179000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 01179000
Update Succeeded
Update Execution Time 31 milliseconds.

HRC016DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC016DK: ./ I 03412000          $ 3412200 200                  02/20/06 13:05:07
       HRC016DK:          LA    R7,9           UP TO NINE AUTOLOG USERS         HRC016DK 03412200
       HRC016DK:          LA    R5,C'1'        START WITH ONE C'1'              HRC016DK 03412400
       HRC016DK: AUTOLALL EQU   *                                               HRC016DK 03412600
       HRC016DK: ./ R 03415000 03417000 $ 3415290 290                  02/20/06 13:05:07
       HRC016DK:          STC   R5,AUTOUSR+7   SAVE NUMBER                      HRC016DK 03415290
       HRC016DK:          XC    AUTOPSRD,AUTOPSRD CLEAR PASSWORD                HRC016DK 03415580
       HRC016DK:          LA    R0,17          LENGTH OF COMMAND                HRC016DK 03416000
       HRC016DK:          ST    R0,AUTOLEN                                      HRC016DK
       HRC016DK:          LA    R0,8           LENGTH OF USERID                 HRC016DK 03416000
       HRC016DK:          LA    R1,AUTOUSR     AUTOLOG USERID                   HRC016DK 03417490
       HRC016DK:          ST    R1,AUTOSTRT                                     HRC016DK
       HRC016DK: ./ R 03420000          $ 3420190 190                  02/20/06 13:05:07
       HRC016DK:          BNZ   NOAUTOLG       NO, BYPASS LOGON                 HRC016DK 03420190
       HRC016DK:          CLC   AUTOUSR(8),UDIRUSER-UDIRBLOK(R2) IS THIS IT     HRC016DK 03420380
       HRC016DK:          BNE   NOAUTOLG       NO, BYPASS LOGON                 HRC016DK 03420570
       HRC016DK: ./ I 03423000          $ 3423200 200                  02/20/06 13:05:07
       HRC016DK: NOAUTOLG EQU   *                                               HRC016DK 03423200
       HRC016DK:          LA    R5,1(,R5)      INCREMENT BY 1                   HRC016DK 03423400
       HRC016DK:          BCT   R7,AUTOLALL                                     HRC016DK 03423600
       HRC016DK: ./ R 03489000          $ 3489490 490                  02/20/06 13:05:07
       HRC016DK: AUTOUSR  DC    CL9'AUTOLOG1 ' USERID TO BE LOGGED ON           HRC016DK 03489490
       HRC016DK: ./ R 03492000 03493000 $ 3492590 590                  02/20/06 13:05:07
       HRC016DK: AUTOSTRT DC    A(AUTOUSR)                                      HRC016DK 03492000
       HRC016DK: AUTOLEN  DC    F'17'          NO. CARACTERS IN BUFFER          HRC016DK 03493000
 BEGIN APPLY >>> ./ I 03412000          $ 3412200 200                  02/20/06 13:05:07
   END APPLY >>> ./ I 03412000          $ 3412200 200                  02/20/06 13:05:07
 BEGIN APPLY >>> ./ R 03415000 03417000 $ 3415290 290                  02/20/06 13:05:07
   END APPLY >>> ./ R 03415000 03417000 $ 3415290 290                  02/20/06 13:05:07
 BEGIN APPLY >>> ./ R 03420000          $ 3420190 190                  02/20/06 13:05:07
   END APPLY >>> ./ R 03420000          $ 3420190 190                  02/20/06 13:05:07
 BEGIN APPLY >>> ./ I 03423000          $ 3423200 200                  02/20/06 13:05:07
   END APPLY >>> ./ I 03423000          $ 3423200 200                  02/20/06 13:05:07
 BEGIN APPLY >>> ./ R 03489000          $ 3489490 490                  02/20/06 13:05:07
   END APPLY >>> ./ R 03489000          $ 3489490 490                  02/20/06 13:05:07
 BEGIN APPLY >>> ./ R 03492000 03493000 $ 3492590 590                  02/20/06 13:05:07
   END APPLY >>> ./ R 03492000 03493000 $ 3492590 590                  02/20/06 13:05:07
Update Succeeded
Update Execution Time 31 milliseconds.

HRC019DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC019DK: ./ R 02143000
       HRC019DK: CPIPLC   DC    C'     HRC '   PLC NO FROM DMKCPEID             HRC019DK 02143100
       HRC019DK: CPIHRC   DC    C'    /'       HRC VERSION NUMBER FROM CPEID    HRC019DK 02143200
       HRC019DK: CPIWHO   DC    C'   ; '       INITIALS FROM CPEID              HRC019DK 02143300
       HRC019DK: ./ I 02287000
       HRC019DK:          MVC   CPIHRC(4),8(R1)     MOVE IN THE HRC VERSION     HRC019DK 02287100
       HRC019DK:          MVC   CPIWHO(3),12(R1)    WHO DONE IT                 HRC019DK 02287200
       HRC019DK: ./ D 02583000 02584000
       HRC019DK: ./ I 02601000
       HRC019DK:          STH   R0,CPIATABL+130 SAVE THIS LENGTH                HRC019DK 02601100
       HRC019DK:          MVC   CPIATABL+133(40),CPIATABL SET ASIDE MOMENTARILY HRC019DK 02601200
       HRC019DK:          CLC   =CL4'WRM ',CPID    IPL ON A WARM MACHINE?       HRC019DK 02601300
       HRC019DK:          BE    NOTCHNG        YES--DON'T ASK FOR CLOCK CHANGE. HRC019DK 02601400
       HRC019DK:          XC    CPABEND,CPABEND NO--ZERO ABEND CODE FOR Q CPSYS HRC019DK 02601500
       HRC019DK: ./ I 02632000
       HRC019DK: *        HERE TO INITIALIZE RESPONSES TO 'QUERY CPLEVEL' CMD            02632010
       HRC019DK:          LA    R0,STMSGL+21   COMPUTE SIZE PLUS SOME SLOP AREA HRC019DK 02632020
       HRC019DK:          AH    R0,CPIATABL+130 LENGTH OF 2ND MSG               HRC019DK 02632030
       HRC019DK:          SRL   R0,3           COMPUTE SIZE FOR FREE            HRC019DK 02632040
       HRC019DK:          CALL  DMKFREE        ALLOCATE QCP STATUS BLOCK        HRC019DK 02632050
       HRC019DK:          USING QCPBLOK,R1                                      HRC019DK 02632060
       HRC019DK:          ST    R1,QCPSTAT     SAVE ITS ADDRESS IN PSA          HRC019DK 02632070
       HRC019DK:          LA    R2,STMSGL-5    LENGTH OF FIRST MSG              HRC019DK 02632080
       HRC019DK:          LA    R3,QCPBUF      ADDRESS OF FIRST MSG             HRC019DK 02632090
       HRC019DK:          STM   R2,R3,QCPMSG1  SAVE IN QCPBLOK                  HRC019DK 02632100
       HRC019DK:          BCT   R2,*+10        MOVE IN THE FIRST MSG            HRC019DK 02632110
       HRC019DK:          MVC   0(*-*,R3),STMSG+3  ...                          HRC019DK 02632120
       HRC019DK:          EX    R2,*-6             ...                          HRC019DK 02632130
       HRC019DK:          LA    R3,1(R2,R3)    COMPUTE 2ND MSG ADDR             HRC019DK 02632140
       HRC019DK:          LH    R2,CPIATABL+130 GET LENGTH OF 2ND MSG           HRC019DK 02632150
       HRC019DK:          AL    R2,F3          MAKE MSG 3 BYTES LONGER          HRC019DK 02632160
       HRC019DK:          STM   R2,R3,QCPMSG2  SAVE IN QCPBLOK                  HRC019DK 02632170
       HRC019DK:          BCT   R2,*+10        MOVE IN THE 2ND MSG              HRC019DK 02632180
       HRC019DK:          MVC   0(*-*,R3),CPIATABL+130 ...                      HRC019DK 02632190
       HRC019DK:          EX    R2,*-6                 ...                      HRC019DK 02632200
       HRC019DK:          MVC   0(6,R3),=C'IPL AT'    ALTER SLIGHTLY FOR QUERY  HRC019DK 02632210
       HRC019DK:          DROP  R1                                              HRC019DK 02632220
       HRC019DK:          EJECT ,                                               HRC019DK 02632230
       HRC019DK: ./ I 03506000
       HRC019DK:          COPY  QCPBLOK                                         HRC019DK 03506100
 BEGIN APPLY >>> ./ R 02143000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ R 02143000
 BEGIN APPLY >>> ./ I 02287000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 02287000
 BEGIN APPLY >>> ./ D 02583000 02584000
   END APPLY >>> ./ D 02583000 02584000
 BEGIN APPLY >>> ./ I 02601000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 02601000
 BEGIN APPLY >>> ./ I 02632000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 02632000
 BEGIN APPLY >>> ./ I 03506000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 03506000
Update Succeeded
Update Execution Time 47 milliseconds.

HRC020DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC020DK: ./ R 02207000 02208000 $ 02207000 00002000                              00001000
       HRC020DK: DUPMSG   DC    C'DMKCPI954E DASD '                             HRC020DK 00002000
       HRC020DK: ./ D 02214000 02214000                                                  00003000
 BEGIN APPLY >>> ./ R 02207000 02208000 $ 02207000 00002000                              00001000
   END APPLY >>> ./ R 02207000 02208000 $ 02207000 00002000                              00001000
 BEGIN APPLY >>> ./ D 02214000 02214000                                                  00003000
   END APPLY >>> ./ D 02214000 02214000                                                  00003000
Update Succeeded
Update Execution Time 39 milliseconds.

HRC028DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC028DK: ./ R 00321000          $ 321090 90                    02/25/06 12:24:01
       HRC028DK: *  DMKCPI957I STORAGE SIZE = NNNNN K,   NUCLEUS = NNNNN K,     HRC028DK 00321090
       HRC028DK: *             DYNAMIC PAGING = NNNNN K, TRACE TABLE = NNNN K,  HRC028DK 00321180
       HRC028DK: *             FREE STORAGE  = NNNN K,   VIRTUAL=REAL = NNNNN K HRC028DK 00321270
       HRC028DK: *        DMKCPI966I INITIALIZATION COMPLETE                    HRC028DK 00321360
       HRC028DK: *        DMKCPI971I SYSTEM IS UNIPROCESSOR GENERATED           HRC028DK 00321450
       HRC028DK: *        DMKCPI971I SYSTEM IS ATTACHED PROCESSOR GENERATED     HRC028DK 00321540
       HRC028DK: *        DMKCPI971I SYSTEM IS MULTIPROCESSOR GENERATED         HRC028DK 00321630
       HRC028DK: ./ R 01781000 01782000 $ 1781590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(SHUTM1L) GET MESSAGE LENGTH               HRC028DK 01781590
       HRC028DK:          L     R1,=A(SHUTM1)  GET MESSAGE PTR                  HRC028DK 01782180
       HRC028DK: ./ R 01784000 01785000 $ 1784590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(SHUTM2L) GET MESSAGE LENGTH               HRC028DK 01784590
       HRC028DK:          L     R1,=A(SHUTM2)  GET MESSAGE PTR                  HRC028DK 01785180
       HRC028DK: ./ R 01795000 01796000 $ 1795590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(CPI955LN) LENGTH OF MESSAGE               HRC028DK 01795590
       HRC028DK:          L     R1,=A(CPI955MG) ADDRESS OF THE MESSAGE          HRC028DK 01796180
       HRC028DK: ./ I 01978000          $ 1978200 200                  02/25/06 12:24:01
       HRC028DK:          SPACE ,                                               HRC028DK 01978200
       HRC028DK: * KEEP IN THIS ORDER !!                                        HRC028DK 01978400
       HRC028DK: WARMFLAG DC    X'00'          WARM START FLAGS2                HRC028DK 01978600
       HRC028DK: ./ I 02028000          $ 2028500 500                  02/25/06 12:24:01
       HRC028DK: KEYSET2  OI    WARMFLAG,0     EXECUTED OI TO TURN FLAGS ON     HRC028DK 02028500
       HRC028DK: ./ I 02030000          $ 2030070 70                   02/25/06 12:24:01
       HRC028DK: COLD     EQU   X'01'   FLAGS IN WARMCOLD                       HRC028DK 02030070
       HRC028DK: WARM     EQU   X'02'                                           HRC028DK 02030140
       HRC028DK: OTHERFLG EQU   X'04'                                           HRC028DK 02030210
       HRC028DK: SHUTDOWN EQU   X'08'                                           HRC028DK 02030280
       HRC028DK: WARMAUTO EQU   X'10'                                           HRC028DK 02030350
       HRC028DK: CKPT     EQU   X'20'                                           HRC028DK 02030420
       HRC028DK: FORCE    EQU   X'40'                                           HRC028DK 02030490
       HRC028DK:          SPACE 1                                               HRC028DK 02030000
       HRC028DK: DISABLE  EQU   X'01'   FLAGS IN WARMFLAG                       HRC028DK 02030560
       HRC028DK: DRAIN    EQU   X'02'                                           HRC028DK 02030630
       HRC028DK: NOAUTOLG EQU   X'04'                                           HRC028DK 02030700
       HRC028DK: SHUTFLGS EQU   WARM+COLD+CKPT+FORCE+OTHERFLG+SHUTDOWN          HRC028DK 02030770
       HRC028DK:          SPACE 2 ,                                             HRC028DK 02030840
       HRC028DK: ./ R 02033000 02037000 $ 2033690 690                  02/25/06 12:24:01
       HRC028DK:          DC    CL8'CKPT',AL1(CKPT,WARM+COLD+CKPT+FORCE),H'3'   HRC028DK 02033690
       HRC028DK:          DC    CL8'FORCE',AL1(FORCE,WARM+COLD+CKPT+FORCE),H'0' HRC028DK 02034380
       HRC028DK:          DC    CL8'SHUTDOWN',AL1(SHUTDOWN,SHUTFLGS),H'7'       HRC028DK 02035070
       HRC028DK: WSKYFLG2 DC    CL8'NOAUTOLO',AL1(NOAUTOLG,NOAUTOLG),H'5'       HRC028DK 02035760
       HRC028DK:          DC    CL8'DISABLE ',AL1(DISABLE,DISABLE),H'1'         HRC028DK 02036450
       HRC028DK: WSKYTABE DC    CL8'DRAIN   ',AL1(DRAIN,DRAIN),H'1'             HRC028DK 02037140
       HRC028DK: ./ D 02098000 02110000                                02/25/06 12:24:01
       HRC028DK: ./ R 02113000          $ 2113490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C'DMKCPI185E CP Assist level '                  HRC028DK 02113490
       HRC028DK: ./ R 02115100          $ 2115990 890                  02/25/06 12:24:01
       HRC028DK:          DC    C' not supported - CP Assist disabled'          HRC028DK 02115990
       HRC028DK: ./ R 02121000          $ 2121490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C'DMKCPI951I CP VOLID '                         HRC028DK 02121490
       HRC028DK: ./ R 02123000          $ 2123490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C' not mounted'                                 HRC028DK 02123490
       HRC028DK: ./ R 02130000          $ 2130490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C'K System Storage'                             HRC028DK 02130490
       HRC028DK: ./ D 02134000 02137000                                02/25/06 12:24:01
       HRC028DK: ./ R 02140000 02141000 $ 2140590 590                  02/25/06 12:24:01
       HRC028DK:          DC    C'VM/370 Version '                              HRC028DK 02140590
       HRC028DK: CPIVER   DC    C'   Level '   VERSION NO FROM DMKCPEID         HRC028DK 02141180
       HRC028DK: ./ R 02151000 02164000 $ 2151690 690                  02/25/06 12:24:01
       HRC028DK: ALOCMSG  EQU   *                                               HRC028DK 02151690
       HRC028DK:          DC    X'15'                                           HRC028DK 02152380
       HRC028DK:          DC    C'DMKCPI957I Storage size = '                   HRC028DK 02153070
       HRC028DK: ALOCSTOR DC    C'     '                                        HRC028DK 02153760
       HRC028DK:          DC    C' K,   Nucleus = '                             HRC028DK 02154450
       HRC028DK: ALOCNUC  DC    C'   '                                          HRC028DK 02155140
       HRC028DK:          DC    C' K,',X'15'                                    HRC028DK 02155830
       HRC028DK:          DC    C'           Dynamic Paging = '                 HRC028DK 02156520
       HRC028DK: ALOCDYN  DC    C'     '                                        HRC028DK 02157210
       HRC028DK:          DC    C' K, Trace Table = '                           HRC028DK 02157900
       HRC028DK: ALOCTRA  DC    C'   '                                          HRC028DK 02158590
       HRC028DK:          DC    C' K,',X'15'                                    HRC028DK 02159280
       HRC028DK:          DC    C'           Free Storage = '                   HRC028DK 02159970
       HRC028DK: ALOCFREE DC    C'    '                                         HRC028DK 02160660
       HRC028DK:          DC    C' K,    Virtual=Real = '                       HRC028DK 02161350
       HRC028DK: ALOCVR   DC    C'     '                                        HRC028DK 02162040
       HRC028DK:          DC    C' K'                                           HRC028DK 02162730
       HRC028DK:          DC    X'15'                                           HRC028DK 02163420
       HRC028DK: ALOCMSGL EQU   *-ALOCMSG                                       HRC028DK 02164110
       HRC028DK: ./ D 02176000 02205000                                02/25/06 12:24:01
       HRC028DK: ./ R 02212000          $ 2212490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C' not mounted; duplicate of DASD '             HRC028DK 02212490
       HRC028DK: ./ R 02217000          $ 2217290 290                  02/25/06 12:24:01
       HRC028DK: SETMSG   DC    C'Press "TOD ENABLE SET" key at designated'     HRC028DK 02217290
       HRC028DK:          DC    C' instant'                                     HRC028DK 02217580
       HRC028DK: ./ R 02220000          $ 2220490 490                  02/25/06 12:24:01
       HRC028DK: CHNGMSG  DC    C'Change TOD Clock (Yes|No) :'                  HRC028DK 02220490
       HRC028DK: ./ R 02223000          $ 2223290 290                  02/25/06 12:24:01
       HRC028DK: OPLGMSG  DC    C'DMKCPI950A Auto LOGON failed; explicit LOGON' HRC028DK 02223290
       HRC028DK:          DC    C' reguired'                                    HRC028DK 02223580
       HRC028DK: ./ R 02226000          $ 2226490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C'DMKCPI913I CP owned VOLID '                   HRC028DK 02226490
       HRC028DK: ./ R 02228000          $ 2228490 490                  02/25/06 12:24:01
       HRC028DK:          DC    C' invalid for 3330V'                           HRC028DK 02228490
       HRC028DK: ./ R 02280000 02281000 $ 2280590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(WNGMSGL) GET LENGTH OF RESTART MESSAGE    HRC028DK 02280590
       HRC028DK:          L     R1,=A(WNGMSG)  GET PTR TO RESTART MESSAGE       HRC028DK 02281180
       HRC028DK: ./ R 02308000 02309000 $ 2308590 590                  02/25/06 12:24:01
       HRC028DK: GETDATE  L     R0,=A(DATEMSGL) GET LENGTH OF DATE MESSAGE      HRC028DK 02308590
       HRC028DK:          L     R1,=A(DATEMSG)  GET PTR TO DATE MESSAGE         HRC028DK 02309180
       HRC028DK: ./ R 02349000 02350000 $ 2349590 590                  02/25/06 12:24:01
       HRC028DK: GETCLOCK L     R0,=A(CMSGL)   GET LENGTH OF CLOCK MESSAGE      HRC028DK 02349590
       HRC028DK:          L     R1,=A(CMSG)    GET PTR TO CLOCK MESSAGE         HRC028DK 02350180
       HRC028DK: ./ I 02677000          $ 2677200 200                  02/25/06 12:24:01
       HRC028DK:          LA    R0,MSG971L     GET MESSAGE LENGTH               HRC028DK 02677200
       HRC028DK:          L     R1,=A(MSG971)  POINT TO MESSAGE                 HRC028DK 02677400
       HRC028DK:          CALL  DMKQCNWT,PARM=NORET+NOTIME                      HRC028DK 02677600
       HRC028DK: ./ R 02796000 02797000 $ 2796590 590                  02/25/06 12:24:01
       HRC028DK:          L     R1,=A(TMSGMP)  GET MSG PTR.                     HRC028DK 02796590
       HRC028DK:          L     R0,=A(TMSGMPL) GET MSG LENGTH.                  HRC028DK 02797180
       HRC028DK: ./ R 02801000 02802000 $ 2801590 590                  02/25/06 12:24:01
       HRC028DK:          L     R1,=A(TMSG)    GET MESSAGE PTR                  HRC028DK 02801590
       HRC028DK:          L     R0,=A(TMSGL)   GET MESSAGE LENGTH               HRC028DK 02802180
       HRC028DK: ./ R 02837000 02839000 $ 2837690 690                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(AWARML)  GET MESSAGE LENGTH               HRC028DK 02837690
       HRC028DK:          L     R1,=A(AWARM)   GET MESSAGE PTR                  HRC028DK 02838380
       HRC028DK:          CALL  DMKQCNWT,PARM=NORET+NOAUTO+NOTIME               HRC028DK 02839070
       HRC028DK: ./ R 02848000          $ 2848290 290                  02/25/06 12:24:01
       HRC028DK:          MVI   WARMFLAG,X'00' CLEAR FLAG BYTE                  HRC028DK 02848290
       HRC028DK:          MVI   WARMCOLD,X'00' CLEAR FLAG BYTE                  HRC028DK 02848580
       HRC028DK: ./ R 02871000          $ 2871190 190                  02/25/06 12:24:01
       HRC028DK:          BL    RETRY          ...                              HRC028DK 02871190
       HRC028DK:          LA    R6,WSKYFLG2    GET THE ADDR OF FLG2 OPTIONS     HRC028DK 02871380
       HRC028DK:          CR    R7,R6          IS THE A FLG2 OPTION?            HRC028DK 02871570
       HRC028DK:          BNL   KEY2FND        YES, CONTINUE                    HRC028DK 02871760
       HRC028DK: ./ I 02876000          $ 2876500 500                  02/25/06 12:24:01
       HRC028DK: KEYCONT  EQU   *                                               HRC028DK 02876500
       HRC028DK: ./ I 02878000          $ 2878100 100                  02/25/06 12:24:01
       HRC028DK: KEY2FND  EQU   *                                               HRC028DK 02878100
       HRC028DK:          OI    WARMCOLD,OTHERFLG TURN ON THE OTHER FLG         HRC028DK 02878200
       HRC028DK:          IC    R6,8(,R7)      GET FLAG BYTE                    HRC028DK 02878300
       HRC028DK:          EX    R6,KEYSET2     SET IT ON                        HRC028DK 02878400
       HRC028DK:          B     KEYCONT        CONTINUE PROCESSING              HRC028DK 02878500
       HRC028DK: ./ R 02883000 02884000 $ 2883590 590                  02/25/06 12:24:01
       HRC028DK: AUTOWRM  SLR   R2,R2               PASS WARM FLAGS TO          HRC028DK 02883590
       HRC028DK:          ICM   R2,B'0011',WARMFLAG DMKWRMST                    HRC028DK 02884180
       HRC028DK: ./ R 02917000 02918000 $ 2917590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(DUMPMSGL) GET MESSAGE LENGTH              HRC028DK 02917590
       HRC028DK:          L     R1,=A(DUMPMSG)     GET MESSAGE PTR              HRC028DK 02918180
       HRC028DK: ./ R 03262000          $ 3262490 490                  02/25/06 12:24:01
       HRC028DK:          TM    WARMFLAG,DRAIN "DRAIN" SPECIFIED ?              HRC028DK 03262490
       HRC028DK: ./ R 03340000 03341000 $ 3340590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(CPI959LN) GET LENGTH OF MESSAGE           HRC028DK 03340590
       HRC028DK:          L     R1,=A(CPI959MG) GET POINTER TO MESSAGE          HRC028DK 03341180
       HRC028DK: ./ R 03357000 03358000 $ 3357590 590                  02/25/06 12:24:01
       HRC028DK:          L     R0,=A(CPI958LN) SET LENGTH OF MSG               HRC028DK 03357590
       HRC028DK:          L     R1,=A(CPI958MG) SET ADDRESS OF MSG              HRC028DK 03358180
       HRC028DK: ./ R 03369000 03370000 $ 3369590 590                  02/25/06 12:24:01
       HRC028DK:          TM    WARMFLAG,DISABLE WAS DISABLE REQUESTED ?        HRC028DK 03369590
       HRC028DK:          BO    CPIDSP         YES, CONTINUE                    HRC028DK 03370180
       HRC028DK: ./ R 03405000          $ 3405490 490                  02/25/06 12:24:01
       HRC028DK:          L     R1,=A(UBADMSG)                                  HRC028DK 03405490
       HRC028DK: ./ I 03412600          $ 3412700 100                  02/25/06 12:24:01
       HRC028DK:          TM    WARMFLAG,NOAUTOLG WAS NOAUTOLOG REQUESTED?      HRC028DK 03412700
       HRC028DK:          BO    CPIUNCK        YES, CONTINUE                    HRC028DK 03412800
       HRC028DK: ./ R 03420190          $ 3420270 80                   02/25/06 12:24:01
       HRC028DK:          BNZ   NOAUTOL        NO, BYPASS LOGON                 HRC028DK 03420270
       HRC028DK: ./ R 03420570          $ 3420760 190                  02/25/06 12:24:01
       HRC028DK:          BNE   NOAUTOL        NO, BYPASS LOGON                 HRC028DK 03420760
       HRC028DK: ./ R 03423200          $ 3423290 90                   02/25/06 12:24:01
       HRC028DK: NOAUTOL  EQU   *                                               HRC028DK 03423290
       HRC028DK: ./ I 03425000          $ 3425200 200                  02/25/06 12:24:01
       HRC028DK:          LA    R0,INITMSGL    GET MESSAGE LENGTH               HRC028DK 03425200
       HRC028DK:          L     R1,=A(INITMSG) POINT TO MESSAGE                 HRC028DK 03425400
       HRC028DK:          CALL  DMKQCNWT,PARM=NORET+NOTIME                      HRC028DK 03425600
       HRC028DK: ./ D 03435000 03437000                                02/25/06 12:24:01
       HRC028DK: ./ D 03457000                                         02/25/06 12:24:01
       HRC028DK: ./ R 03459000          $ 3459010 10                   02/25/06 12:24:01
       HRC028DK:          EJECT                                                 HRC028DK 03459010
       HRC028DK: INITMSG  EQU   *                                               HRC028DK 03459020
       HRC028DK:          DC    X'15'                                           HRC028DK 03459030
       HRC028DK:          DC    C'DMKCPI966I Initialization complete'           HRC028DK 03459040
       HRC028DK:          DC    X'15'                                           HRC028DK 03459050
       HRC028DK: INITMSGL EQU   *-INITMSG                                       HRC028DK 03459060
       HRC028DK:          SPACE 3                                               HRC028DK 03459070
       HRC028DK: MSG971   EQU   *                                               HRC028DK 03459080
       HRC028DK:          DC    X'15'                                           HRC028DK 03459090
       HRC028DK:          DC    C'DMKCPI971I System is '                        HRC028DK 03459100
       HRC028DK:          AIF   (NOT &AP).UP971                                 HRC028DK 03459110
       HRC028DK:          DC    C'Attached '                                    HRC028DK 03459120
       HRC028DK:          AGO   .MSG971                                         HRC028DK 03459130
       HRC028DK: .UP971   ANOP                                                  HRC028DK 03459140
       HRC028DK:          DC    C'Uni'                                          HRC028DK 03459150
       HRC028DK: .MSG971  ANOP                                                  HRC028DK 03459160
       HRC028DK:          DC    C'processor generated'                          HRC028DK 03459170
       HRC028DK:          DC    X'15'                                           HRC028DK 03459180
       HRC028DK: MSG971L  EQU   *-MSG971                                        HRC028DK 03459190
       HRC028DK:          SPACE 3                                               HRC028DK 03459200
       HRC028DK: UBADMSG  DC    C'DMKCPI229I User of MONITOR does not exist'    HRC028DK 03459210
       HRC028DK: CPI958MG DC    X'151515'                                       HRC028DK 03459220
       HRC028DK:          DC    C'DMKCPI958I Attached processor'                HRC028DK 03459230
       HRC028DK:          DC    C' now operational'                             HRC028DK 03459240
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459250
       HRC028DK: CPI958LN EQU   *-CPI958MG                                      HRC028DK 03459260
       HRC028DK: CPI959MG DC    X'151515'                                       HRC028DK 03459270
       HRC028DK:          DC    C'DMKCPI959W Attached processor not online'     HRC028DK 03459280
       HRC028DK:          DC    X'151515'                                       HRC028DK 03459290
       HRC028DK: CPI959LN EQU   *-CPI959MG                                      HRC028DK 03459300
       HRC028DK: TMSGMP   DC    X'151515'                                       HRC028DK 03459310
       HRC028DK:          DC    C'Turn on the MAIN processor''s Interval Timer' HRC028DK 03459320
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459330
       HRC028DK: TMSGMPL  EQU   *-TMSGMP                                        HRC028DK 03459340
       HRC028DK: CPI955MG DC    X'151515'                                       HRC028DK 03459350
       HRC028DK:          DC    C'DMKCPI955W Insufficient storage for VM/370'   HRC028DK 03459360
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459370
       HRC028DK: CPI955LN EQU   *-CPI955MG                                      HRC028DK 03459380
       HRC028DK: WNGMSG   DC    X'151515'                                       HRC028DK 03459390
       HRC028DK:          DC    C'VM/370 System Restart'                        HRC028DK 03459400
       HRC028DK: WNGMSGL  EQU   *-WNGMSG                                        HRC028DK 03459410
       HRC028DK:          SPACE ,                                               HRC028DK 03459420
       HRC028DK: TMSG     DC    C'Turn on the Interval Timer'                   HRC028DK 03459430
       HRC028DK: TMSGL    EQU   *-TMSG                                          HRC028DK 03459440
       HRC028DK:          SPACE ,                                               HRC028DK 03459450
       HRC028DK: AWARM    DC    C'Start ((Warm|Force|COLD|CKPT) '               HRC028DK 03459460
       HRC028DK:          DC    C'(DRain) (DIsable) (NOAUTOlo))'                HRC028DK 03459470
       HRC028DK:          DC    C' or (SHUTDOWN):'                              HRC028DK 03459480
       HRC028DK: AWARML   EQU   *-AWARM                                         HRC028DK 03459490
       HRC028DK:          SPACE ,                                               HRC028DK 03459500
       HRC028DK: DATEMSG  DC    C'Set Date MM/DD/YY :'                          HRC028DK 03459510
       HRC028DK: DATEMSGL EQU   *-DATEMSG                                       HRC028DK 03459520
       HRC028DK:          SPACE ,                                               HRC028DK 03459530
       HRC028DK: CMSG     DC    C'Set Time HH:MM:SS :'                          HRC028DK 03459540
       HRC028DK: CMSGL    EQU   *-CMSG                                          HRC028DK 03459550
       HRC028DK:          SPACE ,                                               HRC028DK 03459560
       HRC028DK: SHUTM1   DC    X'151515'                                       HRC028DK 03459570
       HRC028DK:          DC    C'DMKCPI968I No Warm Start, previous data'      HRC028DK 03459580
       HRC028DK:          DC    C' still valid'                                 HRC028DK 03459590
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459600
       HRC028DK: SHUTM1L  EQU   *-SHUTM1                                        HRC028DK 03459610
       HRC028DK:          SPACE ,                                               HRC028DK 03459620
       HRC028DK: SHUTM2   DC    C'DMKCPI961W SYSTEM SHUTDOWN COMPLETE'          HRC028DK 03459630
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459640
       HRC028DK: SHUTM2L  EQU   *-SHUTM2                                        HRC028DK 03459650
       HRC028DK:          SPACE ,                                               HRC028DK 03459660
       HRC028DK: DUMPMSG  DC    X'151515'                                       HRC028DK 03459670
       HRC028DK:          DC    C'DMKCPI953I Unable to allocate'                HRC028DK 03459680
       HRC028DK:          DC    C' SYSTEM AUTO DUMP'                            HRC028DK 03459690
       HRC028DK:          DC    X'1515'                                         HRC028DK 03459700
       HRC028DK: DUMPMSGL EQU   *-DUMPMSG                                       HRC028DK 03459710
       HRC028DK: ./ D 03469000 03475000                                02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 00321000          $ 321090 90                    02/25/06 12:24:01
   END APPLY >>> ./ R 00321000          $ 321090 90                    02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 01781000 01782000 $ 1781590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 01781000 01782000 $ 1781590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 01784000 01785000 $ 1784590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 01784000 01785000 $ 1784590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 01795000 01796000 $ 1795590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 01795000 01796000 $ 1795590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 01978000          $ 1978200 200                  02/25/06 12:24:01
   END APPLY >>> ./ I 01978000          $ 1978200 200                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 02028000          $ 2028500 500                  02/25/06 12:24:01
   END APPLY >>> ./ I 02028000          $ 2028500 500                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 02030000          $ 2030070 70                   02/25/06 12:24:01
   END APPLY >>> ./ I 02030000          $ 2030070 70                   02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02033000 02037000 $ 2033690 690                  02/25/06 12:24:01
   END APPLY >>> ./ R 02033000 02037000 $ 2033690 690                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 02098000 02110000                                02/25/06 12:24:01
   END APPLY >>> ./ D 02098000 02110000                                02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02113000          $ 2113490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02113000          $ 2113490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02115100          $ 2115990 890                  02/25/06 12:24:01
   END APPLY >>> ./ R 02115100          $ 2115990 890                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02121000          $ 2121490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02121000          $ 2121490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02123000          $ 2123490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02123000          $ 2123490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02130000          $ 2130490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02130000          $ 2130490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 02134000 02137000                                02/25/06 12:24:01
   END APPLY >>> ./ D 02134000 02137000                                02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02140000 02141000 $ 2140590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02140000 02141000 $ 2140590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02151000 02164000 $ 2151690 690                  02/25/06 12:24:01
   END APPLY >>> ./ R 02151000 02164000 $ 2151690 690                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 02176000 02205000                                02/25/06 12:24:01
   END APPLY >>> ./ D 02176000 02205000                                02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02212000          $ 2212490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02212000          $ 2212490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02217000          $ 2217290 290                  02/25/06 12:24:01
   END APPLY >>> ./ R 02217000          $ 2217290 290                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02220000          $ 2220490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02220000          $ 2220490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02223000          $ 2223290 290                  02/25/06 12:24:01
   END APPLY >>> ./ R 02223000          $ 2223290 290                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02226000          $ 2226490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02226000          $ 2226490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02228000          $ 2228490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 02228000          $ 2228490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02280000 02281000 $ 2280590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02280000 02281000 $ 2280590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02308000 02309000 $ 2308590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02308000 02309000 $ 2308590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02349000 02350000 $ 2349590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02349000 02350000 $ 2349590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 02677000          $ 2677200 200                  02/25/06 12:24:01
   END APPLY >>> ./ I 02677000          $ 2677200 200                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02796000 02797000 $ 2796590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02796000 02797000 $ 2796590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02801000 02802000 $ 2801590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02801000 02802000 $ 2801590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02837000 02839000 $ 2837690 690                  02/25/06 12:24:01
   END APPLY >>> ./ R 02837000 02839000 $ 2837690 690                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02848000          $ 2848290 290                  02/25/06 12:24:01
   END APPLY >>> ./ R 02848000          $ 2848290 290                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02871000          $ 2871190 190                  02/25/06 12:24:01
   END APPLY >>> ./ R 02871000          $ 2871190 190                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 02876000          $ 2876500 500                  02/25/06 12:24:01
   END APPLY >>> ./ I 02876000          $ 2876500 500                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 02878000          $ 2878100 100                  02/25/06 12:24:01
   END APPLY >>> ./ I 02878000          $ 2878100 100                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02883000 02884000 $ 2883590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02883000 02884000 $ 2883590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 02917000 02918000 $ 2917590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 02917000 02918000 $ 2917590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03262000          $ 3262490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 03262000          $ 3262490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03340000 03341000 $ 3340590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 03340000 03341000 $ 3340590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03357000 03358000 $ 3357590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 03357000 03358000 $ 3357590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03369000 03370000 $ 3369590 590                  02/25/06 12:24:01
   END APPLY >>> ./ R 03369000 03370000 $ 3369590 590                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03405000          $ 3405490 490                  02/25/06 12:24:01
   END APPLY >>> ./ R 03405000          $ 3405490 490                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 03412600          $ 3412700 100                  02/25/06 12:24:01
   END APPLY >>> ./ I 03412600          $ 3412700 100                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03420190          $ 3420270 80                   02/25/06 12:24:01
   END APPLY >>> ./ R 03420190          $ 3420270 80                   02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03420570          $ 3420760 190                  02/25/06 12:24:01
   END APPLY >>> ./ R 03420570          $ 3420760 190                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03423200          $ 3423290 90                   02/25/06 12:24:01
   END APPLY >>> ./ R 03423200          $ 3423290 90                   02/25/06 12:24:01
 BEGIN APPLY >>> ./ I 03425000          $ 3425200 200                  02/25/06 12:24:01
   END APPLY >>> ./ I 03425000          $ 3425200 200                  02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 03435000 03437000                                02/25/06 12:24:01
   END APPLY >>> ./ D 03435000 03437000                                02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 03457000                                         02/25/06 12:24:01
   END APPLY >>> ./ D 03457000                                         02/25/06 12:24:01
 BEGIN APPLY >>> ./ R 03459000          $ 3459010 10                   02/25/06 12:24:01
   END APPLY >>> ./ R 03459000          $ 3459010 10                   02/25/06 12:24:01
 BEGIN APPLY >>> ./ D 03469000 03475000                                02/25/06 12:24:01
   END APPLY >>> ./ D 03469000 03475000                                02/25/06 12:24:01
Update Succeeded
Update Execution Time 164 milliseconds.

HRC032DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC032DK: ./ R 02888000 02889000 $ 2888490 490                  02/20/06 10:38:00
       HRC032DK:          B     COLDFRCD       RC=4, FORCED COLD START          HRC032DK 02888490
       HRC032DK:          B     RETRY          RC=8  REASK QUESTION             HRC032DK 02888980
       HRC032DK: COLDFRCD OI    WARMCOLD,COLD       INDICATE FORCE COLD START BYHRC032DK 02889470
 BEGIN APPLY >>> ./ R 02888000 02889000 $ 2888490 490                  02/20/06 10:38:00
   END APPLY >>> ./ R 02888000 02889000 $ 2888490 490                  02/20/06 10:38:00
Update Succeeded
Update Execution Time 39 milliseconds.

HRC033DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC033DK: ./ I 00139000          $ 139300 300                   02/20/06 14:20:19
       HRC033DK: *        DMKSYSUS - ADDRESS OF USER VOLUME LIST                HRC033DK 00139300
       HRC033DK: *        DMKSYSUC - ADDRESS OF USER VOLUME COUNT               HRC033DK 00139600
       HRC033DK: ./ I 00347000          $ 347500 500                   02/20/06 14:20:19
       HRC033DK:          EXTRN DMKSYSUS,DMKSYSUC                               HRC033DK 00347500
       HRC033DK: ./ R 01192000          $ 1192490 490                  02/20/06 14:20:19
       HRC033DK:          BNE   CPIUSRA        NO -- CHECK FOR USER VOLUME      HRC033DK 01192000
       HRC033DK: ./ I 01253000          $ 1253100 100                  02/20/06 14:20:19
       HRC033DK: CPIUSRA  L     R11,=A(DMKSYSUS)    GET PTR TO USER LIST        HRC033DK 01253100
       HRC033DK:          USING OWNDLIST,R11                                    HRC033DK 01253200
       HRC033DK:          L     R14,=A(DMKSYSUC)    GET PTR TO USER VOLUME COUNTHRC033DK 01253300
       HRC033DK:          L     R14,0(,R14)    ...                              HRC033DK 01253400
       HRC033DK: CPIUSR   CLC   OWNDVSER,RDEVSER    IS THIS AN USER VOLUME ??   HRC033DK 01253500
       HRC033DK:          BE    CPIUSRCH       FOUND ONE IF EQUAL, PROCESS      HRC033DK 01253600
       HRC033DK:          LA    R11,8(,R11)    GET NEXT ENTRY                   HRC033DK 01253700
       HRC033DK:          BCT   R14,CPIUSR                                      HRC033DK 01253800
       HRC033DK: ./ R 01255000          $ 1255070 70                   02/20/06 14:20:19
       HRC033DK: CPIUSRCH EQU   *                                               HRC033DK 01255070
       HRC033DK:          LR    R15,R8         GET RDEVBLOK                     HRC033DK 01255140
       HRC033DK:          S     R15,ARIODV     GET DISPLACEMENT                 HRC033DK 01255210
       HRC033DK:          SRL   R15,3(0)       CONVERT TO DOUBLE-WORD INDEX     HRC033DK 01255280
       HRC033DK:          STH   R15,OWNDRDEV   SET IN USRVLIST                  HRC033DK 01255350
       HRC033DK:          OI    RDEVFLAG,RDEVSYS MARK AS A SYSTEM VOL           HRC033DK 01255420
       HRC033DK:          S     R11,=A(DMKSYSUS) GET DISPLACEMENT FROM START    HRC033DK 01255490
       HRC033DK:          SRL   R11,3          OF LIST/LENGTH OF LIST ENTRY     HRC033DK 01255560
       HRC033DK:          STH   R11,RDEVCODE   SAVE INDEX IN RDEVBLOK           HRC033DK 01255630
       HRC033DK:          B     CPIDEVEN       FINISHED                         HRC033DK 01255700
       HRC033DK: CPICHAIN EQU   *                                               HRC033DK 01255770
 BEGIN APPLY >>> ./ I 00139000          $ 139300 300                   02/20/06 14:20:19
   END APPLY >>> ./ I 00139000          $ 139300 300                   02/20/06 14:20:19
 BEGIN APPLY >>> ./ I 00347000          $ 347500 500                   02/20/06 14:20:19
   END APPLY >>> ./ I 00347000          $ 347500 500                   02/20/06 14:20:19
 BEGIN APPLY >>> ./ R 01192000          $ 1192490 490                  02/20/06 14:20:19
   END APPLY >>> ./ R 01192000          $ 1192490 490                  02/20/06 14:20:19
 BEGIN APPLY >>> ./ I 01253000          $ 1253100 100                  02/20/06 14:20:19
   END APPLY >>> ./ I 01253000          $ 1253100 100                  02/20/06 14:20:19
 BEGIN APPLY >>> ./ R 01255000          $ 1255070 70                   02/20/06 14:20:19
   END APPLY >>> ./ R 01255000          $ 1255070 70                   02/20/06 14:20:19
Update Succeeded
Update Execution Time 63 milliseconds.

HRC035DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC035DK: ./ I 00627000          $ 627050 50                    03/01/06 11:47:01
       HRC035DK:          AIF   (NOT &FRETRAP).NOFTRAP                          HRC035DK 00627050
       HRC035DK:          SPACE ,                                               HRC035DK 00627100
       HRC035DK: *--------------------------------------------------------------HRC035DK 00627150
       HRC035DK: *   REPLACE CP ASSIST INSTRUCTIONS DSP1, DSP2, UNTFR, FREEX ANDHRC035DK 00627200
       HRC035DK: *   FRETX WITH NO-OPS.                                         HRC035DK 00627250
       HRC035DK: *--------------------------------------------------------------HRC035DK 00627300
       HRC035DK:          SPACE ,                                               HRC035DK 00627350
       HRC035DK:          L     R6,CPATDSP1    GET CP ASSIST INSTRUCTION DSP1   HRC035DK 00627400
       HRC035DK:          MVC   0(6,R6),NOOP   NO-OP THE MICROCODE INSTRUCTION  HRC035DK 00627450
       HRC035DK:          L     R6,CPATDSP2    GET CP ASSIST INSTRUCTION DSP2   HRC035DK 00627500
       HRC035DK:          MVC   0(6,R6),NOOP   NO-OP THE MICROCODE INSTRUCTION  HRC035DK 00627550
       HRC035DK:          L     R6,CPATUNTF    GET CP ASSIST INSTRUCTION UNTFR  HRC035DK 00627600
       HRC035DK:          MVC   0(6,R6),NOOP   NO-OP THE MICROCODE INSTRUCTION  HRC035DK 00627650
       HRC035DK:          L     R6,CPATFREE    GET CP ASSIST INSTRUCTION FREEX  HRC035DK 00627700
       HRC035DK:          MVC   0(6,R6),NOOP   NO-OP THE MICROCODE INSTRUCTION  HRC035DK 00627750
       HRC035DK:          L     R6,CPATFRET    GET CP ASSIST INSTRUCTION FRETX  HRC035DK 00627800
       HRC035DK:          MVC   0(6,R6),NOOP   NO-OP THE MICROCODE INSTRUCTION  HRC035DK 00627850
       HRC035DK: .NOFTRAP ANOP                                                  HRC035DK 00627900
       HRC035DK: ./ I 01987000          $ 1988000 1000                 03/01/06 11:47:01
       HRC035DK: NOOP     DC    X'0700,47000000'  NO-OP FOR MICROCODE ASSISTS   HRC035DK 01988000
       HRC035DK: ./ R 01996000          $ 1996490 490                  03/01/06 11:47:01
       HRC035DK: CPATUNTF DC    V(DMKUNTFR)    E605                             HRC035DK 01996490
       HRC035DK: ./ R 01998000          $ 1998490 490                  03/01/06 11:47:01
       HRC035DK: CPATDSP1 DC    V(DMKDSP1)     E607                             HRC035DK 01998490
       HRC035DK: ./ R 02019000          $ 2019490 490                  03/01/06 11:47:01
       HRC035DK: CPATDSP2 DC    V(DMKDSP2)     E611                             HRC035DK 02019490
       HRC035DK: ./ I 03459180          $ 3459182 2                    03/01/06 11:47:01
       HRC035DK:          AIF   (NOT &FRETRAP).FRE971                           HRC035DK
       HRC035DK:          DC    C'DMKCPI977I Free Trap Installed',X'15'
       HRC035DK: .FRE971  ANOP                                                  HRC035DK 03459140
 BEGIN APPLY >>> ./ I 00627000          $ 627050 50                    03/01/06 11:47:01
   END APPLY >>> ./ I 00627000          $ 627050 50                    03/01/06 11:47:01
 BEGIN APPLY >>> ./ I 01987000          $ 1988000 1000                 03/01/06 11:47:01
   END APPLY >>> ./ I 01987000          $ 1988000 1000                 03/01/06 11:47:01
 BEGIN APPLY >>> ./ R 01996000          $ 1996490 490                  03/01/06 11:47:01
   END APPLY >>> ./ R 01996000          $ 1996490 490                  03/01/06 11:47:01
 BEGIN APPLY >>> ./ R 01998000          $ 1998490 490                  03/01/06 11:47:01
   END APPLY >>> ./ R 01998000          $ 1998490 490                  03/01/06 11:47:01
 BEGIN APPLY >>> ./ R 02019000          $ 2019490 490                  03/01/06 11:47:01
   END APPLY >>> ./ R 02019000          $ 2019490 490                  03/01/06 11:47:01
 BEGIN APPLY >>> ./ I 03459180          $ 3459182 2                    03/01/06 11:47:01
   END APPLY >>> ./ I 03459180          $ 3459182 2                    03/01/06 11:47:01
Update Succeeded
Update Execution Time 55 milliseconds.

HRC036DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC036DK: ./ I 00347500          $ 347700 200                   02/25/06 12:35:27
       HRC036DK:          EXTRN DMKSYSIP                                        HRC036DK 00347700
       HRC036DK: ./ I 02604000          $ 2604100 100                  02/25/06 12:35:27
       HRC036DK:          L     R1,=A(DMKSYSIP) AUTO IPL ?                      HRC036DK 02604100
       HRC036DK:          LTR   R1,R1                                           HRC036DK 02604200
       HRC036DK:          BZ    GETCHNG2                                        HRC036DK 02604300
       HRC036DK:          TM    0(R1),CPWARM+CPCKPT+CPFORCE+CPCOLD AUTO IPL?    HRC036DK 02604400
       HRC036DK:          BM    NOTCHNG        YES, DON'T ASK                   HRC036DK 02604500
       HRC036DK:                                                        SPACE , HRC036DK 02604600
       HRC036DK: GETCHNG2 EQU   *                                               HRC036DK 02604700
       HRC036DK: ./ I 02831000          $ 2831500 500                  02/25/06 12:35:27
       HRC036DK:          MVI   WARMFLAG,X'00' CLEAR FLAG BYTE                  HRC036DK 02831500
       HRC036DK: ./ I 02834000          $ 2834100 100                  02/25/06 12:35:27
       HRC036DK:          L     R15,=A(DMKSYSIP)    GET INITIAL START TYPE      HRC036DK 02834100
       HRC036DK:          LTR   R15,R15        IS IT SPECIFIED ?                HRC036DK 02834200
       HRC036DK:          BZ    RETRY          NO, CONTINUE                     HRC036DK 02834300
       HRC036DK:          TM    0(R15),CPWARM+CPCKPT+CPFORCE+CPCOLD AUTO IPL?   HRC036DK 02834400
       HRC036DK:          BNM   RETRY          NO, CONTINUE                     HRC036DK 02834500
       HRC036DK:          MVC   WARMCOLD,0(R15) MOVE TO STARTUP FLAG            HRC036DK 02834600
       HRC036DK:          MVI   0(R15),0       RESET FLAG                       HRC036DK 02834700
       HRC036DK:          B     AUTOWRM                                         HRC036DK 02834800
       HRC036DK: ./ I 02836000          $ 2836500 500                  02/25/06 12:35:27
       HRC036DK:          MVI   WARMFLAG,X'00' CLEAR FLAG BYTE                  HRC036DK 02836500
       HRC036DK:          MVI   WARMCOLD,X'00' CLEAR FLAG BYTE                  HRC036DK 02837000
       HRC036DK: ./ D 02848290 02848580                                02/25/06 12:35:27
       HRC036DK: ./ I 03495000          $ 3495200 200                  02/25/06 12:35:27
       HRC036DK: CPCOLD   EQU   X'01'                                           HRC036DK 03495200
       HRC036DK: CPWARM   EQU   X'02'                                           HRC036DK 03495400
       HRC036DK: CPCKPT   EQU   X'20'                                           HRC036DK 03495600
       HRC036DK: CPFORCE  EQU   X'40'                                           HRC036DK 03495800
 BEGIN APPLY >>> ./ I 00347500          $ 347700 200                   02/25/06 12:35:27
   END APPLY >>> ./ I 00347500          $ 347700 200                   02/25/06 12:35:27
 BEGIN APPLY >>> ./ I 02604000          $ 2604100 100                  02/25/06 12:35:27
   END APPLY >>> ./ I 02604000          $ 2604100 100                  02/25/06 12:35:27
 BEGIN APPLY >>> ./ I 02831000          $ 2831500 500                  02/25/06 12:35:27
   END APPLY >>> ./ I 02831000          $ 2831500 500                  02/25/06 12:35:27
 BEGIN APPLY >>> ./ I 02834000          $ 2834100 100                  02/25/06 12:35:27
   END APPLY >>> ./ I 02834000          $ 2834100 100                  02/25/06 12:35:27
 BEGIN APPLY >>> ./ I 02836000          $ 2836500 500                  02/25/06 12:35:27
   END APPLY >>> ./ I 02836000          $ 2836500 500                  02/25/06 12:35:27
 BEGIN APPLY >>> ./ D 02848290 02848580                                02/25/06 12:35:27
   END APPLY >>> ./ D 02848290 02848580                                02/25/06 12:35:27
 BEGIN APPLY >>> ./ I 03495000          $ 3495200 200                  02/25/06 12:35:27
   END APPLY >>> ./ I 03495000          $ 3495200 200                  02/25/06 12:35:27
Update Succeeded
Update Execution Time 47 milliseconds.

HRC201DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC201DK: ./ I 01695000          $ 1695300 300                  03/30/06 20:03:04
       HRC201DK:          L     R8,=A(DMKRIOCN)                                 HRC201DK
       HRC201DK:          MVC   0(4,R8),0(R10) SET AS THE PRIMARY               HRC201DK
 BEGIN APPLY >>> ./ I 01695000          $ 1695300 300                  03/30/06 20:03:04
   END APPLY >>> ./ I 01695000          $ 1695300 300                  03/30/06 20:03:04
Update Succeeded
Update Execution Time 31 milliseconds.

HRC202DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC202DK: ./ R 02112000          $ 2112690 690                  03/30/06 21:43:02
       HRC202DK: CPAMSG   DC    X'15'                                           HRC202DK 02112000
       HRC202DK: ./ R 02117000          $ 2117490 490                  03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 02117000
       HRC202DK: ./ R 02120000          $ 2120690 690                  03/30/06 21:43:02
       HRC202DK: NMSG     DC    X'15'                                           HRC202DK 02120000
       HRC202DK: ./ R 02124000          $ 2124490 490                  03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 02124000
       HRC202DK: ./ R 02127000          $ 2127490 490                  03/30/06 21:43:02
       HRC202DK: CORMSG   DC    X'15'                                           HRC202DK 02127000
       HRC202DK: ./ R 02131000          $ 2131490 490                  03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 02131000
       HRC202DK: ./ R 02225000          $ 2225690 690                  03/30/06 21:43:02
       HRC202DK: OWNMSG   DC    X'15'                                           HRC202DK 02225000
       HRC202DK: ./ R 02585000          $ 2585490 490                  03/30/06 21:43:02
       HRC202DK:          MVC   CPIATABL(4),=C'Now '     FORMAT TIME MESSAGE    HRC202DK 02585000
       HRC202DK: ./ R 02632210          $ 2632215 5                    03/30/06 21:43:02
       HRC202DK:          MVC   0(6,R3),=C'IPL at'    ALTER SLIGHTLY FOR QUERY  HRC202DK 02632210
       HRC202DK: ./ R 03459220          $ 3459225 5                    03/30/06 21:43:02
       HRC202DK: CPI958MG DC    X'15'                                           HRC202DK 03459220
       HRC202DK: ./ R 03459250          $ 3459255 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459250
       HRC202DK: ./ R 03459270          $ 3459275 5                    03/30/06 21:43:02
       HRC202DK: CPI959MG DC    X'15'                                           HRC202DK 03459270
       HRC202DK: ./ R 03459290          $ 3459295 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459290
       HRC202DK: ./ R 03459310          $ 3459315 5                    03/30/06 21:43:02
       HRC202DK: TMSGMP   DC    X'15'                                           HRC202DK 03459310
       HRC202DK: ./ R 03459330          $ 3459335 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459330
       HRC202DK: ./ R 03459350          $ 3459355 5                    03/30/06 21:43:02
       HRC202DK: CPI955MG DC    X'15'                                           HRC202DK 03459350
       HRC202DK: ./ R 03459370          $ 3459375 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459370
       HRC202DK: ./ R 03459570          $ 3459575 5                    03/30/06 21:43:02
       HRC202DK: SHUTM1   DC    X'15'                                           HRC202DK 03459570
       HRC202DK: ./ R 03459600          $ 3459605 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459600
       HRC202DK: ./ R 03459630 03459640 $ 3459636 6                    03/30/06 21:43:02
       HRC202DK: SHUTM2   DC    C'DMKCPI961W System SHUTDOWN complete'          HRC202DK 03459630
       HRC202DK:          DC    X'15'                                           HRC202DK 03459640
       HRC202DK: ./ R 03459670          $ 3459675 5                    03/30/06 21:43:02
       HRC202DK: DUMPMSG  DC    X'15'                                           HRC202DK 03459670
       HRC202DK: ./ R 03459700          $ 3459705 5                    03/30/06 21:43:02
       HRC202DK:          DC    X'15'                                           HRC202DK 03459700
 BEGIN APPLY >>> ./ R 02112000          $ 2112690 690                  03/30/06 21:43:02
   END APPLY >>> ./ R 02112000          $ 2112690 690                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02117000          $ 2117490 490                  03/30/06 21:43:02
   END APPLY >>> ./ R 02117000          $ 2117490 490                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02120000          $ 2120690 690                  03/30/06 21:43:02
   END APPLY >>> ./ R 02120000          $ 2120690 690                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02124000          $ 2124490 490                  03/30/06 21:43:02
   END APPLY >>> ./ R 02124000          $ 2124490 490                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02127000          $ 2127490 490                  03/30/06 21:43:02
   END APPLY >>> ./ R 02127000          $ 2127490 490                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02131000          $ 2131490 490                  03/30/06 21:43:02
   END APPLY >>> ./ R 02131000          $ 2131490 490                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02225000          $ 2225690 690                  03/30/06 21:43:02
   END APPLY >>> ./ R 02225000          $ 2225690 690                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02585000          $ 2585490 490                  03/30/06 21:43:02
   END APPLY >>> ./ R 02585000          $ 2585490 490                  03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 02632210          $ 2632215 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 02632210          $ 2632215 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459220          $ 3459225 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459220          $ 3459225 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459250          $ 3459255 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459250          $ 3459255 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459270          $ 3459275 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459270          $ 3459275 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459290          $ 3459295 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459290          $ 3459295 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459310          $ 3459315 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459310          $ 3459315 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459330          $ 3459335 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459330          $ 3459335 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459350          $ 3459355 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459350          $ 3459355 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459370          $ 3459375 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459370          $ 3459375 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459570          $ 3459575 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459570          $ 3459575 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459600          $ 3459605 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459600          $ 3459605 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459630 03459640 $ 3459636 6                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459630 03459640 $ 3459636 6                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459670          $ 3459675 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459670          $ 3459675 5                    03/30/06 21:43:02
 BEGIN APPLY >>> ./ R 03459700          $ 3459705 5                    03/30/06 21:43:02
   END APPLY >>> ./ R 03459700          $ 3459705 5                    03/30/06 21:43:02
Update Succeeded
Update Execution Time 70 milliseconds.

HRC370DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC370DK: ./ R 02140590 02140590 $ 2140590                      07/12/10 20:33:58
       HRC370DK:          DC    C'VM/370 Release '                              HRC370DK 02140590
       HRC370DK: ./ R 02141180 02141180 $ 2141180                      07/12/10 20:33:58
       HRC370DK: CPIVER   DC    C'   Hercul'   VERSION NO FROM DMKCPEID         HRC370DK 02141180
       HRC370DK: ./ R 02142000 02142000 $ 2142000 100                  07/12/10 20:33:58
       HRC370DK: CPILEV   DC    C'   "Six'     LEVEL NO FROM DMKCPEID           HRC370DK 02142100
       HRC370DK: ./ R 02143100 02143300 $ 2143100 100                  07/12/10 20:33:58
       HRC370DK: CPIPLC   DC    C'    " ver'   PLC NO FROM DMKCPEID             HRC370DK 02143100
       HRC370DK: CPIHRC   DC    C'     '       HRC VERSION NUMBER FROM CPEID    HRC370DK 02143200
       HRC370DK: CPIWHO   DC    C'   : '       INITIALS FROM CPEID              HRC370DK 02143300
       HRC370DK: ./ I 02171000          $ 2171050 50                   07/12/10 20:33:58
       HRC370DK:          SPACE 1                                               HRC370DK 02171050
       HRC370DK: SAVEDPSW DS    D                         saved program new PSW HRC370DK 02171100
       HRC370DK: TRAPPER  DC    X'00080000'               program check new PSW HRC370DK 02171150
       HRC370DK:          DC    A(CHK3702)     address of the interrupt handler HRC370DK 02171200
       HRC370DK: PCNEWPSW EQU   X'68'                     program check new PSW HRC370DK 02171250
       HRC370DK: ./ I 02287200          $ 2287220 20                   07/12/10 20:33:58
       HRC370DK:          SPACE 1                                               HRC370DK 02287220
       HRC370DK: * Since we support both System/380 and System/370 machines,    HRC370DK 02287240
       HRC370DK: * let's see on which we are running, and adjust the version    HRC370DK 02287260
       HRC370DK: * message accordingly.                                         HRC370DK 02287280
       HRC370DK:          MVI   INSTWRD1,C'7'  seems like a safe place for this HRC370DK 02287300
       HRC370DK:          MVC   SAVEDPSW(8),PCNEWPSW save program check new PSW HRC370DK 02287320
       HRC370DK:          MVC   PCNEWPSW(8),TRAPPER   set our interrupt handler HRC370DK 02287340
       HRC370DK:          LA    R14,CHK3701                 load branch address HRC370DK 02287360
       HRC370DK:          ICM   R14,8,=X'80'       try to switch to 31-bit mode HRC370DK 02287380
       HRC370DK:          DC    X'0B0E'                              BSM R0,R14 HRC370DK 02287400
       HRC370DK:          SPACE 1                                               HRC370DK 02287420
       HRC370DK: * If we arrive here, the BSM instruction was valid and we are  HRC370DK 02287440
       HRC370DK: * executing on a System/380 machine.                           HRC370DK 02287460
       HRC370DK: * Note!!!!! We store an '8' in the first byte of INSTWRD1 in   HRC370DK 02287480
       HRC370DK: * the PSA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! HRC370DK 02287500
       HRC370DK: CHK3701  DS    0H                                              HRC370DK 02287520
       HRC370DK:          MVI   INSTWRD1,C'8'  seems like a safe place for this HRC370DK 02287540
       HRC370DK:          MVI   STMSG+7,C'8'       tell them this is System/380 HRC370DK 02287560
       HRC370DK:          LA    R14,CHK3702                 load branch address HRC370DK 02287580
       HRC370DK:          ICM   R14,8,=X'00'   return to 24-bit addressing mode HRC370DK 02287600
       HRC370DK:          DC    X'0B0E'                              BSM R0,R14 HRC370DK 02287620
       HRC370DK:          SPACE 1                                               HRC370DK 02287640
       HRC370DK: * If we branched here, the BSM instruction generated a program HRC370DK 02287660
       HRC370DK: * check.  Thus we are executing on a System/370 machine.       HRC370DK 02287680
       HRC370DK: CHK3702  DS    0H                                              HRC370DK 02287700
       HRC370DK:          MVC   PCNEWPSW(8),SAVEDPSW  restore program check PSW HRC370DK 02287720
       HRC370DK:          SPACE 1                                               HRC370DK 02287740
 BEGIN APPLY >>> ./ R 02140590 02140590 $ 2140590                      07/12/10 20:33:58
   END APPLY >>> ./ R 02140590 02140590 $ 2140590                      07/12/10 20:33:58
 BEGIN APPLY >>> ./ R 02141180 02141180 $ 2141180                      07/12/10 20:33:58
   END APPLY >>> ./ R 02141180 02141180 $ 2141180                      07/12/10 20:33:58
 BEGIN APPLY >>> ./ R 02142000 02142000 $ 2142000 100                  07/12/10 20:33:58
   END APPLY >>> ./ R 02142000 02142000 $ 2142000 100                  07/12/10 20:33:58
 BEGIN APPLY >>> ./ R 02143100 02143300 $ 2143100 100                  07/12/10 20:33:58
   END APPLY >>> ./ R 02143100 02143300 $ 2143100 100                  07/12/10 20:33:58
 BEGIN APPLY >>> ./ I 02171000          $ 2171050 50                   07/12/10 20:33:58
   END APPLY >>> ./ I 02171000          $ 2171050 50                   07/12/10 20:33:58
 BEGIN APPLY >>> ./ I 02287200          $ 2287220 20                   07/12/10 20:33:58
   END APPLY >>> ./ I 02287200          $ 2287220 20                   07/12/10 20:33:58
Update Succeeded
Update Execution Time 55 milliseconds.

HRC039DK

Date Monday Mar 12, 2018 12:11:00 PM
Loaded from MAINT(094)
       HRC039DK: ./ I 01190000          $ 01190050 050
       HRC039DK:          OI    RDEVFLAG,RDEVMOUT Set mounted-not-attached flag HRC039DK
       HRC039DK: ./ I 01255350          $ 01255370 20
       HRC039DK:          NI    RDEVFLAG,255-RDEVMOUT Clr mounted-not-attached  HRC039DK
       HRC039DK: ./ I 01344000          $ 01344100 100
       HRC039DK:          NI    RDEVFLAG,255-RDEVMOUT Clr mounted-not-attached  HRC039DK
 BEGIN APPLY >>> ./ I 01190000          $ 01190050 050
   END APPLY >>> ./ I 01190000          $ 01190050 050
 BEGIN APPLY >>> ./ I 01255350          $ 01255370 20
   END APPLY >>> ./ I 01255350          $ 01255370 20
 BEGIN APPLY >>> ./ I 01344000          $ 01344100 100
   END APPLY >>> ./ I 01344000          $ 01344100 100
Update Succeeded
Update Execution Time 39 milliseconds.

HRC106DK

Date Tuesday Feb 16, 2016 04:16:00 PM
Loaded from MAINT(094)
       HRC106DK: ./ I 00108000          $ 00108100 100
       HRC106DK: *        DMKPGT7P - Anchor for spooling/paging 3375's          HRC106DK
       HRC106DK: *        DMKPGT8P - Anchor for spooling/paging 3380's          HRC106DK
       HRC106DK: ./ I 00110000          $ 00110100 100
       HRC106DK: *        DMKPGT7T - Anchor for spooling/paging 3375's          HRC106DK
       HRC106DK: *        DMKPGT8T - Anchor for spooling/paging 3380's          HRC106DK
       HRC106DK: ./ I 00352000          $ 00352100 100
       HRC106DK:          EXTRN DMKPGT7P,DMKPGT7T,DMKPGT8P,DMKPGT8T             HRC106DK
       HRC106DK: ./ R 00401000 00402000 $ 00401100 1000
       HRC106DK: MAXALLOC EQU   2656           Max size of the allocation data  HRC106DK
       HRC106DK: *                             from disk (1 byte per cylinder)  HRC106DK
       HRC106DK: ./ R 01176000 01181000 $ 01176000 500
       HRC106DK:          LA    R0,4               Offset to volser in std labelHRC106DK
       HRC106DK:          L     R14,=A(CPIATABL)   -> volume label record       HRC106DK
       HRC106DK:          CLC   0(4,R14),=C'VOL1'  Standard label?              HRC106DK
       HRC106DK:          BE    SAVESER            Yes                          HRC106DK
       HRC106DK:          CLC   0(3,R14),=C'CMS'   Any CMS header?              HRC106DK
       HRC106DK:          BE    SAVESER            Yes                          HRC106DK
       HRC106DK:          SR    R0,R0              Offset to non-standard label HRC106DK
       HRC106DK: ./ I 01183000          $ 01183100 100
       HRC106DK:          AR    R14,R0             -> volser                    HRC106DK
       HRC106DK: ./ I 01190500          $ 01190600 100
       HRC106DK:          L     R14,=A(CPIATABL)   -> volume label record       HRC106DK
       HRC106DK: ./ R 01191000          $ 01191000
       HRC106DK:          CLC   46(5,R14),=C'CP370' CP OWNED volume ??          HRC106DK
       HRC106DK: ./ R 01194000 01194000 $ 01194000 50
       HRC106DK:          MVC   UDRPSTRT,52(R14)    Sav possible directory startHRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380    3380 device type?           HRC106DK
       HRC106DK:          BNE   STDMAPSZ            No, use std alloc map size  HRC106DK
       HRC106DK:          L     R14,F4096           Size of 3380-K alloc map    HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD83    Triple density 3380?        HRC106DK
       HRC106DK:          BO    SETMAPSZ            Yes                         HRC106DK
       HRC106DK:          LA    R14,2048            Size of 3380-E alloc map    HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD82    Double density 3380?        HRC106DK
       HRC106DK:          BO    SETMAPSZ            Yes                         HRC106DK
       HRC106DK:          LA    R14,1024            Size of 3380-A              HRC106DK
       HRC106DK: *                                                              HRC106DK
       HRC106DK: SETMAPSZ EQU   *                                               HRC106DK
       HRC106DK:          STH   R14,CPICCW3L+6      Set length to read alloc mapHRC106DK
       HRC106DK: *                                                              HRC106DK
       HRC106DK: STDMAPSZ EQU   *                                               HRC106DK
       HRC106DK: ./ R 01288000 01288000 $ 01288100 100
       HRC106DK:          BNE   TST3375                                         HRC106DK
       HRC106DK: ./ I 01290000          $ 01290100 100
       HRC106DK: TST3375  CLI   RDEVTYPE,TYP3375 3375 Disk ?                    HRC106DK
       HRC106DK:          BNE   TST3380                                         HRC106DK
       HRC106DK:          L     R15,PLST3375-4(R15) Get 3375 Preferred list ptr HRC106DK
       HRC106DK:          B     CPIPCOM        ..                               HRC106DK
       HRC106DK: TST3380  CLI   RDEVTYPE,TYP3380 3380 Disk ?                    HRC106DK
       HRC106DK:          BNE   MB2305                                          HRC106DK
       HRC106DK:          L     R15,PLST3380-4(R15) Get 3380 Preferred list ptr HRC106DK
       HRC106DK:          B     CPIPCOM        ..                               HRC106DK
       HRC106DK: ./ I 01318000          $ 01318100 50
       HRC106DK:          LA    R3,959         Number of cyl for 3375           HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3375 3375 Device type ?             HRC106DK
       HRC106DK:          BE    MOVALLOC       Yes, generate allocation block   HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380 3380 Device type ?             HRC106DK
       HRC106DK:          BNE   TST2314        No, check for 2314/2319          HRC106DK
       HRC106DK:          LA    R3,2655        Number of cyl for 3380 (K)       HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD83 Triple density 3380?           HRC106DK
       HRC106DK:          BO    MOVALLOC       Yes, generate allocation block   HRC106DK
       HRC106DK:          LA    R3,1770        Number of cyl for 3380 (E)       HRC106DK
       HRC106DK:          TM    RDEVMDL,RDEVMD82 Double density 3380?           HRC106DK
       HRC106DK:          BO    MOVALLOC       Yes, generate allocation block   HRC106DK
       HRC106DK:          LA    R3,885         Number of cyl for 3380 (A/D/J)   HRC106DK
       HRC106DK:          B     MOVALLOC       Go allocate                      HRC106DK
       HRC106DK: ./ R 01325000          $ 01325000
       HRC106DK:          L     R4,=A(CPIATABL)     -> allocation data          HRC106DK
       HRC106DK: ./ R 01341000          $ 01341000
       HRC106DK:          L     R4,=A(CPIATABL)     -> allocation data          HRC106DK
       HRC106DK: ./ I 01489000          $ 01489100 100
       HRC106DK:          LA    R0,96               Get number pages/cyl (3375) HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3375    Is device 3375 ?            HRC106DK
       HRC106DK:          BE    STCYL               Yes,set pages/cyl limit     HRC106DK
       HRC106DK:          LA    R0,150              Get number pages/cyl (3380) HRC106DK
       HRC106DK:          CLI   RDEVTYPE,TYP3380    Is device 3380 ?            HRC106DK
       HRC106DK:          BE    STCYL               Yes,set pages/cyl limit     HRC106DK
       HRC106DK: ./ R 01892000          $ 01892000
       HRC106DK: CPICCW3L CCW   X'06',CPIATABL,CC+SILI,1024                     HRC106DK
       HRC106DK: ./ I 01922000          $ 01922100 100
       HRC106DK: PLST3375 DC    A(DMKPGT7P,DMKPGT7T)                            HRC106DK
       HRC106DK: PLST3380 DC    A(DMKPGT8P,DMKPGT8T)                            HRC106DK
       HRC106DK: ./ I 01951000          $ 01951100 100
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK: ./ I 01955000          $ 01955100 100
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK: ./ I 01961000          $ 01961100 100
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK: ./ I 01965000          $ 01965100 50
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK:          DC    A(DMKPGT7T)    RDEVBLOK temp alloc chain (3375) HRC106DK
       HRC106DK:          DC    F'96'          Number records/cylinder (3375)   HRC106DK
       HRC106DK:          DC    X'0000000000000000' Initial recmap setting      HRC106DK
       HRC106DK:          DC    X'00000000FFFFFFFF'                             HRC106DK
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK:          DC    A(DMKPGT8T)    RDEVBLOK temp alloc chain (3380) HRC106DK
       HRC106DK:          DC    F'150'         Number records/cylinder (3380)   HRC106DK
       HRC106DK:          DC    X'0000000000000000'                             HRC106DK
       HRC106DK:          DC    X'0000000000000000'                             HRC106DK
       HRC106DK:          DC    X'000003FFFFFFFFFF'                             HRC106DK
       HRC106DK: ./ I 01971000          $ 01971100 100
       HRC106DK:          DC    X'FFFFFFFFFFFFFFFF'                             HRC106DK
       HRC106DK: ./ D 02231000 02243000 $
       HRC106DK: ./ R 02902000          $ 02902100 100                          HRC106DK
       HRC106DK:          LA    R3,7           Number entries in dump table     HRC106DK
       HRC106DK: ./ R 02915000          $ 02915100 100
       HRC106DK: DPNXTDEV LA    R2,32(,R2)     Get next entry in dump table     HRC106DK
       HRC106DK: ./ I 03459710          $ 03459800 10
       HRC106DK:          DS    0D                                              HRC106DK
       HRC106DK: CPIATABL DC    4096X'00'      Buffer for largest allocation recHRC106DK
       HRC106DK:          ORG   CPIATABL+136                                    HRC106DK
       HRC106DK: MONTH    DS    1X                                              HRC106DK
       HRC106DK: DAY      DS    1X                                              HRC106DK
       HRC106DK: YEAR     DS    1X                                              HRC106DK
       HRC106DK:          DS    1X                                              HRC106DK
       HRC106DK: HOUR     DS    1X                                              HRC106DK
       HRC106DK: MIN      DS    1X                                              HRC106DK
       HRC106DK: SEC      DS    1X                                              HRC106DK
       HRC106DK:          DS    1X                                              HRC106DK
       HRC106DK:          DS    CL8                                             HRC106DK
       HRC106DK: CVTWORD  DS    PL8                                             HRC106DK
       HRC106DK:          ORG   ,                                               HRC106DK
 BEGIN APPLY >>> ./ I 00108000          $ 00108100 100
   END APPLY >>> ./ I 00108000          $ 00108100 100
 BEGIN APPLY >>> ./ I 00110000          $ 00110100 100
   END APPLY >>> ./ I 00110000          $ 00110100 100
 BEGIN APPLY >>> ./ I 00352000          $ 00352100 100
   END APPLY >>> ./ I 00352000          $ 00352100 100
 BEGIN APPLY >>> ./ R 00401000 00402000 $ 00401100 1000
   END APPLY >>> ./ R 00401000 00402000 $ 00401100 1000
 BEGIN APPLY >>> ./ R 01176000 01181000 $ 01176000 500
   END APPLY >>> ./ R 01176000 01181000 $ 01176000 500
 BEGIN APPLY >>> ./ I 01183000          $ 01183100 100
   END APPLY >>> ./ I 01183000          $ 01183100 100
 BEGIN APPLY >>> ./ I 01190500          $ 01190600 100
   END APPLY >>> ./ I 01190500          $ 01190600 100
 BEGIN APPLY >>> ./ R 01191000          $ 01191000
   END APPLY >>> ./ R 01191000          $ 01191000
 BEGIN APPLY >>> ./ R 01194000 01194000 $ 01194000 50
   END APPLY >>> ./ R 01194000 01194000 $ 01194000 50
 BEGIN APPLY >>> ./ R 01288000 01288000 $ 01288100 100
   END APPLY >>> ./ R 01288000 01288000 $ 01288100 100
 BEGIN APPLY >>> ./ I 01290000          $ 01290100 100
   END APPLY >>> ./ I 01290000          $ 01290100 100
 BEGIN APPLY >>> ./ I 01318000          $ 01318100 50
   END APPLY >>> ./ I 01318000          $ 01318100 50
 BEGIN APPLY >>> ./ R 01325000          $ 01325000
   END APPLY >>> ./ R 01325000          $ 01325000
 BEGIN APPLY >>> ./ R 01341000          $ 01341000
   END APPLY >>> ./ R 01341000          $ 01341000
 BEGIN APPLY >>> ./ I 01489000          $ 01489100 100
   END APPLY >>> ./ I 01489000          $ 01489100 100
 BEGIN APPLY >>> ./ R 01892000          $ 01892000
   END APPLY >>> ./ R 01892000          $ 01892000
 BEGIN APPLY >>> ./ I 01922000          $ 01922100 100
   END APPLY >>> ./ I 01922000          $ 01922100 100
 BEGIN APPLY >>> ./ I 01951000          $ 01951100 100
   END APPLY >>> ./ I 01951000          $ 01951100 100
 BEGIN APPLY >>> ./ I 01955000          $ 01955100 100
   END APPLY >>> ./ I 01955000          $ 01955100 100
 BEGIN APPLY >>> ./ I 01961000          $ 01961100 100
   END APPLY >>> ./ I 01961000          $ 01961100 100
 BEGIN APPLY >>> ./ I 01965000          $ 01965100 50
   END APPLY >>> ./ I 01965000          $ 01965100 50
 BEGIN APPLY >>> ./ I 01971000          $ 01971100 100
   END APPLY >>> ./ I 01971000          $ 01971100 100
 BEGIN APPLY >>> ./ D 02231000 02243000 $
   END APPLY >>> ./ D 02231000 02243000 $
 BEGIN APPLY >>> ./ R 02902000          $ 02902100 100                          HRC106DK
   END APPLY >>> ./ R 02902000          $ 02902100 100                          HRC106DK
 BEGIN APPLY >>> ./ R 02915000          $ 02915100 100
   END APPLY >>> ./ R 02915000          $ 02915100 100
 BEGIN APPLY >>> ./ I 03459710          $ 03459800 10
   END APPLY >>> ./ I 03459710          $ 03459800 10
Update Succeeded
Update Execution Time 164 milliseconds.

HRC108DK

Date Thursday Mar 02, 2017 10:00:00 PM
Loaded from MAINT(094)
       HRC108DK: ./ I 00058000          $ 00058100 100
       HRC108DK: *        DMKGRTID - Copy SYSID to 3270 status areas            HRC108DK
       HRC108DK: ./ I 00135000          $ 00135100 100
       HRC108DK: *        DMKSYSIC - Count of SYSID entries                     HRC108DK
       HRC108DK: *        DMKSYSID - Default / current SYSID                    HRC108DK
       HRC108DK: *        DMKSYSIL - Beginning of list of SYSID entries         HRC108DK
       HRC108DK: ./ I 00238000          $ 00238100 100
       HRC108DK: *        14a.Examine the SYSID list at DMKSYSIL and determine  HRC108DK
       HRC108DK: *            if any of the entries match this CPU.  If so,     HRC108DK
       HRC108DK: *            copy the specified system id into DMKSYSID where  HRC108DK
       HRC108DK: *            it replaces the default system id established by  HRC108DK
       HRC108DK: *            DMKSYS. Call DMKGRTID to put SYSID in 3270 status HRC108DK
       HRC108DK: ./ I 00361000          $ 00361100 100
       HRC108DK:          EXTRN DMKSYSIC,DMKSYSID,DMKSYSIL,DMKGRTID             HRC108DK
       HRC108DK: ./ I 02275000          $ 02275050 50
       HRC108DK:          L     R1,=A(DMKSYSIC) Get address of SYSID list count HRC108DK
       HRC108DK:          ICM   R0,B'1111',0(R1) Get number of entries in list  HRC108DK
       HRC108DK:          BZ    SYSIDFIN         No entries in list             HRC108DK
       HRC108DK:          L     R1,=A(DMKSYSIL)  Get address of SYSID list      HRC108DK
       HRC108DK:          L     R2,=A(DMKSYSID)  Get address of current SYSID   HRC108DK
       HRC108DK: SYSIDLP  EQU   *                                               HRC108DK
       HRC108DK:          CLC   9(5,R1),CPUSER Check list entry against PSA     HRC108DK
       HRC108DK:          BNE   SYSIDNOT       Not this one                     HRC108DK
       HRC108DK:          MVC   0(8,R2),0(R1)  Replace SYSID with list entry    HRC108DK
       HRC108DK: SYSIDNOT EQU   *                                               HRC108DK
       HRC108DK:          LA    R1,14(,R1)     Point to next item in list       HRC108DK
       HRC108DK:          BCT   R0,SYSIDLP     Decrement count and loop if more HRC108DK
       HRC108DK: SYSIDFIN EQU   *                                               HRC108DK
       HRC108DK:          CALL  DMKGRTID       Copy SYSID to 3270 status area   HRC108DK
 BEGIN APPLY >>> ./ I 00058000          $ 00058100 100
   END APPLY >>> ./ I 00058000          $ 00058100 100
 BEGIN APPLY >>> ./ I 00135000          $ 00135100 100
   END APPLY >>> ./ I 00135000          $ 00135100 100
 BEGIN APPLY >>> ./ I 00238000          $ 00238100 100
   END APPLY >>> ./ I 00238000          $ 00238100 100
 BEGIN APPLY >>> ./ I 00361000          $ 00361100 100
   END APPLY >>> ./ I 00361000          $ 00361100 100
 BEGIN APPLY >>> ./ I 02275000          $ 02275050 50
   END APPLY >>> ./ I 02275000          $ 02275050 50
Update Succeeded
Update Execution Time 63 milliseconds.

HRC075DK

Date Sunday Feb 25, 2018 10:19:00 AM
Loaded from MAINT(094)
       HRC075DK: ./ I 00144000          $ 00144400 100
       HRC075DK: *        DMKSYSER - ERR RECORDING AREA LOCATION INFORMATION    HRC075DK
       HRC075DK: *        DMKSYSWM - WARM START AREA LOCATION INFORMATION       HRC075DK
       HRC075DK: *        DMKSYSCH - CHECKPOINT AREA LOCATION INFORMATION       HRC075DK
       HRC075DK: ./ I 00353000          $ 00353500 100
       HRC075DK:          EXTRN DMKSYSER,DMKSYSWM,DMKSYSCH                      HRC075DK
       HRC075DK: ./ I 01901000          $ 01901500 100
       HRC075DK: XWAIT9   DC    X'0002000000000009' VOLUME NEEDED FOR ERR, WRM, HRC075DK
       HRC075DK: *                                  OR CKP CYLS NOT MOUNTED     HRC075DK
       HRC075DK: ./ R 02124490 02124490 $ 02124490 10
       HRC075DK: NMSGNL   DC    X'15'                                           HRC075DK
       HRC075DK: ./ I 02125000          $ 02125200 100
       HRC075DK:          DC    C' required for '                               HRC075DK
       HRC075DK: NMCYLS   DC    CL6' '                                          HRC075DK
       HRC075DK:          DC    C' cylinders'                                   HRC075DK
       HRC075DK:          DC    X'1515'                                         HRC075DK
       HRC075DK: NMSGLREQ EQU   *-NMSG                                          HRC075DK
       HRC075DK: ./ R 02757000 02757000 $ 02757000 200
       HRC075DK:          BZ    SYSAREAS       YES                              HRC075DK
       HRC075DK: ./ I 02767000          $ 02767100 20
       HRC075DK: *
       HRC075DK: SYSAREAS EQU   *              GET DEVICE CUU OF ERR,WRM,CKP    HRC075DK
       HRC075DK:          L     R2,=A(DMKSYSER) -> ERROR RECORDING AREA INFO    HRC075DK
       HRC075DK:          LA    R4,=CL6'SYSERR' INDICATE ERR AREA CYLINDERS     HRC075DK
       HRC075DK:          BAL   R3,LVOL        GO LOCATE VOLUME AND CUU         HRC075DK
       HRC075DK:          L     R2,=A(DMKSYSWM) -> WARM START AREA INFO         HRC075DK
       HRC075DK:          LA    R4,=CL6'SYSWRM' INDICATE WRM AREA CYLINDERS     HRC075DK
       HRC075DK:          BAL   R3,LVOL        GO LOCATE VOLUME AND CUU         HRC075DK
       HRC075DK:          L     R2,=A(DMKSYSCH) -> CHECKPOINT AREA INFO         HRC075DK
       HRC075DK:          LA    R4,=CL6'SYSCKP' INDICATE CKP AREA CYLINDERS     HRC075DK
       HRC075DK:          BAL   R3,LVOL        GO LOCATE VOLUME AND CUU         HRC075DK
       HRC075DK:          B     MEMCK          ALL REQ'D VOLUMES LOCATED        HRC075DK
       HRC075DK: *                                                              HRC075DK
       HRC075DK: LVOL     EQU   *                                               HRC075DK
       HRC075DK:          CLC   4(2,R2),ZEROES IS DEV ADDR FILLED IN?           HRC075DK
       HRC075DK:          BNER  R3             YES, ON TO NEXT AREA             HRC075DK
       HRC075DK:          LA    R0,6           LENGTH OF VOLSER                 HRC075DK
       HRC075DK:          LA    R1,8(,R2)      -> NAME OF VOLUME                HRC075DK
       HRC075DK:          CALL  DMKSCNVS       GET THE RDEVBLOK                 HRC075DK
       HRC075DK:          BNZ   NOTHERE        THIS VOLUME NOT FOUND; REQUIRED  HRC075DK
       HRC075DK:          LR    R8,R1          RDEVBLOK PTR TO R8               HRC075DK
       HRC075DK:          CALL  DMKSCNRD       GET THE CUU OF RDEVBLOK DEVICE   HRC075DK
       HRC075DK:          STH   R1,4(,R2)      SAVE CUU AT DMKSYSER+4 (DEV ADDR)HRC075DK
       HRC075DK:          MVC   6(2,R2),RDEVTYPC  SAVE DEVTYPE AT DMKSYSER+6    HRC075DK
       HRC075DK:          BR    R3             RETURN                           HRC075DK
       HRC075DK: *                                                              HRC075DK
       HRC075DK: NOTHERE  EQU   *                                               HRC075DK
       HRC075DK:          MVC   NMSGVOL,8(R2)  PLUG VOLID TO MSG                HRC075DK
       HRC075DK:          MVC   NMCYLS,0(R4)   MOVE TYPE OF CYLS NEEDED         HRC075DK
       HRC075DK:          MVI   NMSGNL,C';'    REPLACE NEWLINE WITH SEMI        HRC075DK
       HRC075DK:          MVI   NMSG+10,C'E'   CHANGE 951I MSG TEXT TO ERROR LVLHRC075DK
       HRC075DK:          LA    R0,NMSGLREQ    LENGTH OF VOLID REQUIRED MSG     HRC075DK
       HRC075DK:          LA    R1,NMSG        -> DMKCPI951E VOLID NOT MOUNTED  HRC075DK
       HRC075DK:          CALL  DMKQCNWT,PARM=ALARM                             HRC075DK
       HRC075DK:          LPSW  XWAIT9         LOAD DISABLED WAIT 9             HRC075DK
 BEGIN APPLY >>> ./ I 00144000          $ 00144400 100
   END APPLY >>> ./ I 00144000          $ 00144400 100
 BEGIN APPLY >>> ./ I 00353000          $ 00353500 100
   END APPLY >>> ./ I 00353000          $ 00353500 100
 BEGIN APPLY >>> ./ I 01901000          $ 01901500 100
   END APPLY >>> ./ I 01901000          $ 01901500 100
 BEGIN APPLY >>> ./ R 02124490 02124490 $ 02124490 10
   END APPLY >>> ./ R 02124490 02124490 $ 02124490 10
 BEGIN APPLY >>> ./ I 02125000          $ 02125200 100
   END APPLY >>> ./ I 02125000          $ 02125200 100
 BEGIN APPLY >>> ./ R 02757000 02757000 $ 02757000 200
   END APPLY >>> ./ R 02757000 02757000 $ 02757000 200
 BEGIN APPLY >>> ./ I 02767000          $ 02767100 20
   END APPLY >>> ./ I 02767000          $ 02767100 20
Update Succeeded
Update Execution Time 70 milliseconds.