{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: REPERR867)}}
====== REPERR867 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FILEOPEN|FILEOPEN]], [[george:macro:FREEBAX|FREEBAX]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNTW|HUNTW]], [[george:macro:JBC|JBC]], [[george:macro:KEEPREP|KEEPREP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:PICKREP2|PICKREP2]], [[george:macro:PUTREP2|PUTREP2]], [[george:macro:REPALLER|REPALLER]], [[george:macro:REPERR|REPERR]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETMODE|SETMODE]], [[george:macro:TAB|TAB]], [[george:macro:TABEND|TABEND]], [[george:macro:TESTREPX|TESTREPX]], [[george:macro:TOPFCAB2|TOPFCAB2]], [[george:macro:TRACE|TRACE]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREEW|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