DMKVDC History
References
-
-
Fixes Applied : 16
-
Last Fix ID : [HRC106DK]
Update History
CMS File Input : DMKVDC ASSEMBLE
Date : 12/14/1978 8:51:00 AM
VM Context : MAINT(394)
File Name : DMKVDC.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
R10197DK 607 CORRECT MESSAGE IN ATTACH COMMAND
R09375DK 610 DMKVDC USER GETS INVALID ADDRESS WHEN ATTACHING DASD DEVICE
R09968DK 611 PREVENT ATTACH DASD R/W MODE IF EXTRA CHAR ON R/O PARM
R09655DK 611 UV00671 ELIMINATE MOST OCCURRENCES OF ABENDDSP004
R11347DK 612 UV00989 MSDMKVDA124E INSTEAD OF MSDMKVDA023E.
R11345DK 612 UV00998 INVALID VADDR GIVES MSDMKVDA003 INSTEAD OF MSDMKVDA022
R11388DK 613 UV01056 CORRECT CHECKING FOR OPTIONS ON ATTACH COMMAND
R11886DK 616 UV02072 BLANK TEMPORARY FIELD VOLSER IS STORED INTO
R12315DK 620 UV03608 ATT CND FAILS WITH MSDMKVDA022E VADDR MISS OR INV.
R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
R14002DK 623 UV05231 PEVM12315
R14288DK 623 UV05569 PEVM13280
R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
HRC003DK V01 LEAVE OPTION ON DETACH COMMAND
HRC106DK H40 SYSOWN support for 3375 & 3380 dasd
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 8 milliseconds.
R10197DK
Date Friday Dec 07, 1979 09:20:00 AM
Loaded from MAINT(294)
R10197DK: ./ R 1258000 1259000 $ 1258100 1000 00001000
R10197DK: FINDTO CLC 0(*-*,R1),=C'TO ' OPTIONAL WORDS @VA10197 00002000
R10197DK: FINDAS CLC 0(*-*,R1),=C'AS ' ........ @VA10197 00003000
BEGIN APPLY >>> ./ R 1258000 1259000 $ 1258100 1000 00001000
END APPLY >>> ./ R 1258000 1259000 $ 1258100 1000 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09375DK
Date Monday Mar 03, 1980 12:07:00 PM
Loaded from MAINT(294)
R09375DK: ./ R 1072000 $ 1072500 00001000
R09375DK: BH RESTORE ATTEMPT TO FIND USERID @VA09375 00002000
BEGIN APPLY >>> ./ R 1072000 $ 1072500 00001000
END APPLY >>> ./ R 1072000 $ 1072500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09968DK
Date Saturday Mar 29, 1980 03:27:00 PM
Loaded from MAINT(294)
R09968DK: ./ I 1346000 $ 1346100 100 00001000
R09968DK: TM VDCBITS,ATTSYST IS THIS A ATTACH TO SYSTEM? @VA09968 00002000
R09968DK: BNO INVOPTS NO! INVALID OPTION @VA09968 00003000
BEGIN APPLY >>> ./ I 1346000 $ 1346100 100 00001000
END APPLY >>> ./ I 1346000 $ 1346100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09655DK
Date Saturday Mar 29, 1980 02:28:00 AM
Loaded from MAINT(294)
R09655DK: ./ I 1054000 $ 1054300 400 00001000
R09655DK: TM VMTRCTL,VMTRIO+VMTRSIO TRACING I/O ? @VA09655 00002000
R09655DK: BNZ INVTRACE YES, CAN NOT DETACH @VA09655 00003000
R09655DK: ./ I 1087000 $ 1087300 400 00004000
R09655DK: TM VMTRCTL,VMTRIO+VMTRSIO TRACING I/O ? @VA09655 00005000
R09655DK: BNZ INVTRACE YES, CAN NOT DETACH @VA09655 00006000
R09655DK: ./ I 1135000 $ 1135100 200 00007000
R09655DK: TM VDCBYTE2,DETACH DETACH ? @VA09655 00008000
R09655DK: BZ NEXTOPT NO,TEST FOR TRACE NOT NEEDED @VA09655 00009000
R09655DK: TM VMTRCTL-VMBLOK(R10),VMTRIO+VMTRSIO TRACING I/O @VA09655 00010000
R09655DK: BNZ INVTRACE YES, CAN NOT DETACH @VA09655 00011000
R09655DK: ./ I 1294000 $ 1294200 200 00012000
R09655DK: SPACE 00013000
R09655DK: INVTRACE EQU * @VA09655 00014000
R09655DK: LA R2,RC72 RETURN CODE TO VDD @VA09655 00015000
R09655DK: B VDCRET RETURN TO VDD @VA09655 00016000
R09655DK: ./ I 1437000 $ 1437500 00017000
R09655DK: RC72 EQU 72 USER IS TRACING I/O @VA09655 00018000
BEGIN APPLY >>> ./ I 1054000 $ 1054300 400 00001000
END APPLY >>> ./ I 1054000 $ 1054300 400 00001000
BEGIN APPLY >>> ./ I 1087000 $ 1087300 400 00004000
END APPLY >>> ./ I 1087000 $ 1087300 400 00004000
BEGIN APPLY >>> ./ I 1135000 $ 1135100 200 00007000
END APPLY >>> ./ I 1135000 $ 1135100 200 00007000
BEGIN APPLY >>> ./ I 1294000 $ 1294200 200 00012000
END APPLY >>> ./ I 1294000 $ 1294200 200 00012000
BEGIN APPLY >>> ./ I 1437000 $ 1437500 00017000
END APPLY >>> ./ I 1437000 $ 1437500 00017000
Update Succeeded
Update Execution Time 16 milliseconds.
R11347DK
Date Monday May 05, 1980 04:24:00 AM
Loaded from MAINT(294)
R11347DK: ./ R 1157000 $ 1157500 00001000
R11347DK: BNZ MANY1 VOLID OR DEV ADDR MISSING @VA11347 00002000
BEGIN APPLY >>> ./ R 1157000 $ 1157500 00001000
END APPLY >>> ./ R 1157000 $ 1157500 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R11345DK
Date Monday May 05, 1980 04:25:00 AM
Loaded from MAINT(294)
R11345DK: ./ R 1216000 $ 1216500 00001000
R11345DK: BH INVADD2 INVALID ADDRESS OR MISSING @VA11345 00002000
BEGIN APPLY >>> ./ R 1216000 $ 1216500 00001000
END APPLY >>> ./ R 1216000 $ 1216500 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R11388DK
Date Thursday Jun 05, 1980 04:29:00 AM
Loaded from MAINT(294)
R11388DK: ./ I 1150000 $ 1150010 10
R11388DK: SPACE
R11388DK: * HERE WE ARE IF ATTACH TO SYSTEM OR USERID AND WE EXPECT WE
R11388DK: * NOW HAVE 'AS' OR A VADDR OR THE VOLID FOR SYSTEM
R11388DK: SPACE
R11388DK: ./ I 1160000 $ 1160010 10
R11388DK: SPACE
R11388DK: * HERE WE NOW GOTS AN ATTACH TO THE SYSTEM AND HAVE WHAT MAY
R11388DK: * BE A VOLID, WILL USE IT AS SUCH AND LEAVE
R11388DK: SPACE
R11388DK: ./ I 1172000 $ 1172010 10
R11388DK: * WE WENT TO READ THE NEXT PARM AND IS NOT THERE.... IF ATT TO
R11388DK: * SYSTEM ITS NO VOLID, IF TO USER ITS NO VADDR AND WE'LL GIVE A
R11388DK: * DEFAULT OF THE RADDR, IF FOR THE RANGE AND MULTIPLES ITS OK
R11388DK: * WE JUST GOT NO R/O OR 3330V STUFF ... GO CHECK THE ADDRESSES
R11388DK: SPACE
R11388DK: ./ I 1213000 $ 1213010 10
R11388DK: * HERE FOR AN ATTACH TO USERID AND WE HAVE A VADDR FIELD
R11388DK: SPACE
R11388DK: ./ R 1236000 1255000 $ 1236010 00001000
R11388DK: B CHKRO GO CHECK OUT THE OPTIONS @VA11388 00002000
R11388DK: ./ R 1325000 1327000 $ 1325010 00003000
R11388DK: * TEST TO SEE IF R/O VOLID OR 3330V PARAMETERS ARE 00004000
R11388DK: ./ R 1336000 1363000 $ 1336050 50 00005000
R11388DK: CHKRO DS 0H @VA11388 00006000
R11388DK: CL R0,F3 IS THIS GREATER THAN THREE CHARS @VA11388 00007000
R11388DK: BH CHKMSS ITS HIGHER THAN CHECK THE OTHERS @VA11388 00008000
R11388DK: BNE CHKRRR AND ITS NOT EQUAL @VA11388 00009000
R11388DK: CLC 0(3,R1),=C'R/O' IS IT REALLY R/O ? @VA11388 00010000
R11388DK: SETREAD DS 0H @VA11388 00011000
R11388DK: BNE CHKVOL IF NO COULD BE LITTLE VOLID @VA11388 00012000
R11388DK: TM VDCBITS,ATTREAD WE ALREADY FIND R/O OPT ? @VA11388 00013000
R11388DK: BO INVOPTS YES THIS IS INVALID @VA11388 00014000
R11388DK: OI VDCBITS,ATTREAD INDICATE WE GOT R/O OPTION @VA11388 00015000
R11388DK: B NEXTOPTN GO GET THE NEXT ONE @VA11388 00016000
R11388DK: CHKRRR DS 0H @VA11388 00017000
R11388DK: CL R0,F1 IS IT ONE CHAR IN LENGTH ? @VA11388 00018000
R11388DK: BNE CHKVOL IF NOT IT COULD BE TINY VOLID @VA11388 00019000
R11388DK: CLI 0(R1),C'R' IS IT THE ABBREVIATION ? @VA11388 00020000
R11388DK: B SETREAD CONTINUE FOR CHECK @VA11388 00021000
R11388DK: SPACE 00022000
R11388DK: CHKMSS DS 0H @VA11388 00023000
R11388DK: CL R0,F5 IS IT FIVE CHARACTERS @VA11388
R11388DK: BH CHKVOL TIS .. MAKE IT A VOLID @VA11388
R11388DK: CLC 0(5,R1),=C'3330V' IS IT 3330V OPTION @VA11388 00024000
R11388DK: BNE CHKVOL NO GO HANDLE AS VOLID @VA11388 00025000
R11388DK: TM SAVEWRK9,VIRTPRES WE ALREADY GET 3330V ? @VA11388 00026000
R11388DK: BO INVOPTS YES DONT NEED TWO @VA11388 00027000
R11388DK: OI SAVEWRK9,VIRTPRES INDICATE WE GOT THIS ONE @VA11388 00028000
R11388DK: B NEXTOPTN GO GET SOME MORE @VA11388 00029000
R11388DK: SPACE 00030000
R11388DK: CHKVOL DS 0H @VA11388 00031000
R11388DK: TM VDCBITS,RANGE+MULTR IS IT FOR RANGE OR MULTIS ? @VA11388 00032000
R11388DK: BM INVOPTS YES SHOULDNT BE THIS FAR PAL @VA11388 00033000
R11388DK: TM SAVEWRK9,VOLPRES WE ALREADY DO A VOLID ? @VA11388 00034000
R11388DK: BO INVOPTS YES MORE BAD STUFF @VA11388 00035000
R11388DK: OI SAVEWRK9,VOLPRES INDICATE WE GOT IT @VA11388 00036000
R11388DK: CL R0,F6 GREATER THAN 6 CHARS ? @VA11388 00037000
R11388DK: BH INVOPTS YES IT IS WRONG @VA11388 00038000
R11388DK: LR R2,R0 INIT THE LENGTH @VA11388 00039000
R11388DK: BCTR R2,0 DECREMENT IT @VA11388 00040000
R11388DK: EX R2,MVCVOL MOVE IT INTO SAVEWRK6 @VA11388 00041000
R11388DK: SPACE 00042000
R11388DK: NEXTOPTN DS 0H @VA11388 00043000
R11388DK: CALL DMKSCNFD GO GET THE NEXT LITTLE BEAUTY @VA11388 00044000
R11388DK: BZ CHKRO BEGIN THE SEARCH @VA11388 00045000
R11388DK: TM VDCBITS,MULTR WAS IT MULTIS @VA11388 00046000
R11388DK: BO MAXMULT YES GO TO ITS SPECIAL PLACE @VA11388 00047000
R11388DK: LH R2,VIRTADD GET THE EXISTING VADDR @VA11388 00048000
R11388DK: LTR R2,R2 WAS IT THERE @VA11388 00049000
R11388DK: BNZ VADDOK YES ITS ALRIGHT @VA11388 00050000
R11388DK: MVC VIRTADD(2),DEVADDR+2 PUT ONE THERE @VA11388 00051000
R11388DK: VADDOK DS 0H @VA11388 00052000
R11388DK: TM VDCBITS,RANGE WAS IT THE RANGE TYPE @VA11388 00053000
R11388DK: BO MAXRANGE GO THERE ALSO @VA11388 00054000
R11388DK: B SCANCOMP ELSE WE'S ALL DONE JACK @VA11388 00055000
BEGIN APPLY >>> ./ I 1150000 $ 1150010 10
END APPLY >>> ./ I 1150000 $ 1150010 10
BEGIN APPLY >>> ./ I 1160000 $ 1160010 10
END APPLY >>> ./ I 1160000 $ 1160010 10
BEGIN APPLY >>> ./ I 1172000 $ 1172010 10
END APPLY >>> ./ I 1172000 $ 1172010 10
BEGIN APPLY >>> ./ I 1213000 $ 1213010 10
END APPLY >>> ./ I 1213000 $ 1213010 10
BEGIN APPLY >>> ./ R 1236000 1255000 $ 1236010 00001000
END APPLY >>> ./ R 1236000 1255000 $ 1236010 00001000
BEGIN APPLY >>> ./ R 1325000 1327000 $ 1325010 00003000
END APPLY >>> ./ R 1325000 1327000 $ 1325010 00003000
BEGIN APPLY >>> ./ R 1336000 1363000 $ 1336050 50 00005000
END APPLY >>> ./ R 1336000 1363000 $ 1336050 50 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R11886DK
Date Friday Sep 26, 1980 08:27:00 AM
Loaded from MAINT(294)
R11886DK: ./ I 1167000 $ 1167500 500 00001000
R11886DK: MVC SAVEWRK6(6),BLANKS BLANK BEFORE SAVING VOLSER @VA11886 00002000
R11886DK: ./ I 1337850 $ 1337870 20 00003000
R11886DK: MVC SAVEWRK6(6),BLANKS BLANK BEFORE SAVING VOLSER @VA11886 00004000
BEGIN APPLY >>> ./ I 1167000 $ 1167500 500 00001000
END APPLY >>> ./ I 1167000 $ 1167500 500 00001000
BEGIN APPLY >>> ./ I 1337850 $ 1337870 20 00003000
END APPLY >>> ./ I 1337850 $ 1337870 20 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R12315DK
Date Wednesday Apr 08, 1981 12:52:00 PM
Loaded from MAINT(294)
R12315DK: ./ R 1160000 $ 1160001 00001000
R12315DK: BZ CHKRO NOT RANGE/MULTIPLES @VA12315 00002000
R12315DK: ./ I 1214000 $ 1214500 100 00003000
R12315DK: TM SAVEWRK9,VADDPRES DO WE HAVE VADDR? @VA12315 00004000
R12315DK: BO INVOPTS YES... TUT,TUT @VA12315 00005000
R12315DK: ./ R 1216500 $ 1216600 00006000
R12315DK: BNE INVADD2 INVALID ADDRESS. @VA12315 00007000
R12315DK: ./ R 1218000 1221000 $ 1218100 100 00008000
R12315DK: BNZ INVADD2 INVALID ADDRESS. @VA12315 00009000
R12315DK: OI SAVEWRK9,VADDPRES WE HAVE VADDR. @VA12315 00010000
R12315DK: STH R1,VIRTADD SET VIRT ADDRESS. @VA12315 00011000
R12315DK: ./ I 1277000 $ 1277100 00012000
R12315DK: VADDPRES EQU X'20' VIRT. ADDR. PRESENT @VA12315 00013000
R12315DK: ./ R 1336350 $ 1336355 00014000
R12315DK: BNE CVTVADD COULD BE VIRT ADDR @VA12315 00015000
R12315DK: ./ D 1336950 1337000 $ 00016000
R12315DK: ./ R 1337600 $ 1337605 00017000
R12315DK: BO MSSVOL YES, CHECK VOLID @VA12315 00018000
R12315DK: ./ R 1337650 $ 1337655 5 00019000
R12315DK: CLC 0(5,R1),=CL5'VOLID' IS IT VOLID? @VA12315 00020000
R12315DK: BE MSSVOL GET VOLID @VA12315 00021000
R12315DK: TM SAVEWRK9,VADDPRES IS VIRT ADDRESS IND ON? @VA12315 00022000
R12315DK: BZ INVADD2 INVALID ADDRESS @VA12315 00023000
R12315DK: B INVOPTS IF NOT... INVALID OPTION @VA12315 00024000
R12315DK: MSSVOL EQU * @VA12315 00025000
R12315DK: CALL DMKSCNFD GET VOLID @VA12315 00026000
R12315DK: BNZ INVOLID NONE....INVALID VOLID @VA12315 00027000
R12315DK: OI SAVEWRK9,VADDPRES INDICATE WE GOT IT @VA12315 00028000
R12315DK: ./ R 1337750 $ 1337760 00029000
R12315DK: BH INVOLID YES...WRONG VOLID @VA12315 00030000
R12315DK: ./ R 1338250 1338350 $ 1338260 50 00031000
R12315DK: TM SAVEWRK9,VADDPRES IS VIRT ADDRSS PRESENT ? @VA12315 00032000
R12315DK: BO VADDOK YES.. IT'S ALRIGHT @VA12315 00033000
BEGIN APPLY >>> ./ R 1160000 $ 1160001 00001000
END APPLY >>> ./ R 1160000 $ 1160001 00001000
BEGIN APPLY >>> ./ I 1214000 $ 1214500 100 00003000
END APPLY >>> ./ I 1214000 $ 1214500 100 00003000
BEGIN APPLY >>> ./ R 1216500 $ 1216600 00006000
END APPLY >>> ./ R 1216500 $ 1216600 00006000
BEGIN APPLY >>> ./ R 1218000 1221000 $ 1218100 100 00008000
END APPLY >>> ./ R 1218000 1221000 $ 1218100 100 00008000
BEGIN APPLY >>> ./ I 1277000 $ 1277100 00012000
END APPLY >>> ./ I 1277000 $ 1277100 00012000
BEGIN APPLY >>> ./ R 1336350 $ 1336355 00014000
END APPLY >>> ./ R 1336350 $ 1336355 00014000
BEGIN APPLY >>> ./ D 1336950 1337000 $ 00016000
END APPLY >>> ./ D 1336950 1337000 $ 00016000
BEGIN APPLY >>> ./ R 1337600 $ 1337605 00017000
END APPLY >>> ./ R 1337600 $ 1337605 00017000
BEGIN APPLY >>> ./ R 1337650 $ 1337655 5 00019000
END APPLY >>> ./ R 1337650 $ 1337655 5 00019000
BEGIN APPLY >>> ./ R 1337750 $ 1337760 00029000
END APPLY >>> ./ R 1337750 $ 1337760 00029000
BEGIN APPLY >>> ./ R 1338250 1338350 $ 1338260 50 00031000
END APPLY >>> ./ R 1338250 1338350 $ 1338260 50 00031000
Update Succeeded
Update Execution Time 23 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:38:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R14002DK
Date Thursday Aug 27, 1981 08:19:00 AM
Loaded from MAINT(294)
R14002DK: ./ R 1216600 $ 1216700 100 00001000
R14002DK: BH INVADD2 INVALID ADDRESS @VA14002 00002000
R14002DK: ./ D 1336650 1336700 $ 00003000
R14002DK: ./ R 1337605 $ 1337610 00004000
R14002DK: BO INVOPTS IF YES, INVALID OPTION @VA14002 00005000
R14002DK: ./ R 1337695 $ 1337697 00006000
R14002DK: OI SAVEWRK9,VOLPRES INDICATE WE GOT IT @VA14002 00007000
R14002DK: ./ I 1338200 $ 1338210 10 00008000
R14002DK: TM VDCBITS,RANGE WAS IT RANGE TYPE @VA14002 00009000
R14002DK: BO MAXRANGE GO THERE ALSO @VA14002 00010000
R14002DK: ./ D 1338500 1338550 $ 00011000
BEGIN APPLY >>> ./ R 1216600 $ 1216700 100 00001000
END APPLY >>> ./ R 1216600 $ 1216700 100 00001000
BEGIN APPLY >>> ./ D 1336650 1336700 $ 00003000
END APPLY >>> ./ D 1336650 1336700 $ 00003000
BEGIN APPLY >>> ./ R 1337605 $ 1337610 00004000
END APPLY >>> ./ R 1337605 $ 1337610 00004000
BEGIN APPLY >>> ./ R 1337695 $ 1337697 00006000
END APPLY >>> ./ R 1337695 $ 1337697 00006000
BEGIN APPLY >>> ./ I 1338200 $ 1338210 10 00008000
END APPLY >>> ./ I 1338200 $ 1338210 10 00008000
BEGIN APPLY >>> ./ D 1338500 1338550 $ 00011000
END APPLY >>> ./ D 1338500 1338550 $ 00011000
Update Succeeded
Update Execution Time 16 milliseconds.
R14288DK
Date Friday Aug 30, 1985 11:57:00 AM
Loaded from MAINT(294)
R14288DK: ./ * FORCE REASSEMBLY OF DMKVDC 00001000
BEGIN APPLY >>> ./ * FORCE REASSEMBLY OF DMKVDC 00001000
Comment >>> ./ * FORCE REASSEMBLY OF DMKVDC 00001000
END APPLY >>> ./ * FORCE REASSEMBLY OF DMKVDC 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:29:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 84000 $ 84500 00001000
R13217DK: * ERROR CODE 124: EXCEEDED MAX 00002000
R13217DK: ./ R 156000 $ 156000 00003000
R13217DK: * EMPTY SLOTS. @VA13217 00004000
R13217DK: ./ I 306000 $ 306500 10 00005000
R13217DK: SLL R1,3 R1*8=# OF BYTES FOR TABLE @VA13217 00006000
R13217DK: CLM R1,B'0011',=X'7FFF' CANNOT EXCEED 7FFFF @VA13217 00007000
R13217DK: BH ERR153 RETURN CODE FOR MSG 153 @VA13217 00008000
R13217DK: ./ I 616000 $ 616500 10 00009000
R13217DK: ERR153 DS 0H @VA13217 00010000
R13217DK: NI VDCFLAG,X'FF'-(DEVBLD+CUBLD) RESET INDIC @VA13217 00011000
R13217DK: BAL R5,FREWRK RELEASE STORAGE @VA13217 00012000
R13217DK: L R13,SAVEWRK6 RESTORE VDC SAVE AREA @VA13217 00013000
R13217DK: LA R2,RC124 RETURN CODE FOR MSG 153 @VA13217 00014000
R13217DK: ST R2,SAVER2 PASS TO CALLER @VA13217 00015000
R13217DK: LCR R2,R2 SET CC=1 IN PSW @VA13217 00016000
R13217DK: B EXIT2 LEAVE @VA13217 00017000
R13217DK: ./ I 622000 $ 622500 10 00018000
R13217DK: RC124 EQU 124 EXCEEDED MAX DEVICES @VA13217 00019000
BEGIN APPLY >>> ./ I 84000 $ 84500 00001000
END APPLY >>> ./ I 84000 $ 84500 00001000
BEGIN APPLY >>> ./ R 156000 $ 156000 00003000
END APPLY >>> ./ R 156000 $ 156000 00003000
BEGIN APPLY >>> ./ I 306000 $ 306500 10 00005000
END APPLY >>> ./ I 306000 $ 306500 10 00005000
BEGIN APPLY >>> ./ I 616000 $ 616500 10 00009000
END APPLY >>> ./ I 616000 $ 616500 10 00009000
BEGIN APPLY >>> ./ I 622000 $ 622500 10 00018000
END APPLY >>> ./ I 622000 $ 622500 10 00018000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC003DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC003DK: ./ I 01142000 $ 1142080 80 02/08/06 16:12:27
HRC003DK: CHKLEAVE EQU * HRC003DK 01142080
HRC003DK: MVC SAVEWRK8(8),BUFNXT SAVE BUFFER POINTERS HRC003DK 01142160
HRC003DK: CALL DMKSCNFD CALL WORD SCANNER HRC003DK 01142240
HRC003DK: BNZ LOADFFS NO MORE PARMS, LOAD FENCE HRC003DK 01142320
HRC003DK: LR R2,0 GET PARM LENGTH HRC003DK 01142400
HRC003DK: BCTR R2,0 DECR BY 1 FOR EXECUTE HRC003DK 01142480
HRC003DK: EX R2,CMPLEAVE COMPARE FOR LEAVE HRC003DK 01142560
HRC003DK: BNZ INVOPTS NOPE - INVALID OPT HRC003DK 01142640
HRC003DK: OI VDCBITS+1,TPNORUN INDICATE LEAVE REQ HRC003DK 01142720
HRC003DK: B LOADFFS DONE HRC003DK 01142800
HRC003DK: CMPLEAVE CLC 0(0,R1),=C'LEAVE ' HRC003DK 01142880
HRC003DK: ./ R 01145000 $ 1145490 490 02/08/06 16:12:27
HRC003DK: BO CHKLEAVE YES, DETACH REAL - CHK LEAVE HRC003DK 01145490
HRC003DK: ./ I 01274000 $ 1274500 500 02/08/06 16:12:27
HRC003DK: TPNORUN EQU X'01' DONT RUN TAPE HRC003DK 01274500
BEGIN APPLY >>> ./ I 01142000 $ 1142080 80 02/08/06 16:12:27
END APPLY >>> ./ I 01142000 $ 1142080 80 02/08/06 16:12:27
BEGIN APPLY >>> ./ R 01145000 $ 1145490 490 02/08/06 16:12:27
END APPLY >>> ./ R 01145000 $ 1145490 490 02/08/06 16:12:27
BEGIN APPLY >>> ./ I 01274000 $ 1274500 500 02/08/06 16:12:27
END APPLY >>> ./ I 01274000 $ 1274500 500 02/08/06 16:12:27
Update Succeeded
Update Execution Time 23 milliseconds.
HRC106DK
Date Tuesday Feb 16, 2016 04:17:00 PM
Loaded from MAINT(094)
HRC106DK: ./ I 00051000 $ 00051100 100
HRC106DK: EXTRN DMKPGT7P HRC106DK
HRC106DK: EXTRN DMKPGT7T HRC106DK
HRC106DK: EXTRN DMKPGT8P HRC106DK
HRC106DK: EXTRN DMKPGT8T HRC106DK
HRC106DK: ./ I 00717000 $ 00717100 50
HRC106DK: LA R14,ALL3375-4 3375 table HRC106DK
HRC106DK: LA R5,959 Number of cylinders for 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3375 3375 device type HRC106DK
HRC106DK: BE ALLLIST Yes, process 3375 HRC106DK
HRC106DK: CLI RDEVTYPE,TYP3380 3380 device type HRC106DK
HRC106DK: BNE NOT3380 No - move on to next type HRC106DK
HRC106DK: LA R14,ALL3380-4 3380 table HRC106DK
HRC106DK: LA R5,2655 Number of cylinders for 3380 (K) HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD83 Triple density 3380? HRC106DK
HRC106DK: BO ALLLIST Yes, process triple density 3380 HRC106DK
HRC106DK: LA R5,1770 Number of cylinders for 3380 (E) HRC106DK
HRC106DK: TM RDEVMDL,RDEVMD82 Double density 3380? HRC106DK
HRC106DK: BO ALLLIST Yes, process double density 3380 HRC106DK
HRC106DK: LA R5,885 Num. cylinders for 3380 (A/D/J) HRC106DK
HRC106DK: B ALLLIST Process single density 3380 HRC106DK
HRC106DK: NOT3380 EQU * HRC106DK
HRC106DK: ./ I 00911000 $ 00911100 100
HRC106DK: ALL3375 DC A(DMKPGT7P,DMKPGT7T) 3375 allocation anchors HRC106DK
HRC106DK: ALL3380 DC A(DMKPGT8P,DMKPGT8T) 3380 allocation anchors HRC106DK
BEGIN APPLY >>> ./ I 00051000 $ 00051100 100
END APPLY >>> ./ I 00051000 $ 00051100 100
BEGIN APPLY >>> ./ I 00717000 $ 00717100 50
END APPLY >>> ./ I 00717000 $ 00717100 50
BEGIN APPLY >>> ./ I 00911000 $ 00911100 100
END APPLY >>> ./ I 00911000 $ 00911100 100
Update Succeeded
Update Execution Time 23 milliseconds.