CMS File Input : DMKHVC ASSEMBLE
Date : 12/7/1978 5:06:00 PM
VM Context : MAINT(394)
File Name : DMKHVC.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Date Thursday Jul 12, 1979 09:52: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.
Date Wednesday Mar 12, 1980 01:30:00 AM
Loaded from MAINT(294)
R09623DK: ./ D 533600 $ BEGIN APPLY >>> ./ D 533600 $ END APPLY >>> ./ D 533600 $ Update Succeeded Update Execution Time 8 milliseconds.
Date Friday Mar 14, 1980 03:14:00 AM
Loaded from MAINT(294)
R09952DK: ./ R 355000 $ 355010 10
R09952DK: * CODE = X'0048' NOTIFY FIRST LEVEL CP THIS IS A SECOND LEVEL VM
R09952DK: * SYSTEM AND THAT THIS VIRTUAL MACHINE HAS ISSUED AN SVC76
R09952DK: ./ R 490000 $ 490010 10 00001000
R09952DK: B HVCVMCP @VA09952 00002000
R09952DK: ./ I 706000 $ 706010 10 00003000
R09952DK: HVCVMCP DS 0H @VA09952 00004000
R09952DK: *--------------------------------------------------------------
R09952DK: * DO THE X'48' DIAGNOSE FOR CP UNDER CP
R09952DK: * R5 ADDRESS OF DIAGNOSE RX 00005000
R09952DK: * R11 ACCRESS OF CALLER VMBLOK 00006000
R09952DK: * RX=04 SVC76 SWITCH ON 00007000
R09952DK: * RX=08 CP VIRTUAL SWITCH ON 00008000
R09952DK: *--------------------------------------------------------------
R09952DK: SPACE 3 00009000
R09952DK: CLC 0(3,R5),ZEROES FIRST 3 BYTES OF RX MUST BE ZERO @VA09952 00010000
R09952DK: BNE SPECERR NO ERROR @VA09952 00011000
R09952DK: CLI 3(R5),X'04' SVC76 REQUEST @VA09952 00012000
R09952DK: BE SVC76ON YES SWITCH ON @VA09952 00013000
R09952DK: CLI 3(R5),X'08' CP VIRTUAL REQUEST @VA09952 00014000
R09952DK: BE VMCPON YES SWITCH ON @VA09952 00015000
R09952DK: B SPECERR OTHERWISE YOU GOTS ERROR @VA09952 00016000
R09952DK: SVC76ON DS 0H @VA09952 00017000
R09952DK: OI VMSPMFLG,VMCPSV76 SVC76 OUT OF CP VIRT @VA09952 00018000
R09952DK: B HVCEXIT @VA09952 00020000
R09952DK: VMCPON DS 0H @VA09952 00021000
R09952DK: OI VMSPMFLG,VMCPVIRT ON SWITCH CP VIRTUAL @VA09952 00022000
R09952DK: B HVCEXIT @VA09952 00023000
BEGIN APPLY >>> ./ R 355000 $ 355010 10
END APPLY >>> ./ R 355000 $ 355010 10
BEGIN APPLY >>> ./ R 490000 $ 490010 10 00001000
END APPLY >>> ./ R 490000 $ 490010 10 00001000
BEGIN APPLY >>> ./ I 706000 $ 706010 10 00003000
END APPLY >>> ./ I 706000 $ 706010 10 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Friday Mar 14, 1980 03:12:00 AM
Loaded from MAINT(294)
R10860DK: ./ R 23000 23000 $ 23100 00001000
R10860DK: EXTRN DMKCCWTR,DMKUNTFR @VA10860 00002000
R10860DK: ./ R 811000 988000 $ 811100 1000 00003000
R10860DK: USING IOBLOK,R9 @VA10860 00004000
R10860DK: USING VDEVBLOK,R13 @VA10860 00005000
R10860DK: USING RCWTASK,R7 @VA10860 00006000
R10860DK: NI VMPSW+2,X'FF'-X'30' SET CC TO 0 @VA10860 00007000
R10860DK: NI VMPSW+4,X'FF'-X'30' SET CC TO 0 @VA10860 00008000
R10860DK: CR R5,R6 RX SAME AS RY @VA10860 00009000
R10860DK: BE ERROR1 YES @VA10860 00010000
R10860DK: TM 3(R5),X'07' DW ALIGNED ? @VA10860 00011000
R10860DK: BNZ ERROR4 NO @VA10860 00012000
R10860DK: L R4,0(0,R5) CONTENTS OF RX, CCW ADDRESS @VA10860 00013000
R10860DK: L R1,0(0,R6) CONTENTS OF RY, DEV ADDRESS @VA10860 00014000
R10860DK: CALL DMKSCNVU FIND VDEVBLOK @VA10860 00015000
R10860DK: BNZ ERROR2 VDEVBLOK NOT FOUND @VA10860 00016000
R10860DK: LR R13,R8 VDEVBLOK IN R13 @VA10860 00017000
R10860DK: LA R1,0(R4) CCW ADDRESS LESS 1ST BYTE @VA10860 00018000
R10860DK: TRANS 2,1,OPT=(BRING,DEFER),ADEX=ERROR3 @VA10860 00019000
R10860DK: CLI 0(R2),X'03' NOOP ? @VA10860 00020000
R10860DK: BE NOOP YES @VA10860 00021000
R10860DK: TM 0(R2),X'08' TIC ? @VA10860 00022000
R10860DK: BZ ERROR6 NO @VA10860 00023000
R10860DK: TM 0(R2),X'07' TIC ? @VA10860 00024000
R10860DK: BNZ ERROR6 NO @VA10860 00025000
R10860DK: NOOP EQU * @VA10860 00026000
R10860DK: ICM R9,B'1111',VDEVIOB OLD IOBLOK @VA10860 00027000
R10860DK: BZ ERROR9 ISIN'T THERE @VA10860 00028000
R10860DK: ICM R7,B'0111',IOBCAW+1 ADDRESS OF CCW'S @VA10860 00029000
R10860DK: BZ RETURNC NO CCW'S NOT A SIO @VA10860 00030000
R10860DK: SL R7,F16 BEGINNING OF RCWTASK @VA10860 00031000
R10860DK: CLC RCWHEAD,FFS RCWTASK ? @VA10860 00032000
R10860DK: BNE RETURNC NO @VA10860 00033000
R10860DK: CLC RCWRCNT,ZEROES DMKCCW DO TRANSLATION YET ? @VA10860 00034000
R10860DK: BE RETURNC NO, HE WILL @VA10860 00035000
R10860DK: LR R5,R7 PRESERVE 1ST OLD RCWTASK @VA10860 00036000
R10860DK: SR R10,R10 @VA10860 00038000
R10860DK: FINDRCW EQU * @VA10860 00037000
R10860DK: L R6,RCWVCAW VIRTUAL,CCW ADDRESS @VA10860 00039000
R10860DK: CR R1,R6 BELOW THIS RCW @VA10860 00040000
R10860DK: BL NEXTRCW YES, NEXT RCW @VA10860 00041000
R10860DK: LH R0,RCWVCNT VIRTUAL CCW COUNT @VA10860 00042000
R10860DK: SLL R0,3 CONVERT TO BYTES @VA10860 00043000
R10860DK: AR R6,R0 END OF VIRTUAL CCW'S @VA10860 00044000
R10860DK: CR R1,R6 ABOVE THIS RCW ? @VA10860 00045000
R10860DK: BNL NEXTRCW YES, NEXT @VA10860 00046000
R10860DK: LR R10,R7 FOUND RCW @VA10860 00047000
R10860DK: NEXTRCW EQU * @VA10860 00048000
R10860DK: L R7,RCWPNT NEXT RCW @VA10860 00049000
R10860DK: LTR R7,R7 END OF RCW'S ? @VA10860 00050000
R10860DK: BNZ FINDRCW NO, KEEP LOOKING @VA10860 00051000
R10860DK: LTR R10,R10 FIND RCW ? @VA10860 00052000
R10860DK: BZ ERROR5 NO @VA10860 00053000
R10860DK: LR R7,R10 OLD RCW WITH MODIFIED CCW @VA10860 00054000
R10860DK: LA R3,RCWCCW START OF REAL CCW'S @VA10860 00055000
R10860DK: L R6,RCWVCAW START OF VIRTUAL CCW'S @VA10860 00056000
R10860DK: LH R0,RCWVCNT COUNT OF VIRTUAL CCW'S @VA10860 00057000
R10860DK: CH R0,RCWRCNT VIRTUAL COUNT=REAL COUNT @VA10860 00058000
R10860DK: BNE CPGEN NO, MUST BE CP GEN. CCW'S @VA10860 00059000
R10860DK: LR R8,R1 VIRTUAL CCW ADDRESS @VA10860 00060000
R10860DK: SR R8,R6 R8=DISPLACEMENT TO CCW @VA10860 00061000
R10860DK: AR R3,R8 DISPL + START =REAL CCW ADDRESS @VA10860 00062000
R10860DK: B FOUNDCCW @VA10860 00063000
R10860DK: CPGEN EQU * @VA10860 00064000
R10860DK: LA R0,8 @VA10860 00065000
R10860DK: FINDCCW EQU * @VA10860 00066000
R10860DK: TM RCWCTL-RCWCCW(R3),RCWGEN CP GENERATED ? @VA10860 00067000
R10860DK: BO BUMPREAL YES, NEXT REAL CCW @VA10860 00068000
R10860DK: CLR R1,R6 THIS CCW ? @VA10860 00069000
R10860DK: BE FOUNDCCW YES @VA10860 00070000
R10860DK: ALR R6,R0 NEXT VIRTUAL CCW @VA10860 00071000
R10860DK: BUMPREAL EQU * @VA10860 00072000
R10860DK: ALR R3,R0 NEXT REAL CCW @VA10860 00073000
R10860DK: B FINDCCW LOOP @VA10860 00074000
R10860DK: FOUNDCCW EQU * @VA10860 00075000
R10860DK: CLI 0(R3),X'03' REAL A NOOP ? @VA10860 00076000
R10860DK: BE NOOPCCW YES @VA10860 00077000
R10860DK: TM 0(R3),X'08' REAL A TIC ? @VA10860 00078000
R10860DK: BZ ERROR6 NO @VA10860 00079000
R10860DK: TM 0(R3),X'07' REAL A TIC ? @VA10860 00080000
R10860DK: BNZ ERROR6 NO @VA10860 00081000
R10860DK: NOOPCCW EQU * @VA10860 00082000
R10860DK: CLI 0(R2),X'03' VIRTUAL CCW NOOP ? @VA10860 00083000
R10860DK: BNE TICCHECK NO, MUST BE TIC @VA10860 00084000
R10860DK: BAL R14,TESTCSW TEST FOR I/O END @VA10860 00085000
R10860DK: LM R7,R8,0(R2) GET NOOP CCW @VA10860 00086000
R10860DK: STM R7,R8,0(R3) STORE NOOP CCW WE COULD GET CPC @VA10860 00087000
R10860DK: * IF CHANNEL FETCHES AS WE STORE 00088000
R10860DK: MVI 5(R3),X'00' ZERO DMKCCW'S FLAG BYTE @VA10860 00089000
R10860DK: B RETURNC DONE @VA10860 00090000
R10860DK: TICCHECK EQU * @VA10860 00091000
R10860DK: TM 3(R2),X'07' TIC TO ADDRESS DW ALIGNED ? @VA10860 00092000
R10860DK: BNZ ERROR8 NO @VA10860 00093000
R10860DK: LR R6,R2 PRESERVE REAL ADDR VIRT CCW @VA10860 00094000
R10860DK: ICM R2,B'0111',1(R6) TIC TO ADDRESS @VA10860 00095000
R10860DK: LRA R1,0(R2) IN USER CORE ? @VA10860 00096000
R10860DK: BC 2,ERROR7 NO @VA10860 00097000
R10860DK: LA R0,IOBSIZE @VA10860 00098000
R10860DK: CALL DMKFREE @VA10860 00099000
R10860DK: ICM R9,B'1111',VDEVIOB GET OLD IOB @VA10860 00100000
R10860DK: BZ FRTIOB TO LATE @VA10860 00101000
R10860DK: TM IOBCSW+4,CE+DE+UC+UE ENDING STATUS ? @VA10860 00102000
R10860DK: BNZ FRTIOB TO LATE @VA10860 00103000
R10860DK: TM IOBCSW+5,255-(IL+PCI) @VA10860 00104000
R10860DK: BNZ FRTIOB TO LATE @VA10860 00105000
R10860DK: MVC 0(IOBSIZE*8,R1),IOBLOK COPY OLD @VA10860 00106000
R10860DK: ST R2,IOBCAW-IOBLOK(0,R1) POIT TO NEW CCW'S @VA10860 00107000
R10860DK: ICM R2,B'1000',IOBCAW ADD 1ST BYTE @VA10860 00108000
R10860DK: LA R9,0(R2) DMKCCWTR REG9 @VA10860 00109000
R10860DK: LR R8,R13 VDEVBLOK @VA10860 00110000
R10860DK: SL R8,VMDVSTRT DMKCCWTR REG8 @VA10860 00111000
R10860DK: LR R10,R1 DMKCCWTR REG10 @VA10860 00112000
R10860DK: CALL DMKCCWTR TRANSLATE NEW CH PROGRAM @VA10860 00113000
R10860DK: L R8,IOBCAW-IOBLOK(0,R10) NEW CAW @VA10860 00114000
R10860DK: LA R8,0(R8) LESS 1ST BYTE @VA10860 00115000
R10860DK: SL R8,F16 NEW RCW ADDRESS @VA10860 00116000
R10860DK: NEXTOLD EQU * @VA10860 00117000
R10860DK: L R5,RCWPNT NEXT @VA10860 00118000
R10860DK: LTR R5,R5 LAST OLD RCW ? @VA10860 00119000
R10860DK: BZ TICCHAIN YES @VA10860 00120000
R10860DK: LR R7,R5 NEXT @VA10860 00121000
R10860DK: B NEXTOLD LOOP @VA10860 00122000
R10860DK: TICCHAIN EQU * @VA10860 00123000
R10860DK: ICM R9,B'1111',VDEVIOB @VA10860 00124000
R10860DK: BZ CSWIORCW @VA10860 00125000
R10860DK: TM IOBCSW+4,CE+DE ENDING STATUS ? @VA10860 00126000
R10860DK: BNZ CSWIORCW TO LATE @VA10860 00127000
R10860DK: TM IOBCSW+5,PRGC+PRTC+CCC+CDC+IFCC+CHC END STATUS? @VA10860 00128000
R10860DK: BNZ CSWIORCW TO LATE @VA10860 00129000
R10860DK: ST R8,RCWPNT CHAIN IN NEW RCW'S @VA10860 00130000
R10860DK: AL R8,F16 POINT TO CCW'S @VA10860 00131000
R10860DK: STCM R8,B'0111',1(R3) ADDRESS IN TIC @VA10860 00132000
R10860DK: MVI 0(R3),X'08' MAKE SURE CCW IS TIC @VA10860 00133000
R10860DK: SR R15,R15 ZERO @VA10860 00134000
R10860DK: STCM R15,B'0111',5(R6) ZERO REST OF TIC @VA10860 00135000
R10860DK: LA R0,IOBSIZE @VA10860 00136000
R10860DK: CALL DMKFRET @VA10860 00137000
R10860DK: RETURNC EQU * @VA10860 00138000
R10860DK: SR R15,R15 ZERO @VA10860 00139000
R10860DK: * CLI CPUID,X'FF' 00140000
R10860DK: * BE DIAGNOSE 00141000
R10860DK: R15SET EQU * @VA10860 00142000
R10860DK: ST R15,VMGPRS+4*R15 RETURN CODE @VA10860 00143000
R10860DK: B HVCEXIT @VA10860 00144000
R10860DK: DROP R7 @VA10860 00145000
R10860DK: EJECT 00146000
R10860DK: ./ R 992000 $ 992100 00147000
R10860DK: DC X'83630028' ISSUE DIAGNOSE TO CP @VA10860 00148000
R10860DK: ./ I 1048000 $ 1048500 00149000
R10860DK: LR R8,R13 VDEVBLOK FOR DMKUNTFR @VA10860 00150000
BEGIN APPLY >>> ./ R 23000 23000 $ 23100 00001000
END APPLY >>> ./ R 23000 23000 $ 23100 00001000
BEGIN APPLY >>> ./ R 811000 988000 $ 811100 1000 00003000
END APPLY >>> ./ R 811000 988000 $ 811100 1000 00003000
BEGIN APPLY >>> ./ R 992000 $ 992100 00147000
END APPLY >>> ./ R 992000 $ 992100 00147000
BEGIN APPLY >>> ./ I 1048000 $ 1048500 00149000
END APPLY >>> ./ I 1048000 $ 1048500 00149000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Jul 25, 1980 04:23:00 AM
Loaded from MAINT(294)
R11354DK: ./ R 786040 $ 786041 1 00001000
R11354DK: HVCMSS DS 0H @VA11354 00002000
R11354DK: ICM R15,15,=A(DMKSSSHV) PICK UP THE ADCON @VA11354 00003000
R11354DK: BZ PROTERR THE MODULE ISNT HERE @VA11354 00004000
R11354DK: L R1,0(,R5) GET BUFFER ADDRESS @VA11354 00005000
R11354DK: LA R2,MSSSIZE*8 GET LENGTH INTO R2 @VA11354 00006000
R11354DK: LA R9,SPECERR IF BAD GIVE SPEC CHECK @VA11354 00007000
R11354DK: BAL R10,ADDCHEK GO CHECK FOR PAGE BOUNDARY CROSS @VA11354 00008000
R11354DK: ./ I 1154500 $ 1154550 00009000
R11354DK: OSVSCOM MSSCOM @VA11354 00010000
BEGIN APPLY >>> ./ R 786040 $ 786041 1 00001000
END APPLY >>> ./ R 786040 $ 786041 1 00001000
BEGIN APPLY >>> ./ I 1154500 $ 1154550 00009000
END APPLY >>> ./ I 1154500 $ 1154550 00009000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Jul 25, 1980 05:05:00 AM
Loaded from MAINT(294)
R11382DK: ./ I 583000 $ 583500 00001000
R11382DK: MVI 0(R6),X'00' ZERO FLAG BYTE @VA11382 00002000
BEGIN APPLY >>> ./ I 583000 $ 583500 00001000
END APPLY >>> ./ I 583000 $ 583500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Jul 25, 1980 04:15:00 AM
Loaded from MAINT(294)
R11268DK: ./ I 34000 $ 34100 100 00001000
R11268DK: EXTRN DMKHVEAL @VA11268 00002000
R11268DK: ./ I 89000 $ 89050 00003000
R11268DK: * DMKHVEAL - PROCESS DIAGNOSE X'002C' AND X'0030' 00004000
R11268DK: ./ R 306000 306000 $ 306000 100 00005000
R11268DK: * CODE = X'002C' SUPPORTED VIA CALL TO DMKHVE 00006000
R11268DK: * RETURN DASD START ADDR OF ERROR RECORDING 00007000
R11268DK: ./ R 317000 317000 $ 317000 100 00008000
R11268DK: * CODE = X'0030' SUPPORTED VIA CALL TO DMKHVE 00009000
R11268DK: * READ ONE RECORD OF ERROR RECORDING AREA 00010000
R11268DK: ./ R 480000 483000 $ 480000 100 00011000
R11268DK: B CALLHVE '02C' - GET DASD START OF @VA11268 00012000
R11268DK: * LOGREC AREA 00013000
R11268DK: B CALLHVE '030' - READ ONE PAGE OF LOGREC @VA11268 00014000
R11268DK: * DATA 00015000
R11268DK: ./ I 500000 $ 500100 100 00016000
R11268DK: CALLHVE CALL DMKHVEAL LET DMKHVE HANDLE @VA11268 00017000
R11268DK: BNZ PROGINT IF NON-ZERO REFLECT PROG. CHECK @VA11268 00018000
R11268DK: B HVCEXIT EXIT TO DISPATCHER @VA11268 00019000
R11268DK: SPACE 2 00020000
BEGIN APPLY >>> ./ I 34000 $ 34100 100 00001000
END APPLY >>> ./ I 34000 $ 34100 100 00001000
BEGIN APPLY >>> ./ I 89000 $ 89050 00003000
END APPLY >>> ./ I 89000 $ 89050 00003000
BEGIN APPLY >>> ./ R 306000 306000 $ 306000 100 00005000
END APPLY >>> ./ R 306000 306000 $ 306000 100 00005000
BEGIN APPLY >>> ./ R 317000 317000 $ 317000 100 00008000
END APPLY >>> ./ R 317000 317000 $ 317000 100 00008000
BEGIN APPLY >>> ./ R 480000 483000 $ 480000 100 00011000
END APPLY >>> ./ R 480000 483000 $ 480000 100 00011000
BEGIN APPLY >>> ./ I 500000 $ 500100 100 00016000
END APPLY >>> ./ I 500000 $ 500100 100 00016000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Friday Oct 03, 1980 09:15:00 AM
Loaded from MAINT(294)
R11698DK: ./ R 947100 948100 $ 947000 100 00001000
R11698DK: CLI CPUID,X'FF' RUNNING SECOND LEVEL?? @VA11698 00002000
R11698DK: BE DIAGNOSE YES, ISSUE DIAGNOSE TO 1ST LEVEL @VA11698 00003000
R11698DK: ./ R 991000 992100 $ 991100 1000 00004000
R11698DK: LH R6,IOBRADD GET DEVICE ADDRESS @VA11698 00005000
R11698DK: DC X'83360028' ISSUE DIAGNOSE TO CP @VA11698 00006000
BEGIN APPLY >>> ./ R 947100 948100 $ 947000 100 00001000
END APPLY >>> ./ R 947100 948100 $ 947000 100 00001000
BEGIN APPLY >>> ./ R 991000 992100 $ 991100 1000 00004000
END APPLY >>> ./ R 991000 992100 $ 991100 1000 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Wednesday Sep 09, 1981 03:41:00 PM
Loaded from MAINT(294)
R12000DK: ./ D 941100 942100 $ 00001000 BEGIN APPLY >>> ./ D 941100 942100 $ 00001000 END APPLY >>> ./ D 941100 942100 $ 00001000 Update Succeeded Update Execution Time 16 milliseconds.
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00037100 $ 00037500 100
HRC065DK: EXTRN HDKD7CEX HRC065DK
HRC065DK: ./ I 00089100 $ 00089200 100
HRC065DK: * HDKD7CEX - PROCESS LDF REQUEST HRC065DK
HRC065DK: ./ R 00498820 $ 00498820
HRC065DK: B HVCLDF '07C' Logical Dev Support FaciltyHRC065DK
HRC065DK: ./ I 00729000 $ 00729100 020
HRC065DK: *--------------------------------------------------------------HRC065DK
HRC065DK: * LOGICAL DEVICE SUPPORT FACILITY- CODE '07C' FOR ANYBODY HRC065DK
HRC065DK: *--------------------------------------------------------------HRC065DK
HRC065DK: HVCLDF EQU * HRC065DK
HRC065DK: CALL HDKD7CEX Process LDF request HRC065DK
HRC065DK: B HVCEXIT Exit to dispatcher HRC065DK
BEGIN APPLY >>> ./ I 00037100 $ 00037500 100
END APPLY >>> ./ I 00037100 $ 00037500 100
BEGIN APPLY >>> ./ I 00089100 $ 00089200 100
END APPLY >>> ./ I 00089100 $ 00089200 100
BEGIN APPLY >>> ./ R 00498820 $ 00498820
END APPLY >>> ./ R 00498820 $ 00498820
BEGIN APPLY >>> ./ I 00729000 $ 00729100 020
END APPLY >>> ./ I 00729000 $ 00729100 020
Update Succeeded
Update Execution Time 23 milliseconds.
Date Wednesday Feb 07, 2018 03:28:00 PM
Loaded from MAINT(094)
HRC072DK: ./ I 00037500 $ 00037600 100
HRC072DK: EXTRN HDKD8CDC HRC072DK
HRC072DK: ./ I 00089200 $ 00089300 100
HRC072DK: * HDKD8CDC - GET 3270 DEVICE DEPENDENT CHARACTERISTICS HRC072DK
HRC072DK: ./ R 00499000 $ 00499000 100
HRC072DK: B HVCEXIT '088' RESERVED FOR FUTURE USE HRC072DK
HRC072DK: B HVC3270 '08C' 3270 DEV CHARACTERISTICS HRC072DK
HRC072DK: HVCMAXC EQU *-HVCODER-4 MAXIMUM CODE NUMBER DEFINED HRC072DK
HRC072DK: ./ I 00729200 $ 00729500 020
HRC072DK: *--------------------------------------------------------------HRC072DK
HRC072DK: * 3270 DEVICE CHARACTERISTICS - CODE '08C' FOR ANYBODY HRC072DK
HRC072DK: *--------------------------------------------------------------HRC072DK
HRC072DK: HVC3270 EQU * HRC072DK
HRC072DK: CALL HDKD8CDC Process 3270 dev characteristics HRC072DK
HRC072DK: B HVCEXIT Exit to dispatcher HRC072DK
BEGIN APPLY >>> ./ I 00037500 $ 00037600 100
END APPLY >>> ./ I 00037500 $ 00037600 100
BEGIN APPLY >>> ./ I 00089200 $ 00089300 100
END APPLY >>> ./ I 00089200 $ 00089300 100
BEGIN APPLY >>> ./ R 00499000 $ 00499000 100
END APPLY >>> ./ R 00499000 $ 00499000 100
BEGIN APPLY >>> ./ I 00729200 $ 00729500 020
END APPLY >>> ./ I 00729200 $ 00729500 020
Update Succeeded
Update Execution Time 31 milliseconds.