ibm:vm370-lib:cp:dmkqcn.assemble_hst
Table of Contents
DMKQCN History
References
- Fixes Applied : 22
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKQCN ASSEMBLE
Date : 12/9/1978 4:55:00 AM
VM Context : MAINT(394)
File Name : DMKQCN.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R09296DK 601 REASSEMBLE FOR V09296
- R08928DK 601 CORRECT BAD COMMENTS
- R08501DK 602 DISALLOW COMMAND EXECUTION IF IN LOGOFF OR FORCE
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09459DK 607 REDEFINE NOMC PARM TO AVOID CONFLICT WITH FSS PARMS
- R10666DK 611 INDICATE FORCE LOGOFF
- R10061DK 611 REPLY TO FORCE COMMAND WORD FORCED LEFT OFF DMKUSO DMKDSP
- R11248DK 612 UV00846 IF SLEEP FIRST CMD AFTER LOGON VMBLOK NOT FRETTED
- R09338DK 613 UV01030 BACKSPACE COUNT NOT HANDLED CORECTLY
- R11535DK 613 UV01737 PE VM11248 SLEEP ENTERED AS FIRST CMD, NO LOGOFF
- R11241DK 615 UV01756 ABENDFRE001 IF MESSAGE SENT TO DIALING TERMINAL
- R13491DK 623 UV05117 CORRECT HANDLING OF START FIELDS IN MESSAGES
- R13026DK 624 UV04977 APARS DO NOT COMPLETELY FIX PROBLEM IN USO FOR R2
- R14333DK 625 UV05651 DMKQCN DOESN'T HANDLE CARRIAGE RETURN WITH NOAUTO
- R13038DK 629 UV05394 EXTRA CARRIAGE RETURNS D/T3215 FROM QUERY RDR ALL
- R16325DK 629 BUCKET ABENDPRG006 DMKQCN AFTER VM13038
- HRC021DK V01 SUPPORT PREFIX PERIOD CONSOLE OUTPUT SUPPRESSION
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
- HRC062DK V03 DIAG58 QUEUED MESSAGE SUPPORT
- HRC063DK V04 DIAG 58 FRE013 if Full Screen write is last FS operation.
- HRC064DK V05 DIAG 58 is queuing msgs meant for DIAG X'08' response area
- HRC065DK V01 Logical Device Support Facility
R09296DK
Date Monday Jan 29, 1979 02:39:00 PM
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.
R08928DK
Date Monday Feb 26, 1979 04:30:00 PM
Loaded from MAINT(294)
R08928DK: ./ R 949000 $ 949500
R08928DK: * SERIALLY REUSABLE, RESIDENT, CALLED VIA BALR
BEGIN APPLY >>> ./ R 949000 $ 949500
END APPLY >>> ./ R 949000 $ 949500
Update Succeeded
Update Execution Time 16 milliseconds.
R08501DK
Date Monday Apr 23, 1979 04:20:00 AM
Loaded from MAINT(294)
R08501DK: ./ I 834500 $ 835000 100 00001000
R08501DK: TM VMOSTAT,VMKILL ALREADY BEING FORCED? @VA08501 00002000
R08501DK: BO DSCEXIT YES...JUST EXIT @VA08501 00003000
BEGIN APPLY >>> ./ I 834500 $ 835000 100 00001000
END APPLY >>> ./ I 834500 $ 835000 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09957DK
Date Thursday Jul 12, 1979 09:53: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.
R09459DK
Date Friday Nov 30, 1979 09:10:00 AM
Loaded from MAINT(294)
R09459DK: ./ R 1167500 $ 1167500 00001000
R09459DK: NOMC EQU X'10' DON'T ALLOW MONITOR CALL @VA09459 00002000
BEGIN APPLY >>> ./ R 1167500 $ 1167500 00001000
END APPLY >>> ./ R 1167500 $ 1167500 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10666DK
Date Thursday Apr 03, 1980 02:28:00 AM
Loaded from MAINT(294)
R10666DK: ./ I 931000 $ 931500 00001000
R10666DK: OI VMSPMFLG,VMFRCLOG FORCE @VA10666 00002000
BEGIN APPLY >>> ./ I 931000 $ 931500 00001000
END APPLY >>> ./ I 931000 $ 931500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10061DK
Date Wednesday Apr 09, 1980 04:34:00 PM
Loaded from MAINT(294)
R10061DK: ./ I 00034550 $ 00034600 00001000
R10061DK: EXTRN DMKDSPKL @VA10061 00002000
R10061DK: ./ I 930000 $ 930200 00003000
R10061DK: B QCNKIL DONOT ADJUST R12 @VA10061 00004000
R10061DK: ./ I 930500 $ 930600 100 00005000
R10061DK: USING QCNLOG,R12 @VA10061
R10061DK: SL R12,=A(QCNLOG-DSCTLOG) SET R12 TO DSCTLOG @VA10061 00006000
R10061DK: QCNKIL DS 0H @VA10061 00007000
R10061DK: ./ I 932000 $ 932500 00008000
R10061DK: LA R2,FORCE INDICATE FORCE @VA10061 00009000
R10061DK: ./ R 00933000 $ 00933100 00010000
R10061DK: USING DSCTLOG,R12 @VA10061
R10061DK: GOTO DMKDSPKL PRESERVE R2 TO INDICATE FORCE @VA10061 00011000
R10061DK: ./ D 1164300 1164600 $ 00012000
BEGIN APPLY >>> ./ I 00034550 $ 00034600 00001000
END APPLY >>> ./ I 00034550 $ 00034600 00001000
BEGIN APPLY >>> ./ I 930000 $ 930200 00003000
END APPLY >>> ./ I 930000 $ 930200 00003000
BEGIN APPLY >>> ./ I 930500 $ 930600 100 00005000
END APPLY >>> ./ I 930500 $ 930600 100 00005000
BEGIN APPLY >>> ./ I 932000 $ 932500 00008000
END APPLY >>> ./ I 932000 $ 932500 00008000
BEGIN APPLY >>> ./ R 00933000 $ 00933100 00010000
END APPLY >>> ./ R 00933000 $ 00933100 00010000
BEGIN APPLY >>> ./ D 1164300 1164600 $ 00012000
END APPLY >>> ./ D 1164300 1164600 $ 00012000
Update Succeeded
Update Execution Time 23 milliseconds.
R11248DK
Date Monday May 05, 1980 04:15:00 AM
Loaded from MAINT(294)
R11248DK: ./ I 835100 $ 835200 100 00001000
R11248DK: TM VMOSTAT,VMSLEEP USER SLEEPING? @VA11248 00002000
R11248DK: BNO TSTMORE NO, BUSINESS AS USUAL @VA11248 00003000
R11248DK: NI VMOSTAT,X'FF'-VMCF YES, RESET CONS FUNC MODE @VA11248 00004000
R11248DK: B TSTMORE CONTINUE @VA11248 00005000
BEGIN APPLY >>> ./ I 835100 $ 835200 100 00001000
END APPLY >>> ./ I 835100 $ 835200 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09338DK
Date Wednesday Jun 11, 1980 06:06:00 AM
Loaded from MAINT(294)
R09338DK: ./ R 581000 $ 581100 100 00001000
R09338DK: BL CRSCAN2 NO, KEEP SCANNING @VA09338 00002000
R09338DK: CLI 0(R5),X'16' IS THIS A BACKSPACE? @VA09338 00003000
R09338DK: BE CRSCAN2 YES, KEEP SCANNING @VA09338 00004000
R09338DK: LR R10,R7 DATA LENGTH TO R10 @VA09338 00005000
BEGIN APPLY >>> ./ R 581000 $ 581100 100 00001000
END APPLY >>> ./ R 581000 $ 581100 100 00001000
Update Succeeded
Update Execution Time 23 milliseconds.
R11535DK
Date Wednesday Jun 11, 1980 06:10:00 AM
Loaded from MAINT(294)
R11535DK: ./ D 835200 835500 00001000
R11535DK: ./ I 842200 $ 842210 10 00002000
R11535DK: TM VMOSTAT,VMSLEEP USER SLEEPING? @VA11535 00003000
R11535DK: BO DSCLLOG YES, LOG HIM OFF @VA11535 00004000
BEGIN APPLY >>> ./ D 835200 835500 00001000
END APPLY >>> ./ D 835200 835500 00001000
BEGIN APPLY >>> ./ I 842200 $ 842210 10 00002000
END APPLY >>> ./ I 842200 $ 842210 10 00002000
Update Succeeded
Update Execution Time 8 milliseconds.
R11241DK
Date Tuesday Jul 29, 1980 07:16:00 AM
Loaded from MAINT(294)
R11241DK: ./ I 476000 $ 476100 100 00001000
R11241DK: TM VMMLVL2,VMMDIAL USER ISSUED DIAL COMMAND? @VA11241 00002000
R11241DK: BO WRTINHB YEP, INHIBIT MSG NOW Y'HEAR @VA11241 00003000
BEGIN APPLY >>> ./ I 476000 $ 476100 100 00001000
END APPLY >>> ./ I 476000 $ 476100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13491DK
Date Thursday Aug 27, 1981 08:05:00 AM
Loaded from MAINT(294)
R13491DK: ./ I 00034600 $ 34800 200 06/18/81 17:47:59
R13491DK: EXTRN DMKTBLSF @VA13491 00034800
R13491DK: ./ I 00531750 $ 531757 7 06/18/81 17:47:59
R13491DK: SPACE 1 @VA13491 00531757
R13491DK: * SCAN THE LINE FOR ANY START FIELD ORDERS, @VA13491 00531764
R13491DK: * IF A X'1D' IS FOUND, CHANGE IT TO A BLANK @VA13491 00531771
R13491DK: SPACE 1 @VA13491 00531778
R13491DK: LH R15,CONCNT LOAD DATA LENGTH @VA13491 00531785
R13491DK: N R15,XRIGHT16 ZERO LEFTMOST HALFWORD @VA13491 00531792
R13491DK: LA R1,CONDATA LOAD DATA START ADDRESS @VA13491 00531799
R13491DK: AR R15,R1 SET DATA END ADDRESS @VA13491 00531806
R13491DK: L R14,=A(DMKTBLSF) LOAD TRANSLATE TABLE ADDRES @VA13491 00531820
R13491DK: CONTSCAN DS 0H @VA13491 00531827
R13491DK: LR R3,R15 LOAD DATA END ADDR @VA13491 00531834
R13491DK: SR R3,R1 COMPUTE DATA BALANCE @VA13491 00531841
R13491DK: BZ APLSPLT IF NO DATA GO CONTINUE @VA13491 00531848
R13491DK: C R3,F256 LAST SEGMENT? @VA13491 00531855
R13491DK: BL DOTRT YES, USE CURRENT LENGTH @VA13491 00531862
R13491DK: LA R3,256 LOAD MAX SEGMENT LENGTH @VA13491 00531869
R13491DK: DOTRT DS 0H @VA13491 00531876
R13491DK: BCTR R3,0 DECREMENT FOR EXECUTE @VA13491 00531883
R13491DK: EX R3,EXTRTSCN ANY SF ORDERS? @VA13491 00531890
R13491DK: BZ NEXTSCAN NO, GO CONTINUE WITH NEXT SEG @VA13491 00531897
R13491DK: MVI 0(R1),C' ' BLANK THE SF ORDER @VA13491 00531904
R13491DK: LA R1,1(R1) SET NEW SCAN START @VA13491 00531911
R13491DK: B CONTSCAN GO CHECK THE REST OF THE DATA @VA13491 00531918
R13491DK: NEXTSCAN DS 0H @VA13491 00531925
R13491DK: LA R1,1(R1,R3) SET NEW SCAN START @VA13491 00531932
R13491DK: B CONTSCAN GO SCAN THIS SEGMENT @VA13491 00531939
R13491DK: SPACE 1 @VA13491 00531946
R13491DK: EXTRTSCN TRT 0(*-*,R1),0(R14) LOCATE SF ORDER @VA13491 00531953
R13491DK: SPACE 2 @VA13491 00531960
R13491DK: * SPLIT INTO MULTIPLE CONTASKS IF NEEDED @VA13491 00531967
R13491DK: APLSPLT DS 0H @VA13491 00531974
R13491DK: ./ I 00575800 $ 575820 20 06/18/81 17:47:59
R13491DK: CLI 0(R5),X'1D' IS THIS A START FIELD? @VA13491 00575820
R13491DK: BNE NOIMSF NO - GO COUNT IT @VA13491 00575840
R13491DK: LTR R0,R0 YES - NON-GRAPHICS DEVICE? @VA13491 00575860
R13491DK: BNZ NOIMSF YES - PASS IT AS A CHARACTER @VA13491 00575880
R13491DK: MVI 0(R5),C' ' BLANK THE SF ORDER @VA13491 00575900
R13491DK: NOIMSF DS 0H @VA13491 00575920
R13491DK: ./ I 01168000 $ 1168100 100 06/18/81 17:47:59
R13491DK: DS 0F FORCE ALIGNMENT FOR MASK WORK @VA13491 01168100
R13491DK: ATTRMSK1 DC X'0000001C' MASK FOR VALID SF ORDER BITS @VA13491 01168200
R13491DK: SPACE 1 @VA13491 01168300
R13491DK: * TABLE OF ACCEPTABLE SF ATTRIBUTES @VA13491 01168400
R13491DK: ATTRTBL DC XL1'60',XL1'E4',XL1'E8',XL1'6C' @VA13491 01168500
R13491DK: DC XL1'F0',XL1'F4',XL1'F8',XL1'7C' @VA13491 01168600
R13491DK: EJECT . @VA13491 01168700
BEGIN APPLY >>> ./ I 00034600 $ 34800 200 06/18/81 17:47:59
END APPLY >>> ./ I 00034600 $ 34800 200 06/18/81 17:47:59
BEGIN APPLY >>> ./ I 00531750 $ 531757 7 06/18/81 17:47:59
END APPLY >>> ./ I 00531750 $ 531757 7 06/18/81 17:47:59
BEGIN APPLY >>> ./ I 00575800 $ 575820 20 06/18/81 17:47:59
END APPLY >>> ./ I 00575800 $ 575820 20 06/18/81 17:47:59
BEGIN APPLY >>> ./ I 01168000 $ 1168100 100 06/18/81 17:47:59
END APPLY >>> ./ I 01168000 $ 1168100 100 06/18/81 17:47:59
Update Succeeded
Update Execution Time 23 milliseconds.
R13026DK
Date Wednesday Sep 23, 1981 09:14:00 AM
Loaded from MAINT(294)
R13026DK: ./ D 34600 $ 00001000
R13026DK: ./ R 842300 $ 842300 50 00002000
R13026DK: OI VMSVSTAT,VMLGFORC INDICATE USER WAS FORCED @VA13026 00003000
R13026DK: OI VMOSTAT,VMCF+VMKILL COMPLETE CF THEN LOGOFF @VA13026 00004000
R13026DK: ./ R 931500 $ 931500 500 00005000
R13026DK: OI VMSVSTAT,VMLGFORC FORCE @VA13026 00006000
R13026DK: ./ D 932500 $ 00007000
R13026DK: ./ R 933200 $ 933200 800 00008000
R13026DK: GOTO DMKDSPCH GO TO DSPCH TO INITIATE FORCE @VA13026 00009000
BEGIN APPLY >>> ./ D 34600 $ 00001000
END APPLY >>> ./ D 34600 $ 00001000
BEGIN APPLY >>> ./ R 842300 $ 842300 50 00002000
END APPLY >>> ./ R 842300 $ 842300 50 00002000
BEGIN APPLY >>> ./ R 931500 $ 931500 500 00005000
END APPLY >>> ./ R 931500 $ 931500 500 00005000
BEGIN APPLY >>> ./ D 932500 $ 00007000
END APPLY >>> ./ D 932500 $ 00007000
BEGIN APPLY >>> ./ R 933200 $ 933200 800 00008000
END APPLY >>> ./ R 933200 $ 933200 800 00008000
Update Succeeded
Update Execution Time 16 milliseconds.
R14333DK
Date Tuesday Oct 27, 1981 01:53:00 PM
Loaded from MAINT(294)
R14333DK: ./ R 588000 $ 588100 00001000
R14333DK: BE CRSCAN3C @VA14333 00002000
R14333DK: ./ I 592000 $ 592100 00005000
R14333DK: CRSCAN3C DS 0H @VA14333 00006000
BEGIN APPLY >>> ./ R 588000 $ 588100 00001000
END APPLY >>> ./ R 588000 $ 588100 00001000
BEGIN APPLY >>> ./ I 592000 $ 592100 00005000
END APPLY >>> ./ I 592000 $ 592100 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R13038DK
Date Thursday Mar 25, 1982 03:57:00 PM
Loaded from MAINT(294)
R13038DK: ./ I 456000 $ 456010 10 00001000
R13038DK: LH R3,CONCNT DATA COUNT FROM CONTASK @VA13038 00002000
R13038DK: ICM R5,8,BLANK SET PAD CHARACTER TO X'40' FOR @VA13038 00003000
R13038DK: ./ I 1167000 $ 1167050 50
R13038DK: BLANK EQU X'40' BLANK @VA13038
BEGIN APPLY >>> ./ I 456000 $ 456010 10 00001000
END APPLY >>> ./ I 456000 $ 456010 10 00001000
BEGIN APPLY >>> ./ I 1167000 $ 1167050 50
END APPLY >>> ./ I 1167000 $ 1167050 50
Update Succeeded
Update Execution Time 16 milliseconds.
R16325DK
Date Friday Aug 30, 1985 11:40:00 AM
Loaded from MAINT(294)
R16325DK: ./ R 456000 $ 456005 5 00001000
R16325DK: BNP WRMSKIP SKIP MOVE IF ZERO-LENGTH DATA 00002000
R16325DK: ./ I 457000 $ 457500 500 00003000
R16325DK: WRMSKIP DS 0H 00004000
BEGIN APPLY >>> ./ R 456000 $ 456005 5 00001000
END APPLY >>> ./ R 456000 $ 456005 5 00001000
BEGIN APPLY >>> ./ I 457000 $ 457500 500 00003000
END APPLY >>> ./ I 457000 $ 457500 500 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC021DK
Date Thursday Feb 09, 2006 10:00:00 AM
Loaded from MAINT(094)
HRC021DK: ./ I 00472000
HRC021DK: TM CONPARM,LOGDROP+LOGHOLD THIS LOGOFF COMMAND? HRC021DK 00472100
HRC021DK: BNZ NOSUPP YES...DON'T SUPPRESS LOGOFF MSG HRC021DK 00472200
HRC021DK: ./ I 00474000
HRC021DK: TM VMHRCFLG,VMTRMOFF SUPPRESSING CONS OUTPUT? HRC021DK 00474100
HRC021DK: BO WRSKIP YES... HRC021DK 00474200
HRC021DK: NOSUPP EQU * HRC021DK 00474300
HRC021DK: ./ I 00518000
HRC021DK: WRSKIP EQU * HRC021DK 00518100
BEGIN APPLY >>> ./ I 00472000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00472000
BEGIN APPLY >>> ./ I 00474000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00474000
BEGIN APPLY >>> ./ I 00518000
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00518000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Mar 14, 2006 09:13:00 PM
Loaded from MAINT(094)
HRC101DK: ./ I 00352000 $ 352500 500 03/14/06 21:13:00
HRC101DK: XC SAVEWRK9,SAVEWRK9 CLEAR FOR FLAGS LATER HRC101DK 00352500
HRC101DK: ./ I 00371000 $ 371100 100 03/14/06 21:13:00
HRC101DK: TM VMMLEVEL,VMMSTMP ALL TIME STAMPS ON HRC101DK 00371100
HRC101DK: BNO QCN003A NO, CONTINUE HRC101DK 00371200
HRC101DK: NI SAVEWRK1,255-NOTIME RESET NO TIME STAMP HRC101DK 00371300
HRC101DK: B QCN003B CONTINUE HRC101DK 00371400
HRC101DK: QCN003A EQU * HRC101DK 00371500
HRC101DK: ./ I 00372000 $ 372500 500 03/14/06 21:13:00
HRC101DK: QCN003B EQU * HRC101DK 00372500
HRC101DK: ./ I 00429100 $ 429120 20 03/14/06 21:13:00
HRC101DK: TM SAVER2+2,HILIGHT/256 HILIGHT REQUESTED ? HRC101DK 00429120
HRC101DK: BZ WRNHLITE NO, SKIP THIS HRC101DK 00429140
HRC101DK: ICM R8,B'1111',VMTERM GET TERM RDEVBLOK ADDRESS HRC101DK 00429160
HRC101DK: USING RDEVBLOK,R8 HRC101DK 00429180
HRC101DK: BZ WRNHLITE NO, SKIP HILIGHT HRC101DK 00429200
HRC101DK: TM RDEVTYPC,CLASGRAF HRC101DK 00429220
HRC101DK: BZ CHKCLRGF NO, CHECK FOR REMOTE GRAF HRC101DK 00429240
HRC101DK: TM RDEVTYPE,TYP3277+TYP3278 3270 FAMILY ? HRC101DK 00429260
HRC101DK: BZ WRNHLITE NO, SKIP HILIGHT HRC101DK 00429280
HRC101DK: SPACE , HRC101DK 00429300
HRC101DK: MSGHILT EQU * HRC101DK 00429320
HRC101DK: LA R4,4(,R4) ADJUST LENGTH FOR HILIGHT HRC101DK 00429340
HRC101DK: MVI SAVEWRK9+3,X'01' INDICATE HILIGHTED MSG? HRC101DK 00429360
HRC101DK: B WRNHLITE HRC101DK 00429380
HRC101DK: SPACE , HRC101DK 00429400
HRC101DK: CHKCLRGF EQU * HRC101DK 00429420
HRC101DK: TM RDEVTYPC,CLASTERM TERMINAL CLASS FOR REMOTE HRC101DK 00429440
HRC101DK: BZ WRNHLITE HRC101DK 00429460
HRC101DK: TM RDEVTYPE,TYPBSC HRC101DK 00429480
HRC101DK: BO MSGHILT HRC101DK 00429500
HRC101DK: SPACE , HRC101DK 00429520
HRC101DK: WRNHLITE EQU * HRC101DK 00429540
HRC101DK: ./ R 00431100 00432100 $ 432090 990 03/14/06 21:13:00
HRC101DK: C R5,F13 MUST HAVE AT LEAST 13 EXTRA HRC101DK 00432090
HRC101DK: BNL *+8 ALREADY > 13 HRC101DK 00433080
HRC101DK: LA R5,13 < 13, MAKE IT 13 (MINIMUM) HRC101DK 00434070
HRC101DK: ./ I 00445000 $ 445100 100 03/14/06 21:13:00
HRC101DK: CLI SAVEWRK9+3,X'01' HILIGHTED MSG? HRC101DK 00445100
HRC101DK: BNE WRTIME NO, CONTINUE HRC101DK 00445200
HRC101DK: MVC 0(2,R2),=AL1(SF,ATTRPRHI) HRC101DK 00445300
HRC101DK: LA R2,2(,R2) INCREMENT THE POINTER HRC101DK 00445400
HRC101DK: SPACE , HRC101DK 00445500
HRC101DK: WRTIME EQU * HRC101DK 00445600
HRC101DK: ./ R 00450000 00451000 $ 450590 590 03/14/06 21:13:00
HRC101DK: MVI 8(R2),C' ' CLEAN UP HRC101DK 00450590
HRC101DK: LA R2,9(R2) NEW START ADDRESS FOR DATA HRC101DK 00451180
HRC101DK: ./ R 00456020 $ 456310 290 03/14/06 21:13:00
HRC101DK: ICM R5,8,BLANKS SET PAD CHARACTER TO X'40' FOR HRC101DK 00456410
HRC101DK: LR R1,R2 HRC101DK
HRC101DK: ./ I 00457500 $ 457570 70 03/14/06 21:13:00
HRC101DK: CLI SAVEWRK9+3,X'01' HRC101DK 00457550
HRC101DK: BNE WRMSKIP2 HRC101DK 00457600
HRC101DK: L R3,SAVEWRK2 HRC101DK
HRC101DK: AR R1,R3 HRC101DK
HRC101DK: MVC 0(2,R1),=AL1(SF,ATTRPRLO) HRC101DK 00457850
HRC101DK: WRMSKIP2 DS 0H HRC101DK 00457950
HRC101DK: ./ R 00531897 $ 531898 1 03/14/06 21:13:00
HRC101DK: TM 1(R1),X'01' MDT ON ? HRC101DK 00531898
HRC101DK: BO BLANKIT YES, BLANK IT HRC101DK 00531899
HRC101DK: TM 1(R1),X'20' PROTECTED FIELD? HRC101DK 00531900
HRC101DK: BO NEXTSCAN YES, THEN OK. HRC101DK 00531901
HRC101DK: BLANKIT DS 0H HRC101DK 00531902
HRC101DK: MVI 0(R1),C' ' BLANK THE SF ORDER HRC101DK 00531903
HRC101DK: ./ I 00575880 $ 575882 2 03/14/06 21:13:00
HRC101DK: TM 1(R5),X'01' IS MDT ON ? HRC101DK 00575882
HRC101DK: BO SFBLANK BLANK IT HRC101DK 00575884
HRC101DK: TM 1(R5),X'20' IS PROTECT ON ? HRC101DK 00575886
HRC101DK: BO NOIMSF YES, CONTINUE HRC101DK 00575888
HRC101DK: SPACE , HRC101DK 00575890
HRC101DK: SFBLANK DS 0H HRC101DK 00575892
HRC101DK: ./ I 00575900 $ 575910 10 03/14/06 21:13:00
HRC101DK: SPACE , HRC101DK 00575910
HRC101DK: ./ R 00614600 00615600 $ 615190 590 03/14/06 21:13:00
HRC101DK: C R7,F13 MUST HAVE AT LEAST 14 EXTRA HRC101DK 00615190
HRC101DK: BNL *+8 ALREADY > 13 HRC101DK 00615780
HRC101DK: LA R7,13 < 13 MAKE IT 13 MINIMUM HRC101DK 00616370
HRC101DK: ./ R 01167050 $ 1167100 50 03/14/06 21:13:00
HRC101DK: SPACE , HRC101DK 01167100
HRC101DK: F13 DC F'13' HRC101DK 01167150
HRC101DK: SF EQU X'1D' START FIELD DEFINITION HRC101DK 01167200
HRC101DK: ATTRPRHI EQU X'E8' PROTECTED, HI INTENSITY HRC101DK 01167250
HRC101DK: ATTRPRLO EQU X'60' PROTECTED, LOW INTENSITY HRC101DK 01167300
HRC101DK: SPACE , HRC101DK 01167350
HRC101DK: ./ R 01168700 01170000 $ 1169190 490 03/14/06 21:13:00
HRC101DK: EJECT , HRC101DK 01169190
HRC101DK: LTORG , HRC101DK 01169680
HRC101DK: EJECT , HRC101DK 01170170
BEGIN APPLY >>> ./ I 00352000 $ 352500 500 03/14/06 21:13:00
END APPLY >>> ./ I 00352000 $ 352500 500 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00371000 $ 371100 100 03/14/06 21:13:00
END APPLY >>> ./ I 00371000 $ 371100 100 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00372000 $ 372500 500 03/14/06 21:13:00
END APPLY >>> ./ I 00372000 $ 372500 500 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00429100 $ 429120 20 03/14/06 21:13:00
END APPLY >>> ./ I 00429100 $ 429120 20 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 00431100 00432100 $ 432090 990 03/14/06 21:13:00
END APPLY >>> ./ R 00431100 00432100 $ 432090 990 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00445000 $ 445100 100 03/14/06 21:13:00
END APPLY >>> ./ I 00445000 $ 445100 100 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 00450000 00451000 $ 450590 590 03/14/06 21:13:00
END APPLY >>> ./ R 00450000 00451000 $ 450590 590 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 00456020 $ 456310 290 03/14/06 21:13:00
END APPLY >>> ./ R 00456020 $ 456310 290 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00457500 $ 457570 70 03/14/06 21:13:00
END APPLY >>> ./ I 00457500 $ 457570 70 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 00531897 $ 531898 1 03/14/06 21:13:00
END APPLY >>> ./ R 00531897 $ 531898 1 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00575880 $ 575882 2 03/14/06 21:13:00
END APPLY >>> ./ I 00575880 $ 575882 2 03/14/06 21:13:00
BEGIN APPLY >>> ./ I 00575900 $ 575910 10 03/14/06 21:13:00
END APPLY >>> ./ I 00575900 $ 575910 10 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 00614600 00615600 $ 615190 590 03/14/06 21:13:00
END APPLY >>> ./ R 00614600 00615600 $ 615190 590 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 01167050 $ 1167100 50 03/14/06 21:13:00
END APPLY >>> ./ R 01167050 $ 1167100 50 03/14/06 21:13:00
BEGIN APPLY >>> ./ R 01168700 01170000 $ 1169190 490 03/14/06 21:13:00
END APPLY >>> ./ R 01168700 01170000 $ 1169190 490 03/14/06 21:13:00
Update Succeeded
Update Execution Time 47 milliseconds.
HRC062DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC062DK: ./ I 00352500 $ 00352510 10
HRC062DK: TM SAVER2+3,VMGENIO Virtual machine i/o? HRC062DK
HRC062DK: BO QCN000 Do not queue it up HRC062DK
HRC062DK: CLC VMVTERM,=X'FFFF' Does virt console exist?HRC062DK
HRC062DK: BE QCN000 No vcons available HRC062DK
HRC062DK: ICM R8,15,VMTERM -> RDEVBLOK of virt consHRC062DK
HRC062DK: BZ QCN000 No RDEVBLOK, exit HRC062DK
HRC062DK: USING RDEVBLOK,R8 HRC062DK
HRC062DK: TM RDEVSTA3,RDEVFULL Dev in full screen mode?HRC062DK
HRC062DK: BZ QCN000 No HRC062DK
HRC062DK: DROP R8 RDEVBLOK HRC062DK
HRC062DK: C R0,=F'256' Message len > 256? HRC062DK
HRC062DK: BH QCN000 Don't queue it, send nowHRC062DK
HRC062DK: * HRC062DK
HRC062DK: SRL R0,3 Compute msg size in dwdsHRC062DK
HRC062DK: LA R1,QMBSIZE+1 Size of QMBLOK + 1 dwordHRC062DK
HRC062DK: AR R0,R1 Size of area needed HRC062DK
HRC062DK: CALL DMKFREE Get QMBLOK stg HRC062DK
HRC062DK: XC 0(QMBSIZE*8,R1),0(R1) Init fixed part QMBLOK HRC062DK
HRC062DK: USING QMBLOK,R1 QMBLOK is def in VBLOKS HRC062DK
HRC062DK: * HRC062DK
HRC062DK: ST R0,QMSIZE Save size of this QMBLOKHRC062DK
HRC062DK: ST R2,QMQCNR2 Save QCN R2 options HRC062DK
HRC062DK: LH R8,VMVTERM Displ of vcons VDEVBLOK HRC062DK
HRC062DK: AL R8,VMDVSTRT -> vconsole VDEVBLOK HRC062DK
HRC062DK: USING VDEVBLOK,R8 HRC062DK
HRC062DK: LA R2,VDEVQMB -> QMBLOK anchor HRC062DK
HRC062DK: *
HRC062DK: QMCH000 EQU *
HRC062DK: ICM R0,15,QMNEXT-QMBLOK(R2) -> next QMBLOK HRC062DK
HRC062DK: BZ QMCH010 Find end of QMBLOK chainHRC062DK
HRC062DK: LR R2,R0 Copy QMBLOK ptr HRC062DK
HRC062DK: B QMCH000 Find end of chain HRC062DK
HRC062DK: *
HRC062DK: QMCH010 EQU *
HRC062DK: ST R1,QMNEXT-QMBLOK(,R2) Queue QMBLOK to chain HRC062DK
HRC062DK: LM R14,R15,SAVER0 Get message len, addr HRC062DK
HRC062DK: ST R14,QMQCNR0 Save original msg lengthHRC062DK
HRC062DK: BCTR R14,0 Make IBM length HRC062DK
HRC062DK: EX R14,QCNMVC Move msg to QMBLOK HRC062DK
HRC062DK: SR R2,R2 Set RC=0 and CC=0 HRC062DK
HRC062DK: B QCNEXIT Exit DMKQCN to caller HRC062DK
HRC062DK: * HRC062DK
HRC062DK: QCNMVC MVC QMMSGTXT(0),0(R15) Executed instr HRC062DK
HRC062DK: DROP R1,R8 QMBLOK, VDEVBLOK HRC062DK
HRC062DK: * HRC062DK
HRC062DK: QCN000 EQU * HRC062DK
BEGIN APPLY >>> ./ I 00352500 $ 00352510 10
END APPLY >>> ./ I 00352500 $ 00352510 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC063DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC063DK: ./ I 00352520 $ 00352525 2
HRC063DK: TM SAVER2+2,NOQUEUE/256 Do not queue this msg? HRC063DK
HRC063DK: BO QCN000 Y, process normally HRC063DK
HRC063DK: ./ I 00352620 $ 00352622 2
HRC063DK: TM SAVER2+2,ERRMSG/256 Is this an error msg? HRC063DK
HRC063DK: BZ EMSGOFF N, skip EMSG checking HRC063DK
HRC063DK: TM VMMLEVEL,VMMCODE+VMMTEXT Use any part of msg? HRC063DK
HRC063DK: BZ QCN000 N, dont queue message HRC063DK
HRC063DK: ./ I 00352630 $ 00352635
HRC063DK: EMSGOFF EQU * HRC063DK
HRC063DK: ./ I 00352710 $ 00352715
HRC063DK: N R2,=A(-1-DFRET-NORET) Set FRET stg flags off HRC063DK
HRC063DK: ./ R 00352900 $ 00352900
HRC063DK: B WREX FRET msg stg and exit HRC063DK
HRC063DK: ./ D 00352910
BEGIN APPLY >>> ./ I 00352520 $ 00352525 2
END APPLY >>> ./ I 00352520 $ 00352525 2
BEGIN APPLY >>> ./ I 00352620 $ 00352622 2
END APPLY >>> ./ I 00352620 $ 00352622 2
BEGIN APPLY >>> ./ I 00352630 $ 00352635
END APPLY >>> ./ I 00352630 $ 00352635
BEGIN APPLY >>> ./ I 00352710 $ 00352715
END APPLY >>> ./ I 00352710 $ 00352715
BEGIN APPLY >>> ./ R 00352900 $ 00352900
END APPLY >>> ./ R 00352900 $ 00352900
BEGIN APPLY >>> ./ D 00352910
END APPLY >>> ./ D 00352910
Update Succeeded
Update Execution Time 39 milliseconds.
HRC064DK
Date Friday May 19, 2017 07:02:00 PM
Loaded from MAINT(094)
HRC064DK: ./ R 00352510 00352527 $ 00352503 3
HRC064DK: L R15,SAVER2 Get write parameters HRC064DK
HRC064DK: N R15,NOQMASK Any 'no queue' bits set?HRC064DK
HRC064DK: BNZ QCN000 Yes, dont queue msg HRC064DK
HRC064DK: TM SAVER2+2,NOTRESP/256 Dont put in resp buffer?HRC064DK
HRC064DK: BO CHKQUE Ok, but queue it HRC064DK
HRC064DK: ICM R15,15,VMCONBUF Is respond buffer avail?HRC064DK
HRC064DK: BNZ QCN000 Y, use respond buffer HRC064DK
HRC064DK: * HRC064DK
HRC064DK: CHKQUE EQU * Continue queuing checks HRC064DK
HRC064DK: ./ I 01167900 $ 1167910 10
HRC064DK: NOQMASK DS 0F Bits that indicate msg HRC064DK
HRC064DK: DC XL2'00' is not to be queued HRC064DK
HRC064DK: DC AL1((OPERATOR+NOQUEUE)/256) HRC064DK
HRC064DK: DC AL1(LOGDROP+LOGHOLD+VMGENIO) HRC064DK
BEGIN APPLY >>> ./ R 00352510 00352527 $ 00352503 3
END APPLY >>> ./ R 00352510 00352527 $ 00352503 3
BEGIN APPLY >>> ./ I 01167900 $ 1167910 10
END APPLY >>> ./ I 01167900 $ 1167910 10
Update Succeeded
Update Execution Time 23 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ R 00864000 $ 00864000
HRC065DK: BNE DSCLDEV NO -- Msg for line/graf/ldevHRC065DK
HRC065DK: ./ I 00869000 $ 00869100 100
HRC065DK: DSCLDEV EQU * HRC065DK
HRC065DK: TM RDEVADD,RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BZ DSCTERM No HRC065DK
HRC065DK: MVC 0(5,R5),=CL5'GRF L' Use short GRAF name HRC065DK
HRC065DK: LH R1,RDEVADD 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(R5) Put dev addr in message HRC065DK
HRC065DK: B DSCFMSG Go display msg HRC065DK
BEGIN APPLY >>> ./ R 00864000 $ 00864000
END APPLY >>> ./ R 00864000 $ 00864000
BEGIN APPLY >>> ./ I 00869000 $ 00869100 100
END APPLY >>> ./ I 00869000 $ 00869100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkqcn.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator