ibm:vm370-lib:cp:dmkvdc.assemble_hst
Table of Contents
DMKVDC History
References
- Fixes Applied : 16
- Latest Source Date : Thursday, December 14, 1978
- 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.
ibm/vm370-lib/cp/dmkvdc.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator