CMS File Input : DMKLNK ASSEMBLE
Date : 12/9/1978 4:55:00 AM
VM Context : MAINT(394)
File Name : DMKLNK.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:46 AM
Date Friday Feb 02, 1979 05:14:00 PM
Loaded from MAINT(294)
R09302DK: ./ R 00822200 822200 $ 822200 50
R09302DK: TM MSSFLAG2-OSVSCOM(R1),MSGPROC HAS PCI OCCURRED @VA09302
R09302DK: ./ R 00822320 822320 $ 822320 50
R09302DK: NI MSSFLAG2-OSVSCOM(R1),X'FF'-MSGPROC @VA09302
R09302DK: ./ D 01499750
BEGIN APPLY >>> ./ R 00822200 822200 $ 822200 50
END APPLY >>> ./ R 00822200 822200 $ 822200 50
BEGIN APPLY >>> ./ R 00822320 822320 $ 822320 50
END APPLY >>> ./ R 00822320 822320 $ 822320 50
BEGIN APPLY >>> ./ D 01499750
END APPLY >>> ./ D 01499750
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Feb 02, 1979 05:15:00 PM
Loaded from MAINT(294)
R09303DK: ./ R 00625000 00626000 $ 625000 050
R09303DK: BZ VOLFND CONTINUE IF FOUND... @VA09303 00002000
R09303DK: * ELSE, SECOND LOOK AT RDEVBLOKS 00003000
R09303DK: USING RDEVBLOK,R1 FOR RDEVMOUT FLAG @VA09303 00004000
R09303DK: LA R15,EMSG108 LOAD THE MESSAGE CODE @VA09303 00005000
R09303DK: L R1,ARIODV POINT TO FIRST RDEVBLOK @VA09303 00006000
R09303DK: L R0,ARIODC @VA09303 00007000
R09303DK: LH R0,0(,R0) GET THE COUNT OF BLOKS @VA09303 00008000
R09303DK: LNKCHK TM RDEVSTAT,RDEVDISA+RDEVDED DED OR OFFLINE ? @VA09303 00009000
R09303DK: BNZ CHKNXT @VA09303 00010000
R09303DK: CLC RDEVSER(6),UDEVVSER ARE THE VOLIDS EQUAL? @VA09303 00011000
R09303DK: * VMI2035 00012000
R09303DK: *SINCE DMKSCNVS COULD NOT FIND THE RDEVBLOK,THE RDEVMOUT 00013000
R09303DK: *FLAG IS ON INDICATING THAT THE VOLUME IS MOUNTED BUT NOT 00014000
R09303DK: *ATTACHED TO THE SYSTEM. ISSUE THE MSG 108. 00015000
R09303DK: BZ ERROR108 @VA09303 00016000
R09303DK: CHKNXT LA R1,RDEVSIZE*8(R1) POINT TO NEXT RDEVBLOK @VA09303 00017000
R09303DK: BCT R0,LNKCHK @VA09303 00018000
R09303DK: B CHK3330V IF VOL NOT MOUNTED, CHECK FOR MSS@VA09303 00019000
R09303DK: DROP R1 @VA09303 00020000
R09303DK: VOLFND LR R9,R1 SAVE THE RDEVBLOK ADDRESS IN R9 @VA09303 00021000
BEGIN APPLY >>> ./ R 00625000 00626000 $ 625000 050
END APPLY >>> ./ R 00625000 00626000 $ 625000 050
Update Succeeded
Update Execution Time 16 milliseconds.
Date Wednesday May 16, 1979 05:08:00 AM
Loaded from MAINT(294)
R09845DK: ./ R 625250 625300 $ 625255 50 00001000
R09845DK: L R10,ARIODC GET THE COUNT OF --- @VA09845 00002000
R09845DK: LH R10,0(,R10) THE RDEVBLOKS @VA09845 00003000
R09845DK: ./ R 625800 $ 625810 00004000
R09845DK: BCT R10,LNKCHK CHECK FOR LAST RDEVBLOK @VA09845 00005000
BEGIN APPLY >>> ./ R 625250 625300 $ 625255 50 00001000
END APPLY >>> ./ R 625250 625300 $ 625255 50 00001000
BEGIN APPLY >>> ./ R 625800 $ 625810 00004000
END APPLY >>> ./ R 625800 $ 625810 00004000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Wednesday Mar 12, 1980 01:24:00 AM
Loaded from MAINT(294)
R09651DK: ./ I 741000 $ 741030 30 00001000
R09651DK: CLI 3(R2),X'50' X'7FFF' LIMIT FROM VDS? @VA09651 00002000
R09651DK: BE ERROR22 YES @VA09651 00003000
BEGIN APPLY >>> ./ I 741000 $ 741030 30 00001000
END APPLY >>> ./ I 741000 $ 741030 30 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
Date Thursday Jun 05, 1980 04:03:00 AM
Loaded from MAINT(294)
R10715DK: ./ R 567600 $ 567610 10 00001000
R10715DK: LINK06 DS 0H @VA10715 00002000
R10715DK: ./ I 574400 $ 574410 10 00003000
R10715DK: MVC SAVEWRK6(8),BLANKS BLANK WHERE PASSWORD GOES @VA10715 00004000
BEGIN APPLY >>> ./ R 567600 $ 567610 10 00001000
END APPLY >>> ./ R 567600 $ 567610 10 00001000
BEGIN APPLY >>> ./ I 574400 $ 574410 10 00003000
END APPLY >>> ./ I 574400 $ 574410 10 00003000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Tuesday Jul 08, 1980 05:21:00 AM
Loaded from MAINT(294)
R11254DK: ./ I 647300 $ 647305 5 00001000
R11254DK: L R6,SAVEWRK5 TO PASS YYY ADDRESS TO DMKSSS. @VA11254 00002000
BEGIN APPLY >>> ./ I 647300 $ 647305 5 00001000
END APPLY >>> ./ I 647300 $ 647305 5 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11769DK: ./ I 1449000 $ 1449100 100 00001000
R11769DK: C R0,F8 PASSWORD MORE THAN 8 BYTES ? @VA11769 00002000
R11769DK: BH ENTP03 YES GO READ AGAIN @VA11769 00003000
R11769DK: ./ D 1453500 $ 00004000
R11769DK: ./ D 1454300 1454600 $ 00005000
BEGIN APPLY >>> ./ I 1449000 $ 1449100 100 00001000
END APPLY >>> ./ I 1449000 $ 1449100 100 00001000
BEGIN APPLY >>> ./ D 1453500 $ 00004000
END APPLY >>> ./ D 1453500 $ 00004000
BEGIN APPLY >>> ./ D 1454300 1454600 $ 00005000
END APPLY >>> ./ D 1454300 1454600 $ 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Wednesday Oct 29, 1980 10:29:00 AM
Loaded from MAINT(294)
R11681DK: ./ I 1467000 $ 1467100 100 00001000
R11681DK: TM SAVEWRK1,RETPASS RETURN INVALID PASSWORD ? @VA11681 00002000
R11681DK: BZ SETCC3A NO BRANCH @VA11681 00003000
R11681DK: MVC SAVER0(8),=C'TERM/ERR' FILL INV PASSWORD AREA @VA11681 00004000
R11681DK: SETCC3A EQU * @VA11681 00005000
BEGIN APPLY >>> ./ I 1467000 $ 1467100 100 00001000
END APPLY >>> ./ I 1467000 $ 1467100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Jan 09, 1981 12:03:00 PM
Loaded from MAINT(294)
R11706DK: ./ I 647090 $ 647092 2 00001000
R11706DK: TM RDEVFLAG,RDEVSEL IS IT SELECTED FOR DEMOUNT? @VA11706 00002000
R11706DK: BO ERROR281 YES, CAN'T LINK NOW @VA11706 00003000
R11706DK: ./ I 1064000 $ 1064100 90 00004000
R11706DK: ERROR281 DS 0H MSS VOL $VOLID NOT LINKED; DEMNT @VA11706 00005000
R11706DK: * IN PROCESS, RETRY 00006000
R11706DK: USING RDEVBLOK,R9 @VA11706 00007000
R11706DK: L R2,OPT281 SET OPTIONS FOR DMKERMSG @VA11706 00008000
R11706DK: LA R0,6(0,0) SET DATA LENGTH FOR $VOLID @VA11706 00009000
R11706DK: LA R1,RDEVSER SET DATA INTO R1 @VA11706 00010000
R11706DK: B CALERMSG @VA11706 00013000
R11706DK: DROP R9 @VA11706 00014000
R11706DK: ./ I 1267000 $ 1267100 100 00015000
R11706DK: OPT281 DC X'80C50119' ERROR MESSAGE DMKLNK281E @VA11706 00016000
BEGIN APPLY >>> ./ I 647090 $ 647092 2 00001000
END APPLY >>> ./ I 647090 $ 647092 2 00001000
BEGIN APPLY >>> ./ I 1064000 $ 1064100 90 00004000
END APPLY >>> ./ I 1064000 $ 1064100 90 00004000
BEGIN APPLY >>> ./ I 1267000 $ 1267100 100 00015000
END APPLY >>> ./ I 1267000 $ 1267100 100 00015000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Jan 13, 1981 01:13:00 AM
Loaded from MAINT(294)
R11984DK: ./ I 1078000 $ 1078010 10 00003000
R11984DK: SLR R14,R14 CLEAR REG @VA11984 00004000
R11984DK: IC R14,VMPSWDCT PICK UP INVALID PASSWORD COUNT @VA11984 00005000
R11984DK: LA R15,LNKLIMIT GET THE LIMIT @VA11984 00006000
R11984DK: CR R14,R15 HAVE WE EXCEEDED? @VA11984 00007000
R11984DK: BNL ERROR115 TOO BAD... @VA11984 00008000
R11984DK: LA R14,1(,R14) INCREMENT BY 1 @VA11984 00009000
R11984DK: STC R14,VMPSWDCT STORE IT BACK @VA11984 00010000
R11984DK: LA R15,EMSG114 SET FOR ERROR 114 @VA11984 00011000
R11984DK: ./ R 1078600 $ 1078675 00012000
R11984DK: BZ ERROR14J @VA11984 00013000
R11984DK: ./ D 1078750 1079050 $ 00014000
R11984DK: ./ D 1080700 1088000 $ 00015000
BEGIN APPLY >>> ./ I 1078000 $ 1078010 10 00003000
END APPLY >>> ./ I 1078000 $ 1078010 10 00003000
BEGIN APPLY >>> ./ R 1078600 $ 1078675 00012000
END APPLY >>> ./ R 1078600 $ 1078675 00012000
BEGIN APPLY >>> ./ D 1078750 1079050 $ 00014000
END APPLY >>> ./ D 1078750 1079050 $ 00014000
BEGIN APPLY >>> ./ D 1080700 1088000 $ 00015000
END APPLY >>> ./ D 1080700 1088000 $ 00015000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Wednesday Jun 24, 1981 06:15:00 AM
Loaded from MAINT(294)
R12273DK: ./ R 741030 $ 741045 00001000
R12273DK: CLM R2,1,RC50 X'7FFF' LIMIT FROM VDS ? @VA12273 00002000
R12273DK: ./ I 1139000 $ 1139500 00003000
R12273DK: RC50 DC X'50' @VA12273 00004000
BEGIN APPLY >>> ./ R 741030 $ 741045 00001000
END APPLY >>> ./ R 741030 $ 741045 00001000
BEGIN APPLY >>> ./ I 1139000 $ 1139500 00003000
END APPLY >>> ./ I 1139000 $ 1139500 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Monday Jun 15, 1981 01:54:00 PM
Loaded from MAINT(294)
R13015DK: ./ R 702000 705000 $ 702100 1000 00001000
R13015DK: LINK16 TM LINKFLAG,LINKSUBR+JMYSELF MY DISK OR LINK SUBR @VA13015 00002000
R13015DK: BNZ LINK20 YES- TREAT AS IF GOOD PW @VA13015 00003000
R13015DK: CLI 0(R1),C' ' DOES OWNER ALLOW THIS CLASS LINK @VA13015 00004000
R13015DK: BE NOPSWRD NO, THEN GIVE ERROR MSG @VA13015 00005000
R13015DK: ./ R 1169000 $ 1169100 00006000
R13015DK: DTBL WPS+SWT,UDEVLW+UDEVLM,LNKSC NONE M 00007000
R13015DK: ./ R 1170000 $ 1170100 00008000
R13015DK: DTBL WPS+SWT,UDEVLW+UDEVLM,LNKSC NONE MR 00009000
R13015DK: ./ R 1171000 $ 1171100 00010000
R13015DK: DTBL WPS+SWT,UDEVLW+UDEVLM,LNKSC NONE MW 00011000
R13015DK: ./ R 1176000 $ 1176100 00012000
R13015DK: DTBL WPS+SWT+GMS,UDEVLW+UDEVLM,LNKRO READ M 00013000
R13015DK: ./ R 1177000 $ 1177100 00014000
R13015DK: DTBL WPS+SWT+GMS,UDEVLW+UDEVLM,LNKRO READ MR 00015000
R13015DK: ./ R 1178000 $ 1178100 00016000
R13015DK: DTBL WPS+SWT+GMS,UDEVLW+UDEVLM,LNKRO READ MW 00017000
R13015DK: ./ R 1184000 $ 1184100 00018000
R13015DK: DTBL WPS+FRO+GMS,UDEVLW+UDEVLM,LINKFRO2 WRITE MR 00019000
R13015DK: ./ R 1199000 $ 1199100 100 00020000
R13015DK: DC 2AL1(UDEVLW) 4-5: FOR 'M' & 'MR' @VA13015 00021000
R13015DK: DC 1AL1(UDEVLM) 6: FOR 'MW' @VA13015 00022000
BEGIN APPLY >>> ./ R 702000 705000 $ 702100 1000 00001000
END APPLY >>> ./ R 702000 705000 $ 702100 1000 00001000
BEGIN APPLY >>> ./ R 1169000 $ 1169100 00006000
END APPLY >>> ./ R 1169000 $ 1169100 00006000
BEGIN APPLY >>> ./ R 1170000 $ 1170100 00008000
END APPLY >>> ./ R 1170000 $ 1170100 00008000
BEGIN APPLY >>> ./ R 1171000 $ 1171100 00010000
END APPLY >>> ./ R 1171000 $ 1171100 00010000
BEGIN APPLY >>> ./ R 1176000 $ 1176100 00012000
END APPLY >>> ./ R 1176000 $ 1176100 00012000
BEGIN APPLY >>> ./ R 1177000 $ 1177100 00014000
END APPLY >>> ./ R 1177000 $ 1177100 00014000
BEGIN APPLY >>> ./ R 1178000 $ 1178100 00016000
END APPLY >>> ./ R 1178000 $ 1178100 00016000
BEGIN APPLY >>> ./ R 1184000 $ 1184100 00018000
END APPLY >>> ./ R 1184000 $ 1184100 00018000
BEGIN APPLY >>> ./ R 1199000 $ 1199100 100 00020000
END APPLY >>> ./ R 1199000 $ 1199100 100 00020000
Update Succeeded
Update Execution Time 31 milliseconds.
Date Friday Aug 07, 1981 07:17:00 AM
Loaded from MAINT(294)
R13824DK: ./ D 00728100 00728300 $ 00001000
R13824DK: ./ I 00731000 $ 00731005 5 00002000
R13824DK: *TO GET CORRECT COUNT OF READ AND WRITE LINKS FROM DMKSCNLI (TO EXCLUDE 00003000
R13824DK: *OUR OWN LINK): TEMPORARILY CHANGE OUR VDEVREAL POINTER TO ZEROES AND 00004000
R13824DK: *REMOVE OUR VDEVBLOK FROM THE CYCLIC LINKOF SHARED DEVICES. 00005000
R13824DK: MVC SAVEWRK7,VDEVREAL SAVE PTR TO VDEVREAL @VA13824 00006000
R13824DK: MVC VDEVREAL(4),ZEROES DMKSCN WON'T INCLUDE US @VA13824 00007000
R13824DK: LR R10,R8 SAVE OUR VDEVBLOK ADDR @VA13824 00008000
R13824DK: L R8,VDEVLINK 1ST VDEVBLOK IN CYCLIC LIST @VA13824 00009000
R13824DK: ST R8,SAVEWRK8 SAVE 1ST VDEVBLOK ADDR @VA13824 00010000
R13824DK: VDEVLIST EQU * @VA13824 00011000
R13824DK: LR R7,R8 SAVE LAST VDEVBLOK ADDR @VA13824 00012000
R13824DK: L R8,VDEVLINK LOAD R8 WITH NEXT VDEVBLOK @VA13824 00013000
R13824DK: CR R8,R10 US AGAIN? IF YES, WE'RE AT END @VA13824 00014000
R13824DK: BNE VDEVLIST IF NOT,GET NEXT VDEVBLOK ADDR @VA13824 00015000
R13824DK: LR R8,R7 MOVE LAST VDEV. ADDR TO R8 @VA13824 00016000
R13824DK: MVC VDEVLINK(4),SAVEWRK8 LAST VDEVBLOK IN LIST WILL @VA13824 00017000
R13824DK: * POINT TO 1ST VDEVBLOK IN LIST, SKIPPING US. 00018000
R13824DK: LR R2,R4 UDEVBLOK TO R2 FOR DMKSCNLI @VA13824 00019000
R13824DK: LR R1,R9 POINTER TO RDEVBLOK IN R1 @VA13824 00020000
R13824DK: CALL DMKSCNLI GET UPDATED EXISTING LINKS @VA13824 00021000
R13824DK: LR R8,R7 LAST VDEVBLOK ADDR IN R8 @VA13824 00022000
R13824DK: ST R10,VDEVLINK HAVE HIS VDEVLINK POINT TO US @VA13824 00023000
R13824DK: LR R8,R10 HAVE R8 POINT TO US AGAIN @VA13824 00024000
R13824DK: MVC VDEVREAL(4),SAVEWRK7 RESTORE OUR VDEVREAL @VA13824 00025000
R13824DK: LR R6,R0 SAVE COUNT OF READ LINKS @VA13824 00026000
R13824DK: LR R7,R1 AND COUNT OF WRITE LINKS @VA13824 00027000
R13824DK: BZ NOLINKS IF CC=0, THEN NO LINKS @VA13824 00028000
R13824DK: ST R3,SAVEWRK8 SAVE VMBLOK ADDR OF R/O USER @VA13824 00029000
R13824DK: MVC SAVEWRK9(4),VDEVUSER-VDEVBLOK(R2) R2 POINTS TO @VA13824 00030000
R13824DK: *VDEVBLOK OF R/W (OR R/O) USER. SAVE HIS VMBLOK ADDR. 00031000
R13824DK: NOLINKS EQU * @VA13824 00032000
R13824DK: ./ D 00731400 00731800 $ 00033000
BEGIN APPLY >>> ./ D 00728100 00728300 $ 00001000
END APPLY >>> ./ D 00728100 00728300 $ 00001000
BEGIN APPLY >>> ./ I 00731000 $ 00731005 5 00002000
END APPLY >>> ./ I 00731000 $ 00731005 5 00002000
BEGIN APPLY >>> ./ D 00731400 00731800 $ 00033000
END APPLY >>> ./ D 00731400 00731800 $ 00033000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Sep 08, 1981 08:24:00 AM
Loaded from MAINT(294)
R13284DK: ./ I 742200 $ 742210 30 00001000
R13284DK: TM 0(R5),NOL SUCCESSFUL LINK? @VA13284 00002000
R13284DK: BO LINK25F NO, THEN SKIP LOURNALING @VA13284 00003000
BEGIN APPLY >>> ./ I 742200 $ 742210 30 00001000
END APPLY >>> ./ I 742200 $ 742210 30 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Monday Feb 15, 1982 09:28:00 AM
Loaded from MAINT(294)
R14144DK: ./ R 3000 $ 3100 00001000
R14144DK: * 00002000
R14144DK: ./ D 8000 17000 $ 00003000
R14144DK: ./ R 37000 $ 37100 100 00004000
R14144DK: * DMKLNKSB - LINK SUBROUTINE ENTRY POINT FROM LOGON 00005000
R14144DK: * DMKLNKSS - ENTRY FROM THE DISPATCHER AFTER MOUNT 00006000
R14144DK: ./ R 51000 $ 51100 100 00007000
R14144DK: * DMKLNKSS ENTRY POINT: 00008000
R14144DK: * GPR 1 = ADDRESS OF WORK AREA 00009000
R14144DK: * GPR 3 = ADDRESS OF MSSCOM BLOCK 00010000
R14144DK: * GPR 4 = ADDRESS OF UDEVBLOK 00011000
R14144DK: * 00012000
R14144DK: * ALL ENTRY POINTS: 00013000
R14144DK: ./ D 71000 $ 00014000
R14144DK: ./ I 87000 $ 87100 00015000
R14144DK: * DMKFREE - OBTAIN FREE STORAGE 00016000
R14144DK: ./ R 224000 $ 224100 00017000
R14144DK: * 00018000
R14144DK: ./ R 280000 $ 280100 00019000
R14144DK: * 00020000
R14144DK: ./ I 288000 $ 288100 00021000
R14144DK: * 00022000
R14144DK: ./ R 291000 $ 291000 00023000
R14144DK: * CALLS DMKLOCKD TO UNLOCK THE DIRECTORY. 00024000
R14144DK: ./ I 291300 $ 291310 00025000
R14144DK: * 00026000
R14144DK: ./ R 322000 328000 $ 322100 00027000
R14144DK: * RESPONSES: 00028000
R14144DK: ./ R 398000 402000 $ 398100 100 00029000
R14144DK: * 00030000
R14144DK: * DMKLNK281I MSS VOL DSKLAB NOT LINKED; DEMNT IN PROCESS, RETRY 00031000
R14144DK: ./ R 413000 $ 413100 00032000
R14144DK: * 00033000
R14144DK: ./ D 425000 431000 $ 00034000
R14144DK: ./ I 440000 $ 440100 00035000
R14144DK: EXTRN DMKEPSWD PASSWORD ROUTINE NOW EXTERNAL @VA14144 00036000
R14144DK: ./ D 450000 $ 00037000
R14144DK: ./ R 453300 $ 453310 00038000
R14144DK: EXTRN DMKSTKCP,DMKSSSLN @VA14144 00039000
R14144DK: ./ I 453600 $ 453610 00040000
R14144DK: EXTRN DMKFREE,DMKFRET @VA14144 00041000
R14144DK: ./ D 457000 $ 00042000
R14144DK: ./ I 458000 $ 458100 100 00043000
R14144DK: ********************************************************************** 00044000
R14144DK: * * 00045000
R14144DK: * MAIN ENTRY POINT: THE LINK COMMAND * 00046000
R14144DK: * * 00047000
R14144DK: ********************************************************************** 00048000
R14144DK: ./ R 461000 465000 $ 461100 100 00049000
R14144DK: SR R5,R5 R5=0 MEANS NO DEC TBLS IN USE @VA14144 00050000
R14144DK: ST R5,SAVEWRK1 CLEAR SAVEWRK1 TO USE AS FLAGS @VA14144 00051000
R14144DK: ST R5,SAVER2 CLEAR R2-REG RETURNED AT EXIT @VA14144 00052000
R14144DK: LA R0,UDBFSIZE+2 GET FREE STOR FOR USER DIRECT @VA14144 00053000
R14144DK: CALL DMKFREE BLOCK, DEV BLOCK, & ERR MSG @VA14144 00054000
R14144DK: ./ R 474000 $ 474100 00055000
R14144DK: LINK00 DS 0H OK FOR USER TO ISSUE LINK, CONT @VA14144 00056000
R14144DK: ./ R 478000 $ 478100 00057000
R14144DK: USING UDIRBLOK,R4 AND REFERENCE THE DIRECT BLOCK @VA14144 00058000
R14144DK: ./ R 480000 $ 480100 00059000
R14144DK: BNZ ERROR20 ERROR IF USERID MISSING @VA14144 00060000
R14144DK: ./ R 495000 $ 495100 00061000
R14144DK: B LINK02 GO SET FLAG MEANING "IT'S ME". @VA14144 00062000
R14144DK: ./ R 500000 $ 500100 00063000
R14144DK: BH ERROR20 ERROR IF USERID > 8 CHARS @VA14144 00064000
R14144DK: ./ R 506000 $ 506100 00065000
R14144DK: LINK02 OI LINKFLAG,JMYSELF+JLNKPRV SET FLAGS FOR MYSELF @VA14144 00066000
R14144DK: ./ R 508000 509000 $ 508100 100 00067000
R14144DK: LINK03 LR R2,R4 R2 = COPY OF USER DIRECT BLOCK @VA14144 00068000
R14144DK: CALL DMKUDRFU FIND THE USERID IN THE CP DIRECT @VA14144 00069000
R14144DK: ./ R 512000 $ 512100 00070000
R14144DK: BNZ ERROR22 CALLER BAD IF NOT THERE AT ALL. @VA14144 00071000
R14144DK: ./ R 519000 $ 519100 00072000
R14144DK: BNZ ERROR22 CALLER GOOFED IF HE LEFT IT OUT @VA14144 00073000
R14144DK: ./ R 521000 $ 521100 00074000
R14144DK: BH LINK03A IF YES, IT MUST BE THE YYY DEV @VA14144 00075000
R14144DK: ./ R 526000 528000 $ 526100 100 00076000
R14144DK: BNE LINK03A NOPE - ASSUME IT'S THE YYY DEV @VA14144 00077000
R14144DK: CALL DMKSCNFD SKIP 'AS' - NOW GET THE YYY DEV @VA14144 00078000
R14144DK: BNZ ERROR22 JUST WHEN I HAD MY HOPES UP @VA14144 00079000
R14144DK: ./ R 530000 $ 530100 00080000
R14144DK: BNZ ERROR22 THAT'S 0-9 AND A-F. @VA14144 00081000
R14144DK: ./ R 532000 533000 $ 532100 100 00082000
R14144DK: CLR R1,R10 LEGITIMATE 370 VIRTUAL DEV? @VA14144 00083000
R14144DK: BH ERROR22 ERR IF > MAX (X'5FF' OR X'FFF') @VA14144 00084000
R14144DK: ./ R 536000 $ 536100 00085000
R14144DK: LA R1,UDIRDISP R1 MUST POINT TO UDIRDISP & ON @VA14144 00086000
R14144DK: ./ R 541000 $ 541100 00087000
R14144DK: CALL DMKUDRRV LET DMKUDR RELEASE HIS PAGES @VA14144 00088000
R14144DK: ./ R 544000 $ 544100 00089000
R14144DK: BNZ LINK08 TRF IF NOT - GET DEFAULT LNK-MD @VA14144 00090000
R14144DK: ./ R 546000 $ 546100 00091000
R14144DK: BH LINK05 LOOK FOR 'PASS= ' OR PSWRD @VA14144 00092000
R14144DK: ./ R 549000 $ 549100 00093000
R14144DK: LA R3,MODER POINT TO 1ST MODE TO LOOK FOR @VA14144 00094000
R14144DK: ./ R 554000 555000 $ 554100 100 00095000
R14144DK: BXLE R3,R14,LINK03B ITERATE THRU VARIOUS MODES @VA14144 00096000
R14144DK: BAL R10,LINKDEF NOT FOUND - SET TO DEFAULT @VA14144 00097000
R14144DK: ./ D 561000 $ 00098000
R14144DK: ./ R 566000 $ 566100 00099000
R14144DK: LINK05 BAL R10,LINKDEF SET DEFAULTIF NO LINK-MODE GIVEN @VA14144 00100000
R14144DK: ./ R 569000 572000 $ 569100 100 00101000
R14144DK: BNE LINK07 IF NOT, ASSUME IT'S THE PASSWORD @VA14144 00102000
R14144DK: CALL DMKSCNFD IF PASS=, THE PSWD MUST BE NEXT @VA14144 00103000
R14144DK: BNZ ERROR114 TREAT MISSING PASSWORD AS BAD @VA14144 00104000
R14144DK: ./ R 573800 $ 573810 00105000
R14144DK: BZ ERROR118 BR IF NOT @VA14144 00106000
R14144DK: ./ R 574200 $ 574210 00107000
R14144DK: BO ERROR118 BR IF YES @VA14144 00108000
R14144DK: ./ R 576000 579000 $ 576100 100 00109000
R14144DK: BH ERROR114 TREAT PASSWORD > 8 CHARS AS BAD @VA14144 00110000
R14144DK: OI LINKFLAG,JGOTPASS FLAG THAT WE HAVE THE PSWRD @VA14144 00111000
R14144DK: ./ R 581000 589000 $ 581100 100 00112000
R14144DK: DROP R4 (THRU WITH COMMAND LINE & R9) @VA14144 00113000
R14144DK: * 00114000
R14144DK: * 00115000
R14144DK: LINK08 BAL R10,LINKDEF DEFAULT, IF NO LINK-MODE GIVEN @VA14144 00116000
R14144DK: LINK09 NI LINKFLAG,255-JMYSELF DON'T ASSUME MY OWN DISK @VA14144 00117000
R14144DK: LA R6,LEVLIMIT LINK-LIMIT = 2 FOR LINK COMMAND @VA14144 00118000
R14144DK: B LINK09A GO JOIN THE COMMON CODE @VA14144 00119000
R14144DK: EJECT 00120000
R14144DK: ********************************************************************** 00121000
R14144DK: * * 00122000
R14144DK: * SUBROUTINE ENTRY POINT: LINK CALLED BY LOGON * 00123000
R14144DK: * * 00124000
R14144DK: ********************************************************************** 00125000
R14144DK: DMKLNKSB RELOC "LINK SUBROUTINE" ENTRY POINT @VA14144 00126000
R14144DK: STM R0,R3,SAVEWRK2 USERID TO SAVEWRK2/SAVEWRK3, @VA14144 00127000
R14144DK: * LINK-TO AND LINK-AS DEVS TO SAVEWRK4 & SAVEWRK5 00128000
R14144DK: STH R5,LINKHALF STORE MAGIC INDEXER OF 0 ... 24 @VA14144 00129000
R14144DK: MVI LINKFLAG,LINKSUBR+JGOTPASS+JLNKPRV FLAGBITS @VA14144 00130000
R14144DK: LA R6,LEVLIMIT+1 LINK-LIMIT = 3 FOR DMKLNKSB, @VA14144 00131000
R14144DK: ********************************************************************** 00132000
R14144DK: * * 00133000
R14144DK: * NOTE - * 00134000
R14144DK: * THIS CODE IS COMMON TO BOTH ENTRY POINTS. * 00135000
R14144DK: * THE DMKLNKIN ENTRY JOINS AT THIS LOCATION. * 00136000
R14144DK: * * 00137000
R14144DK: ********************************************************************** 00138000
R14144DK: USING UDEVBLOK,R4 @VA14144 00139000
R14144DK: LINK09A EQU * R6 SET TO 2 OR 3 FOR LINK LIMIT @VA14144 00140000
R14144DK: MVC LINKMODE(1),UDEVMODE SAVE UDEVMODE FROM ORIG. @VA14144 00141000
R14144DK: ./ R 591000 $ 591100 00142000
R14144DK: LINK09B TM UDEVSTAT,UDEVLKDV IS THIS AN INDIRECT LINK? @VA14144 00143000
R14144DK: ./ R 594000 601000 $ 594100 100 00144000
R14144DK: BZ ERROR109 BLUNDER IF NOT A DASD DEV @VA14144 00145000
R14144DK: TM UDEVSTAT,UDEVDED+UDEVTDSK DEDICATED OR (TEMP)? @VA14144 00146000
R14144DK: BNZ ERROR109 ERROR IF EITHER @VA14144 00147000
R14144DK: TM UDEVSTAT,UDEVLONG ALL THE INFO WE NEED THERE? @VA14144 00148000
R14144DK: BO LINK09D YES - WE'RE ALL READY TO GO @VA14144 00149000
R14144DK: B ERROR52 (ERROR IN CP DIRECTORY IF NOT) @VA14144 00150000
R14144DK: DROP R4 @VA14144 00151000
R14144DK: EJECT 00152000
R14144DK: ********************************************************************** 00153000
R14144DK: * * 00154000
R14144DK: * CALL DMKUDR TO GET UDEVBLOK FOR AN INDIRECT LINK * 00155000
R14144DK: * * 00156000
R14144DK: ********************************************************************** 00157000
R14144DK: ./ R 603000 $ 603100 00158000
R14144DK: LINK09C MVC UDBFVADD(8),ZEROES CLEAR DBL-WORD USED BY UDR @VA14144 00159000
R14144DK: DROP R4 @VA14144 00160000
R14144DK: ./ R 612000 $ 612100 00161000
R14144DK: BNZ ERROR53 IF NOT FOUND MUST BE A DIR ERROR @VA14144 00162000
R14144DK: ./ R 616000 $ 616100 00163000
R14144DK: BNZ ERROR107 BAD SHOW IF WE COULDN'T FIND IT @VA14144 00164000
R14144DK: ./ R 618000 621000 $ 618100 100 00165000
R14144DK: BCT R6,LINK09B REPEAT CHECKING UNTIL OK OR ERR @VA14144 00166000
R14144DK: B ERROR52 FOUND WITHIN A REASONABLE @VA14144 00167000
R14144DK: DROP R4 NUMBER OF LEVELS @VA14144 00168000
R14144DK: EJECT 00169000
R14144DK: ********************************************************************** 00170000
R14144DK: * * 00171000
R14144DK: * THE FOLLOWING ENTRY POINT IS EXECUTED AFTER A REQUIRED * 00172000
R14144DK: * MSS VOLUME IS MOUNTED. THE ADDRESS OF DMKLNKSS IS * 00173000
R14144DK: * PLACED IN A CPEXBLOK BY DMKSSS. WHEN THE MOUNT * 00174000
R14144DK: * IS COMPLETE, DMKDSB STACKS THE CPEXBLOK SUCH THAT * 00175000
R14144DK: * DMKLNKSS GETS CONTROL. * 00176000
R14144DK: * * 00177000
R14144DK: ********************************************************************** 00178000
R14144DK: DMKLNKSS RELOC ENTRY FROM THE DISPATCHER @VA14144 00179000
R14144DK: ST R3,SAVER0 SAVE THE ADDR OF THE MSSCOM BLK @VA14144 00180000
R14144DK: MVC SAVEWRK1(4),0(R1) RESET WORKAREA DATA @VA14144 00181000
R14144DK: MVC SAVEWRK2(32),4(R1) ....SAME FOR THE REST @VA14144 00182000
R14144DK: LA R4,36(R1) OUR BUFFER AREA NOW @VA14144 00183000
R14144DK: ST R1,SAVER1 SAVE FOR LATER DMKFRET @VA14144 00184000
R14144DK: OI LINKFLAG,SSENT INDICATE MSS RE-ENTRY @VA14144 00185000
R14144DK: EJECT 00186000
R14144DK: ********************************************************************** 00187000
R14144DK: * * 00188000
R14144DK: * NOTE - * 00189000
R14144DK: * THIS CODE IS COMMON TO ALL THREE ENTRY POINTS. * 00190000
R14144DK: * THE DMKLNKIN AND DMKLNKSB FALL THROUGH TO THIS * 00191000
R14144DK: * POINT VIA THE BRANCH FROM ABOVE AT LINK09B. * 00192000
R14144DK: * * 00193000
R14144DK: ********************************************************************** 00194000
R14144DK: USING UDEVBLOK,R4 @VA14144 00195000
R14144DK: ./ D 625150 $ 00196000
R14144DK: ./ R 625500 625650 $ 625510 10 00197000
R14144DK: ********************************************************************** 00198000
R14144DK: * * 00199000
R14144DK: * SINCE DMKSCNVS COULD NOT FIND THE RDEVBLOK,THE RDEVMOUT * 00200000
R14144DK: * FLAG IS ON INDICATING THAT THE VOLUME IS MOUNTED BUT NOT * 00201000
R14144DK: * ATTACHED TO THE SYSTEM. ISSUE THE MSG 108. * 00202000
R14144DK: * * 00203000
R14144DK: ********************************************************************** 00204000
R14144DK: ./ R 628000 629000 $ 628100 00205000
R14144DK: CLC RDEVTYPC(2),UDEVTYPC DEV CLS & TYPE MUST MATCH @VA14144 00206000
R14144DK: ./ R 631000 636000 $ 631100 100 00207000
R14144DK: EJECT 00208000
R14144DK: CLI RDEVTYPE,TYP2314 IF NOT EQ THEN THE REAL DISK @VA14144 00209000
R14144DK: BNE ERROR117 MUST BE A 2314 AND THE MINI @VA14144 00210000
R14144DK: CLI UDEVTYPE,TYP2311 DISK MUST BE A 2311 TOP OR @VA14144 00211000
R14144DK: BNE ERROR117 2311 BOTTOM. IF NOT THEN @VA14144 00212000
R14144DK: TM UDEVFTR,FTR2311T+FTR2311B ISSUE ERRMSG LNK117 @VA14144 00213000
R14144DK: BZ ERROR117 -- "VOLID DSKLAB CONFLICT". @VA14144 00214000
R14144DK: ./ R 638000 640000 $ 638100 100 00215000
R14144DK: CLC VMUSER,SAVEWRK2 DOES REAL DISK BELONG TO ME? @VA14144 00216000
R14144DK: BE LINK09E YES, SET MYSELF FLAG AGAIN. @VA14144 00217000
R14144DK: ./ R 645000 $ 645000 00218000
R14144DK: TM VMRSTAT-VMBLOK(R1),VMLOGON LOGGING ON NOW? @VA14144 00219000
R14144DK: ./ D 647020 $ 00220000
R14144DK: ./ R 647050 647060 $ 647050 00221000
R14144DK: CLI UDEVTYPC,CLASDASD DID USER WANT DASD @VA14144 00222000
R14144DK: ./ R 647120 647220 $ 647120 5 00223000
R14144DK: EJECT 00224000
R14144DK: ********************************************************************** 00225000
R14144DK: * * 00226000
R14144DK: * THE VM SYSTEM VOLUME WHICH IS THE TARGET OF A LINK * 00227000
R14144DK: * IS NOT MOUNTED. IF THE USER WANTED A 3330, CALL * 00228000
R14144DK: * DMKSSSLN TO SEE IF A 3330V VOLUME WITH THE CORRECT * 00229000
R14144DK: * VOLSER CAN BE MOUNTED. * 00230000
R14144DK: * * 00231000
R14144DK: * DMKSSSLN WILL ALLOCATE A VUA AND ATTEMPT AN MSS * 00232000
R14144DK: * MOUNT. IF FOR ANY REASON DMKSSSLN FAILS (SUCH AS * 00233000
R14144DK: * NO VUA AVAILABLE, VOLUME NOT FOUND, MSS NOT * 00234000
R14144DK: * AVAILABLE, THEN ON RETURN GPR 15 WILL BE NONZERO * 00235000
R14144DK: * * 00236000
R14144DK: ********************************************************************** 00237000
R14144DK: ./ D 647240 $ 00238000
R14144DK: ./ R 647360 648100 $ 647400 25 00239000
R14144DK: BNE ERROR108 PUT OUT ERROR MESSAGE @VA14144 00240000
R14144DK: MNTSETUP EQU * SAVE DATA FOR ASYNCH ENTRY @VA14144 00241000
R14144DK: TM MSSFLAG2-OSVSCOM(R1),MSGPROC HAS PCI OCCURRED @VA14144 00242000
R14144DK: BZ PCINOW YES, CAN COMPLETE NOW @VA14144 00243000
R14144DK: NI MSSFLAG2-OSVSCOM(R1),X'FF'-MSGPROC @VA14144 00244000
R14144DK: L R2,MSSTASK1-OSVSCOM(R1) CPEXBLOK FOR DMKLNKSS @VA14144 00245000
R14144DK: LA R0,SAVESIZE+UDBFSIZE+2 LEN OF AREA TO SAVE DATA @VA14144 00246000
R14144DK: CALL DMKFREE GET AREA FOR DYNAMIC DATA @VA14144 00247000
R14144DK: ST R1,CPEXR1-CPEXBLOK(R2) SAVE ADDR FOR DMKLNKSS @VA14144 00248000
R14144DK: MVC 0(4,R1),SAVEWRK1 PUT FLAGS INTO AREA @VA14144 00249000
R14144DK: MVC 4(32,R1),SAVEWRK2 REST OF NEEDED DATA @VA14144 00250000
R14144DK: MVC 36(80,R1),0(R4) SAVE DUMMY UDEVBLOK @VA14144 00251000
R14144DK: B LINKEXIT WAIT FOR DMKDSB TO GET PCI @VA14144 00252000
R14144DK: EJECT 00253000
R14144DK: ********************************************************************** 00254000
R14144DK: * * 00255000
R14144DK: * HERE MEANS THAT THE PCI HAS NOW OCCURRED * 00256000
R14144DK: * AND THE SYSTEM VOLUME IS NOW MOUNTED. * 00257000
R14144DK: * * 00258000
R14144DK: ********************************************************************** 00259000
R14144DK: ./ R 649000 $ 649100 100 00260000
R14144DK: EJECT 00261000
R14144DK: LINK09E OI LINKFLAG,JMYSELF SET MYSELF FLAG IF MY DISK. @VA14144 00262000
R14144DK: ./ R 650000 651000 $ 650100 00263000
R14144DK: LINK10 L R1,SAVEWRK5 CHECK YYY DEV TO SEE IF ATTACHED @VA14144 00264000
R14144DK: ./ R 654000 655000 $ 654100 100 00265000
R14144DK: BC 4,LINK11 OK TO CONTINUE IF NO CHAN BLOCK @VA14144 00266000
R14144DK: BALR R15,0 PRESERVE COND CODE FROM SCNVU @VA14144 00267000
R14144DK: ./ R 657000 $ 657100 00268000
R14144DK: TM VCHSTAT,VCHDED IS THE VIRTUAL CHAN DEDICATED? @VA14144 00269000
R14144DK: ./ R 663000 $ 663100 00270000
R14144DK: .NOTDED1 BNZ LINK11 OK TO CONT IF DEV NOT ATTACHED 00271000
R14144DK: ./ R 670000 672000 $ 670100 100 00272000
R14144DK: CLR R14,R9 SAME DEVICE WE WANT TO LINK TO? @VA14144 00273000
R14144DK: BNE ERROR110 ERROR IF NOT - LEAVE ALONE @VA14144 00274000
R14144DK: CH R15,UDEVRELN ALSO CHECK RELOCATION FACTOR @VA14144 00275000
R14144DK: ./ R 675000 677000 $ 675100 100 00276000
R14144DK: BNE LINK10A NO - IT REALLY IS THE SAME DISK @VA14144 00277000
R14144DK: IC R0,UDEVFTR FTR2311T,FTR2311B' BITS, IF ANY @VA14144 00278000
R14144DK: N R0,=A(FTR2311T+FTR2311B) ... AND ONLY THOSE @VA14144 00279000
R14144DK: ./ D 714000 716000 $ 00280000
R14144DK: ./ R 722000 724000 $ 722100 100 00281000
R14144DK: EJECT 00282000
R14144DK: ********************************************************************** 00283000
R14144DK: * * 00284000
R14144DK: * HERE MEANS THE PASSWORD WAS CORRECT (OR NOT NEEDED) * 00285000
R14144DK: * * 00286000
R14144DK: ********************************************************************** 00287000
R14144DK: LINK20 EQU * @VA14144 00288000
R14144DK: ./ D 727000 $ 00289000
R14144DK: ./ R 731005 731015 $ 731005 1 00290000
R14144DK: ********************************************************************** 00291000
R14144DK: * TO GET CORRECT COUNT OF READ AND WRITE LINKS FROM DMKSCNLI * 00292000
R14144DK: * (TO EXCLUDE OUR OWN LINK): TEMPORARILY CHANGE OUR VDEVREAL * 00293000
R14144DK: * POINT TO ZEROES AND REMOVE OUR VDEVBLOK FROM THE CYCLIC * 00294000
R14144DK: * LINKOF SHARED DEVICES. * 00295000
R14144DK: ********************************************************************** 00296000
R14144DK: ./ R 731030 731040 $ 731030 00297000
R14144DK: LR R10,R8 SAVE OUR VDEVBLOK ADDR TO CHECK @VA14144 00298000
R14144DK: ./ R 731060 731080 $ 731060 2 00299000
R14144DK: C R10,VDEVLINK IS THE NEXT ONE US? @VA14144 00300000
R14144DK: BNE VDEVLIST NO -- GET NEXT VDEVBLOK ADDR @VA14144 00301000
R14144DK: EJECT 00302000
R14144DK: ********************************************************************** 00303000
R14144DK: * * 00304000
R14144DK: * FIX POINTER TO EXCLUDE US FROM THE CYCLIC LIST * 00305000
R14144DK: * * 00306000
R14144DK: ********************************************************************** 00307000
R14144DK: MVC VDEVLINK(4),VDEVLINK-VDEVBLOK(R10) @VA14144 00308000
R14144DK: ./ R 731100 731110 $ 731100 2 00309000
R14144DK: ********************************************************************** 00310000
R14144DK: * * 00311000
R14144DK: * RETURN OUR BLOCK TO THE LIST * 00312000
R14144DK: * * 00313000
R14144DK: ********************************************************************** 00314000
R14144DK: ST R10,VDEVLINK @VA14144 00315000
R14144DK: LR R8,R10 HAVE R8 POINT TO US AGAIN @VA14144 00316000
R14144DK: ./ R 731140 731150 $ 731145 5 00317000
R14144DK: ********************************************************************** 00318000
R14144DK: * * 00319000
R14144DK: * R2 POINTS TO VDEVBLOK OF R/W (OR R/O) USER. * 00320000
R14144DK: * SAVE HIS VMBLOK. * 00321000
R14144DK: * * 00322000
R14144DK: ********************************************************************** 00323000
R14144DK: MVC SAVEWRK9(4),VDEVUSER-VDEVBLOK(R2) @VA14144 00324000
R14144DK: NOLINKS EQU * @VA14144 00325000
R14144DK: ./ I 732800 $ 732810 00326000
R14144DK: EJECT 00327000
R14144DK: ./ R 733400 $ 733410 00328000
R14144DK: LR R3,R2 ADD OF VDEVBLOK FOR EXISTING LNK @VA14144 00329000
R14144DK: ./ R 744000 745000 $ 744100 100 00330000
R14144DK: B 0(R12,R15) LNKSC, LNKRO, LNKRW, ERROR101, @VA14144 00331000
R14144DK: * ERROR102. 00332000
R14144DK: EJECT 00333000
R14144DK: ********************************************************************** 00334000
R14144DK: * * 00335000
R14144DK: * ENTRY POINTS BRANCHED TO VIA THE DECISION TABLES. * 00336000
R14144DK: * APPROPIATE LINKAGE IS ATTEMPTED AND RESPONSE IS ISSUED. * 00337000
R14144DK: * * 00338000
R14144DK: ********************************************************************** 00339000
R14144DK: ./ D 750000 $ 00340000
R14144DK: ./ D 755000 $ 00341000
R14144DK: ./ D 763000 $ 00342000
R14144DK: ./ D 773000 $ 00343000
R14144DK: ./ D 780000 $ 00344000
R14144DK: ./ D 787000 $ 00345000
R14144DK: ./ D 790000 $ 00346000
R14144DK: ./ I 812000 $ 812100 100 00347000
R14144DK: ********************************************************************** 00348000
R14144DK: * * 00349000
R14144DK: * OUTPUT THE MESSAGE INTERNALLY WITH A CALL TO DMKQCNWT * 00350000
R14144DK: * * 00351000
R14144DK: ********************************************************************** 00352000
R14144DK: ./ R 816000 $ 816100 100 00353000
R14144DK: EJECT 00354000
R14144DK: ********************************************************************** 00355000
R14144DK: * * 00356000
R14144DK: * EXIT ROUTINE * 00357000
R14144DK: * * 00358000
R14144DK: ********************************************************************** 00359000
R14144DK: ./ R 822020 $ 822020 00360000
R14144DK: DROP R3,R4 @VA14144 00361000
R14144DK: ./ R 822140 837000 $ 823000 100 00362000
R14144DK: EJECT 00363000
R14144DK: ********************************************************************** 00364000
R14144DK: * * 00365000
R14144DK: * INTERNAL SUBROUTINES * 00366000
R14144DK: * * 00367000
R14144DK: ********************************************************************** 00368000
R14144DK: * LINKSUB- * 00369000
R14144DK: * INTERNAL SUBROUTINE TO ASCERTAIN IF A LINK IS FEASIBLE * 00370000
R14144DK: * (AND IF SO, WHAT KIND) * 00371000
R14144DK: * * 00372000
R14144DK: * R10 = RETURN REGISTER * 00373000
R14144DK: * INDEXER TO DECISION-TABLE IS IN R5 AT EXIT. * 00374000
R14144DK: ********************************************************************** 00375000
R14144DK: ./ R 845000 $ 845100 100 00376000
R14144DK: BNZ ERR116UL UH-OH IF SOMEBODY ELSE HAS ME @VA14144 00377000
R14144DK: * LOCKED. 00378000
R14144DK: ./ R 862000 863000 $ 862100 100 00379000
R14144DK: ********************************************************************** 00380000
R14144DK: * * 00381000
R14144DK: * THE DEVICE WE WANT TO LINK-TO IS ALREADY LINKED TO BY 'MYSELF' * 00382000
R14144DK: * RECOMPUTE SITUATION BASED ON THE OLD LINK BEING REMOVED: * 00383000
R14144DK: * * 00384000
R14144DK: ********************************************************************** 00385000
R14144DK: ./ R 882000 885000 $ 882100 100 00386000
R14144DK: EJECT 00387000
R14144DK: ********************************************************************** 00388000
R14144DK: * * 00389000
R14144DK: * UNLOKSUB - * 00390000
R14144DK: * INTERNAL SUBROUTINE TO UNLOCK USERID(S): * 00391000
R14144DK: * R10 = RETURN REGISTER * 00392000
R14144DK: * * 00393000
R14144DK: ********************************************************************** 00394000
R14144DK: ./ D 890000 $ 00395000
R14144DK: ./ R 894000 897000 $ 894100 100 00396000
R14144DK: ********************************************************************** 00397000
R14144DK: * * 00398000
R14144DK: * LINKDEF - * 00399000
R14144DK: * INTERNAL SUBROUTINE TO SET DEFAULT-LINK MODE * 00400000
R14144DK: * R10 = RETURN-REGISTER * 00401000
R14144DK: * * 00402000
R14144DK: ********************************************************************** 00403000
R14144DK: ./ I 900000 $ 900100 00404000
R14144DK: USING UDEVBLOK,R4 @VA14144 00405000
R14144DK: ./ R 902000 $ 902100 100 00406000
R14144DK: DROP R4 @VA14144 00407000
R14144DK: LA R3,LOW5BITS SET TO ISOLATE THE LOW-ORDER 5 @VA14144 00408000
R14144DK: * BITS 00409000
R14144DK: ./ R 906000 929000 $ 906100 100 00410000
R14144DK: EJECT 00411000
R14144DK: ********************************************************************** 00412000
R14144DK: * * 00413000
R14144DK: * ERROR RETURNS: ALL ERROR MESSAGES ARE NOW ISSUED * 00414000
R14144DK: * BY A CALL TO DMKERMSG. ALL ERROR ENTRY POINTS FOLLOW * 00415000
R14144DK: * HERE AND ALL EVENTUALLY GO TO 'CALERMSG' WHERE THE CALL * 00416000
R14144DK: * TO ERMSG IS MADE. A PARAMETER LIST OF VARIBLES TO BE * 00417000
R14144DK: * INSERTED INTO THE MESSAGE IS BUILT, IF REQUIRED, IN * 00418000
R14144DK: * TEMPORARY SPACE (EXCEPT WHEN ONLY 1 PARAMETER). * 00419000
R14144DK: * * 00420000
R14144DK: ********************************************************************** 00421000
R14144DK: ./ R 930000 1005000 $ 930100 100 00422000
R14144DK: ERROR20 LA R2,EMSG20 USERID MISSING OR INVALID @VA14144 00423000
R14144DK: B ERRNODAT NO DATA FOR ERR MESSAGE HANDLER @VA14144 00424000
R14144DK: ERROR22 LA R2,EMSG22 VADDR MISSING OR INVALID @VA14144 00425000
R14144DK: B ERRNODAT NO DATA FOR ERR MESSAGE HANDLER @VA14144 00426000
R14144DK: ERROR52 LA R2,EMSG52 ERROR IN CP DIRCTORY @VA14144 00427000
R14144DK: ERRNODAT SLR R1,R1 R1 = 0 MEANS NO DATA FOR ERMSG @VA14144 00428000
R14144DK: B CERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00429000
R14144DK: ERROR53 LA R2,EMSG53 USERID NOT IN CP DIRECTORY @VA14144 00430000
R14144DK: * (R0 AND R1 SET UP FROM DMKSCNFD) 00431000
R14144DK: B CERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00432000
R14144DK: ERROR101 LA R2,EMSG101 DASD FORCED R/O; R/O BY OTHERS @VA14144 00433000
R14144DK: MVC SAVEWRK4,SAVEWRK5 LINK-AS; NOT LINK-TO @VA14144 00434000
R14144DK: ST R6,SAVEWRK6 SAVE COUNT OF OTHER R/O USERS @VA14144 00435000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00436000
R14144DK: ERROR102 LA R2,EMSG102 DASD FORCED R/O; R/W BY OTHERS @VA14144 00437000
R14144DK: MVC SAVEWRK4,SAVEWRK5 LINK-AS; NOT LINK-TO @VA14144 00438000
R14144DK: B GETPARM1 GET PARMS FOR DMKERMSG (SPECIAL) @VA14144 00439000
R14144DK: ERROR104 LA R2,EMSG104 XXX YYY NOT LINKED; R/O BY OTHER @VA14144 00440000
R14144DK: ST R6,SAVEWRK6 SAVE COUNT OF OTHER R/O USERS @VA14144 00441000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00442000
R14144DK: ERROR105 LA R2,EMSG105 XXX YYY NOT LINKED; R/W BY OTHER @VA14144 00443000
R14144DK: B GETPARM1 GET PARMS FOR DMKERMSG (SPECIAL) @VA14144 00444000
R14144DK: ERROR107 CALL DMKUDRRV LET DMKUDR RELEASE HIS PAGES @VA14144 00445000
R14144DK: LA R2,EMSG107 XXX YYY NOT LINKED; NOT IN DIR @VA14144 00446000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00447000
R14144DK: EJECT 00448000
R14144DK: ERROR108 LA R2,EMSG108 XXX YYY NOT LNKED; VOL NOT MNTED @VA14144 00449000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00450000
R14144DK: ********************************************************************** 00451000
R14144DK: * * 00452000
R14144DK: * ERRORS 108 AND 117 REQUIRE A VOLUME ID AS A PARM. * 00453000
R14144DK: * AFTER THE USERID AND VADDR ARE PROCURED, THIS SMALL * 00454000
R14144DK: * ROUTINE LOADS THE VOLID. * 00455000
R14144DK: * * 00456000
R14144DK: ********************************************************************** 00457000
R14144DK: USING UDEVBLOK,R4 @VA14144 00458000
R14144DK: GETVOLID MVC 0(6,R6),UDEVVSER MOVE IN THE DISK LABEL @VA14144 00459000
R14144DK: DROP R4 @VA14144 00460000
R14144DK: LA R6,6(R6) ADVANCE THE POINTER @VA14144 00461000
R14144DK: B CALERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00462000
R14144DK: ERROR109 LA R2,EMSG109 XXX YYY NOT LINKED; BAD LINK DEV @VA14144 00463000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00464000
R14144DK: ERROR110 LA R2,EMSG110 XXX YYY NOT LINKED; DEV DEFINED @VA14144 00465000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00466000
R14144DK: ********************************************************************** 00467000
R14144DK: * * 00468000
R14144DK: * ERROR 110 REQUIRES A DEVICE MNEMONIC AND VADDR AS WELL * 00469000
R14144DK: * AS THE USERID AND VADDR. THIS CODE GETS THEM. * 00470000
R14144DK: * * 00471000
R14144DK: ********************************************************************** 00472000
R14144DK: PARMS110 CALL DMKSCNVN GET THE DEVICE MNEMONIC @VA14144 00473000
R14144DK: ST R1,0(R6) MOVE THE DEVICE INTO PARM LIST @VA14144 00474000
R14144DK: TM 3(R6),SPACE IS IT A 3 CHAR DEVICE NAME? @VA14144 00475000
R14144DK: BO PARM110A NO @VA14144 00476000
R14144DK: MVI 3(R6),BIN00 KILL THAT LAST SPACE @VA14144 00477000
R14144DK: PARM110A MVI 4(R6),BIN00 DELIMIT WITH ZERO @VA14144 00478000
R14144DK: L R1,SAVEWRK5 LOAD THE DEVICE NAME @VA14144 00479000
R14144DK: CALL DMKCVTBH CONVERT TO HEX PLEASE @VA14144 00480000
R14144DK: STCM R1,B'0111',5(R6) MOVE IT INTO THE PARM LIST @VA14144 00481000
R14144DK: LA R6,8(R6) ADVANCE THE POINTER @VA14144 00482000
R14144DK: B CALERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00483000
R14144DK: EJECT 00484000
R14144DK: ********************************************************************** 00485000
R14144DK: * * 00486000
R14144DK: * ERRORS 111, 112, AND 113 ARE PASSWORD ERRORS. DEPENDING * 00487000
R14144DK: * ON THE ACCESS DESIRED, THE APPROPIATE MESSAGE IS CODED. * 00488000
R14144DK: * * 00489000
R14144DK: ********************************************************************** 00490000
R14144DK: NOPSWRD EQU * NO PASS THERE FOR MODE DESIRED @VA14144 00491000
R14144DK: BAL R10,UNLOKSUB UNLOCK USERID(S) RIGHT NOW @VA14144 00492000
R14144DK: CL R0,F2 WHAT PSWD WOULD IT HAVE BEEN? @VA14144 00493000
R14144DK: LA R2,EMSG111 NO READ PASSWORD ? @VA14144 00494000
R14144DK: BL GETPARM2 CORRECT IF R0 < 2. @VA14144 00495000
R14144DK: LA R2,EMSG112 NO WRITE PASSWORD ? @VA14144 00496000
R14144DK: BE GETPARM2 CORRECT IF R0 = 2 @VA14144 00497000
R14144DK: LA R2,EMSG113 NO MULT PASSWORD IF R0 > 2 @VA14144 00498000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00499000
R14144DK: ********************************************************************** 00500000
R14144DK: * * 00501000
R14144DK: * ERRORS 114 AND 115 RESULT FROM AN INCORRECT OR AN * 00502000
R14144DK: * EXCESSIVE NUMBER OF INCORRECT PASSWORDS. * 00503000
R14144DK: * * 00504000
R14144DK: ********************************************************************** 00505000
R14144DK: PASSWRNG BNO ERROR114 BEWARE OF DMKEPSWD COND-CODE 3 @VA14144 00506000
R14144DK: L R1,SAVERETN RETURN-ADDRESS + 8 FOR DMKCFM @VA14144 00507000
R14144DK: LA R1,8(,R1) THIS GUY ALREADY LOGGED OFF @VA14144 00508000
R14144DK: ST R1,SAVERETN DUE TO TERMINAL TURNED OFF. @VA14144 00509000
R14144DK: ST R11,SAVER11 BE SURE TO RETURN CORRECT R11 @VA14144 00510000
R14144DK: B LINKEXIT AND GO EXIT. @VA14144 00511000
R14144DK: ERROR114 STM R0,R1,SAVEWRK6 SAVE INVALID PASSWORD @VA14144 00512000
R14144DK: SLR R14,R14 CLEAR REG @VA14144 00513000
R14144DK: IC R14,VMPSWDCT PICK UP INVALID PASSWORD COUNT @VA14144 00514000
R14144DK: LA R15,LNKLIMIT GET THE LIMIT @VA14144 00515000
R14144DK: CR R14,R15 HAVE WE EXCEEDED? @VA14144 00516000
R14144DK: BNL ERROR115 TOO BAD... @VA14144 00517000
R14144DK: LA R14,1(,R14) INCREMENT BY 1 @VA14144 00518000
R14144DK: STC R14,VMPSWDCT STORE IT BACK @VA14144 00519000
R14144DK: LA R2,EMSG114 XXX YYY NOT LINKED; PSWD WRONG @VA14144 00520000
R14144DK: L R6,=A(DMKSYSJR) GET ADDRESS OF JPSCBLOK @VA14144 00521000
R14144DK: USING JPSCBLOK,R6 @VA14144 00522000
R14144DK: TM LINKJRL,L'LINKJRLI INVALID-LINK JOURNALING ON? @VA14144 00523000
R14144DK: DROP R6 @VA14144 00524000
R14144DK: BZ GETPARM2 @VA14144 00525000
R14144DK: ********************************************************************** 00526000
R14144DK: * * 00527000
R14144DK: * SET UP REGISTERS FOR CALL TO DMKJRLIL * 00528000
R14144DK: * * 00529000
R14144DK: ********************************************************************** 00530000
R14144DK: LA R1,SAVEWRK2 POINT AT LINKEE'S USERID @VA14144 00531000
R14144DK: LA R2,SAVEWRK4 LINKEE'S MINI-DISK ADDRESS @VA14144 00532000
R14144DK: LA R6,SAVEWRK6 POINT AT INVALID PASSWORD @VA14144 00533000
R14144DK: CALL DMKJRLIL JOURNAL THE INVALID PASSWORD @VA14144 00534000
R14144DK: LA R2,EMSG114 XXX YYY NOT LINKED; PSWD WRONG @VA14144 00535000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00536000
R14144DK: ERROR115 LA R2,EMSG115 EXCESSIVE INCORRECT PASSWORDS @VA14144 00537000
R14144DK: LA R0,4 LENGTH OF THE WORD 'LINK' @VA14144 00538000
R14144DK: LA R1,VMCOMND ADDRESS OF THE COMMAND @VA14144 00539000
R14144DK: B CERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00540000
R14144DK: EJECT 00541000
R14144DK: ERR116UL BAL R10,UNLOKUSR UNLOCK OTHER LOCK ON USER @VA14144 00542000
R14144DK: ERROR116 LA R2,EMSG116 XXX YYY NOT LINKED; DIR IN USE @VA14144 00543000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00544000
R14144DK: ERROR117 LA R2,EMSG117 XXX YYY NOT LINKED; VOL CONFLICT @VA14144 00545000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00546000
R14144DK: ERROR118 LA R2,EMSG118 XXX YYY NOT LINKED; CMD FMT BAD @VA14144 00547000
R14144DK: B GETPARM2 GET PARMS FOR DMKERMSG @VA14144 00548000
R14144DK: ERROR119 BAL R10,UNLOKSUB UNLOCK BOTH USERIDS @VA14144 00549000
R14144DK: LA R2,EMSG119 INSUFFICIENT STORAGE @VA14144 00550000
R14144DK: JUSTVADD LA R0,EMSGBFSZ SPACE FOR ERMSG BUFFER @VA14144 00551000
R14144DK: CALL DMKFREE SPACE TO BUILD ERROR MESSAGE @VA14144 00552000
R14144DK: ST R1,SAVER2 SAVE BUFFER POINTER @VA14144 00553000
R14144DK: LR R6,R1 SET UP R6 FOR PARAM LIST BUILD @VA14144 00554000
R14144DK: B GETVADDR JOIN REGULAR PARAM BUILD ROUTINE @VA14144 00555000
R14144DK: ./ R 1007000 1012000 $ 1007100 100 00556000
R14144DK: ERROR137 LA R2,EMSG137 LINK TO DEDICATED CHANNEL BAD @VA14144 00557000
R14144DK: MVC SAVEWRK4,SAVEWRK5 LINK-AS; NOT LINK-TO @VA14144 00558000
R14144DK: B JUSTVADD GET THE VADDR IN MESSAGE BUFFER @VA14144 00559000
R14144DK: ********************************************************************** 00560000
R14144DK: * * 00561000
R14144DK: * THIS IS THE SECOND PART OF ERROR137; GET THE CHANNEL * 00562000
R14144DK: * * 00563000
R14144DK: ********************************************************************** 00564000
R14144DK: GETCHAN SLR R0,R0 ZERO R0 @VA14144 00565000
R14144DK: ./ R 1017000 1018000 $ 1017100 100 00566000
R14144DK: STH R1,0(R6) SAVE IT. @VA14144 00567000
R14144DK: TM 0(R6),X'0F' IS CHANNEL NUMBER > 9? @VA14144 00568000
R14144DK: ./ R 1020000 1024900 $ 1020100 100 00569000
R14144DK: MVI 0(R6),BIN00 NO - PRINT ONLY THE 1 CHARACTER @VA14144 00570000
R14144DK: LA R6,2(R6) ADD LENGTH OF CHANNEL NUMBER @VA14144 00571000
R14144DK: B CALERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00572000
R14144DK: ./ R 1027000 1138000 $ 1027100 100 00573000
R14144DK: EJECT 00574000
R14144DK: ERROR281 LA R2,EMSG281 VOL NOT LINKED; DEMNT IN PROCESS @VA14144 00575000
R14144DK: ICM R2,B'0100',INFOMSG INDICATE INFO MESSAGE @VA14144 00576000
R14144DK: LA R0,6 LENGTH OF A VOL ID @VA14144 00577000
R14144DK: USING UDEVBLOK,R9 @VA14144 00578000
R14144DK: LA R6,UDEVVSER GET ADDRESS OF VOL ID @VA14144 00579000
R14144DK: DROP R9 @VA14144 00580000
R14144DK: B CERMSG GO CALL ERROR MESSAGE HANDLER @VA14144 00581000
R14144DK: EJECT 00582000
R14144DK: ********************************************************************** 00583000
R14144DK: * * 00584000
R14144DK: * THE FOLLOWING CODE BUILDS THE ERROR MESSAGE PARM LIST. * 00585000
R14144DK: * FIRST THE BASIC USERID AND VADDR PARMS ARE FETCHED, IF * 00586000
R14144DK: * REQUIRED. THEN COMPARISONS ARE MADE TO SEE IF ANY * 00587000
R14144DK: * OTHERS ARE NEEDED. IF SO, BRANCH TO THE CODE TO GET THEM. * 00588000
R14144DK: * * 00589000
R14144DK: ********************************************************************** 00590000
R14144DK: GETPARM1 ST R7,SAVEWRK6 SAVE COUNT OF R/W USERS @VA14144 00591000
R14144DK: ST R6,SAVEWRK7 SAVE COUNT OF R/O USERS @VA14144 00592000
R14144DK: L R7,SAVEWRK9 R/W USER VMBLOK @VA14144 00593000
R14144DK: LTR R6,R6 ANY R/O USERS? @VA14144 00594000
R14144DK: BNP GETPARM3 NO--REGULAR ERROR 102 OR 105 @VA14144 00595000
R14144DK: LA R2,1(R2) BUMP TO ERMSG106 OR 7 @VA14144 00596000
R14144DK: OI LINKFLAG,ADDROMSG REMEMBER TO ADD R/O MESSAGE @VA14144 00597000
R14144DK: B GETPARM3 R7 ALREADY HAS VMBLOK @VA14144 00598000
R14144DK: GETPARM2 L R7,SAVEWRK8 R/O USER VMBLOK @VA14144 00599000
R14144DK: GETPARM3 LA R0,EMSGBFSZ SPACE FOR ERMSG BUFFER @VA14144 00600000
R14144DK: CALL DMKFREE SPACE TO BUILD ERROR MESSAGE @VA14144 00601000
R14144DK: ST R1,SAVER2 SAVE POINTER FOR LATER FRET @VA14144 00602000
R14144DK: LR R6,R1 R6 IS BUFFER WORK POINTER @VA14144 00603000
R14144DK: LA R0,EMSG104 DO NOT GET USERID FOR 101-3 @VA14144 00604000
R14144DK: CR R2,R0 COMPARE -- LESS THEN 104? @VA14144 00605000
R14144DK: BL GETVADDR SKIP USERID FETCH @VA14144 00606000
R14144DK: MVC 0(8,R6),SAVEWRK2 MOVE IN USERID @VA14144 00607000
R14144DK: CKIDLOOP CLI 7(R6),SPACE THIS QUICK LOOP BACKS UP @VA14144 00608000
R14144DK: * OVER BLANKS IN THE USERID 00609000
R14144DK: BNE CKIDDONE NOT A BLANK @VA14144 00610000
R14144DK: BCT R6,CKIDLOOP DECREMENT BUF PTR AND LOOP @VA14144 00611000
R14144DK: CKIDDONE MVI 8(R6),BIN00 DELIMIT WITH BINARY ZEROES @VA14144 00612000
R14144DK: LA R6,9(R6) ADVANCE THE POINTER PAST ID @VA14144 00613000
R14144DK: GETVADDR L R1,SAVEWRK4 LOAD LINK-AS DEVICE ADDR @VA14144 00614000
R14144DK: CALL DMKCVTBH CONVERT TO HEX PLEASE @VA14144 00615000
R14144DK: STCM R1,B'0111',0(R6) PUT ADDR IN PARM LIST @VA14144 00616000
R14144DK: MVI 3(R6),BIN00 DELIMIT WITH BINARY ZEROES @VA14144 00617000
R14144DK: LA R6,4(R6) ADVANCE THE POINTER @VA14144 00618000
R14144DK: GETUSER1 LA R0,EMSG106 LESS THAN 106 ARE SPECIAL @VA14144 00619000
R14144DK: CR R2,R0 COMPARE -- GREATER THAN 106? @VA14144 00620000
R14144DK: BH GETPARMS SKIP THE 'USERS' MESSAGE(S) @VA14144 00621000
R14144DK: LA R0,EMSG103 MESSAGES 101-3 ARE WARNINGS @VA14144 00622000
R14144DK: CR R2,R0 COMPARE -- GREATER THAN 103? @VA14144 00623000
R14144DK: BH SKIPWARN MUST BE 104-6 @VA14144 00624000
R14144DK: ICM R2,B'0100',WARNING INDICATE WARNING MESSAGE @VA14144 00625000
R14144DK: SKIPWARN L R1,SAVEWRK6 GET COUNT OF FIRST MSG USERS @VA14144 00626000
R14144DK: GETUSER2 CL R1,F1 SEE IF ONLY ONE @VA14144 00627000
R14144DK: BH GETUSER3 YES -- GENERAL MESSAGE @VA14144 00628000
R14144DK: MVC 0(8,R6),VMUSER-VMBLOK(R7) MOVE IN USERID @VA14144 00629000
R14144DK: CKIDLOP2 CLI 7(R6),SPACE THIS QUICK LOOP BACKS UP @VA14144 00630000
R14144DK: * OVER BLANKS IN THE USERID 00631000
R14144DK: BNE CKIDDON2 NOT A BLANK @VA14144 00632000
R14144DK: BCT R6,CKIDLOP2 DECREMENT BUF PTR AND LOOP @VA14144 00633000
R14144DK: CKIDDON2 MVI 8(R6),BIN00 DELIMIT WITH BINARY ZEROES @VA14144 00634000
R14144DK: LA R6,9(R6) ADVANCE THE POINTER @VA14144 00635000
R14144DK: B GETUSER4 @VA14144 00636000
R14144DK: GETUSER3 CALL DMKCVTBD CONVERT TO DECIMAL PLEASE @VA14144 00637000
R14144DK: STCM R1,B'0111',0(R6) PUT ADD IN PARM LIST @VA14144 00638000
R14144DK: MVC 3(6,R6),=C' USERS' MOVE IN THE WORD USERS @VA14144 00639000
R14144DK: MVI 9(R6),BIN00 DELIMIT WITH BINARY ZEROES @VA14144 00640000
R14144DK: LA R6,10(R6) ADVANCE THE POINTER @VA14144 00641000
R14144DK: GETUSER4 TM LINKFLAG,ADDROMSG EXTRA MESSAGE (103 AND 106) @VA14144 00642000
R14144DK: BZ GETPARMS NOT THIS TIME @VA14144 00643000
R14144DK: XI LINKFLAG,ADDROMSG TURN OFF FLAG SO NO REPEAT @VA14144 00644000
R14144DK: L R1,SAVEWRK7 GET THE SECOND (R/O) COUNT @VA14144 00645000
R14144DK: L R7,SAVEWRK8 R/O USER VMBLOK @VA14144 00646000
R14144DK: B GETUSER2 REPEAT WITH THE SECOND COUNT @VA14144 00647000
R14144DK: GETPARMS LA R0,EMSG110 SPECIAL -- DEVICE TYPE AND ADDR @VA14144 00648000
R14144DK: CR R2,R0 CHECK IF THIS CASE @VA14144 00649000
R14144DK: BE PARMS110 GO DO IT @VA14144 00650000
R14144DK: LA R0,EMSG108 SPECIAL -- VOLUME ID NEEDED @VA14144 00651000
R14144DK: CR R2,R0 CHECK IF THIS CASE @VA14144 00652000
R14144DK: BE GETVOLID GO DO IT @VA14144 00653000
R14144DK: LA R0,EMSG117 SPECIAL -- VOLUME ID NEEDED @VA14144 00654000
R14144DK: CR R2,R0 CHECK IF THIS CASE @VA14144 00655000
R14144DK: BE GETVOLID GO DO IT @VA14144 00656000
R14144DK: AIF (NOT &DEDCH).NOTDED3 @VA14144 00657000
R14144DK: LA R0,EMSG137 SPECIAL -- DEVICE CHANNEL NEEDED @VA14144 00658000
R14144DK: CR R2,R0 CHECK IF THIS CASE @VA14144 00659000
R14144DK: BE GETCHAN GO DO IT @VA14144 00660000
R14144DK: .NOTDED3 ANOP 00661000
R14144DK: B CALERMSG GO CALL ERROR MSG HANDLER @VA14144 00662000
R14144DK: EJECT 00663000
R14144DK: ********************************************************************** 00664000
R14144DK: * * 00665000
R14144DK: * THE PARM LISTS ARE BUILT -- CALL DMKERMSG. * 00666000
R14144DK: * SAVER2 HAS THE ADDRESS OF THE BEGINNING OF THE BUFFER. * 00667000
R14144DK: * R6 HAS THE END POINTER AND R2 CONTAINS THE ERROR CODE. * 00668000
R14144DK: * * 00669000
R14144DK: ********************************************************************** 00670000
R14144DK: CERMSG XC SAVER2,SAVER2 REMEMBER NO SPACE TO FRET @VA14144 00671000
R14144DK: B CERMSG2 R0 AND R1 ALREADY SET UP @VA14144 00672000
R14144DK: CALERMSG LR R0,R6 GET THE CURRENT POINTER @VA14144 00673000
R14144DK: L R1,SAVER2 GET START OF BUFFER @VA14144 00674000
R14144DK: SR R0,R1 CALCULATE LENGTH OF MESSAGE @VA14144 00675000
R14144DK: CERMSG2 ICM R0,B'1110',DMKLNK+3 'LNK' INTO R0 HIGH 3 BYTES @VA14144 00676000
R14144DK: ICM R2,B'1000',HIGHX80 SET R2 TO RETURN BACK @VA14144 00677000
R14144DK: CALL DMKERMSG LET ERR MSG HANDLER DO THE WORK @VA14144 00678000
R14144DK: L R1,SAVER2 GET ADDR OF BUFFER -- IF ANY @VA14144 00679000
R14144DK: XC SAVER2(2),SAVER2 CLEAR OUT FOR RETURN CODE @VA14144 00680000
R14144DK: STH R2,SAVER2+2 RETURN THE ERROR CODE @VA14144 00681000
R14144DK: LTR R1,R1 ANY SPACE TO FRET @VA14144 00682000
R14144DK: BZ LINKEXIT NO -- GO FINISH UP @VA14144 00683000
R14144DK: LA R0,EMSGBFSZ FRET THE BUFFER SPACE @VA14144 00684000
R14144DK: CALL DMKFRET FREE THE SPACE AGAIN @VA14144 00685000
R14144DK: B LINKEXIT NOW GO FINISH UP @VA14144 00686000
R14144DK: EJECT 00687000
R14144DK: ********************************************************************** 00688000
R14144DK: * * 00689000
R14144DK: * TABLES, ERROR MESSAGES, EXECUTED INSTRUCTIONS, AND CONSTANTS * 00690000
R14144DK: * * 00691000
R14144DK: ********************************************************************** 00692000
R14144DK: CLTO DC CL2'TO' OPTIONAL 'TO' @VA14144 00693000
R14144DK: CLAS DC CL2'AS' OPTIONAL 'AS' @VA14144 00694000
R14144DK: RC50 DC X'50' @VA14144 00695000
R14144DK: HIGHX80 DC X'80' SIGNAL DMKERMSG TO RETURN @VA14144 00696000
R14144DK: WARNING DC C'W' INDICATES WARNING MSG TO ERMSG @VA14144 00697000
R14144DK: INFOMSG DC C'I' INDICATES INFO MSG TO ERMSG @VA14144 00698000
R14144DK: RC32 EQU 32 RETURN CODE OF 32 FROM DMKVDSLK @VA14144 00699000
R14144DK: BIN00 EQU X'00' DELIMITER FOR ERROR PARMS @VA14144 00700000
R14144DK: LOW5BITS EQU 31 ISOLATE 5 LOW ORDER BITS @VA14144 00701000
R14144DK: SPACE EQU X'40' @VA14144 00702000
R14144DK: EMSGBFSZ EQU 5 NUMBER OF DWORDS FOR BUFFER @VA14144 00703000
R14144DK: LNKLIMIT EQU 10 HOW MANY WRONG PASSWORDS WE'LL @VA14144 00704000
R14144DK: * TOLERATE FROM V.M. 00705000
R14144DK: LEVLIMIT EQU 2 PRACTICAL LIMIT (+1) FOR LEVEL @VA14144 00706000
R14144DK: * OF INDIRECT LINK(S) 00707000
R14144DK: ********************************************************************** 00708000
R14144DK: * * 00709000
R14144DK: * EXECUTED INSTRUCTIONS * 00710000
R14144DK: * * 00711000
R14144DK: ********************************************************************** 00712000
R14144DK: DS 0F @VA14144 00713000
R14144DK: MODECLC CLC 0(*-*,R1),0(R3) TO CHECK COMMAND-LINE MODE VS @VA14144 00714000
R14144DK: * TABLE 00715000
R14144DK: SAVEID MVC SAVEWRK2(*-*),0(R1) TO SAVE USERID @VA14144 00716000
R14144DK: SAVEPASS MVC SAVEWRK6(*-*),0(R1) TO SAVE THE PASSWORD @VA14144 00717000
R14144DK: XTMMODE TM 1(R5),*-* TO CHECK FOR LEGITIMATE ACCESS @VA14144 00718000
R14144DK: * MODE 00719000
R14144DK: ********************************************************************** 00720000
R14144DK: * * 00721000
R14144DK: * TABLE OF LEGITIMATE ONE- OR TWO-BYTE ACCESS MODES: * 00722000
R14144DK: * 1ST HALFWORD = ACCESS MODE * 00723000
R14144DK: * 2ND HALFWORD = INDEXER FOR DECISION TABLE FOR THAT MODE: * 00724000
R14144DK: * * 00725000
R14144DK: ********************************************************************** 00726000
R14144DK: MODER DC CL2'R ',H'0' THE FIRST ONE @VA14144 00727000
R14144DK: DC CL2'RR',H'4' @VA14144 00728000
R14144DK: MODEW DC CL2'W ',H'8' @VA14144 00729000
R14144DK: DC CL2'WR',H'12' @VA14144 00730000
R14144DK: MODEM DC CL2'M ',H'16' @VA14144 00731000
R14144DK: DC CL2'MR',H'20' @VA14144 00732000
R14144DK: MODEMW DC CL2'MW',H'24' THE LAST ONE @VA14144 00733000
R14144DK: EJECT 00734000
R14144DK: ./ D 1139500 1140000 $ 00735000
R14144DK: ./ R 1142000 1144000 $ 1142100 100 00736000
R14144DK: ********************************************************************** 00737000
R14144DK: * * 00738000
R14144DK: * FLAG-BIT DEFINITIONS FOR FIRST BYTE OF "DTBL" DECISION-TABLE WORD: * 00739000
R14144DK: * * 00740000
R14144DK: ********************************************************************** 00741000
R14144DK: ./ R 1150000 1151000 $ 1150100 00742000
R14144DK: ********************************************************************** 00743000
R14144DK: * * 00744000
R14144DK: * (KEEP THE NEXT THREE "AS IS" - 1, 2, AND 3): * 00745000
R14144DK: * * 00746000
R14144DK: ********************************************************************** 00747000
R14144DK: ./ R 1155000 $ 1155100 100 00748000
R14144DK: ********************************************************************** 00749000
R14144DK: * * 00750000
R14144DK: ./ R 1157000 $ 1157100 00751000
R14144DK: * * 00752000
R14144DK: ./ R 1159000 $ 1159100 100 00753000
R14144DK: * * 00754000
R14144DK: ********************************************************************** 00755000
R14144DK: ./ R 1161000 $ 1161100 100 00756000
R14144DK: ********************************************************************** 00757000
R14144DK: * * 00758000
R14144DK: ./ I 1164000 $ 1164100 100 00759000
R14144DK: * * 00760000
R14144DK: ********************************************************************** 00761000
R14144DK: ./ R 1174000 1175000 $ 1174100 100 00762000
R14144DK: DTBL NOL,UDEVLW+UDEVLM,ERROR104 READ W @VA14144 00763000
R14144DK: DTBL WPS+FRO+GMS,UDEVLW+UDEVLM,ERROR101 READ WR @VA14144 00764000
R14144DK: ./ R 1179000 $ 1179100 00765000
R14144DK: TBLWRITE DTBL NOL,UDEVLR+UDEVLW+UDEVLM,ERROR105 WRITE R @VA14144 00766000
R14144DK: ./ R 1181000 1184100 $ 1181100 100 00767000
R14144DK: DTBL NOL,UDEVLW+UDEVLM,ERROR105 WRITE W @VA14144 00768000
R14144DK: DTBL WPS+FRO+GMS,UDEVLW+UDEVLM,ERROR102 WRITE WR @VA14144 00769000
R14144DK: DTBL NOL,UDEVLM,ERROR105 WRITE M @VA14144 00770000
R14144DK: DTBL WPS+FRO+GMS,UDEVLW+UDEVLM,ERROR102 WRITE MR @VA14144 00771000
R14144DK: ./ R 1186000 $ 1186100 100 00772000
R14144DK: ********************************************************************** 00773000
R14144DK: * * 00774000
R14144DK: ./ R 1188000 $ 1188100 100 00775000
R14144DK: * * 00776000
R14144DK: ********************************************************************** 00777000
R14144DK: ./ R 1191000 $ 1191100 100 00778000
R14144DK: ********************************************************************** 00779000
R14144DK: * * 00780000
R14144DK: ./ R 1192000 1196000 $ 1192100 100 00781000
R14144DK: * INDEXING TABLE FOR DETERMINING IF A LINK IS FEASIBLE * 00782000
R14144DK: * WITHOUT A PASSWORD - I.E. IF THE ORIGINAL USER ACCESS * 00783000
R14144DK: * MODE IS ADEQUATE FOR THE LINK MODE DESIRED WITHOUT * 00784000
R14144DK: * REQUIRING THE ENTERING OF A PASSWORD: * 00785000
R14144DK: * * 00786000
R14144DK: ********************************************************************** 00787000
R14144DK: ./ I 1200000 $ 1200100 100 00788000
R14144DK: ********************************************************************** 00789000
R14144DK: * * 00790000
R14144DK: * NON-ERROR RESPONSES TO USER. ISSUED INTERNALLY. * 00791000
R14144DK: * * 00792000
R14144DK: ********************************************************************** 00793000
R14144DK: ./ R 1201000 1204000 $ 1201100 100 00794000
R14144DK: ********************************************************************** 00795000
R14144DK: * * 00796000
R14144DK: ./ I 1210000 $ 1210100 100 00797000
R14144DK: * * 00798000
R14144DK: ********************************************************************** 00799000
R14144DK: ./ R 1219100 1222000 $ 1220100 100 00800000
R14144DK: ********************************************************************** 00801000
R14144DK: * * 00802000
R14144DK: * DEFINE THE ERROR MESSAGE CODES * 00803000
R14144DK: * * 00804000
R14144DK: ********************************************************************** 00805000
R14144DK: ./ R 1223000 1477800 $ 1225000 1000 00806000
R14144DK: EMSG20 EQU 20 @VA14144 00807000
R14144DK: EMSG22 EQU 22 @VA14144 00808000
R14144DK: EMSG52 EQU 52 @VA14144 00809000
R14144DK: EMSG53 EQU 53 @VA14144 00810000
R14144DK: EMSG101 EQU 101 @VA14144 00811000
R14144DK: EMSG102 EQU 102 @VA14144 00812000
R14144DK: EMSG103 EQU 103 @VA14144 00813000
R14144DK: EMSG104 EQU 104 @VA14144 00814000
R14144DK: EMSG105 EQU 105 @VA14144 00815000
R14144DK: EMSG106 EQU 106 @VA14144 00816000
R14144DK: EMSG107 EQU 107 @VA14144 00817000
R14144DK: EMSG108 EQU 108 @VA14144 00818000
R14144DK: EMSG109 EQU 109 @VA14144 00819000
R14144DK: EMSG110 EQU 110 @VA14144 00820000
R14144DK: EMSG111 EQU 111 @VA14144 00821000
R14144DK: EMSG112 EQU 112 @VA14144 00822000
R14144DK: EMSG113 EQU 113 @VA14144 00823000
R14144DK: EMSG114 EQU 114 @VA14144 00824000
R14144DK: EMSG115 EQU 115 @VA14144 00825000
R14144DK: EMSG116 EQU 116 @VA14144 00826000
R14144DK: EMSG117 EQU 117 @VA14144 00827000
R14144DK: EMSG118 EQU 118 @VA14144 00828000
R14144DK: EMSG119 EQU 119 @VA14144 00829000
R14144DK: EMSG137 EQU 137 @VA14144 00830000
R14144DK: EMSG199 EQU 199 @VA14144 00831000
R14144DK: EMSG281 EQU 281 @VA14144 00832000
R14144DK: EJECT 00833000
R14144DK: ./ R 1481000 $ 1481100 100 00834000
R14144DK: ********************************************************************** 00835000
R14144DK: * * 00836000
R14144DK: ./ R 1491000 $ 1491100 100 00837000
R14144DK: * * 00838000
R14144DK: ********************************************************************** 00839000
R14144DK: ./ D 1493000 $ 00840000
R14144DK: ./ R 1501000 1502000 $ 1501100 100 00841000
R14144DK: LINKMODE EQU SAVEWRK1+1 COPY OF UDEVMODE FROM ORIGINAL @VA14144 00842000
R14144DK: * UDEVBLOK 00843000
R14144DK: ./ R 1503000 $ 1503100 100 00844000
R14144DK: LINKHALF EQU SAVEWRK1+2 HALFWORD "INDEXER" TO DECISION @VA14144 00845000
R14144DK: * TABLE 00846000
R14144DK: ./ R 1505000 $ 1505100 00847000
R14144DK: PSA (R0) @VA14144 00848000
BEGIN APPLY >>> ./ R 3000 $ 3100 00001000
END APPLY >>> ./ R 3000 $ 3100 00001000
BEGIN APPLY >>> ./ D 8000 17000 $ 00003000
END APPLY >>> ./ D 8000 17000 $ 00003000
BEGIN APPLY >>> ./ R 37000 $ 37100 100 00004000
END APPLY >>> ./ R 37000 $ 37100 100 00004000
BEGIN APPLY >>> ./ R 51000 $ 51100 100 00007000
END APPLY >>> ./ R 51000 $ 51100 100 00007000
BEGIN APPLY >>> ./ D 71000 $ 00014000
END APPLY >>> ./ D 71000 $ 00014000
BEGIN APPLY >>> ./ I 87000 $ 87100 00015000
END APPLY >>> ./ I 87000 $ 87100 00015000
BEGIN APPLY >>> ./ R 224000 $ 224100 00017000
END APPLY >>> ./ R 224000 $ 224100 00017000
BEGIN APPLY >>> ./ R 280000 $ 280100 00019000
END APPLY >>> ./ R 280000 $ 280100 00019000
BEGIN APPLY >>> ./ I 288000 $ 288100 00021000
END APPLY >>> ./ I 288000 $ 288100 00021000
BEGIN APPLY >>> ./ R 291000 $ 291000 00023000
END APPLY >>> ./ R 291000 $ 291000 00023000
BEGIN APPLY >>> ./ I 291300 $ 291310 00025000
END APPLY >>> ./ I 291300 $ 291310 00025000
BEGIN APPLY >>> ./ R 322000 328000 $ 322100 00027000
END APPLY >>> ./ R 322000 328000 $ 322100 00027000
BEGIN APPLY >>> ./ R 398000 402000 $ 398100 100 00029000
END APPLY >>> ./ R 398000 402000 $ 398100 100 00029000
BEGIN APPLY >>> ./ R 413000 $ 413100 00032000
END APPLY >>> ./ R 413000 $ 413100 00032000
BEGIN APPLY >>> ./ D 425000 431000 $ 00034000
END APPLY >>> ./ D 425000 431000 $ 00034000
BEGIN APPLY >>> ./ I 440000 $ 440100 00035000
END APPLY >>> ./ I 440000 $ 440100 00035000
BEGIN APPLY >>> ./ D 450000 $ 00037000
END APPLY >>> ./ D 450000 $ 00037000
BEGIN APPLY >>> ./ R 453300 $ 453310 00038000
END APPLY >>> ./ R 453300 $ 453310 00038000
BEGIN APPLY >>> ./ I 453600 $ 453610 00040000
END APPLY >>> ./ I 453600 $ 453610 00040000
BEGIN APPLY >>> ./ D 457000 $ 00042000
END APPLY >>> ./ D 457000 $ 00042000
BEGIN APPLY >>> ./ I 458000 $ 458100 100 00043000
END APPLY >>> ./ I 458000 $ 458100 100 00043000
BEGIN APPLY >>> ./ R 461000 465000 $ 461100 100 00049000
END APPLY >>> ./ R 461000 465000 $ 461100 100 00049000
BEGIN APPLY >>> ./ R 474000 $ 474100 00055000
END APPLY >>> ./ R 474000 $ 474100 00055000
BEGIN APPLY >>> ./ R 478000 $ 478100 00057000
END APPLY >>> ./ R 478000 $ 478100 00057000
BEGIN APPLY >>> ./ R 480000 $ 480100 00059000
END APPLY >>> ./ R 480000 $ 480100 00059000
BEGIN APPLY >>> ./ R 495000 $ 495100 00061000
END APPLY >>> ./ R 495000 $ 495100 00061000
BEGIN APPLY >>> ./ R 500000 $ 500100 00063000
END APPLY >>> ./ R 500000 $ 500100 00063000
BEGIN APPLY >>> ./ R 506000 $ 506100 00065000
END APPLY >>> ./ R 506000 $ 506100 00065000
BEGIN APPLY >>> ./ R 508000 509000 $ 508100 100 00067000
END APPLY >>> ./ R 508000 509000 $ 508100 100 00067000
BEGIN APPLY >>> ./ R 512000 $ 512100 00070000
END APPLY >>> ./ R 512000 $ 512100 00070000
BEGIN APPLY >>> ./ R 519000 $ 519100 00072000
END APPLY >>> ./ R 519000 $ 519100 00072000
BEGIN APPLY >>> ./ R 521000 $ 521100 00074000
END APPLY >>> ./ R 521000 $ 521100 00074000
BEGIN APPLY >>> ./ R 526000 528000 $ 526100 100 00076000
END APPLY >>> ./ R 526000 528000 $ 526100 100 00076000
BEGIN APPLY >>> ./ R 530000 $ 530100 00080000
END APPLY >>> ./ R 530000 $ 530100 00080000
BEGIN APPLY >>> ./ R 532000 533000 $ 532100 100 00082000
END APPLY >>> ./ R 532000 533000 $ 532100 100 00082000
BEGIN APPLY >>> ./ R 536000 $ 536100 00085000
END APPLY >>> ./ R 536000 $ 536100 00085000
BEGIN APPLY >>> ./ R 541000 $ 541100 00087000
END APPLY >>> ./ R 541000 $ 541100 00087000
BEGIN APPLY >>> ./ R 544000 $ 544100 00089000
END APPLY >>> ./ R 544000 $ 544100 00089000
BEGIN APPLY >>> ./ R 546000 $ 546100 00091000
END APPLY >>> ./ R 546000 $ 546100 00091000
BEGIN APPLY >>> ./ R 549000 $ 549100 00093000
END APPLY >>> ./ R 549000 $ 549100 00093000
BEGIN APPLY >>> ./ R 554000 555000 $ 554100 100 00095000
END APPLY >>> ./ R 554000 555000 $ 554100 100 00095000
BEGIN APPLY >>> ./ D 561000 $ 00098000
END APPLY >>> ./ D 561000 $ 00098000
BEGIN APPLY >>> ./ R 566000 $ 566100 00099000
END APPLY >>> ./ R 566000 $ 566100 00099000
BEGIN APPLY >>> ./ R 569000 572000 $ 569100 100 00101000
END APPLY >>> ./ R 569000 572000 $ 569100 100 00101000
BEGIN APPLY >>> ./ R 573800 $ 573810 00105000
END APPLY >>> ./ R 573800 $ 573810 00105000
BEGIN APPLY >>> ./ R 574200 $ 574210 00107000
END APPLY >>> ./ R 574200 $ 574210 00107000
BEGIN APPLY >>> ./ R 576000 579000 $ 576100 100 00109000
END APPLY >>> ./ R 576000 579000 $ 576100 100 00109000
BEGIN APPLY >>> ./ R 581000 589000 $ 581100 100 00112000
END APPLY >>> ./ R 581000 589000 $ 581100 100 00112000
BEGIN APPLY >>> ./ R 591000 $ 591100 00142000
END APPLY >>> ./ R 591000 $ 591100 00142000
BEGIN APPLY >>> ./ R 594000 601000 $ 594100 100 00144000
END APPLY >>> ./ R 594000 601000 $ 594100 100 00144000
BEGIN APPLY >>> ./ R 603000 $ 603100 00158000
END APPLY >>> ./ R 603000 $ 603100 00158000
BEGIN APPLY >>> ./ R 612000 $ 612100 00161000
END APPLY >>> ./ R 612000 $ 612100 00161000
BEGIN APPLY >>> ./ R 616000 $ 616100 00163000
END APPLY >>> ./ R 616000 $ 616100 00163000
BEGIN APPLY >>> ./ R 618000 621000 $ 618100 100 00165000
END APPLY >>> ./ R 618000 621000 $ 618100 100 00165000
BEGIN APPLY >>> ./ D 625150 $ 00196000
END APPLY >>> ./ D 625150 $ 00196000
BEGIN APPLY >>> ./ R 625500 625650 $ 625510 10 00197000
END APPLY >>> ./ R 625500 625650 $ 625510 10 00197000
BEGIN APPLY >>> ./ R 628000 629000 $ 628100 00205000
END APPLY >>> ./ R 628000 629000 $ 628100 00205000
BEGIN APPLY >>> ./ R 631000 636000 $ 631100 100 00207000
END APPLY >>> ./ R 631000 636000 $ 631100 100 00207000
BEGIN APPLY >>> ./ R 638000 640000 $ 638100 100 00215000
END APPLY >>> ./ R 638000 640000 $ 638100 100 00215000
BEGIN APPLY >>> ./ R 645000 $ 645000 00218000
END APPLY >>> ./ R 645000 $ 645000 00218000
BEGIN APPLY >>> ./ D 647020 $ 00220000
END APPLY >>> ./ D 647020 $ 00220000
BEGIN APPLY >>> ./ R 647050 647060 $ 647050 00221000
END APPLY >>> ./ R 647050 647060 $ 647050 00221000
BEGIN APPLY >>> ./ R 647120 647220 $ 647120 5 00223000
END APPLY >>> ./ R 647120 647220 $ 647120 5 00223000
BEGIN APPLY >>> ./ D 647240 $ 00238000
END APPLY >>> ./ D 647240 $ 00238000
BEGIN APPLY >>> ./ R 647360 648100 $ 647400 25 00239000
END APPLY >>> ./ R 647360 648100 $ 647400 25 00239000
BEGIN APPLY >>> ./ R 649000 $ 649100 100 00260000
END APPLY >>> ./ R 649000 $ 649100 100 00260000
BEGIN APPLY >>> ./ R 650000 651000 $ 650100 00263000
END APPLY >>> ./ R 650000 651000 $ 650100 00263000
BEGIN APPLY >>> ./ R 654000 655000 $ 654100 100 00265000
END APPLY >>> ./ R 654000 655000 $ 654100 100 00265000
BEGIN APPLY >>> ./ R 657000 $ 657100 00268000
END APPLY >>> ./ R 657000 $ 657100 00268000
BEGIN APPLY >>> ./ R 663000 $ 663100 00270000
END APPLY >>> ./ R 663000 $ 663100 00270000
BEGIN APPLY >>> ./ R 670000 672000 $ 670100 100 00272000
END APPLY >>> ./ R 670000 672000 $ 670100 100 00272000
BEGIN APPLY >>> ./ R 675000 677000 $ 675100 100 00276000
END APPLY >>> ./ R 675000 677000 $ 675100 100 00276000
BEGIN APPLY >>> ./ D 714000 716000 $ 00280000
END APPLY >>> ./ D 714000 716000 $ 00280000
BEGIN APPLY >>> ./ R 722000 724000 $ 722100 100 00281000
END APPLY >>> ./ R 722000 724000 $ 722100 100 00281000
BEGIN APPLY >>> ./ D 727000 $ 00289000
END APPLY >>> ./ D 727000 $ 00289000
BEGIN APPLY >>> ./ R 731005 731015 $ 731005 1 00290000
END APPLY >>> ./ R 731005 731015 $ 731005 1 00290000
BEGIN APPLY >>> ./ R 731030 731040 $ 731030 00297000
END APPLY >>> ./ R 731030 731040 $ 731030 00297000
BEGIN APPLY >>> ./ R 731060 731080 $ 731060 2 00299000
END APPLY >>> ./ R 731060 731080 $ 731060 2 00299000
BEGIN APPLY >>> ./ R 731100 731110 $ 731100 2 00309000
END APPLY >>> ./ R 731100 731110 $ 731100 2 00309000
BEGIN APPLY >>> ./ R 731140 731150 $ 731145 5 00317000
END APPLY >>> ./ R 731140 731150 $ 731145 5 00317000
BEGIN APPLY >>> ./ I 732800 $ 732810 00326000
END APPLY >>> ./ I 732800 $ 732810 00326000
BEGIN APPLY >>> ./ R 733400 $ 733410 00328000
END APPLY >>> ./ R 733400 $ 733410 00328000
BEGIN APPLY >>> ./ R 744000 745000 $ 744100 100 00330000
END APPLY >>> ./ R 744000 745000 $ 744100 100 00330000
BEGIN APPLY >>> ./ D 750000 $ 00340000
END APPLY >>> ./ D 750000 $ 00340000
BEGIN APPLY >>> ./ D 755000 $ 00341000
END APPLY >>> ./ D 755000 $ 00341000
BEGIN APPLY >>> ./ D 763000 $ 00342000
END APPLY >>> ./ D 763000 $ 00342000
BEGIN APPLY >>> ./ D 773000 $ 00343000
END APPLY >>> ./ D 773000 $ 00343000
BEGIN APPLY >>> ./ D 780000 $ 00344000
END APPLY >>> ./ D 780000 $ 00344000
BEGIN APPLY >>> ./ D 787000 $ 00345000
END APPLY >>> ./ D 787000 $ 00345000
BEGIN APPLY >>> ./ D 790000 $ 00346000
END APPLY >>> ./ D 790000 $ 00346000
BEGIN APPLY >>> ./ I 812000 $ 812100 100 00347000
END APPLY >>> ./ I 812000 $ 812100 100 00347000
BEGIN APPLY >>> ./ R 816000 $ 816100 100 00353000
END APPLY >>> ./ R 816000 $ 816100 100 00353000
BEGIN APPLY >>> ./ R 822020 $ 822020 00360000
END APPLY >>> ./ R 822020 $ 822020 00360000
BEGIN APPLY >>> ./ R 822140 837000 $ 823000 100 00362000
END APPLY >>> ./ R 822140 837000 $ 823000 100 00362000
BEGIN APPLY >>> ./ R 845000 $ 845100 100 00376000
END APPLY >>> ./ R 845000 $ 845100 100 00376000
BEGIN APPLY >>> ./ R 862000 863000 $ 862100 100 00379000
END APPLY >>> ./ R 862000 863000 $ 862100 100 00379000
BEGIN APPLY >>> ./ R 882000 885000 $ 882100 100 00386000
END APPLY >>> ./ R 882000 885000 $ 882100 100 00386000
BEGIN APPLY >>> ./ D 890000 $ 00395000
END APPLY >>> ./ D 890000 $ 00395000
BEGIN APPLY >>> ./ R 894000 897000 $ 894100 100 00396000
END APPLY >>> ./ R 894000 897000 $ 894100 100 00396000
BEGIN APPLY >>> ./ I 900000 $ 900100 00404000
END APPLY >>> ./ I 900000 $ 900100 00404000
BEGIN APPLY >>> ./ R 902000 $ 902100 100 00406000
END APPLY >>> ./ R 902000 $ 902100 100 00406000
BEGIN APPLY >>> ./ R 906000 929000 $ 906100 100 00410000
END APPLY >>> ./ R 906000 929000 $ 906100 100 00410000
BEGIN APPLY >>> ./ R 930000 1005000 $ 930100 100 00422000
END APPLY >>> ./ R 930000 1005000 $ 930100 100 00422000
BEGIN APPLY >>> ./ R 1007000 1012000 $ 1007100 100 00556000
END APPLY >>> ./ R 1007000 1012000 $ 1007100 100 00556000
BEGIN APPLY >>> ./ R 1017000 1018000 $ 1017100 100 00566000
END APPLY >>> ./ R 1017000 1018000 $ 1017100 100 00566000
BEGIN APPLY >>> ./ R 1020000 1024900 $ 1020100 100 00569000
END APPLY >>> ./ R 1020000 1024900 $ 1020100 100 00569000
BEGIN APPLY >>> ./ R 1027000 1138000 $ 1027100 100 00573000
END APPLY >>> ./ R 1027000 1138000 $ 1027100 100 00573000
BEGIN APPLY >>> ./ D 1139500 1140000 $ 00735000
END APPLY >>> ./ D 1139500 1140000 $ 00735000
BEGIN APPLY >>> ./ R 1142000 1144000 $ 1142100 100 00736000
END APPLY >>> ./ R 1142000 1144000 $ 1142100 100 00736000
BEGIN APPLY >>> ./ R 1150000 1151000 $ 1150100 00742000
END APPLY >>> ./ R 1150000 1151000 $ 1150100 00742000
BEGIN APPLY >>> ./ R 1155000 $ 1155100 100 00748000
END APPLY >>> ./ R 1155000 $ 1155100 100 00748000
BEGIN APPLY >>> ./ R 1157000 $ 1157100 00751000
END APPLY >>> ./ R 1157000 $ 1157100 00751000
BEGIN APPLY >>> ./ R 1159000 $ 1159100 100 00753000
END APPLY >>> ./ R 1159000 $ 1159100 100 00753000
BEGIN APPLY >>> ./ R 1161000 $ 1161100 100 00756000
END APPLY >>> ./ R 1161000 $ 1161100 100 00756000
BEGIN APPLY >>> ./ I 1164000 $ 1164100 100 00759000
END APPLY >>> ./ I 1164000 $ 1164100 100 00759000
BEGIN APPLY >>> ./ R 1174000 1175000 $ 1174100 100 00762000
END APPLY >>> ./ R 1174000 1175000 $ 1174100 100 00762000
BEGIN APPLY >>> ./ R 1179000 $ 1179100 00765000
END APPLY >>> ./ R 1179000 $ 1179100 00765000
BEGIN APPLY >>> ./ R 1181000 1184100 $ 1181100 100 00767000
END APPLY >>> ./ R 1181000 1184100 $ 1181100 100 00767000
BEGIN APPLY >>> ./ R 1186000 $ 1186100 100 00772000
END APPLY >>> ./ R 1186000 $ 1186100 100 00772000
BEGIN APPLY >>> ./ R 1188000 $ 1188100 100 00775000
END APPLY >>> ./ R 1188000 $ 1188100 100 00775000
BEGIN APPLY >>> ./ R 1191000 $ 1191100 100 00778000
END APPLY >>> ./ R 1191000 $ 1191100 100 00778000
BEGIN APPLY >>> ./ R 1192000 1196000 $ 1192100 100 00781000
END APPLY >>> ./ R 1192000 1196000 $ 1192100 100 00781000
BEGIN APPLY >>> ./ I 1200000 $ 1200100 100 00788000
END APPLY >>> ./ I 1200000 $ 1200100 100 00788000
BEGIN APPLY >>> ./ R 1201000 1204000 $ 1201100 100 00794000
END APPLY >>> ./ R 1201000 1204000 $ 1201100 100 00794000
BEGIN APPLY >>> ./ I 1210000 $ 1210100 100 00797000
END APPLY >>> ./ I 1210000 $ 1210100 100 00797000
BEGIN APPLY >>> ./ R 1219100 1222000 $ 1220100 100 00800000
END APPLY >>> ./ R 1219100 1222000 $ 1220100 100 00800000
BEGIN APPLY >>> ./ R 1223000 1477800 $ 1225000 1000 00806000
END APPLY >>> ./ R 1223000 1477800 $ 1225000 1000 00806000
BEGIN APPLY >>> ./ R 1481000 $ 1481100 100 00834000
END APPLY >>> ./ R 1481000 $ 1481100 100 00834000
BEGIN APPLY >>> ./ R 1491000 $ 1491100 100 00837000
END APPLY >>> ./ R 1491000 $ 1491100 100 00837000
BEGIN APPLY >>> ./ D 1493000 $ 00840000
END APPLY >>> ./ D 1493000 $ 00840000
BEGIN APPLY >>> ./ R 1501000 1502000 $ 1501100 100 00841000
END APPLY >>> ./ R 1501000 1502000 $ 1501100 100 00841000
BEGIN APPLY >>> ./ R 1503000 $ 1503100 100 00844000
END APPLY >>> ./ R 1503000 $ 1503100 100 00844000
BEGIN APPLY >>> ./ R 1505000 $ 1505100 00847000
END APPLY >>> ./ R 1505000 $ 1505100 00847000
Update Succeeded
Update Execution Time 367 milliseconds.
Date Monday Feb 15, 1982 09:28:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 397000 $ 397300 300 00001000
R13217DK: * 00002000
R13217DK: * DMKLNK153E DEVICE YYY EXCEEDS MAX NUM OF VIRTUAL DEVICES 00003000
R13217DK: ./ R 741045 741060 $ 741045 20 00004000
R13217DK: CH R2,=H'124' EXCEEDED MAX DEVICES? @VA13217 00005000
R13217DK: BE ERR153 YES, SEND MSG 153 @VA13217 00006000
R13217DK: ./ D 902100 $
R13217DK: ./ I 930700 $ 930705 5 00007000
R13217DK: ERR153 DS 0H @VA13217 00008000
R13217DK: BAL R10,UNLOKSUB UNLOCK BOTH USER-IDS @VA13217 00009000
R13217DK: LA R2,EMSG153 MSG NUMBER @VA13217 00010000
R13217DK: LH R1,UDEVADD VIRTUAL DEVICE ADDRESS @VA13217 00011000
R13217DK: CALL DMKCVTBH CONVERT TO CHARS IN R1 @VA13217 00012000
R13217DK: SR R0,R0 LOW ORDER R0=0: DATA IN R1 @VA13217 00013000
R13217DK: ICM R0,B'1110',DMKLNK+3 MODULE ID IN HIGH ORDER @VA13217 00014000
R13217DK: ICM R1,B'1000',=X'40' HI-OR BLANK DEV ADDRESS @VA13217 00015000
R13217DK: ST R2,SAVER2 PASS RETURN CODE TO CALLER @VA13217 00016000
R13217DK: ICM R2,B'1000',HIGHX80 TELL DMKERM TO RETURN HERE @VA13217 00017000
R13217DK: CALL DMKERMSG SEND MSG AND COME BACK @VA13217 00018000
R13217DK: B LINKEXIT CLEANUP @VA13217 00019000
R13217DK: DROP R4
R13217DK: ./ I 1220500 $ 1222500 00020000
R13217DK: EMSG153 EQU 153 EXCEEDED MAX NUM OF VIRT DEV @VA13217 00021000
BEGIN APPLY >>> ./ I 397000 $ 397300 300 00001000
END APPLY >>> ./ I 397000 $ 397300 300 00001000
BEGIN APPLY >>> ./ R 741045 741060 $ 741045 20 00004000
END APPLY >>> ./ R 741045 741060 $ 741045 20 00004000
BEGIN APPLY >>> ./ D 902100 $
END APPLY >>> ./ D 902100 $
BEGIN APPLY >>> ./ I 930700 $ 930705 5 00007000
END APPLY >>> ./ I 930700 $ 930705 5 00007000
BEGIN APPLY >>> ./ I 1220500 $ 1222500 00020000
END APPLY >>> ./ I 1220500 $ 1222500 00020000
Update Succeeded
Update Execution Time 23 milliseconds.
Date Monday Feb 15, 1982 09:28:00 AM
Loaded from MAINT(294)
R15032DK: ./ R 1169100 $ 1169200 00001000
R15032DK: DTBL MPS+SWT,UDEVLM,LNKSC NONE M 00002000
R15032DK: ./ R 1170100 $ 1170200 00003000
R15032DK: DTBL MPS+SWT,UDEVLM,LNKSC NONE MR 00004000
R15032DK: ./ R 1171100 $ 1171200 00005000
R15032DK: DTBL MPS+SWT,UDEVLM,LNKSC NONE MW 00006000
R15032DK: ./ R 1176100 $ 1176200 00007000
R15032DK: DTBL MPS+SWT+GMS,UDEVLM,LNKRO READ M 00008000
R15032DK: ./ R 1177100 $ 1177200 00009000
R15032DK: DTBL MPS+SWT+GMS,UDEVLM,LNKRO READ MR 00010000
R15032DK: ./ R 1178100 $ 1178200 00011000
R15032DK: DTBL MPS+SWT+GMS,UDEVLM,LNKRO READ MW 00012000
R15032DK: ./ R 1181400 $ 1181500 00013000
R15032DK: DTBL MPS+FRO+GMS,UDEVLM,ERROR102 WRITE MR 00014000
R15032DK: ./ R 1199100 1199200 $ 1199300 00015000
R15032DK: DC 3AL1(UDEVLM) 4-6: FOR 'M' & 'MR' & 'MW' @VA15032 00016000
BEGIN APPLY >>> ./ R 1169100 $ 1169200 00001000
END APPLY >>> ./ R 1169100 $ 1169200 00001000
BEGIN APPLY >>> ./ R 1170100 $ 1170200 00003000
END APPLY >>> ./ R 1170100 $ 1170200 00003000
BEGIN APPLY >>> ./ R 1171100 $ 1171200 00005000
END APPLY >>> ./ R 1171100 $ 1171200 00005000
BEGIN APPLY >>> ./ R 1176100 $ 1176200 00007000
END APPLY >>> ./ R 1176100 $ 1176200 00007000
BEGIN APPLY >>> ./ R 1177100 $ 1177200 00009000
END APPLY >>> ./ R 1177100 $ 1177200 00009000
BEGIN APPLY >>> ./ R 1178100 $ 1178200 00011000
END APPLY >>> ./ R 1178100 $ 1178200 00011000
BEGIN APPLY >>> ./ R 1181400 $ 1181500 00013000
END APPLY >>> ./ R 1181400 $ 1181500 00013000
BEGIN APPLY >>> ./ R 1199100 1199200 $ 1199300 00015000
END APPLY >>> ./ R 1199100 1199200 $ 1199300 00015000
Update Succeeded
Update Execution Time 16 milliseconds.
Date Friday Aug 30, 1985 11:50:00 AM
Loaded from MAINT(294)
R15973DK: ./ R 00569300 $ 00569350 50 00001000
R15973DK: BZ LINK07 00002000
R15973DK: MVC SAVEWRK6(8),BLANKS TREAT MISSING PASSWORD 00003000
R15973DK: B ERR114 AS BAD 00004000
R15973DK: ./ R 00576100 $ 00576110 10 00005000
R15973DK: BNH LINK07H 00006000
R15973DK: MVC SAVEWRK6(8),=C'TOO LONG' TREAT PASSOWRD > 8 00007000
R15973DK: B ERR114 CHARS AS BAD 00008000
R15973DK: LINK07H EQU * 00009000
R15973DK: ./ R 00713000 $ 00713100 00010000
R15973DK: B ERR114 INVALID PASSWORD 00011000
R15973DK: ./ I 00939000 $ 00939050 00012000
R15973DK: ERR114 EQU * 00013000
BEGIN APPLY >>> ./ R 00569300 $ 00569350 50 00001000
END APPLY >>> ./ R 00569300 $ 00569350 50 00001000
BEGIN APPLY >>> ./ R 00576100 $ 00576110 10 00005000
END APPLY >>> ./ R 00576100 $ 00576110 10 00005000
BEGIN APPLY >>> ./ R 00713000 $ 00713100 00010000
END APPLY >>> ./ R 00713000 $ 00713100 00010000
BEGIN APPLY >>> ./ I 00939000 $ 00939050 00012000
END APPLY >>> ./ I 00939000 $ 00939050 00012000
Update Succeeded
Update Execution Time 31 milliseconds.
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC014DK: ./ I 00703100 $ 703400 300 02/07/06 21:36:20
HRC014DK: TM VMFSTAT,VMFDLNKN LINK NO PASS OPTION IN DIRECT HRC011DK
HRC014DK: BO LINK20 YES, LINK OK HRC011DK
BEGIN APPLY >>> ./ I 00703100 $ 703400 300 02/07/06 21:36:20
END APPLY >>> ./ I 00703100 $ 703400 300 02/07/06 21:36:20
Update Succeeded
Update Execution Time 16 milliseconds.
Date Tuesday Feb 14, 2017 12:53:00 PM
Loaded from MAINT(094)
HRC039DK: ./ I 00627000 $ 00627100 100
HRC039DK: TM RDEVFLAG,RDEVSYS Is device attached to system? HRC039DK
HRC039DK: BZ ERROR108 Device not attached to system HRC039DK
BEGIN APPLY >>> ./ I 00627000 $ 00627100 100
END APPLY >>> ./ I 00627000 $ 00627100 100
Update Succeeded
Update Execution Time 23 milliseconds.