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