DMKUSO History
References
-
-
Fixes Applied : 23
-
Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKUSO ASSEMBLE
Date : 12/7/1978 5:17:00 PM
VM Context : MAINT(394)
File Name : DMKUSO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09319DK 601 REMOVE DMKSSS FROM LOADLIST WHEN NO MSS
R08928DK 601 CORRECT BAD COMMENTS
R09047DK 602 VMAP SHOWS SEEKS TO CYLINDER 0 BECAUSE IOBCYL IS ZERO IN DMKPAG
R08501DK 602 DISALLOW COMMAND EXECUTION IF BEING LOGGED OFF OR FORCED
R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10137DK 607 DMKUSO DMKPAG DO NOT SYNCHRONIZE USE OF IOBSTACK IN DMKPAG
R09408DK 609 FINAL ACCT DATA LOST CONSOLE SPOOLED AND USER DISCONNECTS
R09339DK 611 DMKUSO NUMBER OF USER STATS INCORRECT WHEN SENT TO OPERATOR
R10666DK 611 INDICATE FORCE LOGOFF
R10061DK 611 REPLY TO FORCE COMMAND WORD FORCED LEFT OFF DMKUSO DMKDSP
R11389DK 613 UV01106 NO MSG TO OPERATOR IF NOT LOGGED ON COMPLETELY.
R11404DK 614 UV01209 REMOVE CODE IN DMKPAG DMKUSO TO LOCK IOBSTACK
R11749DK 617 UV02209 NUMBER OF USERS IS INCORRECT IF OPERATOR LOGS OFF
R12770DK 620 UV04031 ABENDSTK001 BECAUSE OF OUTSTANDING TRQBLOK
R13088DK 621 UV04458 PRG001 DURING LOGOFF AT X'00000002' IN PSA
R13304DK 622 UV04571 VCNCTL VSPXBLK NOT FRETTED WITH NON 0 FROM DMKACON
R14288DK 623 UV05569 PEVM13280
R13026DK 624 UV04977 APARS DO NOT COMPLETELY FIX PROBLEM IN USO FOR R2
R13441DK 627 UV04624 PREVENT DOUBLE FRET OF VMBLOK AFTER I/O ERRORS
R13025DK 627 UV05467 VMEXWAIT BIT BEING ON AT LOGOFF NOT COMPLETELY FIX
HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
HRC065DK V01 Logical Device Support Facility
R09319DK
Date Monday Feb 05, 1979 02:48:00 PM
Loaded from MAINT(294)
R09319DK: ./ I 00432020 $ 00432022 2 00001000
R09319DK: LTR R4,R4 IS VCON EQUAL TO ZERO? @VA09319 00002000
R09319DK: BZ USO05A YES, INDICATES DMKSSS NOT IN SYS @VA09319 00003000
BEGIN APPLY >>> ./ I 00432020 $ 00432022 2 00001000
END APPLY >>> ./ I 00432020 $ 00432022 2 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R08928DK
Date Thursday Jan 25, 1979 12:20:00 PM
Loaded from MAINT(294)
R08928DK: ./ R 367000 $ 367500
R08928DK: * DMKUSOFF CALLED DIRECTLY BY DMKDSPCH IF
BEGIN APPLY >>> ./ R 367000 $ 367500
END APPLY >>> ./ R 367000 $ 367500
Update Succeeded
Update Execution Time 16 milliseconds.
R09047DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R09047DK: ./ I 01304300 $ 01304325 50 00001000
R09047DK: * ANY CHANGES IN PAGESIZE MUST ALSO BE REFLECTED 00002000
R09047DK: * IN DMKPAG AND DMKMON 00003000
BEGIN APPLY >>> ./ I 01304300 $ 01304325 50 00001000
END APPLY >>> ./ I 01304300 $ 01304325 50 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R08501DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R08501DK: ./ D 445860 00001000
R08501DK: ./ R 445890 445950 $ 445910 00002000
R08501DK: GOTO DMKDSPCH @VA08501 00003000
R08501DK: ./ D 449100 449200 00004000
R08501DK: ./ R 699200 700000 $ 699250 50 00005000
R08501DK: TM SAVEWRK1,ELOGOFF+EFORCE FORCE/LOGOFF VIA CFM? @VA08501 00006000
R08501DK: BZ USO99X NO, NO COMMAND BUFFER TO FRET @VA08501 00007000
R08501DK: LA R0,BUFSIZE SIZE OF COMMAND BUFFER @VA08501 00008000
R08501DK: L R1,SAVER9 GET ITS ADDRESS FROM CFM @VA08501 00009000
R08501DK: CALL DMKFRET THROW IT AWAY @VA08501 00010000
R08501DK: SVC 16 ELIMINATE RETURN TO CFM @VA08501 00011000
R08501DK: LTR R13,R13 DID CFM HAVE A CALLER? @VA08501 00012000
R08501DK: BNZ USO99X YES, RETURN TO HIM @VA08501 00013000
R08501DK: GOTO DMKDSPCH NO, NEXT BATTER UP, PLEASE @VA08501 00014000
R08501DK: SPACE 1 00015000
R08501DK: USO99X DS 0H @VA08501 00016000
R08501DK: ST R11,SAVER11 PASS SYSTEM'S VMBLOK BACK @VA08501 00017000
R08501DK: EXIT @VA08501 00018000
R08501DK: ./ I 1312000 $ 1312100 00019000
R08501DK: COPY CONBUF @VA08501 00020000
BEGIN APPLY >>> ./ D 445860 00001000
END APPLY >>> ./ D 445860 00001000
BEGIN APPLY >>> ./ R 445890 445950 $ 445910 00002000
END APPLY >>> ./ R 445890 445950 $ 445910 00002000
BEGIN APPLY >>> ./ D 449100 449200 00004000
END APPLY >>> ./ D 449100 449200 00004000
BEGIN APPLY >>> ./ R 699200 700000 $ 699250 50 00005000
END APPLY >>> ./ R 699200 700000 $ 699250 50 00005000
BEGIN APPLY >>> ./ I 1312000 $ 1312100 00019000
END APPLY >>> ./ I 1312000 $ 1312100 00019000
Update Succeeded
Update Execution Time 23 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:54: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.
R10137DK
Date Monday Dec 03, 1979 09:18:00 AM
Loaded from MAINT(294)
R10137DK: ./ I 28100 $ 28500 00001000
R10137DK: AIF (NOT &AP).NOAP3 @VA10137 00002000
R10137DK: EXTRN DMKPAGLK @VA10137 00002000
R10137DK: .NOAP3 ANOP @VA10137 00002000
R10137DK: ./ R 909110 $ 909115 2 00003000
R10137DK: AIF (NOT &AP).NOAP1 @VA10137 00004000
R10137DK: CHSTACK DS 0H CHECK THE LOCKWORD ON IOBSTACK @VA10137 00005000
R10137DK: SR R9,R9 ZERO REG FOR COMPARE AND SWAP @VA10137 00006000
R10137DK: L R4,=A(DMKPAGLK) LOCKWORD IN DMKPAG @VA10137 00007000
R10137DK: CS R9,R10,0(R4) IS DMKPAG USINIG IOBSTACK @VA10137 00008000
R10137DK: BZ PGSKL NO,THEN WE CAN USE IOBSTACK @VA10137 00009000
R10137DK: SPINLOK DS 0H YES,SPIN UNTIL NOT IN USE @VA10137 00010000
R10137DK: SR R9,R9 ZERO REG9 FOR COMPARE @VA10137 00011000
R10137DK: C R9,0(R4) COMPARE LOCKWORK IN DMKPAG @VA10137 00012000
R10137DK: BZ CHSTACK OK,NO LONGER USING IOBSTACK @VA10137 00013000
R10137DK: B SPINLOK KEEP SPINNING ! @VA10137 00014000
R10137DK: .NOAP1 ANOP 00015000
R10137DK: PGSKL DS 0H @VA10137 00016000
R10137DK: ./ I 909460 $ 909475 00017000
R10137DK: AIF (NOT &AP).NOAP2 @VA10137 00018000
R10137DK: ST R9,0(R4) ZERO LOCKWORD IN DMKPAG @VA10137 00019000
R10137DK: .NOAP2 ANOP 00020000
BEGIN APPLY >>> ./ I 28100 $ 28500 00001000
END APPLY >>> ./ I 28100 $ 28500 00001000
BEGIN APPLY >>> ./ R 909110 $ 909115 2 00003000
END APPLY >>> ./ R 909110 $ 909115 2 00003000
BEGIN APPLY >>> ./ I 909460 $ 909475 00017000
END APPLY >>> ./ I 909460 $ 909475 00017000
Update Succeeded
Update Execution Time 16 milliseconds.
R09408DK
Date Friday Jan 25, 1980 01:24:00 AM
Loaded from MAINT(294)
R09408DK: ./ R 00434000 $ 00434050 50
R09408DK: BZ US009 NO, CONTINUE @VA09408
R09408DK: LH R8,VMVTERM YES, MAY BE CONSOLE SPOOLED @VA09408
R09408DK: LTR R8,R8 VIRTUAL CONSOLE AVAILABLE? @VA09408
R09408DK: BM DISCUSER NO, HE CAN'T HEAR US @VA09408
R09408DK: AL R8,VMDVSTRT YES, GET VDEVBLOK POINTER @VA09408
R09408DK: USING VDEVBLOK,R8 FOR ADDRESSABILITY @VA09408
R09408DK: TM VDEVFLAG,VDEVCSPL CONSOLE SPOOLING ACTIVE? @VA09408
R09408DK: BZ DISCUSER NO, GO TELL OPERATOR @VA09408
R09408DK: DROP R8 @VA09408
R09408DK: US009 EQU * @VA09408
R09408DK: ./ I 00445000 $ 00445020 20
R09408DK: TM VMOSTAT,VMDISC IS USER DISCONNECTED? @VA09408
R09408DK: BO DISCUSER YES, RDEVBLOK ALREADY CLEARED @VA09408
BEGIN APPLY >>> ./ R 00434000 $ 00434050 50
END APPLY >>> ./ R 00434000 $ 00434050 50
BEGIN APPLY >>> ./ I 00445000 $ 00445020 20
END APPLY >>> ./ I 00445000 $ 00445020 20
Update Succeeded
Update Execution Time 16 milliseconds.
R09339DK
Date Friday Mar 28, 1980 12:07:00 PM
Loaded from MAINT(294)
R09339DK: ./ D 615000 $ 00001000
R09339DK: ./ I 618000 $ 618050 50 00002000
R09339DK: ST R1,DMKSYSNM @VA09339 00003000
R09339DK: DROP R3 @VA09339 00004000
R09339DK: ./ D 652000 657000 $ 00005000
BEGIN APPLY >>> ./ D 615000 $ 00001000
END APPLY >>> ./ D 615000 $ 00001000
BEGIN APPLY >>> ./ I 618000 $ 618050 50 00002000
END APPLY >>> ./ I 618000 $ 618050 50 00002000
BEGIN APPLY >>> ./ D 652000 657000 $ 00005000
END APPLY >>> ./ D 652000 657000 $ 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R10666DK
Date Thursday Apr 03, 1980 02:28:00 AM
Loaded from MAINT(294)
R10666DK: ./ I 285000 $ 285100 00001000
R10666DK: OI VMSPMFLG-VMBLOK(R10),VMFRCLOG FORCE @VA10666 00002000
R10666DK: ./ I 416000 $ 416200 200 00003000
R10666DK: TM VMSPMFLG,VMFRCLOG FORCE? @VA10666 00004000
R10666DK: BZ NOFORCE @VA10666 00005000
R10666DK: LA R2,VMFRCLOG INDICATE FORCE @VA10666 00006000
R10666DK: NOFORCE DS 0H @VA10666 00007000
BEGIN APPLY >>> ./ I 285000 $ 285100 00001000
END APPLY >>> ./ I 285000 $ 285100 00001000
BEGIN APPLY >>> ./ I 416000 $ 416200 200 00003000
END APPLY >>> ./ I 416000 $ 416200 200 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R10061DK
Date Monday Apr 07, 1980 03:19:00 AM
Loaded from MAINT(294)
R10061DK: ./ I 00030400 $ 00030500 00001000
R10061DK: EXTRN DMKDSPKL @VA10061 00002000
R10061DK: ./ R 00283000 $ 00283100 00003000
R10061DK: L R2,=A(DMKDSPKL) ALTERNATE ENTRY TO DMKDSP TO @VA10061 00004000
R10061DK: * PRESERVE R2 00005000
BEGIN APPLY >>> ./ I 00030400 $ 00030500 00001000
END APPLY >>> ./ I 00030400 $ 00030500 00001000
BEGIN APPLY >>> ./ R 00283000 $ 00283100 00003000
END APPLY >>> ./ R 00283000 $ 00283100 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
R11389DK
Date Thursday Jun 05, 1980 05:12:00 AM
Loaded from MAINT(294)
R11389DK: ./ I 576300 $ 576320 20 00001000
R11389DK: TM VMRSTAT,VMLOGON NOT COMPLETELY LOGGED ON? @VA11389 00002000
R11389DK: BOR R4 YES, NO MESSAGE TO OPERATOR @VA11389 00003000
BEGIN APPLY >>> ./ I 576300 $ 576320 20 00001000
END APPLY >>> ./ I 576300 $ 576320 20 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11404DK
Date Tuesday Jul 08, 1980 05:15:00 AM
Loaded from MAINT(294)
R11404DK: ./ D 28500 28520 $
R11404DK: ./ D 909115 909137 $
R11404DK: ./ D 909475 909477 $
BEGIN APPLY >>> ./ D 28500 28520 $
END APPLY >>> ./ D 28500 28520 $
BEGIN APPLY >>> ./ D 909115 909137 $
END APPLY >>> ./ D 909115 909137 $
BEGIN APPLY >>> ./ D 909475 909477 $
END APPLY >>> ./ D 909475 909477 $
Update Succeeded
Update Execution Time 16 milliseconds.
R11749DK
Date Monday Nov 03, 1980 10:06:00 AM
Loaded from MAINT(294)
R11749DK: ./ R 576300 $ 576300 00001000
R11749DK: BE OPOFF YES, DECREMENT NUMBER OF USERS @VA11749 00002000
R11749DK: ./ R 612000 $ 612000 00004000
R11749DK: OPOFF L R3,ASYSLC REFERENCE SYSLOCS INFORMATION @VA11749 00005000
R11749DK: ./ I 618100 $ 618200 100 00006000
R11749DK: CLR R10,R11 OPERATOR LOGGING OFF ?? @VA11749 00007000
R11749DK: BER R4 YES, HE ALREADY KNOWS HE'S GONE @VA11749 00008000
BEGIN APPLY >>> ./ R 576300 $ 576300 00001000
END APPLY >>> ./ R 576300 $ 576300 00001000
BEGIN APPLY >>> ./ R 612000 $ 612000 00004000
END APPLY >>> ./ R 612000 $ 612000 00004000
BEGIN APPLY >>> ./ I 618100 $ 618200 100 00006000
END APPLY >>> ./ I 618100 $ 618200 100 00006000
Update Succeeded
Update Execution Time 16 milliseconds.
R12770DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R12770DK: ./ R 685500 $ 685502 2 00001000
R12770DK: USO95 LA R4,VMDELAY GET POSSIBLE TRQBLOK POINTER @VA12770 00002000
R12770DK: BAL R7,FRETRQB RETURN IT IF IT'S THERE @VA12770 00003000
R12770DK: LR R1,R11 RESTORE VMBLOK POINTER @VA12770 00004000
BEGIN APPLY >>> ./ R 685500 $ 685502 2 00001000
END APPLY >>> ./ R 685500 $ 685502 2 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13088DK
Date Wednesday Jun 03, 1981 05:19:00 AM
Loaded from MAINT(294)
R13088DK: ./ I 432024 $ 432026 2 00001000
R13088DK: OC 0(8,R4),0(R4) IS MSS INIT ? @VA13088 00002000
R13088DK: BZ USO05A BRANCH, INDICATES MSS NOT INIT.@VA13088 00004000
BEGIN APPLY >>> ./ I 432024 $ 432026 2 00001000
END APPLY >>> ./ I 432024 $ 432026 2 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13304DK
Date Wednesday Jun 24, 1981 06:03:00 AM
Loaded from MAINT(294)
R13304DK: ./ R 471000 $ 471150 150 00001000
R13304DK: BNO USO21C NO....BRANCH @VA13304 00002000
R13304DK: * ERROR WHEN USER LOGGING ON 00003000
R13304DK: TM VMSPMFLG,VMLOGON2 HAD THE LOGON GOTTEN VEDV ? @VA13304 00004000
R13304DK: BNO USO22 NO....BRANCH AROUND @VA13304 00005000
R13304DK: USO21C DS 0H @VA13304 00006000
BEGIN APPLY >>> ./ R 471000 $ 471150 150 00001000
END APPLY >>> ./ R 471000 $ 471150 150 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R14288DK
Date Friday Sep 18, 1981 12:32:00 PM
Loaded from MAINT(294)
R14288DK: ./ * FORCE REASSEMBLY FOR APAR VM13280
BEGIN APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM13280
Comment >>> ./ * FORCE REASSEMBLY FOR APAR VM13280
END APPLY >>> ./ * FORCE REASSEMBLY FOR APAR VM13280
Update Succeeded
Update Execution Time 8 milliseconds.
R13026DK
Date Wednesday Sep 23, 1981 09:06:00 AM
Loaded from MAINT(294)
R13026DK: ./ D 30500 $ 00001000
R13026DK: ./ I 276000 $ 276500 500 00002000
R13026DK: OI VMSVSTAT-VMBLOK(R10),VMLGFORC FORCE @VA13026 00003000
R13026DK: ./ R 283100 283200 $ 283100 900 00004000
R13026DK: L R2,ADSPCH ENTRY TO DMKDSP @VA13026 00005000
R13026DK: ./ D 285100 285400 $ 00006000
R13026DK: ./ D 311000 315000 $
R13026DK: ./ D 357000 $
R13026DK: ./ D 375000 $
R13026DK: ./ R 416200 416800 $ 416200 80 00007000
R13026DK: SR R2,R2 CLEAR REG FOR INSERT OF PARMS @VA13026 00008000
R13026DK: TM VMSVSTAT,VMLGFORC FORCE? @VA13026 00009000
R13026DK: BZ NOFORCE @VA13026 00010000
R13026DK: O R2,=A(FORCE) INDICATE FORCE @VA13026 00011000
R13026DK: NOFORCE DS 0H @VA13026 00012000
R13026DK: TM VMSVSTAT,VMLGNMSG NO OPERATOR MESSAGE PARM SET @VA13026 00013000
R13026DK: BZ NONMSG PARM NOT SET, DON'T SUPPRESS @VA13026 00014000
R13026DK: O R2,=A(NOOPMSG) SUPPRESS OPERATOR MESSAGE @VA13026 00015000
R13026DK: NONMSG DS 0H @VA13026 00016000
R13026DK: STC R2,SAVEWRK1 AND STORE PARM FROM CALLER IN R2 @VA13026 00017000
BEGIN APPLY >>> ./ D 30500 $ 00001000
END APPLY >>> ./ D 30500 $ 00001000
BEGIN APPLY >>> ./ I 276000 $ 276500 500 00002000
END APPLY >>> ./ I 276000 $ 276500 500 00002000
BEGIN APPLY >>> ./ R 283100 283200 $ 283100 900 00004000
END APPLY >>> ./ R 283100 283200 $ 283100 900 00004000
BEGIN APPLY >>> ./ D 285100 285400 $ 00006000
END APPLY >>> ./ D 285100 285400 $ 00006000
BEGIN APPLY >>> ./ D 311000 315000 $
END APPLY >>> ./ D 311000 315000 $
BEGIN APPLY >>> ./ D 357000 $
END APPLY >>> ./ D 357000 $
BEGIN APPLY >>> ./ D 375000 $
END APPLY >>> ./ D 375000 $
BEGIN APPLY >>> ./ R 416200 416800 $ 416200 80 00007000
END APPLY >>> ./ R 416200 416800 $ 416200 80 00007000
Update Succeeded
Update Execution Time 39 milliseconds.
R13441DK
Date Wednesday Jan 20, 1982 09:38:00 AM
Loaded from MAINT(294)
R13441DK: ./ R 420000 $ 420000 100
R13441DK: LA R0,8 LENGTH OF USERID @VA13441 00420200
R13441DK: LA R1,VMUSER POINT TO USERID @VA13441 00420300
R13441DK: CALL DMKSCNAU SEE IF VMBLOK STILL VALID @VA13441 00420400
R13441DK: BZ LOGOFF STILL THERE - LOG HIM OFF @VA13441 00420500
R13441DK: BM USO96 ALREADY GONE - EXIT @VA13441 00420600
R13441DK: TM VMRSTAT,VMLOGOFF IS LOGOFF IN PROCESS @VA13441 00420700
R13441DK: BO USO96 IF YES - BETTER DO NOTHING HERE @VA13441 00420800
R13441DK: LOGOFF DS 0H @VA13441 00420900
R13441DK: OI VMRSTAT,VMLOGOFF SIGNAL: IN LOGOFF PROCESS @VA13441
R13441DK: ./ I 686000 $ 686500
R13441DK: MVI VMUSER-VMBLOK+7(R1),X'00' NULLIFY USERID @VA13441 00686100
BEGIN APPLY >>> ./ R 420000 $ 420000 100
END APPLY >>> ./ R 420000 $ 420000 100
BEGIN APPLY >>> ./ I 686000 $ 686500
END APPLY >>> ./ I 686000 $ 686500
Update Succeeded
Update Execution Time 23 milliseconds.
R13025DK
Date Friday Jan 15, 1982 04:27:00 PM
Loaded from MAINT(294)
R13025DK: ./ I 142000 $ 142100 100 00001000
R13025DK: TM VMRSTAT,VMEXWAIT IS USER IN EXECUTION WAIT ? @VA13025 00002000
R13025DK: BZ USO06 NO, CONTINUE LOGOFF PROCESS @VA13025 00003000
R13025DK: BAL R8,USOSUB CHECK CMD LINE @VA13025 00004000
R13025DK: LR R10,R11 SET UP R10 FOR DELAYED LOGOFF @VA13025 00005000
R13025DK: OI VMOSTAT,VMKILL DELAY THE LOGOFF UNTIL COMPLETE @VA13025 00006000
R13025DK: B DELAYOFF GO SET UP TO DELAY THE LOGOFF @VA13025 00007000
R13025DK: ./ R 274000 $ 274000 100 00008000
R13025DK: BNE FRCUSER NO, THEN GO FORCE THE USER @VA13025 00009000
R13025DK: TM VMRSTAT,VMEXWAIT IS USER IN EXECUTION WAIT @VA13025 00010000
R13025DK: BZ USO08 NO, JUST TREAT LIKE NORMAL LOGOFF@VA13025 00011000
R13025DK: OI VMOSTAT,VMKILL TURN ON KILL BIT @VA13025 00012000
R13025DK: B DELAYOFF AND GO TO DELAY THE LOGOFF @VA13025 00013000
R13025DK: FRCUSER DS 0H HERE TO FORCE A USER @VA13025 00014000
R13025DK: ./ I 277000 $ 277500 500 00015000
R13025DK: DELAYOFF DS 0H DELAY THE FORCE/LOGOFF @VA13025 00016000
R13025DK: ./ D 420500 420600 $
R13025DK: ./ R 1194000 $ 1194100 00017000
R13025DK: OI VMSVSTAT,VMLGHOLD SET FLAG BIT IF IT WAS 'HOLD' @VA13025 00018000
R13025DK: ./ R 1236000 $ 1236100 00019000
R13025DK: TM VMSVSTAT,VMLGHOLD DID CALLER WANT 'HOLD' ? @VA13025 00020000
R13025DK: ./ D 1296000 $ 00021000
BEGIN APPLY >>> ./ I 142000 $ 142100 100 00001000
END APPLY >>> ./ I 142000 $ 142100 100 00001000
BEGIN APPLY >>> ./ R 274000 $ 274000 100 00008000
END APPLY >>> ./ R 274000 $ 274000 100 00008000
BEGIN APPLY >>> ./ I 277000 $ 277500 500 00015000
END APPLY >>> ./ I 277000 $ 277500 500 00015000
BEGIN APPLY >>> ./ D 420500 420600 $
END APPLY >>> ./ D 420500 420600 $
BEGIN APPLY >>> ./ R 1194000 $ 1194100 00017000
END APPLY >>> ./ R 1194000 $ 1194100 00017000
BEGIN APPLY >>> ./ R 1236000 $ 1236100 00019000
END APPLY >>> ./ R 1236000 $ 1236100 00019000
BEGIN APPLY >>> ./ D 1296000 $ 00021000
END APPLY >>> ./ D 1296000 $ 00021000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ R 424000 $ 424000 PER001 00006000
HRC013DK: TM VMPERFLG,VMPERUSE "PER" TRACING ACTIVE? PER001 00007000
HRC013DK: ./ D 427000 $ PER001 00008000
BEGIN APPLY >>> ./ * ************* PER001 00001000
Comment >>> ./ * ************* PER001 00001000
END APPLY >>> ./ * ************* PER001 00001000
BEGIN APPLY >>> ./ * * PER001 00002000
Comment >>> ./ * * PER001 00002000
END APPLY >>> ./ * * PER001 00002000
BEGIN APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 08/07/79 ADD "P.E.R." TRACE FACILITY PER001 00003000
BEGIN APPLY >>> ./ * * PER001 00004000
Comment >>> ./ * * PER001 00004000
END APPLY >>> ./ * * PER001 00004000
BEGIN APPLY >>> ./ * ************* PER001 00005000
Comment >>> ./ * ************* PER001 00005000
END APPLY >>> ./ * ************* PER001 00005000
BEGIN APPLY >>> ./ R 424000 $ 424000 PER001 00006000
END APPLY >>> ./ R 424000 $ 424000 PER001 00006000
BEGIN APPLY >>> ./ D 427000 $ PER001 00008000
END APPLY >>> ./ D 427000 $ PER001 00008000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC029DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ R 00562000 $ 562490 490 03/07/06 19:19:35
HRC029DK: LA R3,24 TABLE ENTRY COUNT HRC029DK 00562000
HRC029DK: ./ R 00571000 $ 571490 490 03/07/06 19:19:35
HRC029DK: LA R0,24 SIZE HRC029DK 00571000
BEGIN APPLY >>> ./ R 00562000 $ 562490 490 03/07/06 19:19:35
END APPLY >>> ./ R 00562000 $ 562490 490 03/07/06 19:19:35
BEGIN APPLY >>> ./ R 00571000 $ 571490 490 03/07/06 19:19:35
END APPLY >>> ./ R 00571000 $ 571490 490 03/07/06 19:19:35
Update Succeeded
Update Execution Time 31 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00604000 $ 00604100 100
HRC065DK: *
HRC065DK: USO83LDF EQU * HRC065DK
HRC065DK: MVC 0(5,R9),=C'GRF L' Short name if LDEV HRC065DK
HRC065DK: LH R1,RDEVADD-RDEVBLOK(,R8) Get the LDEV address HRC065DK
HRC065DK: N R1,F4095 Keep only the dev num HRC065DK
HRC065DK: CALL DMKCVTBH Make it displayable HRC065DK
HRC065DK: STCM R1,7,5(R9) Put dev addr in message HRC065DK
HRC065DK: B USO84 Continue normal process HRC065DK
HRC065DK: ./ I 00605000 $ 00605100 100
HRC065DK: TM RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BO USO83LDF Yes, special handling HRC065DK
HRC065DK: ./ I 01159000 $ 01159100 050
HRC065DK: TM RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BZ DISCNLDF No, its GRAF HRC065DK
HRC065DK: MVC 0(5,R9),=C'GRF L' Short name if LDEV
HRC065DK: LH R1,RDEVADD-RDEVBLOK(,R8) Get the LDEV address HRC065DK
HRC065DK: N R1,F4095 Keep only the dev num HRC065DK
HRC065DK: CALL DMKCVTBH Make it displayable HRC065DK
HRC065DK: STCM R1,7,5(R9) Put dev addr in message HRC065DK
HRC065DK: B DISCMSG Go display msg HRC065DK
HRC065DK: *
HRC065DK: DISCNLDF EQU * Here if not LDEV HRC065DK
BEGIN APPLY >>> ./ I 00604000 $ 00604100 100
END APPLY >>> ./ I 00604000 $ 00604100 100
BEGIN APPLY >>> ./ I 00605000 $ 00605100 100
END APPLY >>> ./ I 00605000 $ 00605100 100
BEGIN APPLY >>> ./ I 01159000 $ 01159100 050
END APPLY >>> ./ I 01159000 $ 01159100 050
Update Succeeded
Update Execution Time 23 milliseconds.