22FL #DEF AZEROLEN=0 22^= [ROOM D7 23DW [ POST MARK 7 23YG #OPT B128=0 [128 WORD BUFFER BLOX 24XQ #OPT IFS=0 [SKIP FOR IMPROVED FCB SEARCHES. 26BL #OPT AHEADER=0 27TG #OPT CLOSE70=1 285# ...#DEF B7535=1 28*6 #DEF BRH=1 [BITS IN RECORD HEADERS 29#B #DEF ACCMG65=1 [SKIP FOR NEW BLK. NO. COUNT IN FCB. 29S2 #DEF CLOSEFREE=#110 2=?L #DEF CLOSEWAIT=#111 2=R= #DEF COPY=#121 [WAITING FOR FILE TO BE MOVED TO OTHE 2?=W #OPT CLSTATS=0 2?QG #OPT I516A=0 [ACCESS MACROS STATISTICS PACKAGE 2#=6 #DEF INSA=1 [MK6 INSERT & REPLACE 2#PQ #OPT INSB=0 [MARK7 INSERT 2*P2 #DEF ISTACWT=#26 [WAITING FOR FILE/FSTACK BLOCK TO 2B8L [BE LENGTHENED 2BN= #DEF IWTDEST=#40 [APPEND WAITING FOR BLOCK TO BE FREED 2C7W [BY READ (DESTRUCTIVE COMMUNICATION 2CMG [FILES) 2D76 #DEF FOPENWT=#103 [USEROPEN WAITING FOR FILE TO BE OPEN 2DLQ [FOR READING (DESTRUCTIVE COMMUNIC- 2F6B [ATION FILES) 2FL2 #SKI I516A 2G5L #INC STEPSTAT 2GK= #OPT K0FILE=K0FILESTORE 2H4W #DEF BLOMK7=1 [ALLOCATION OF BS BLOCKS IN OPENREL 38JB # 3942 # DEFINES FOR FI/FINDEXF BLOCK 39HL # 3=3= #OPT INDEXID=A1+1 [IDENTIFYING WORD,CONTAINS IDENTITEX 3=GW #OPT IDENTITEX=#20000000 [IDENTIFIES INDEX RECORD 3?2G #OPT INDEXNO=INDEXID+1 [CONTAINS INDEX NUMBER. 3?G6 #OPT INDEXREC=INDEXNO+1 [FIRST INDEX WORD. 3?^Q XY INDEXID 3#FB # 3#^2 # INDEX NUMBERS 3*DL # 3*Y= #OPT INDEXDIR=1 [DIRECTORIES. 3BCW #OPT INDEXDICT=2 [DICTIONARY. 3BXG #OPT INDEXSER=3 [SERIAL. 3CC6 #OPT INDEXINC=4 [INCINDEX. 3CWQ #OPT INDEXOUT=5 [SYSOUT 3DBB #OPT INDEXJOB=6 [SYSTEM JOBLIST 3DW2 #OPT INDEXUSERJ=7 [USER JOBLIST 3F*L # 3GSG # THESE ARE FOR THE TRAP COMMANDS [DAVE BURKITT] 3K=L #DEF CEXECUTE=#01 3KQ= #DEF CREAD=#02 3L9W #DEF CAPPEND=#04 3LPG #DEF CWRITE=#10 3M96 #DEF CERASET=#20 3MNQ #DEF CALL=CREAD^CEXECUTE^CAPPEND^CWRITE^CERASET 3MYJ ...#DEF CGROUP=#40000000 3N8B #DEF C=0 3NN2 # 3P7L # FNORM 3PM= #OPT EXPEDIENT=AWORK1 3Q6W #OPT K0NORMALUS=0 3QLG #OPT K6NORMALUS=K6ALLGEO>K6GREATGEO>K6FILESTORE 3R66 #OPT K0DECODE=0 3RKQ #OPT K6DECODE=K6ALLGEO>K6GREATGEO>K6FILESTORE 3S5B #OPT K0ADJUNCTS=0 3SK2 #OPT K60ADJUNCTS=K6ALLGEO>K6NORMALUS>K6GREATGEO>K6FILESTORE 3T4L #OPT K0ADJCHECK=0 3TJ= #OPT K6ADJCHECK=K6NORMALUS>K6ALLGEO>K6GREATGEO>K6FILESTORE 3W3W # GENDRAL FILESTORE 3WHG #OPT K0FILESTORE=K0ALLGEO 3X36 #OPT K0CLOSE=0 3XGQ #OPT K0ACCESS=0 3Y2B #OPT K0WORK=0 3^YW #OPT K6CLOSE=K6FILESTORE>K6ALLGEO 42DG #OPT K6ACCESS=K6FILESTORE>K6ALLGEO 42Y6 #OPT K6FILELOG=K6ALLGEO>K6GREATGEO>K6FILESTORE 43CQ #OPT K6WORK=0 46*G # 46T6 ...# FILE/ADJUNCTS IDENTIFIERS 47#Q #DEF ADPAIR=A1+5 [RED TAPE IN ADJUNCTS BLOCK 47JJ ... BITDEFS A1+1,22,BAFROZEN,BAOWNACC 47SB # 48#2 # FOR SAVEFILE AND RESTFILE 48RL # 49?= #OPT ASAVEFILE=1 49QW #INC SAVEFILE6 4==G #DEF FABSAVENO=9 4=Q6 #DEF FABSAVE=A1+1 4?9Q #DEF FCASAVENO=4 4?PB #DEF FCASAVE=A1 ^^^^ ...07632245000800000000