(George Source)
Macros used: ACROSS, BBUS, CHAIN, ERROR, ERRORX, HUNT, JANAL, MENDAREA, MFREE, MONOUTX, NAMETOP, OUTMESSX, OUTNULL, OUTPARAM, PARAFREE, SEGENTRY, SETREP, SPARANOT, TESTREP, TRACE, UP, VFREE
22FL #OPT K0NORMERR=0 22^= #LIS K0NORMERR>K0ALLGEO>K0GREATGEO>K0FILESTORE 23DW #OPT K6NORMERR=K6ALLGEO>K6GREATGEO>K6FILESTORE 23YG #SEG NORMERR5 [ TONY HAMILTON 24D6 8HNORMERR 24XQ # THIS SEGMENT IS AN OVERFLOW SEGMENT FROM NORMALUS TO HOLD 25CB # ERROR 1ROUTINES 25X2 # 26BL SEGENTRY K1NORMERR,X1 26W= SEGENTRY K2NORMERR,X2 27*W SEGENTRY K3NORMERR,X3 27TG SEGENTRY K4NORMERR,X4 28*6 SEGENTRY K5NORMERR,X5 28SQ SEGENTRY K7NORMERR,X7 29#B SEGENTRY K8NORMERR,X8 29S2 SEGENTRY K9NORMERR,X9 2=?L SEGENTRY K10NORMERR,X10 2=R= SEGENTRY K11NORMERR,X11 2?=W SEGENTRY K12NORMERR,X12 2?QG SEGENTRY K13NORMERR,X13 2#=6 SEGENTRY K14NORMERR,X14 2#PQ SEGENTRY K15NORMERR,X15 2*9B SEGENTRY K16NORMERR,X16 2*P2 SEGENTRY K17NORMERR,X17 2B8L SEGENTRY K18NORMERR,X18 2BN= SEGENTRY K19NORMERR,X19 2C7W ...[ 2CMG SEGENTRY K21NORMERR,X21 2D76 SEGENTRY K22NORMERR,X22 2DLQ SEGENTRY K23NORMERR,X23 2F6B SEGENTRY K24NORMERR,X24 2FL2 SEGENTRY K25NORMERR,X25 2G5L SEGENTRY K26NORMERR,X26 2GK= SEGENTRY K27NORMERR,X27 2H4W SEGENTRY K28NORMERR,X28 2HJG SEGENTRY K29NORMERR,X29 2J46 SEGENTRY K30NORMERR,X30 2JHQ SEGENTRY K31NORMERR,X31 2K3B SEGENTRY K32NORMERR,X32 2KH2 SEGENTRY K33NORMERR,X33 2L2L [ 2LG= SEGENTRY K36NORMERR,X36 2L^W SEGENTRY K37NORMERR,X37 2MFG SEGENTRY K38NORMERR,X38 2M^6 SEGENTRY K39NORMERR,X39 2NDQ SEGENTRY K40NORMERR,X40 2NYB SEGENTRY K41NORMERR,X41 2PD2 SEGENTRY K42NORMERR,X42 2PXL SEGENTRY K43NORMERR,X43 2QC= SEGENTRY K44NORMERR,X44 2QWW SEGENTRY K45NORMERR,X45 2RBG SEGENTRY K46NORMERR,X46 2RW6 [ 2S*Q SEGENTRY K60NORMERR,X60 2STB SEGENTRY K61NORMERR,X61 2T*2 SEGENTRY K62NORMERR,X62 2TSL SEGENTRY K63NORMERR,X63 2W#= SEGENTRY K64NORMERR,X64 2WRW SEGENTRY K65NORMERR,X65 2X?G SEGENTRY K66NORMERR,X66 2XR6 [ 2Y=Q SEGENTRY K68NORMERR,X68 2YQB SEGENTRY K69NORMERR,X69 2^=2 SEGENTRY K70NORMERR,X70 2^PL [ 329= SEGENTRY K87NORMERR,X87 32NW [ 338G SEGENTRY K89NORMERR,X89 33N6 [ 347Q SEGENTRY K96NORMERR,X96 34?M ... SEGENTRY K20NORMERR,X20 34CJ ... SEGENTRY K34NORMERR,X34 34HF ... SEGENTRY K35NORMERR,X35 34MB # 3572 UNIVERSALS 35LL UNILONG 366= +ENTLONG 36KW UNINUMB 375G +ENTNUMB 37K6 UNILANG 384Q +ALANGERR 38JB UNIRET 3942 +AREPLARGE 39HL UNILL 3=3= +ENTNILL 3=GW UNIGEN 3?2G +AGENERR 3?G6 UNIUSE 3?^Q +ENTNUSE 3#FB UNIAIL 3#^2 +JDETAIL 3*DL UNIFORE 3*Y= +JBEFORE 3BCW UNIJQ 3BXG +JQUALIFIER 3CC6 UNINOTPR 3CWQ +JNOTPAIR 3DBB UNIMAST 3DW2 +AMAST 3F*L UNIFORM 3FT= +FORMTSN 3G#W UNIJONLY 3GSG +JONLYONE 3H#6 UNIPROP 3HRQ +JWFTRAP 3J?B UNIJUNS 3JR2 +KUNSTYLE 3K=L UNIPARMI 3KQ= +JPARMIS 3L9W UNIPARMA 3LPG +KPARMIS 3M96 UNITRAPN 3MNQ +JTRAPST 3N8B UNIENT 3NN2 +JFENTRANT 3P7L UNIDEFO 3PM= +ADEFORM 3Q6W UNIQUAL 3QLG +ALQUAL 3QRN ...UNIMTLG 3QYW ... +ALANGXX 3R66 UNISIZQ 3RKQ +ANOSIZQ 3S5B UNIDEV 3SK2 +ADEVIOUS 3T4L UNICOMB 3TJ= +ILLCOMB 3W3W UNIBIK 3WHG +BIGKW 3X36 UNI2Q 3XGQ +ADOUBLEQ 3Y2B UNIDISQ 3YG2 +ADISQUIET 3Y^L UNIBING 3^F= +BUCKING 3^YW UNIBREK 42DG +BANDREC 42Y6 UNIKLER 43CQ +AKEYLER 43XB UNI0LIM 44C2 +ERZERLIM 44WL UNISTRIM 45B= +ENTNILL 45TW UNILDET 46*G +ILLDETAIL 46T6 UNIHOWL 47#Q +ASHRIEKLES 47SB UNIREEL 48#2 +EELREEL 48RL UNISUBQ 49?= +JSUBQUAL 49QW UNIDIRD 4==G +ADJDIRLES 4=Q6 UNIBRAK 4?9Q +ILLBRAC 4?PB UNIDESTC 4#92 +ERRDESTC 4#NL +0 4#RQ ...UNIMAX 4#WW ... +JMAXPAR 4*22 ...UNINCPLT 4*56 ... +JINCPLT 4*8= NAM 4*MW +ERNAMEFORM 4B7G +ERUSERFORM 4BM6 +ERUNPAIR 4C6Q +ERNOUSER 4CLB +0 4CN5 ...ZFNORMED 4CPS ...# CALLED ON X2 4CRH ...# USED TO SUPPRESS ERROR MESSAGES 4CSB ... JANAL XITNOMESS [J IF STILL PROCESSING COMMAND 4CT= ... HUNT 1,FI,FNORM [ FIND MARKER BLOCK 4CW^ ... BNG 1 XITF [ EXIT IF NOT THERE 4CYN ... BBUS 17,A1(1),XITF [ OR BIT CLEAR 4C^H ...XITNOMESS 4D2C ... EXIT 2 0 [ EXIT TO BRN OVER MESSAGE 4D46 ...XITF EXIT 2 1 [ EXIT TO OUTPUT MESSAGE 4D62 X69 4DKL # MESSAGE :"ILLEGAL CHARACTER AFTER BRACKET" 4F5= LDX 7 UNIBRAK(1) 4FJW BRN YESFREE 4G4G X68 4GJ6 # MESSAGE :"DETAILS & ADJUNCTS NOT ALLOWED TO DIRECTORY NAMES 4H3Q LDX 7 UNIDIRD(1) 4HHB BRN YESFREE 4J32 X63 4JGL LDX 6 UNIPARMI(1) 4K2= LDX 7 UNIENT(1) 4K7D ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 4K#L ... BRN Z1 4KFW ERRORX 6,7 4KPN ...Z1 4K^G SETREP NAMEFORM 4LF6 MFREE CPB,CUNI 4LYQ BRN UP 4MDB X1 4MY2 # MESSAGE:-USERNAME/LOCALNAME TOO LONG 4NCL LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION 4NX= BPZ 0 N71 4PBW SETREP LONG 4PWG BRN UP 4QB6 N71 4QTQ LDX 7 UNIVERSALS(1) 4R*B BRN NOFREE 4RT2 X2 4S#L # MESSAGE:-LOCALNAME:1ST CHARACTER MUST BE LETTER 4SS= LDX 7 UNIVERSALS+1(1) 4T?W BRN NOFREE 4TRG X5 4W?6 # MESSAGE:-ILLEGAL CHARACTER IN USERNAME/LOCALNAME 4WQQ LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION 4X=B BPZ 0 N72 4XQ2 SETREP CHAR 4Y9L BRN UP 4YP= N72 4^8W LDX 7 UNIVERSALS+4(1) 4^NG BRN NOFREE 5286 X7 52MQ # MESSAGE:-USERNAME:2ND CHARACTER MUST BE LETTER 537B LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION 53M2 BPZ 0 N73 546L SETREP FIRST 54L= BRN UP 555W N73 55KG LDX 7 UNIVERSALS+6(1) 5656 BRN NOFREE 56JQ X3 574B # MESSAGE:-LANGUAGE CODE NOT IN CORRECT FORMAT 57J2 LDX 7 UNIVERSALS+2(1) 583L BRN YESFREE 58H= X4 592W # MESSAGE:-RETENTION PERIOD OUT OF RANGE 59GG LDX 7 UNIVERSALS+3(1) 5=26 BRN YESFREE 5=FQ X96 5=^B # MESSAGE:-GENERATION NUMBER OUT OF RANGE 5?F2 LDX 7 UNIVERSALS+5(1) 5?YL YESFREE 5#5S ... CALL 2 ZFNORMED 5#?2 ... BRN X12 5#D= MONOUTX 7 5#XW X12 5*CG MFREE CPB,CUNI 5*X6 BRN XAINX 5BBQ NOFREE 5BWB X15 5CB2 BPZ 4 YESFREE 5CH8 ... CALL 2 ZFNORMED 5CNB ... BRN X14 5CTL MONOUTX 7 5D*= X14 5DSW # MESSAGE:-ERROR %B,%A,%C IS NOT A CORRECT USERNAME FORMAT 5F#G VFREE FILE,ADICT 5FS6 LDX 1 FX1 [IN CASE ADICT WASN'T THERE 5G?Q LDX 7 NAM+1(1) 5GDY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 5GL6 ... BRN UND 5GRB ERRORX 7 5H?2 UND 5HQL SETREP USERFORM 5J== BRN UP 5JPW X8 5K9G # MESSAGE:-ONLY ONE SET OF DETAILS MAY BE GIVEN 5KP6 LDX 7 UNIVERSALS+7(1) 5L8Q BRN XAIN 5LNB X9 5M82 # MESSAGE:-DETAILS MUST COME BEFORE QUALIFIERS 5MML LDX 7 UNIVERSALS+8(1) 5N7= BRN XAIN 5NLW X10 5P6G # MESSAGE:-ONLY ONE SET OF QUALIFIERS MAY BE GIVEN 5PL6 LDX 0 AWORK4(2) [J IF ERROR SUPPRESSION 5Q5Q BPZ 0 N74 5QKB SETREP MASTER 5R52 BRN UP 5RJL N74 5S4= LDX 7 UNIVERSALS+9(1) 5SHW BRN XAIN 5T3G X60 5TH6 # MESSAGE:"ILLEGAL DETAIL HAS BEEN GIVEN" 5W2Q LDX 7 UNILDET(1) 5WGB BRN YESFREE 5X22 X61 5XFL # MESSAGE:"DETAILS CAN'T BE GIVEN WITH TEMP. FILE NAMES" 5X^= LDX 7 UNIHOWL(1) 5YDW BRN YESFREE 5YYG X62 5^D6 # MESSAGE:"REEL NO. OUT OF RANGE" 5^XQ LDX 7 UNIREEL(1) 62CB BRN YESFREE 62X2 X11 63BL # MESSAGE:-DELIMITERS MUST BE PAIRED 63W= LDX 7 UNIVERSALS+10(1) 64*W XAIN 64H4 ... CALL 2 ZFNORMED 64N= ... BRN X13 64TG MONOUTX 7 65*6 X13 65SQ # MESSAGE:-ERROR %A,%B,%C IS AN INCORRECT ENTRANT DESCRIPTION FORMAT 66#B XAINX 66S2 HUNT 1,FILE,FNAME 67?L NAMETOP 1,CPB,CUNI 67R= LDX 2 FX2 68=W CHAIN 1,2 68QG LDX 7 NAM(1) 68XN ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 694W ... BRN Z10 69=6 ERRORX 7 69FY ...Z10 69PQ HUNT 1,CPB,CUNI 6=9B NAMETOP 1,FILE,FNAME 6=P2 SETREP 6=YS ... LDX 2 FX2 6?8L LDX 0 AWORK3(2) 6?N= BPZ 0 N83 6#7W MFREE FILE,FABSNB 6#MG STOZ AWORK3(2) 6*76 N83 6*LQ SETREP NAMEFORM 6B6B UP 6BL2 ACROSS DECODE,3 6C5L X16 6CK= # MESSAGE:- "SPECIAL CASE,:MASTER NOT ALLOWED" 6D4W STOZ 6 6DJG BNG 7 USERN0 6F46 LDN 6 1 6FHQ USERN0 6G3B USERNO 6GH2 LDX 7 UNIMAST(1) 6GN8 ... CALL 2 ZFNORMED 6GTB ... BRN Z2 6H2L MONOUTX 7 6H=D ...Z2 6HG= BZE 6 UND 6H^W BNG 4 UND 6JFG BRN XAINX 6J^6 X89 6KDQ # ENTRANT DESCRIPTION FORMAT INDICATES WRONG ENTRANT TYPE 6KKY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 6KR6 ... BRN Z3 6KYB ERROR ERVRYWRONG 6L88 ...Z3 6LD2 MFREE FILE,FABSNB 6LXL STOZ AWORK3(2) 6MC= ...Z35 SETREP NAMEFORM 6MWW BRN UP 6M^F ...X35 6N44 ...# THIS ENTRANT DESC. IS INCOMPLTE 6N6M ... LDX 6 UNINCPLT(1) 6N9= ... MONOUTX 6 6N?T ... BRN Z35 6NBG X17 6NW6 # MESSAGE:- FORMAT ERROR IN SERIAL NUMBER 6P*Q LDX 6 UNIFORM(1) 6PTB MFREE CPB,CUNI 6Q*2 BRN TRONG1A 6QSL X18 6R#= # MESS ERROR %A,%B,:%C CONTAINSAN UNPNPAIRED DELIMITER 6RRW HUNT 3,FILE,FNAME 6S?G NAMETOP 3,CPB,CUNI 6SR6 CHAIN 3,2 6T=Q LDX 7 NAM+2(1) 6TCY ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 6TK6 ... BRN Z11 6TQB ERRORX 7 6W28 ...Z11 6W=2 HUNT 1,CPB,CUNI 6WPL NAMETOP 1,FILE,FNAME 6X9= BRN TRONG1B 6XNW X19 6Y8G # MESSAGE:- ONLY ONE SERIAL NUMBER ALLOWED 6YN6 LDX 6 UNIJONLY(1) 6^7Q TRONG1A 6^#Y ... CALL 2 ZFNORMED 6^G6 ... BRN X33 6^MB MONOUTX 6 7272 X33 72LL HUNT 2,FILE,FNAME 736= NAMETOP 2,CPB,CUNI 73KW CHAIN 2,FX2 73R4 ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 73Y= ... BRN Z4 745G ERROR ERNAMEFORM 74*# ...Z4 74K6 HUNT 2,CPB,CUNI 754Q NAMETOP 2,FILE,FNAME 75JB X32 7642 TRONG1B 76HL LDX 1 FX2 773= LDEX 6 EXPEDIENT(1) 77GW PARAFREE 6 782G REPLY 78G6 #SKI K6DECODE>599-599 78^Q TRACE EXEC2(2),! FORMAT 79FB LDX 2 FX2 79^2 LDX 0 AWORK3(2) 7=DL BPZ 0 N88 7=Y= VFREE FILE,FABSNB 7?CW STOZ AWORK3(2) 7?XG N88 7#C6 LDN 0 #20 7#WQ ANDX 0 7 7*BB BZE 0 NFORM 7*W2 TESTREP NOFILE,NOFILE 7B*L NFORM 7BT= SETREP NAMEFORM 7C#W NOFILE 7CSG BRN UP 7D#6 X87 7DF# ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 7DLG ... BRN REPLY 7DRQ ERROR ERNAMEFORM 7F?B BRN REPLY 7FR2 X31 7G=L MFREE CPB,CUNI 7GQ= LDX 6 UNISTRIM(1) 7H9W BRN TRONG1A 7HPG X21 7J96 # ENTRY FROM ADJUNCTS.FREE CUNI & THRU TO K22 7JNQ MFREE CPB,CUNI 7K8B X22 7KN2 # FREE ADJUNCTS BLOCK IF THERE & REPORT NAMEFORM 7L7L Q2 VFREE FILE,ADJUNCTS 7LM= BRN XAINX 7M6W X64 7MLG VFREE FILE,ADJUNCTS 7N66 BRN SETREP 7NKQ X66 7P5B # MESSAGE :-"AN ILLEGAL SUBQUALIFIER HAS BEEN GIVEN" 7PK2 LDX 6 UNISUBQ(1) 7Q4L BRN Q21 7QJ= X30 7R3W X23 7RHG # MESSAGE-:"DELIMITERS MUST BE PAIRED" 7S36 LDX 6 UNINOTPR(1) 7SGQ BRN Q21 7SK* ...X34 7SMY ...# MORE THAN 24 PARAMETERS 7SQH ... LDX 6 UNIMAX(1) 7ST6 ... OUTNULL 7SXP ... BRN Q21 7T2B X70 7TG2 # FRED IS A PSEUDO-USER & MAY NOT BE GIVEN TRAPS 7T^L SPARANOT 1 7WF= LDX 6 XMEN(1) 7WYW YMEN HUNT 1,CPB,CUNI 7XDG LDEX 0 ANUM(1) 7XY6 OUTPARAM 0,APARA,CPB,CUNI 7YCQ BRN Q21X 7YXB XMEN +JPSEUTRAP 7^C2 X65 7^WL # TRAPS ON WORKFILES MAY ONLY BE GIVEN TO THE PROPER USER 82B= LDX 6 UNIPROP(1) 82TW BRN YMEN 83*G X24 83T6 # MESSAGE:"UNRECOGNISED TRAPSTYLE PARAMETERS" 84#Q LDX 6 UNIJUNS(1) 84SB ... BRN YMEN 85#2 X25 85RL # MESSAGE:- "USERNAME NOT IN DICTIONARY" 86?= LDX 6 NAM+3(1) 86DD ... CALL 2 ZFNORMED [ ERROR SUPPRESSING 86KL ... BRN Z5 86QW ERRORX 6 872N ...Z5 87=G SETREP NAMEFORM 87Q6 BRN UP 889Q X26 88PB # MESSAGE:- "UNRECOGNIZED TRAPSTYLE PARAMETER" 8992 LDX 6 UNIPARMA(1) 89NL LDX 7 UNITRAPN(1) 8=8= QDUBL 8=?P ... CALL 2 ZFNORMED 8=C8 ... BRN Q2 8=GM ... OUTMESSX 7 8=T4 ... MONOUTX 6 8?7G BRN Q2 8?M6 X27 8#6Q # MESSAGE:-"DEVICE TYPE QUALIFIER INCORRECT" 8#LB LDX 6 UNIDEFO(1) 8*62 BRN Q21X 8*KL X28 8B5= # MESSAGE:-"AN ILLEGAL QUALIFIER HAS BEEN GIVEN" 8BJW LDX 6 UNIQUAL(1) 8C4G BRN Q21X 8C7L ...X20 8C=Q ...# MESSAGE:-"A LANGUAGE CODE HAS BEEN GIVEN WITH *MT" 8C*W ... LDX 6 UNIMTLG(1) 8CF2 ... BRN Q21X 8CJ6 X29 8D3Q # MESSAGE:-"A SIZE QUALIFIER IS INCORRECT" 8DHB LDX 6 UNISIZQ(1) 8F32 Q21X 8FGL MFREE CPB,CUNI 8G2= 8GFW Q21 8GM4 ... CALL 2 ZFNORMED 8GS= ... BRN Q2 8G^G MONOUTX 6 8HF6 BRN Q2 8HYQ X36 8JDB # MESSAGE :-"AN APPROPRIATE DEVICE TYPE MUST BE GIVEN" 8JY2 LDX 6 UNIDEV(1) 8KCL BRN OUTADJCHEC 8KX= X37 8LBW # MESSAGE :-"ILLEGAL COMBINATION OF QUALIFIERS" 8LWG LDX 6 UNICOMB(1) 8MB6 BRN OUTADJCHEC 8MTQ X38 8N*B # MESSAGE :-"AN ILLEGAL QUALIFIER HAS BEEN GIVEN" 8NT2 LDX 6 UNIQUAL(1) 8P#L BRN OUTADJCHEC 8PS= # MESSAGE:-"UNRECOGNIZED TRAPSTYLE" 8Q?W X39 8QRG # MESSAGE :-"KWORDS TOO BIG" 8R?6 LDX 6 UNIBIK(1) 8RQQ BRN OUTADJCHEC 8S=B X40 8SQ2 # MESSAGE :-"A QUALIFIER HAS BEEN GIVEN TWICE" 8T9L LDX 6 UNI2Q(1) 8TP= BRN OUTADJCHEC 8W8W X41 8WNG # MESSAGE :-"DISC FILE QUALIFIER SIZE IS INCORRECT" 8X86 LDX 6 UNIDISQ(1) 8XMQ BRN OUTADJCHEC 8Y7B X42 8YM2 # MESSAGE :-"BUCKET SIZE INCORRECT" 8^6L LDX 6 UNIBING(1) 8^L= BRN OUTADJCHEC 925W X43 92KG # MESSAGE :-"BUCKET &RECORD SIZE INCOMPATIBLE" 9356 LDX 6 UNIBREK(1) 93JQ BRN OUTADJCHEC 944B X44 94J2 # MESSAGE :-"KEYLENGTH/KEYPLACE INCOMPATIBLE WITH RECORD SIZE" 953L LDX 6 UNIKLER(1) 95H= BRN OUTADJCHEC 962W X45 96GG # MESSAGE :-"LIMIT ADJUNCT MUST BE POSITIVE & <8388608" 9726 LDX 6 UNI0LIM(1) 97FQ BRN OUTADJCHEC 97^B X46 98F2 # "DEST. COMM. QUALIFIER OUT OF RANGE" 98YL LDX 6 UNIDESTC(1) 99D= OUTADJCHEC 99KD ... CALL 2 ZFNORMED 99QL ... BRN Z6 99XW MONOUTX 6 9=7N ...Z6 9=CG MFREE FILE,ADJUNCTS 9=X6 BRN XAINX 9?BQ [ 9?WB MENDAREA 20,K99NORMERR 9#B2 #END ^^^^ ...73543207000600000000