(George Source)
Macros used: BXE, BXL, CLOSETOP, ERRORX, FILEOPEN, FREEBAX, GEOERR, HUNTW, JBC, KEEPREP, MENDAREA, MFREEW, MONOUTX, PICKREP2, PUTREP2, REPALLER, REPERR, SEG, SEGENTRY, SETMODE, TAB, TABEND, TESTREPX, TOPFCAB2, TRACE, UP, UPPLUS, VFREEW
22FL SEG REPERR,1,C DONG,USEROPES 22^= [ 2394 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 23DW [ 23YG SEGENTRY K1REPERR,REPERRMAC 24D6 SEGENTRY K2REPERR,USEREP 24XQ SEGENTRY K3REPERR,XTRAREPS 25CB SEGENTRY K4REPERR,X6REP 25X2 SEGENTRY K5REPERR,REPALLER 26BL [ 26W= [ 27*W [ REPERR MACRO AT K1 REPALLER MACRO AT K5 27TG [ ERROR REPORTING FROM USEROPEN K2 TO K4 28*6 [ 28SQ [ REPLIES IN TABLE 'TAB' ARE THOSE NOT CHECKED AT USEROPEN LEVEL, 29#B [ BUT FOR WHICH ERROR MESSAGES ARE AVAILABLE WHEN REPERR MACRO 29S2 [ OR REPALLER ISSUED.NO REPLIES SHOULD BE IN THIS TABLE AND IN TABR 2=?L [ 2=R= TAB +ANSNAME 2?=W +ERNAME [ENTRANT NAME IS WRONG OTHER THAN IN LAST COMPONE 2?QG +ANSNOFILE 2#=6 +ERNOFILE [ENTRANT %C DOES NOT EXIST 2#PQ +ANSNOUSER 2*9B +ERNOUSER [USER NOT IN DICTIONARY 2*P2 +ANSNOTRAP 2B8L +ERNOTRAP [%C EXISTS BUT YOU DONT HAVE THE TRAPS REQUIRED 2BN= +ANSCLUDGE 2C7W +ERCLUDGE [YOU ARE ALREADY USING %C 2CMG +ANSNOTAV 2D76 +ERNOTAV [MT CORRECTLY DEFINED BUT NOT AVAILABLE 2DLQ +ANSOPWRONG 2F6B +EROPWRONG [MT HAS BEEN WRONGED BY OPERATORS 2FL2 +ANSUSWRONG 2G5L +ERUSWRONG [MT HAS BEEN WRONGED BY USER 2GK= +ANSQUERY 2H4W +ERQUERY [MT IS IN QUERY STATUS 2HJG +ANSWORKTAPE 2J46 +ERWORKTAPE [MT IS A WORKTAPE 2JHQ +ANSDEADED 2K3B +ERDEADED [A DEAD COMMAND HAS BEEN GIVEN TO MT%C 2KH2 +ANSNONEAV 2L2L +ERNONEAV [NO TAPE AVAILABLE FOR USE 2LG= +ANSHDDRDIS 2L^W +ERHDDRDIS [TAPE HEADER NAME DOESNT AGREE WITH DIRECTORY 2MFG [NAME OR DESCRIPTION GIVEN 2M^6 +ANSNOTFOUND 2NDQ +ERNOTFOUND [MT REQUESTED NOT IDENTIFIED 2NYB +ANSINSYS 2PD2 +ERINSYS [MT DOESNT BFLONG TO USER DESCRIBED 2PXL +ANSPOOLTAPE 2QC= +ERPOOLTAPE [MT IS A POOL TAPE 2QWW +ANSNOXENO 2RBG +ERNOXENO [XENOTAPE NAME & TSN DUPLICATE NAME & TSN ALREADY 2RW6 [IN SYSTEM 2S*Q +ANSXENONAME 2STB +ERXENONAME [XENOTAPE DESCR MUST HAVE NAME AS WELL AS TSN 2T*2 +ANSGENERR 2TSL +ERGENERR [REL.GEN.NOS.NOT PERMITTED FOR INSECURE ENTRANTS 2W#= +ANSALREADY 2WRW +ERALREADY [AN ENTRANT ALREADY EXISTS & IS WRONG SORT FOR 2X?G [OVERWRITING 2XR6 +ANSMAG 2Y=Q +ERMAG [%C IS NOT ONLINE(UNDER'NOWAIT') 2YQB #SKI FLIBP 2^=2 ( 2^PL +ANSNODECKS 329= +ERNODECKS [NO SUITABLE DECKS AVAILABLE 32NW ) 338G TABEND 347Q TABU 34MB [ ALL REPLIES IN THIS TABLE MUST GO IN TABR 3572 [ 35LL [ THESE ARE ERRORS REPORTED DURING USEROPEN,AND IF REPERR IS DONE ON 366= [ SUCH AN ERROR IT SHOULD NOT REPORT AGAIN 36KW [ 375G +ANSDISAGREE 37K6 +ERDISAGREE [LOC NAME & TSN DONT CORRESPOND 384Q +ANSWRONG 38JB +ERWRONG [ENTRANT IS OF WRONG TYPE FOR THIS OPERATION 3942 +ANSVRYWRONG 39HL +ERVRYWRONG [ENTRANT FOUND IS OF ENTIRELY WRONG SORT 3=3= +ANSLOST 3=GW +ERLOST [SORRY %C IS PERMANENTLY LOST 3?2G +ANSWRGEN 3?G6 +ERWRGEN [ILLEGAL GEN:1 TO 4095 FOR FILE,0 TO 4095 IF OTHE 3?^Q +ANSNOTOWNER 3#FB +ERNOTOWNER [CREATION & ERASURE OF DIR REQUIRES OWNERSHIP 3#LJ ... +ANSNOTOWN 3#RQ ... +ERNOTOWN [YOU DO NOT OWN %C 3#^2 +ANSPERITYPE 3*DL +ERPERITYPE [FILE FOUND IS OF THE WRONG PERIPHERAL TYPE 3*Y= +ANSPERIMODE 3BCW +ERPERIMODE [PERI MODES ARE INCOMPATIBLE 3BXG REPNM +ANSNAMEFORM 3CC6 +ERNAMEFORM [%C ISNT A CORRECT ENTRANT DESCRIPTION FORMAT 3CWQ +ANSENTTYPE 3DBB +ERENTTYPE [ENTRANT DESCR INDICATES WRONG ENTRANT TYPE 3DW2 +ANSTERM 3F*L +ERTERM [%C IS NOT A DIRECTORY 3FT= +ANSNOTMULT 3G#W +ERNOTMULT [FILE IS NOT A MULTIFILE 3GSG +ANSDIRDET 3H#6 +ERDIRDET [YOU CANT CHOOSE DIRECTORY LOCAL NAME DETAILS 3HRQ +ANSNOMULTS 3J?B +ERNOMULTS [MULTIFILES NOT ALLOWED FOR THIS COMMAND 3JR2 +ANSMULTEL 3K=L +ERMULTEL [MULTIFILE ELEMENTS ARE NOT ALLOWED 3KQ= +ANSLISTTYPE 3L9W +JSPECREQ [FILE REQUIRES CONVERSION OR SPECIAL 3LPG [LISTING 3M96 +ANSFRLINE 3MNQ +ERFRLINE [FROM &/OR LINES NOT ALLOWED WITH MULTIREEL FILES 3N8B +ANSCOMMULT 3NN2 +ERCOMMULT [%C IS MULTIFILE & CANT BE USED FOR COMMUNICATION 3P7L +ANSCANT 3PM= +ERCANT [%C IS BEING USED(UNDER'REPLY') 3Q6W +ANSDIR 3QLG +ERDIR [%C IS NOT A TERMINAL FILE 3R66 +ANSTEMPMULT 3RKQ +ERTEMPMULT [%C IS TEMP FILE BUT A MULTIFILE IS REQUIRED 3S5B +ANSEMPTMULT 3SK2 +EREMPTMULT [MULTIFILE HAS NO ELEMENTS 3T4L +ANSDESTPRIV 3TJ= +ERDESTPRIV [USER NOT PRIV TO USE D.C.MODE 3W3W +ANSDESTWF 3WHG +ERDESTWF [%C IS TEMP & CANT BE USED AS A DCF 3X36 +ANSTEMPLOST 3XGQ +ERTEMPLOST [%C IS TEMPORARILY UNAVAILABLE 3Y2B +ANSLF512 3YG2 +ERMANYLFS [THERE ARE ALREADY 511 LFS FOR THIS FILE 3Y^L +ANSBOTHEX 3^F= +JBMULTIEX [DIR HAS BOTH MULT AND NON-MULT OF SAME NAME/LANG 3^YW +ANSSINGLEX 42DG +JSINGLEX [A NON-MULTI OF SAME NAME/LANG AS %C ALREADY EXIS 42Y6 +ANSMULTIEX 43CQ +JMULTIEX [A MULTIFILE OF SAME NAME/LANG AS %C ALREADY EXIS 43XB +ANSMULTFULL 44C2 +ERMULTFULL [MULTIFILE FULL 44WL +ANSREFUSED 45B= +EREXQUOTA [YOU HAVE EXHAUSTED YOUR QUOTA OF BS 45G5 ... +ANSNOFPRIV 45HB ... +ERNOFPRIV [YOU DO NOT POSSESS 'FREEZE'PRIVILEGE 45JM ... +ANSFROZEN 45KY ... +ERFROZEN [%C OR ITS SUP DIR IS FROZEN 45M9 ... +ANSNOALLACC 45NG ... +ERNOALLACC [USER DOES NOT POSSESS 'ALLACC' PRIV. 45PR ... +ANSNOINFACC 45R4 ... +ERNOINFACC [DITTO 'INFACC' 45RQ ... +ANSILLANG 45SD ... +ERILLANG [YOU MAY NOT CREATE A FILE WITH 45T6 ... [THIS LANGUAGE CODE 45TW TABUEND 46T6 TABMON 47#Q +INVTG [TRAPGO QUAL INVALID WITH COMMANDS THAT CANT 47SB [CREATE FILES 48#2 +HGENMULT [YOU CANT SPECIFY GEN.NO.WITH MULTIFILE QUALIFIER 48RL +HCOMMULT [YOU CANT SPECIFY COMMUNE QUAL WITH MULTIFLE QUAL 49?= +JTEMXMULT [MULTIFILE QUALIFIER ILLEGAL WITH A WORKFILE 49QW TABMONEND 4=Q6 TABR 4?9Q [ 4?PB [ THESE ARE THE REPLIES IN TABU,ALREADY REPORTED BY USEROPEN 4#92 [ 4#NL +ANSNOTMULT 4*8= +ANSDIRDET 4*MW +ANSNOMULTS 4B7G +ANSLISTTYPE 4BM6 +ANSFRLINE 4C6Q +ANSCOMMULT 4CLB +ANSCANT 4D62 +ANSLOST 4DKL +ANSDISAGREE 4F5= +ANSWRGEN 4FJW +ANSNAMEFORM 4G4G +ANSENTTYPE 4G## ... +ANSNOTOWN 4GJ6 +ANSNOTOWNER 4H3Q +ANSPERITYPE 4HHB +ANSPERIMODE 4J32 +ANSWRONG 4JGL +ANSVRYWRONG 4K2= +ANSTERM 4KFW +ANSDIR 4K^G +ANSTEMPMULT 4LF6 +ANSEMPTMULT 4LYQ +ANSDESTPRIV 4MDB +ANSDESTWF 4MY2 +ANSTEMPLOST 4NCL +ANSBOTHEX 4NX= +ANSSINGLEX 4PBW +ANSMULTIEX 4PWG +ANSLF512 4QB6 +ANSMULTFULL 4QTQ +ANSREFUSED 4R*B +ANSMULTEL 4RH8 ... +ANSNOFPRIV 4RK6 ... +ANSFROZEN 4RM4 ... +ANSNOALLACC 4RP2 ... +ANSNOINFACC 4RR2 ... +ANSILLANG 4RT2 [ 4S#L [ REPLIES FOR WHICH THERE IS NO ASSOCIATED ERROR REPORT 4SS= [ 4T?W +ANSENDMULT [THERE ARE NO MORE ELEMENTS 4TRG +ANSRANDOM 4W?6 TABREND 4X=B [ 4XQ2 [ 4Y9L [ SECOND HALF OF REPALLER MACRO 4YP= [ [AWORK4] = 0 4^8W [ 4^NG REPERRCALL 5286 SBX 3 FX1 52MQ LDX 1 FX1 537B PICKREP2 6 53M2 BRN NEXTAB 546L [ 54L= [ REPERR MACRO--PUT REPLY IN AWORK4 TO FORCE UP INSTEAD OF EXIT 555W [ 55KG REPERRMAC 5656 PICKREP2 6 56JQ STO 6 AWORK4(2) [UP INSTEAD OF EXIT 574B [ 57J2 [ IS IT A REPLY THAT SHD HAVE BEEN REPORTED BY USEROPEN,OR FOR WHICH 583L [ THERE IS NO ASSOCIATED ERROR REPORT? I.E.IS IT IN TABR? 58H= [ 592W TRACE 6,REPERRA 59GG LDN 4 TABREND-TABR 5=26 NREP 5=FQ BXE 6 TABR(1),RUP [J IF ALREADY REPORTED 5=^B ADN 1 1 5?F2 BCT 4 NREP 5?YL LDX 1 FX1 5#D= NEXTAB 5#XW LDN 4 TABEND-TAB/2 5*CG NEX 5*X6 BXE 6 TAB(1),REPERR 5BBQ ADN 1 2 5BWB BCT 4 NEX 5CB2 GEOERR 1,'REPLY?' 5CTL RUP 5D*= UP 5DSW REPERR 5F#G ERRORX TAB+1(1) 5FS6 CALL 7 VRETURNBS [RETURN ANY SPARE B.STORE 5G?Q PUTREP2 6 5GRB LDX 0 AWORK4(2) 5H?2 BZE 0 XIT 5HQL UP 5J== XIT ADX 3 FX1 5JPW EXIT 3 0 5K9G [ 5KP6 [ 5L8Q [ FIRST HALF OF REPALLER MACRO--[AWORK4] = 0 IN ORDER TO DO EXIT 5LNB [ 5M82 USEREPCALL 5MML SBX 3 FX1 5N7= [ ENTRY FROM USEROPEN FOR REPORTING ERRORS 5NLW [ AWORK4 CONTAINS THE USEROPEN MODES IN ORDER TO DO UP 5P6G [ 5PL6 USEREP 5Q5Q PICKREP2 6 5QKB [ 5R52 [ 5RJL X6REP [REPLY ALREADY IN X6 5S4= #SKI K6REPERR>99-99 5SHW TRACE 6,REPERRB 5T3G SETMODE 5,NOERREP 5TH6 ANDX 5 AWORK4(2) 5W2Q BNZ 5 REPERRB [DONT REPORT ERROR IF NOERREP MODE 5WGB NU 5X22 LDN 4 TABUEND-TABU/2 5XFL NEXU 5X^= BXE 6 TABU(1),REPERRA 5YDW ADN 1 2 5YYG BCT 4 NEXU 5^D6 LDN 5 1 5^XQ BRN REPERRB 62CB REPERRA 62X2 LDX 4 1 63BL SBX 4 FX1 63W= REPERRB 64*W FILEOPEN NDIR [GO TO NDIR IF NO FILES OPEN 64H4 ... TESTREPX 6,CLUDGE,NDIR 64N? ... TOPFCAB2 1,2 [X1->FCA & X2->FCB OF TOP FILE OPEN 65MG ...NA1 65^X ... JBC NDIR,2,BFDIR 66#B CLOSETOP [DIRECTORY WAS OPEN 66S2 NDIR 67?L BNZ 5 UP 67R= LDX 1 FX1 68=W ADX 1 4 68QG ERRORX TABU+1(1) 69=6 UP 69PQ CALL 7 VRETURNBS [RETURN ANY SPARE B.STORE 6=9B PUTREP2 6 6=P2 LDX 0 AWORK4(2) 6?8L BZE 0 XITA [J IF DOING REPALLER 6?N= UPPLUS 1 6#7W XITA 6#MG ADX 3 FX1 6*76 EXIT 3 0 6*LQ [ 6B6B [ 6BL2 [ THIS SECTION OUTPUTS ADDITIONAL MESSAGES 6C5L [ 6CK= XTRAREPS 6D4W #SKI K6REPERR>99-99 6DJG ( 6F46 LDN 0 TABMONEND-TABMON 6FHQ BXL 7 0,X1 6G3B GEOERR 1,REPERR7 6GH2 X1 6H2L TRACE 7,REPERR3 6HG= ) 6H^W SETMODE 5,NOERREP 6JFG ANDX 5 AWORK4(2) 6J^6 BNZ 5 SR 6KDQ ADX 1 7 6KYB MONOUTX TABMON(1) 6LD2 LDN 4 REPNM-TABU [POINT X4 TO NAMEFORM ERROR MESSAGE 6LXL SR 6MC= KEEPREP 6,NAMEFORM 6MWW BRN REPERRB 6NBG # 6NW6 # SUBROUTINE TO RETURN B.S. FROM ANY SPARE BSTB/FULLB LEFT AROUND 6P*Q # 6PTB VRETURNBS 6Q*2 LDX 2 FX2 6QSL SBX 7 FX1 6R#= HUNTW 1,BSTB,FULLB 6RRW BNG 1 NOFULLB 6S?G FREEBAX 6SR6 MFREEW BSTB,EMPTYB 6T=Q NOFULLB 6TQB VFREEW FILE,FTRAP 6W=2 NOFTRAP 6WPL VFREEW FILE,CREATE 6X9= STOZ ACOMMUNE2(2) [REMOVE ANY SUBREPLIES 6XNW ADX 7 FX1 6Y8G EXIT 7 0 6YN6 [ 6^7Q [ 6^MB [ REPALLER MACRO -THIS COULD BE MADE MORE EFFICIENT 7272 [ BY CALLING K1,K2 AS SUBROUTINES,EVEN AVOIDING K1 IF ERROR FOUND IN 72LL [ TABU BY K2,AND ALWAYS AVOID PART 1 OF K1 WHICH LOOKS AT TABR 736= [ USED TO BE DOWN K2 FOLLOWED BY DOWN TO K1 73KW [ THE ABOVE METHOD WORKS ASSUMING NO ONE DOES A USEROPEN(X) WITH 745G [ JUST EXECUTE MAIN MODE & INCURS ERROR IN EARLY PART OF USEROPEN 74K6 [ (EXECUTE BECOMES READ LATER ON IN USEROPEN) 754Q [ 75JB [ 7642 REPALLER 76HL STOZ AWORK4(2) [TO PRETEND THAT NOERREP MODE NOT SET 773= CALL 3 USEREPCALL 77GW BZE 5 REPUP 782G CALL 3 REPERRCALL 78G6 REPUP 78^Q UP 79FB [ 79^2 [ 7=DL SEGENTRY K99REPERR 7=Y= ... MENDAREA 20,K99REPERR 7?CW #END ^^^^ ...14154214000200000000