ibm:vm370-lib:cp:dmkuso.assemble_hst
Table of Contents
DMKUSO History
References
- Fixes Applied : 23
- Latest Source Date : Thursday, December 7, 1978
- 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.
ibm/vm370-lib/cp/dmkuso.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator