DMKQCN History
References
-
-
Fixes Applied : 22
-
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.