ibm:vm370-lib:cp:dmkcfp.assemble_hst
Table of Contents
DMKCFP History
References
- Fixes Applied : 14
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKCFP ASSEMBLE
Date : 12/7/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCFP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R08629DK 603 2250/3250
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R08652DK 606 USER HUNG AFTER RESET AND DIAG 20
- R10854DK 612 UV00609 ABENDPGT007 TWO (2) OR MORE CONSOLES
- R11455DK 615 UV01415 SPLIT OF DMKSSS INTO DMKSSS AND DMKSSU
- R11340DK 616 ABENDFRE013 AFTER INSTALLATION OF VM08652
- R11970DK 617 UV02557 PROG005 FOR MSS DEVICES AT DETACH OR LOGOFF
- R13280DK 622 UV04520 RESET DEDICATED CHANNEL FLAG AT LOGOFF TIME.
- R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
- R13704DK 623 UV04950 SPLIT DMKDIA FOR MAINTAINENCE
- R13588DK 623 UV05274 ISSUE DETACH MSG TO OPERATOR
- HRC013DK V01 UNIVERSITY OF MAINE P.E.R. TRACE FACILITY
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
- HRC065DK V01 Logical Device Support Facility
R08629DK
Date Thursday May 10, 1979 04:50:00 PM
Loaded from MAINT(294)
R08629DK: ./ R 504000 504000 $ 503100 100 00001000
R08629DK: SLR R2,R2 CLEAR @VA08629 00002000
R08629DK: ICM R2,7,VDEVIO ANY PENDING I/O? @VA08629 00003000
R08629DK: BZ CHKPEND NO, CONTINUE @VA08629 00004000
R08629DK: LR R1,R2 IOBLOK ADDRESS TO R1 @VA08629 00005000
R08629DK: CFPRUNQ L R2,IOBFPNT-IOBLOK(R1) ADDRESS OF NEXT ON QUEUE @VA08629 00006000
R08629DK: LA R0,IOBSIZE PREPARE TO FRET IOBLOKS @VA08629 00007000
R08629DK: CALL DMKFRET RELEASE BLOCK @VA08629 00008000
R08629DK: LTR R2,R2 ANY MORE? @VA08629 00009000
R08629DK: BZ CFPCLR NO @VA08629 00010000
R08629DK: LR R1,R2 PREPARE TO GO THRU LOOP AGAIN @VA08629 00011000
R08629DK: B CFPRUNQ REPEAT @VA08629 00012000
R08629DK: CFPCLR STCM R2,7,VDEVIO CLEAR CHAIN POINTER @VA08629 00013000
R08629DK: CHKPEND TM VDEVSTAT,VDEVPEND+VDEVCHAN+VDEVCUE ANYTHING @VA08629 00014000
R08629DK: * PENDING? 00015000
BEGIN APPLY >>> ./ R 504000 504000 $ 503100 100 00001000
END APPLY >>> ./ R 504000 504000 $ 503100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:51: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 8 milliseconds.
R08652DK
Date Wednesday Oct 31, 1979 08:29:00 AM
Loaded from MAINT(294)
R08652DK: ./ I 152000 $ 152500 00001000
R08652DK: EXTRN DMKDGDIN @VA08652 00002000
R08652DK: ./ I 811000 $ 811050 50 00003000
R08652DK: TM IOBFLAG,IOBHVC DIAGNOSE IOB ? @VA08652 00004000
R08652DK: BNO NOTDG20 NO @VA08652 00005000
R08652DK: L R14,IOBIRA GET IOB'S RETURN ADDRESS @VA08652 00006000
R08652DK: CL R14,=A(DMKDGDIN) IS IT DIAG 20 IOB @VA08652 00007000
R08652DK: BE NOTDG20 NO, IF NOT EQUAL MUST BE DIAG 20 @VA08652 00008000
R08652DK: LR R14,R13 HOLD OUR SAVEAREA @VA08652 00009000
R08652DK: L R13,IOBMISC2 GET GIO SAVE AREA @VA08652 00010000
R08652DK: SVC 16 GIVE IT BACK @VA08652 00011000
R08652DK: LR R13,R14 RESTORE OUR SAVEAREA @VA08652 00012000
R08652DK: NOTDG20 EQU * @VA08652 00013000
R08652DK: ./ I 853000 $ 853300 300 00014000
R08652DK: TM IOBFLAG,IOBHVC WAS THIS IOB FOR DIAG ? @VA08652 00015000
R08652DK: BO FORDIAG YES, CLEANUP @VA08652 00016000
R08652DK: ./ I 855000 $ 855500 500 00017000
R08652DK: FORDIAG EQU * @VA08652 00018000
BEGIN APPLY >>> ./ I 152000 $ 152500 00001000
END APPLY >>> ./ I 152000 $ 152500 00001000
BEGIN APPLY >>> ./ I 811000 $ 811050 50 00003000
END APPLY >>> ./ I 811000 $ 811050 50 00003000
BEGIN APPLY >>> ./ I 853000 $ 853300 300 00014000
END APPLY >>> ./ I 853000 $ 853300 300 00014000
BEGIN APPLY >>> ./ I 855000 $ 855500 500 00017000
END APPLY >>> ./ I 855000 $ 855500 500 00017000
Update Succeeded
Update Execution Time 16 milliseconds.
R10854DK
Date Monday May 05, 1980 05:05:00 AM
Loaded from MAINT(294)
R10854DK: ./ R 959000 $ 959010 10 00001000
R10854DK: RESCSPL DS 0H @VA10854 00002000
R10854DK: TM VDEVTYPE,TYPSS COMMUN CONSOL ? @VA10854 00003000
R10854DK: BM RESEXIT TTY OR SS @VA10854 00004000
R10854DK: NI VDEVFLAG,X'FF'-VDEVCSPL @VA10854 00005000
BEGIN APPLY >>> ./ R 959000 $ 959010 10 00001000
END APPLY >>> ./ R 959000 $ 959010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11455DK
Date Friday Jul 25, 1980 07:25:00 AM
Loaded from MAINT(294)
R11455DK: ./ R 146100 $ 146110 00001000
R11455DK: EXTRN DMKSSUCF @VA11455 00002000
R11455DK: ./ R 506120 $ 506121 00003000
R11455DK: CALL DMKSSUCF @VA11455 00004000
BEGIN APPLY >>> ./ R 146100 $ 146110 00001000
END APPLY >>> ./ R 146100 $ 146110 00001000
BEGIN APPLY >>> ./ R 506120 $ 506121 00003000
END APPLY >>> ./ R 506120 $ 506121 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R11340DK
Date Friday Sep 26, 1980 09:04:00 AM
Loaded from MAINT(294)
R11340DK: ./ D 152500 00001000
R11340DK: ./ D 811050 811500 00002000
R11340DK: ./ D 853300 853600 00003000
R11340DK: ./ D 855500 00004000
BEGIN APPLY >>> ./ D 152500 00001000
END APPLY >>> ./ D 152500 00001000
BEGIN APPLY >>> ./ D 811050 811500 00002000
END APPLY >>> ./ D 811050 811500 00002000
BEGIN APPLY >>> ./ D 853300 853600 00003000
END APPLY >>> ./ D 853300 853600 00003000
BEGIN APPLY >>> ./ D 855500 00004000
END APPLY >>> ./ D 855500 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R11970DK
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11970DK: ./ I 506030 $ 506032 2 00001000
R11970DK: TM VDEVTYPC,CLASDASD @VA11970 00002000
R11970DK: BNO NOTVUA @VA11970 00003000
BEGIN APPLY >>> ./ I 506030 $ 506032 2 00001000
END APPLY >>> ./ I 506030 $ 506032 2 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13280DK
Date Wednesday Jun 24, 1981 05:27:00 AM
Loaded from MAINT(294)
R13280DK: ./ I 384000 $ 384100 100 00001000
R13280DK: TM VMRSTAT,VMLOGOFF IS USER LOGGING OFF ? @VA13280 00002000
R13280DK: BZ RESXCH NO, SKIP DEDICATED CHAN. CHECK @VA13280 00003000
R13280DK: TM VCHSTAT,VCHDED IS THIS A DEDICATED CHANNEL ? @VA13280 00004000
R13280DK: BZ RESXCH NO, SKIP DEDICATED CHAN. CHECK @VA13280 00005000
R13280DK: *-------RESET DEDICATED CHANNEL FLAG IN RCHBLOK-------* 00006000
R13280DK: L R9,VCHRCHAD GET RCHBLOK ADDRESS @VA13280 00007000
R13280DK: NI RCHSTAT-RCHBLOK(R9),X'FF'-RCHDED @VA13280 00008000
BEGIN APPLY >>> ./ I 384000 $ 384100 100 00001000
END APPLY >>> ./ I 384000 $ 384100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:27:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R13704DK
Date Friday Aug 07, 1981 07:17:00 AM
Loaded from MAINT(294)
R13704DK: ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
R13704DK: * DMKDIBDR - TO DROP A DIALED LINE 00002000
R13704DK: ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
R13704DK: EXTRN DMKDIBDR @VA13704 00004000
R13704DK: ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
R13704DK: * VIA A CALL TO DMKDIBDR. 00006000
R13704DK: ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
R13704DK: CALL DMKDIBDR DROP THE LINE @VA13704 00008000
R13704DK: ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
R13704DK: CALL DMKDIBDR IF SO, INFORM THE PREVIOUS USER @VA13704 00010000
BEGIN APPLY >>> ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
END APPLY >>> ./ R 00062000 $ 62000 1000 06/26/81 07:56:15 00001000
BEGIN APPLY >>> ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
END APPLY >>> ./ R 00143000 $ 143000 1000 06/26/81 07:56:15 00003000
BEGIN APPLY >>> ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
END APPLY >>> ./ R 00461000 $ 461000 1000 06/26/81 07:56:15 00005000
BEGIN APPLY >>> ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
END APPLY >>> ./ R 00544000 $ 544000 1000 06/26/81 07:56:15 00007000
BEGIN APPLY >>> ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
END APPLY >>> ./ R 00881000 $ 881000 1000 06/26/81 07:56:15 00009000
Update Succeeded
Update Execution Time 23 milliseconds.
R13588DK
Date Thursday Aug 27, 1981 08:24:00 AM
Loaded from MAINT(294)
R13588DK: ./ I 00384700 $ 00384710 10 00001000
R13588DK: *DETACH CHANNEL MSG TO OPERATOR AT LOGOFF IF NO DET CMD ISSUED 00002000
R13588DK: LR R3,R1 SAVE R1 TEMPORARILY @VA13588 00003000
R13588DK: LH R1,RCHADD-RCHBLOK(R9) REAL CHANNEL ADDRESS @VA13588 00004000
R13588DK: CALL DMKCVTBH CONVERT CHAN ADDR TO HEX @VA13588 00005000
R13588DK: LR R9,R1 SAVE R1 TEMPORARILY @VA13588 00006000
R13588DK: LA R0,DETDSIZE SEZE OF THE MSG @VA13588 00007000
R13588DK: CALL DMKFREE GET FREE STORAGE @VA13588 00008000
R13588DK: USING DETMSG,R1 TEMP ADDRESSABILITY @VA13588 00009000
R13588DK: MVC DETMSG(DETSIZE1),=C'CHAN X DETACHED ' @VA13588 00010000
R13588DK: MVC DETUSER(8),VMUSER THE USERID @VA13588 00011000
R13588DK: STCM R9,B'0100',DETRADD CHANNEL NUMBER @VA13588 00012000
R13588DK: LA R0,DETSIZE SIZE OF THE MESSAGE @VA13588 00013000
R13588DK: CALL DMKQCNWT,PARM=NORET+OPERATOR WRITE TO OPERATOR @VA13588 00014000
R13588DK: LA R0,DETDSIZE SIZE OF THE MSG @VA13588 00015000
R13588DK: CALL DMKFRET FRET THE MSG STORAGE @VA13588 00016000
R13588DK: DROP R1 DROP TEMP ADDRESSABILITY @VA13588 00017000
R13588DK: SLR R0,R0 RESTORE R0 @VA13588 00018000
R13588DK: LR R1,R3 RESTORE R1 @VA13588 00019000
R13588DK: ./ R 00999000 $ 00999000 1000 00020000
R13588DK: EJECT 00021000
R13588DK: ./ I 01026000 $ 01026090 50 00022000
R13588DK: DETMSG DSECT RESPONSE FOR DETACH CHANNEL AT LOGOFF TIME@VA13588 00023000
R13588DK: DS CL4,CL1 CHANNEL,BLANK @VA13588 00024000
R13588DK: DETRADD DS CL1,CL2 CHANNEL ADDRESS,BLANK @VA13588 00025000
R13588DK: DS CL8,CL2 DETACHED,BLANK @VA13588 00026000
R13588DK: DETSIZE1 EQU *-DETMSG MSG SIZE(MINUS USERID) @VA13588 00027000
R13588DK: DETUSER DS CL8 USERID @VA13588 00028000
R13588DK: DETSIZE EQU *-DETMSG MSG SIZE @VA13588 00029000
R13588DK: DETDSIZE EQU (DETSIZE+7)/8 SIZE IN DOUBLE WORDS @VA13588 00030000
BEGIN APPLY >>> ./ I 00384700 $ 00384710 10 00001000
END APPLY >>> ./ I 00384700 $ 00384710 10 00001000
BEGIN APPLY >>> ./ R 00999000 $ 00999000 1000 00020000
END APPLY >>> ./ R 00999000 $ 00999000 1000 00020000
BEGIN APPLY >>> ./ I 01026000 $ 01026090 50 00022000
END APPLY >>> ./ I 01026000 $ 01026090 50 00022000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC013DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC013DK: ./ * ************* PER001 00001000
HRC013DK: ./ * * PER001 00002000
HRC013DK: ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
HRC013DK: ./ * * PER001 00004000
HRC013DK: ./ * ************* PER001 00005000
HRC013DK: ./ * PER001 00006000
HRC013DK: ./ D 338000 $ PER001 00007000
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 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
Comment >>> ./ * * PER001 10/24/77 ADD "P.E.R." TRACE FACILITY PER001 00003000
END APPLY >>> ./ * * PER001 10/24/77 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 >>> ./ * PER001 00006000
Comment >>> ./ * PER001 00006000
END APPLY >>> ./ * PER001 00006000
BEGIN APPLY >>> ./ D 338000 $ PER001 00007000
END APPLY >>> ./ D 338000 $ PER001 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00936000 $ 936490 490 03/11/06 20:43:50
HRC101DK: LH R0,VCONRBSZ YES - GET SIZE IN DWDS HRC101DK 00936000
BEGIN APPLY >>> ./ R 00936000 $ 936490 490 03/11/06 20:43:50
END APPLY >>> ./ R 00936000 $ 936490 490 03/11/06 20:43:50
Update Succeeded
Update Execution Time 23 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00073000 $ 00073100 100
HRC065DK: * HDKD7CTM - TERMINATE ACTIVE LOGICAL DEVICES HRC065DK
HRC065DK: ./ I 00155000 $ 00155100 100
HRC065DK: EXTRN HDKD7CTM HRC065DK
HRC065DK: ./ I 00237000 $ 00237100 100
HRC065DK: CLC INSTWRD1+1(3),ZEROES Are LDEVs active? HRC065DK
HRC065DK: BE LDEVDONE No, anchor is zero HRC065DK
HRC065DK: CALL HDKD7CTM Call rtn to term LDEVs HRC065DK
HRC065DK: *
HRC065DK: LDEVDONE EQU * HRC065DK
BEGIN APPLY >>> ./ I 00073000 $ 00073100 100
END APPLY >>> ./ I 00073000 $ 00073100 100
BEGIN APPLY >>> ./ I 00155000 $ 00155100 100
END APPLY >>> ./ I 00155000 $ 00155100 100
BEGIN APPLY >>> ./ I 00237000 $ 00237100 100
END APPLY >>> ./ I 00237000 $ 00237100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkcfp.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator