Trailing-Edge
-
PDP-10 Archives
-
BB-4148E-BM
-
sources/dbsdcl.mac
There are 22 other files named dbsdcl.mac in the archive. Click here to see a list.
UNIVERSAL DBSDCL - PARAMETERS FOR DBMS-10 & DBMS-20
SUBTTL SSC/WBH/JEF/HRB
; COPYRIGHT (C) 1974,1981 BY
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
SEARCH GENDCL
SEGSYM
;;; ALL DBMS COMPONENTS ARE MAINTAINED AT SAME VERSION
MAJVER==6
MINVER==0
CUSVER==0
EDITNO==363
DEFINE VERSION(AAA)<
LOC 137
BYTE (3)CUSVER(9)MAJVER(6)MINVER(18)EDITNO
RELOC >
DBVER=:<BYTE (3)CUSVER(9)MAJVER(6)MINVER(18)EDITNO>
;;; DBMS EDIT HISTORY
; *** EDITS TO DBMS-V5 (MADE BY SSC UNLESS OTHERWISE NOTED)
;[%241] FIX JRDATA TO COMPUTE WORD COUNT RATHER THAN BYTE COUNT.
; ALSO FIX PUT.M TO DO NO TYPE CONVERSION.
;[%242] MAKE ALL PROT AND CONCUR U-M SPECIFY OF%THW IN DBMO C
; SO THAT U-M UPDATE/U-M RETR DOESN'T GET 940 ON -20.
;[%243] MAKE DBCLOS TLZ PSW.QRU IF CUR.RU IN AREA BEING CLOSED
; SO THAT SUBSEQ FIND WILL NOT DO SPURIOUS DEQ (IN UPD/RETR UM).
;[%244] MAKE XC.ALR IN DBLEAV BRANCH TO DXX.BX SO THAT BINDS ERROS SET SUS STATE.
;[%245] MAKE "RANGE" OF CLASS END-OF-CLAUSE SO THAT "ASSIGN" CAN CONTAIN
; ARBITRARY NUMBER OF RANGE CLAUSES.
;[%246] FIX PROCESSING OF LINE-SEQUENCE NUMBERS IN SCHEMA ON -10.
;[%247] MAKE RETRIEVAL MODES FOR TEMP AREAS INVOLVE NO .TMP FILE.
; ALSO DONT MAP THEM ALL INTO PROT RETR.
;[%250] MAKE NO JOURNALING AND PROT UPD COMPAT IN DBPORT.
;[%251] CALL SET.R IN JSTRA$ ONLY WHEN TRANS I-U AND DBMS SIMUL UPD.
;[%252] DAEMDB BUG IN DABUT1, CAUSE JOUT TO MTA: TO BE GENERATED CORRECTLY.
; PATCH DISTRIB TRIV VIA KLUDGE, ACTUAL PATCH INVOLVED ARCHITECTURAL CHANGE
;[%253] PATCH DBFIND TO CORRECTLY DETECT (EOS) FOR FINDO$.
;[%254] IF YOU TRIED TO INCREASE HIGHEST LINE ON A PAGE AND FILL
; THE PAGE EXACTLY, ALC.LN WOULD INCORRECTLY SAY NO ROOM.
;[%255] PREVENT DAEMDB FROM ILL MEM REF WHEN USER DOES CLOSE RUN-UNIT
; THAT SETS JOURNAL USAGE-CNT TO 0.
;[%256] FIX DDLSKE TO ACCEPT PIC A(N)
;[%257] FIX MEM.UNL SO THAT DELETE OF OB.CNEX DOESN'T CAUSE EXCEP(ACA).
; ALSO NOTE IN DOC THAT (ACA) CAN MEAN REF OF OB.CURR FOR WHICH CURR SET OCC DELETED.
;[%260] FIX FND.OS TO HANDLE "FIND OWNER OF CURR OF REC!AREA" IN CIRCUMSTANCE
; WHERE REC HAS BEEN REMOVED FROM SET OCC
;[%261] ELIMINATE SUPERFLOUS GETLIN WHEN PROCESSING A BLANK LINE OF SS TEXT
;[%262] ELIMINATE KI-ONLY INSTRUCTION IN GENIO.MAC
;[%263] FIX SCHIO TO HANDLE LOWERCASE SCHEMA NAMES ON 10
;[%264] FIX DAEMDB'S HANDLING OF INTERRUPTS SO THAT IT PROCESSES
; THEM IMMED RATHER THAN WAITING UNTIL END OF NEXT POLLING PERIOD
;[%265] CAUSE DAEMDB TO GENERATE LABEL PAGES FOR 2ND AND LATER REEL OF A JOURNAL.
; MAKE MNDUTL SAVE TEMP REGS CORRECTLY IN LINKING TO REEL CHANGER.
; MAKE MNDUTL SET OKMSG BITS CORRECTLY FOR REEL CHANGING.
;[%266] FIX SCAN BLOCKS SO THAT UTILITIES CAN BE EXECUTED WITHOUT THE "R "
;[%267] MAINTENANCE ONLY (NOT IN DEVEL SOURCES) -- DONT ACTUALLY
; SCAN BUFFERS TO SEE/MANAGE WHAT PAGES IN CORE
;[%270] (MAINT. ONLY) FIX CRU.CHK IN DBMANY TO HANDLE PROT UPD
;[%271] HAVE GTJFN IN DBMOC DISTINGUISH BETWEEN AREA NOT FOUND & JFN'S EXHAUSTED
;[%272] IPCF RCV OVERWRITES MAX MSG SIZE WITH ACTUAL MSG SIZE.
; THIS PATCH MAKES DABUTL RESTORE MAX MSG SIZE AFTER EACH RCV.
;[%273] FIX ABSTRACT TO WORK RIGHT EVEN IF SCHEMA NOT YET OPENED
; (THE TEMP-BUFFER FOR JOURNAL BLKS WAS BEING OVERFLOWED).
;[%274] FIX POSMTA IN MNDUTL TO ACCT FOR REAL-TIME DELAYS IN MTA POSITIONING
;[%275] ENABLE JR.PREV IN MNDUTL TO HANDLE UNUSED WORDS AT END OF PRECEDING PAGE
;[%276] FIX JR.PIN IN MNDUTL TO BE ABLE TO "SET UP" IN A J PAGE IN WHICH
; NO JOURNAL BLK STARTS OR ENDS
;[%277] FIX BD.TREE TO NOT RECURSIVELY CLOBBER INDEX BLOCK WHEN MORE THAN 1 INDEX LEVEL
;[%300] RE-ORDER TOPS-10 ERR BIT CHKS IN DABUTL SO THAT NON-FATAL BITS TAKE PRECEDENCE
;[%301] SUBSUMED BY %303
;[%302] (MAINT. ONLY) DETECTION OF ABORTED TRANSACTION IN JR.LIN
;[%303] MAKES DBJOUR CORRECTLY INIT EMPTY J & DETECT INCONSIS J FORMAT
; IN JR.LIN
;[%304] MAKE ALC.LN IN DBKALC HANDLE PAGE RANGES OF 7 OR LESS
;[%305] MAKE DBINS/DBREM CHK SPECIFICALLY FOR ARG CODE SO THAT NON-NAMID
; SYMBOLS CAN BE DISTINGUISED FROM THE (NEGATIVE) ARG CODES
; (EG. $$ALL)
;[%306] FIX BOUNDARY-CONDITION ERROR IN DBMOC: CALC PAGE RANGE CORRECTLY
; WHILE DETTING # OF PAGES IN TMP DIRECTORY
;[%307] CORRECTLY SETUP CNT.GOS/CNT.POS/CNT OF J P WRITTEN FOR DBSTAT
;[%310] CLEAN UP "FILBLK" HANDLING IN DBMEND, ADD FJ.BLK,
; GIVING J ITS OWN FILBLK
;[%311] ENABLE DDLLEX TO HANDLE THE "IS" IN PIC IS ....
;[%312] DO A CLOSF OF .TMP FILE AFTER THE DELF
; (OTHERWISE SUBSEQ OPENF FAILS)
;[%346] FIX PROBLEM WITH LOWER CASE CHARACTERS IN PICTURE STATEMENTS
; *** DBMS-V6 DEVELOPMENTAL EDITS
;[V6%1] ENABLE DBINFO TO DISPLAY BUOYS AND SORTED-SET INDEX STRUCTURES.
;[V6%2] IMPLEMENT /AREA FOR DBINFO AND DBMEND
;[V6%3] IMPROVE ERROR MESSAGES IN THE UTILITIES
;[V6%4] ENFORCE 30 CHAR MAX FOR USER IDS
;[V6%5] SUPPORT FOR BUFFER COUNT AT AREA-NAME
;[V6%6] SUPPORT FOR "NOTE JOURNAL"
;[V6%7] SUPPORT FOR COMPRESSED PAGE IMAGES
;[V6%8] ELIMINATE CRU ENQING IN FAVOR OF MORE GENERALIZED TRANSACTION
; CONCEPT
; AND USE OF AID FILES FOR GENERATING LONG REPORTS
;[V6%9] DO J I/O IN LARGER CHUNKS, ELIMINATE QUEUE THAT SUPPORTED
; BI JOURNALING, MIN DB PAGE WRITING TO MIN PROB OF
; PREMAT J WRITES
;[6%10] MAKE BUFFER HDR A NODE OF AB.BUFPT RATHER THAN A PREFIX OF
; BUFFER
;[6%11] ADD SUPPORT OF CLUSTER SIZE
;[6%12] ELIMINATE OVERLAPPED J LAB PAGE IN FAVOR OF J PIPELINING AND
; SHARING OF LABEL INFO
;[6%13] ENHANCEMENTS TO STATS
;[6%14] SUPPORT OF DBINFO /ACCUMULATE SWITCH
;[6%15] PROVIDE MORE ACCURATE CALC-CHAIN SPECIFYING SYNTAX: CALC
; CHAIN [COUNT IS] INTEGER
;[6%16] ADD CNTS OF A-I DIRECTORY I/O & PAGES CREATED TO DBSTAT OUTPUT
;[6%17] ADD SUPPORT FOR FIND6
;[6%18] PAGE/AREA LOCKING SUPPORT
;[6%19] TRANSACTION SUPPORT
;[6%20] ASSIGN INDEX SUPPORT
;[6%21] MOD FOR DBINFO ???
;[6%22] CLUSTER SUPPORT
;[6%23] JOURNAL QUEING MODIFICATION, PERFORMANCE AND INTEGRATION
;[6%24] RANGE CLAUSE EXTENSION
;[6%25] SPEED UP EQLSTR IE DO WORD COMPARES
;[6%26] FOR ORDER FIRST MAKE TARGET PAGE THAT OF THE FIRST
; RECORD NOT THE OWNER
;[6%27] PMAP AFTER IMAGE DIRECTORIES
;[6%30] USE FFUFP FOR FIND NEXT OF AREA
;[6%31] PERFORMANCE WORK ON THE -10 (ENQ/DEQ, AND SHARED TABLE)
;[6%32] ADD MEMBERS CLAUSE TO DELETE VERB
; DBCSYM, DBDEL, DBSET, DMLTAB, DMLVER, DMLVOK
;[6%33] ADD BUFFER COUNT IS n TO ENVIRONMENT ENTRY
; DDLGLO, DDLDMC
;[6%34] CHANGE CALLING CONVENTIONS FOR DAEMDB
;[6%35] ADD SUPPORT FOR AREA BUFFER SHARING
; DBOPEN, DBCLOS, DBMIO
;[6%36] ADD DATA-NAME TO ASSIGN BUFFER CLAUSE
; DDLDMC
;[6%37] DBINFO - FIRST PASS AT VSIXING IT
;[6%40] ADD QUEUING TO THE LOCK MECHANISM
;[6%41] DBMEND REWRITE
;[6%42] BIND QUALIFIED DATA REFERENCES
;[6%43] ADD A PRIVACY LOCK FOR ADMINISTRATION
;[6%44] SUPPORT OPTIONAL LRU BUFFER SELECTION WITHOUT REGARD TO
; THE MUST-WRITE STATUS
;[6%45] DBSTAT - ENABLE STATS TO DUMP STATS AT A DATA-NAME
;[6%46] ADD (UNSUPPORTED) USER ENTRY POINTS
;[6%47] LTPR ##### ASSUME "INTERCEPT" STATEMENT FOR 1531 ERROR
;[6%52] LTPR #### DBKIO OPEN OF EMPTY AREAS CAUSES ILL MEM REF
; NOW GIVES EXCEPTION "UMR"
;[6%53] ADD ERROR-DATA REGISTER TO NOTE/INTERCEPT OUTPUT
;[6%54] MAKE JETRAN WITH NO JSTRAN GIVE PROPER ERROR CODE
;[6%55] LTPR #### MAKE SC.SYM IN GENIO HANDLE "-" AND QUOTED SYMBOLS
;[6%56] LTPR #### DBCLOSE -- FOR CLOSE ALL AND CURRENT .DBS NOT OPEN
; DONT CLEAR CURRENCY AND AVOID ILL MEM REF
;[6%57] LTPR #### DON'T CLEAR CURRENCY FOR RECORDS NOT IN THE CURRENT
; SUB-SCHEMA
;[6%60] LTPR #### CLEAR LK.ABO AND LKJ.OWN WHEN INITIALIZING LOCK PAGE
;[6%61] LTPR #024 DBBITM - DBCSYM: PATH SIMULATION # OF IO'S FOR STATS
;[6%62] LTPR #### ALWAYS RE-CREATE THE .LOK FILE WHEN RE-CREATING THE
; .SCH FILE
;[6%63] LTPR #### SUPPORT DEFAULTING USAGE MODES IN XACTION DEFINITION
;[6%64] LTPR #037 ADD [AT MOST] TO ASSIGN JOURNAL... SIZE IS CLAUSE
;[6%65] LTPR #041 DYNAMICALLY ADJUST CLUSTER SIZE TO TAKE INTO ACCOUNT
; THE POTENTIAL EXISTANCE OF A PAGE IN A NEW CLUSTER
; ALREADY EXISTING IN A BUFFER AND THE RANGE CLAUSE
;[6%66] LTPR #040 DBSTAT - AVOID FLOATING DIVIDE CHECK IN FORTRAN
;[6%67] SYS DBK = 1002 AND ASR DBK = 1001 FOR SCHEMA SCHEMA
;[6%70] LTPR #042 DBKIO - MOVE COUNT OF CNT.JQF (JRN FLUSHES) FROM
; PUT.PAG TO PUT.IFM TO AVOID COUNTING AT END OF TRANS
;[6%70] LTPR #### DBJOUR - CNT.JBF NEVER COUNTED "(SS)" MISSING
;[6%71] LTPR #### DBINFO - DONT SEND FF'S TO THE DBI FILE IF
; ON A TERMINAL
;[6%72] LTPR #047 INFCOM - RUN$ (PROGRAM) DBINFO
; NOISE WRD PROGRAM CAUSES SCAN TO BARF
;[6%73] LTPR #### DBINFO ALLOW DISPLA KEY:dbk
;[6%74] CHANGE UFPGS TO ONLY UPDATE PAGES WE ACTUALLY MODIFIED
;[6%75] LTPR #046 DBINFO GIVE A CLEARER MESSAG THAN EXCEPT 60
; IF ATTEMPT TO DISPLA AND AREA NOT OPEN
;[6%76] LTPR #048 DBINFO - INFIDB WAS CONFUSED ABOUT DEFINITION
; OF AN EMPTY PAGE
;[6%77] ADD TRACE CODE TO PAGE LOCKING
;[6%100] LTPR #000 DBMIO - 157 ERROR WHEN PAGE SIZE GREATER THAN
; 512. WORDS
;[6%101] (RESERVED WBH)
;[6%102] LTPR #052 DBKALC - ALC.LN DOES NOT CHECK ALL PAGES WITHIN
; A RECORD RANGE BEFORE GIVING UP IE [1211]
;[6%103] CHECK FOR PAG.LX(X) BEING WITHIN THE PROPER PAGE RANGE
; BEFORE USING IT TO STORE A NEW INDEX
;[6%104] INSURE THAT JRTEXT/JRDATA OPERATE WITHIN THE TRANSACTION
; CONCEPT
;[6%105] HANDLE CASE OF JOURNAL HEADER BLOCK ENDING ON THE LAST
; WORD OF THE JOURNAL PAGE PROPERLY
;[6%106] SEARCH DEVICE SCH: FOR .SCH AND .LOK FILES IF IT EXISTS
;[6%107] INFCOM 20-NOV-80 ZERO THE EXT FOR SU AND APP FOR DBINFO
; SCAN DOESNT DO IT AND SU WILL DEFAULT TO SCHNAM.CMD
;[6%110] WAIT 1 SECOND AFTER A DELETE TRANSACTION TO GIVE OTHER
; R-U A CHANCE TO COMPLETE
;[6%111] FIX JOURNALING PROBLEMS
;[6%112] CHECK ENTIRE SEARCH PATH BEFORE CREATING A NEW
; .TMP OR .AID FILE
;[6%113] DBSET 5-DEC-80 PUT FIRST BUOY WHERE FIRST REC WILL GO
; NOT WITH THE OWNER
;[6%114] ALLOW ARGUMENTS TO BE PASSED TO GENMSG VIA NWIND (REG 10)
;[6%115] DBSET, DBKALC 12-DEC-80 FOR ORDER PRIOR
; USE WINDO-1 AND FIRST REC GOES TO LAST PG OF WINDO
;[6%116] LTPR #056 DDLMES 29-DEC-80
; SCHEMA BUG DDLVSN ERROR MESSAGE PRINTS GARBAGE
;[6%117] LTPR #059 DDLDMC 30-DEC-80
; SCHEMA BUG - INFINITE LOOP ASSIGN RANGE ERROR
;[6%120] DBSDCL, DBKIO, DBMIO 7-JAN-81
; FND NEXT OF AREA FAILS ON EMPTY BUT XTANT PAGE
;[6%121] FIX PROBLEMS WITH DASHES (-) IN SYMBOLS (GENCMD)
;[6%122] DBLEAV 8-JAN-81
; FND.NA GIVES REC NOT FND IF EMPTY PAG PRECEDES REC-PG
; PSW.RAN MUST BE ZEROED AFTER EACH VERB
;[6%123] DBGATE 9-JAN-81
; MAKE LINK TIME SWITCHES SEPERATE MODULES TO ELIMINATE
; LINK WARNING MESSAGE "%MULTIPLE......"
;[6%124] DBJOUR 9-JAN-81
; WHEN OPENING A JOURNAL FOR APPEND, MAKE SURE THAT
; JP.NEED(SS) IS SET UP PROPERLY
;[6%125] 9-JAN-81
; MAKE THE DELETE TRANSACTION COMMAND IGNORE PRIVACY KEYS
;[6%126] 12-JAN-81
; ADD A FLAG TO DETERMINE WHEN AND AID FILE IS CREATED
; BY THE OPEN CODE.
;[6%127] 13-JAN-81
; MAKE SURE INCOMPLETE TRANSACTIONS ARE BACKED OUT BEFORE
; CLEARING UNDEFINED STATE.
;[6%130] 13-JAN-81
; GET PROPER SIZE OF JOURNAL AFTER A CRASH.
;[6%131] 13-JAN-81
; PROPERLY INITIALIZE JOURNAL WITH MULTIPLE SIMULTANEOUS
; RUN UNITS.
;[6%132] 14-JAN-81
; ALLOW A TRANSACTION LIMIT WHEN IMAGES ARE BY COMMAND.
;[6%133] 14-JAN-81
; AFTER CREATING A NEW PAGE COPY ITS BEFORE IMAGE TO
; THE JOURNAL.
;[6%134] 14-JAN-81
; FIX PROBLEM WITH DBMEND NOT HANDLING JOURNAL WITH
; LAST PAGE CONTAINING ONLY A PARTIAL IMAGE.
;[6%135] 14-JAN-81 DBKIO
; FIX FOR EDIT 331. INSERT OF A SORTED REC SOMETIMES FAILS
; WITH DUPS NOT ALLOWED" NUWA(X) POINTS TO SRT KEY AND IS
; INVALIDATED BY OVER-READING THE TARGET PAGE.
;[6%136] 16-JAN-81
; LOK.JRN SHOULD NEVER RETURN UNLESS THE JOURNAL IS
; LOCKED.
;[6%137] 19-JAN-81
; RESET JOURNAL CONTEXT WHEN BACKING OUT A TRANSACTION
; THAT HAS NEVER ACTUALLY WRITTEN TO THE JOURNAL
;[6%140] 22-JAN-81
; FIX BUG IN CURRENCY SUPRESSION
;[6%141] 27-JAN-81
; HANDLE IMAGES SPLIT ACROSS JOURNAL PAGES
; WHEN IMAGE IS NOT DESIRED
;[6%142] 27-JAN-81
; DON'T LEAVE BH.PAGE CONTAINING A PAGE NUMBER IF THE
; BUFFER DOESN'T CONTAIN THE PAGE
;***** V6 FIRST FIELD TEST TAPE ON -20S 30-JAN-81 *****
;[6%143] 24-FEB-81 HRB
; DISABLE DEBUG CODE WHICH CAUSES PROBLEMS FOR DBMEND
; MODULES: DBMLOK
;[6%144] 26-FEB-81 HRB
; COMPLETELY CLEAN-UP THE JOURNAL ENVIRONMENT WHEN
; SWITCHING SCHEMAS/JOURNALS IN DBMEND
; MODULES: MNDIDB
;[6%145] 26-FEB-81 HRB
; MAKE DBMEND SCHEMA COMMAND COMPLETELY RE-INITIALIZE
; ITS ENVIRONMENT.
; MODULES: MNDCOM MNDUTL
;[6%146] 26-FEB-81 HRB
; FIX TYPEOUT OF SCHEMA NAME IN AN ABSTRACT TO INCLUDE
; THE SIXTH CHARACTER.
; MODULES: DBJOUR MNDDCL
;[6%147] 27-FEB-81 HRB
; DON'T CALL STRLIB WITH ARGUMENT INDEXED BY R1.
; MODULES: DBJOUR
;[6%150] 27-FEB-81 HRB
; ELIMINATE EXTRANEOUS END OF TRANSACTION WHEN BACKING
; OUT A POTENTIALLY INCOMPLETE TRANSACTION.
; MODULES: MNDIDB DBJOUR DBTRAN
;[6%151] 27-FEB-81 HRB
; FIX MORE PROBLEMS WITH MULTIPLE OPERATIONS IN ONE
; RUN OF DBMEND
; MODULES: DBOPEN
;[6%152] 2-MAR-81 JEF
; LET OPEN AREA WIN IF PRIVACY KEY SUPPLIED AS AN ARG
; AND NONE IS REQUIRED ALA AB.LOK
; MODULES: DBOPEN
;[6%153] 3-MAR-81 HRB
; FIX DBMEND'S HELP AND LABEL COMMANDS
; MODULES: MNDDCL MNDCOM DBJOUR
;[6%154] 3-MAR-81 HRB
; FINISH NATIVIZING GENMEM
; MODULES: GENMEM
;[6%155] 4-MAR-81 JEF
; INIT SET EMPTY FLAG (SETMTY)
; DEFAULT TARGET PG TO LAST OF RANGE IF POR1ST
; MODULES: DBSET DBOPEN DBSTOR
;[6%156] 4-MAR-81 JEF QAR 01430
; CALL TO GET.BP IS DONE WITH WRONG BYTE PTR.
; JRTEX$ AND JRDAT$, 270403,,0 SHOULD BE 270400,,3
; MODULES: DBJOUR
;[6%157] 6-MAR-81 HRB
; PRESERVE JBP WHEN TRYING TO PRINT TEXT DURING A DBMEND
; ABSTRACT COMMAND.
; MODULES: DBJOUR
;[6%160] 9-MAR-81 HRB
; CREATE DBMSF.EXE TO MAKE FOROTS WORK
; MODULES: DBGATE DBPORT
;[6%161] 9-MAR-81 HRB
; PRINT A WARNING MESSAGE WHEN DEFAULTING THE TYPE
; OF IMAGES FOR AN AREA
; MODULES: DDLMES DDLDMC
;[6%162] 9-MAR-81 HRB
; MAKE TBLOK. WORK AS DOCUMENTED FOR AREA LOCKING
; MODULES: DBMLOK
;[6%163] 11-MAR-81 HRB
; FIX "? ILLEGAL MEMORY READ...." WITH NULL JOURNALS
; MODULES: MNDIDB
;[6%164] 11-MAR-81 HRB
; MAKE DEFAULT TRANSACTION NAMES WORK AS DOCUMENTED
; MODULES: DBTRAN
;[6%165] 12-MAR-81 HRB
; FIX AUTORECOVERY ALA 6%137
; MODULES: DBJOUR
;[6%166] 12-MAR-81 QAR 1429
; DONT CHECK FOR SUB-SCH LOCK IF /SS ALL CASE
; MODULES: INFIDB
;[6%167] 12-MAR-81 HRB
; MAKE SCHEMA TEMPORARY AREAS WORK
; MODULES: DBMIO
;[6%170] 13-MAR-81 JEF
; THE DEFAULT ALGORITHM FOR PAG SELECTION MAY PLACE
; RECORD IN A RANDOM AREA.
; CALL MEMWHERE BEFORE WIN.AREA FOR VIA SETS
; MODULES: DBSTOR DBSET
;[6%171] 13-MAR-81 HRB
; FORDML GENERATES BAD CODE FOR OPEN JOURNAL
; STATEMENTS.
; MODULES: DMLVER
;[6%172] 16-MAR-81 HRB
; MAKE BACKUP OF MULTIPLE TRANSACTIONS WORK AGAIN
; MODULES: DBJOUR
;[6%173] 16-MAR-81 HRB
; CLEAN UP DBMEND'S ERROR MESSAGE ACT
; MODULE: MNDCOM MNDUTL DBJOUR
;[6%174] 17-MAR-81 HRB
; MERGE AFTER/BEFORE DON'T CHECK FOR EXISTANCE OF
; START/END BOUNDARIES
; MODULES: MNDCOM
;[6%175] 17-MAR-81 JEF
; ALLOW ONLY ONE RANGE OF RECORD STMNT PER RECORD
; MODULES: DDLSKE DDLMES
;[6%176] 17-MAR-81 HRB
; MAKE SURE JP IS UP-TO-DATE BEFORE CALLING JRCOP TO
; COPY DATA INTO THE JOURNAL
; MODULES: DBJOUR
;[6%177] 17-MAR-81 HRB
; INSURE THAT DBMEND CAN CARRY OUT THE USERS CLOSE
; JOURNAL/RUN-UNIT REQUEST
; MODULES: MNDUTL MNDDCL DBJOUR
;[6%200] 17-MAR-81 HRB
; MAKE SURE DBMEND DOESN'T HANG WHEN USER SPECIFIES A
; BOUNDARY WHICH CANNOT BE LOCATED
; MODULES: DBJOUR MNDOTH MNDCOM
;[6%201] 17-MAR-81 HRB
; DBMEND HANGS DURING MERGE AFTER/ABSTACT/BUILD WHEN A
; UNDESIRED BLOCK CROSSES PAGE BOUNDARIES
; MODULES: DBJOUR
;[6%202] 17-MAR-81 JEF
; FOR ALC.LN PAGE SELECTION - AND 1 SET PER n PAGES
; CHECK FOR ALL REC TIDS THAT ARE SET MEMBERS
; NOT JUST THE TID OF REC BEING ALLOCATED
; MODULES: DBKALC
;[6%203] 19-MAR-81 JEF
; HAVE DBDML SEARCH UUOSYM NOT C (OUT OF DATE)
; MODULES: DBDML
;[6%204] 23-MAR-81 HRB
; JE.VERB SHOULD NOT CLEAR NJE.BIT AS THIS WILL
; RESULT IN A UCR (62) ERROR.
; MODULES: DBJOUR
;[6%205] 23-MAR-81 HRB
; ELIMINATE RESH/JOSH CONFUSION. WHEN DEALING WITH
; JOURNAL TEST IS ALWAYS PSW.JOSH.
; MODULES: DBMLOK
;[6%206] 23-MAR-81 HRB
; ADD A CLEAN-UP ENTRY POINT SO DBMEND CAN CLEAN-UP
; THE DBCS ENVIRONMENT AFTER A MINOR ERROR.
; MODULES: MNDIDB
;[6%207] 23-MAR-81 HRB
; FIX START TRANSACTION-NAME:LAST CASE
; MODULES: DBJOUR
;[6%210] 23-MAR-81 HRB
; OPEN SHOULD NOT ATTEMPT TO OPEN AREAS WHEN CALLED
; WITHIN AN OPEN TRANSACTION.
; MODULES: DBOPEN DBCLOSE
;[6%211] 27-MAR-81 JEF (QAR-01485)
; "DELETE MEMBERS." VIA FORDML LOSES THE EOS TOKEN.
; MODULES: DMLVER
;[6%212] 27-MAR-81 HRB
; WITH IMAGES BY COMMAND BACKUP WILL NOT OCCUR
; UNLESS A BUFFER HAS BEEN MODIFIED. BACKUP IS
; REQUIRED TO CLEAN UP THE V6 ENVIRONMENT.
; MODULES: DBLEAV
;[6%213] 27-MAR-81 HRB
; PAGE LOCKING CODE DOES NOT PROPERLY WAKE R-U'S
; WAITING FOR A LOCK.
; MODULES: DBMLOK
;[6%214] 27-MAR-81 HRB
; MAKE SURE GJ%OLD IS SET IN ALL CASES WHEN LOOKING
; FOR A .DBS FILE.
; MODULES: DBMOC
;[6%215] 27-MAR-81 HRB
; CHANGE DBCS DISK OR MTA MESSAGE TO NOT MENTION MTA
; AND ONLY ISSUE IT WHEN THE USER'S DEVICE CANNOT
; BE TRANSLATED. OTHERWISE ISSUE A OS (xx60) ERROR.
; MODULES: DBMOC DBCHAR
;[6%216] 30-MAR-81 HRB
; GIVE PROPER ERROR MESSAGE ON DUPLICATES PSEUDONYMS
; MODULES: DDLSKE
;[6%217] 1-APR-81 JEF
; GIVE ERROR MESSAGE IF DBINFO IS RESTARTED
; MODULES: INFCOM INFMES
;[6%220] 2-APR-81 HRB
; MOVE SOME LOCK PARAMETERS FROM XSTAT TO SS SO
; THAT DIFFERENT SCHEMAS CAN BE ACCESSED FROM THE
; SAME PROGRAM
; MODULES: DBBIND DBMIO DBMLOK DBMOC DBTRAN INFIDB
; MNDIDB MNDMAN DBCSYM
;[6%221] 2-APR-81 HRB
; MORE DBMEND CLEAN-UP. MAKE IT VERY VERY SMART ABOUT
; POSSIBLY BAD JOURNALS
; MODULES: DBJOUR MNDDCL MNDOTH MNDCOM MNDUTL MNDMAN
;[6%222] 3-APR-81 HRB
; MAKE FORDML GIVE MORE APPROPRIATE MESSAGE WHEN IT
; CANNOT FIND THE .LOK FILE
; MODULES: DMLERR
;[6%223] 7-APR-81 JEF
; DBINFO GOT CAUGHT BY 6%210 CALLING DEFTRN AND CLODEF
; DIRECTLY. CALL ONLY FROM WITHIN DBCS ENVIRONMENT
; MODULES: DBLEAV DBMANY INFCOM INFIDB
;[6%224] 8-APR-81 HRB
; CONTINUE TO IMPROVE DBMEND ERROR HANDLING
; MODULES: DBJOUR DBOPEN DBSDCL MNDCOM MNDUTL MNDOTH
; MNDDCL
;[6%225] 9-APR-81 HRB
; ALWAYS INCLUDE THE SYSTEM RECORD IN SUBSCHEMAS
; WHICH INCLUDE THE AREA CONTAINING IT.
; MODULES: DDLSUB
;[6%226] 13-APR-81 HRB
; INTEGRATE MISSING V5A EDIT %346.
; MODUELS: DDLLEX
;[6%227] 14-APR-81 JEF
; AVOID EXCEP 60 IF D K:1001 AND AREA IS NOT OPEN.
; GIVE EXCEP ANO INSTEAD
; MODULES: INFIDB
;[6%230] 15-APR-81 JEF
; CLOSE BLOWS UP WITH SOME BLANK PGS STILL MAPPED.
; SO GET PAG NUMBER FROM BH.PAGE NOT BLANK PAGHDR
; MODULES: DBMIO
;[6%231] 15-APRP-81 JEF
; IF RECORD IS PLACED WITHIN MUTIPLE AREAS VIA THE RANGE
; CLAUSE OF THE AREA STATEMENT BUT NOT DECLARED WITHIN
; ALL THOSE AREAS VIA THE RECORD STATEMENT THE ERROR
; GOES UNDETECTED.
; MODULES: DDLSKE DDLMES
;[6%232] 17-APR-81 JEF
; SCHEMA DOES NOT DETECT DUP DATANAMES IN
; ASCENDING KEY IS DATAN1 DATAN1 CASE
; MODULES: DDLSKE
;[6%233] 17-APR-81 JEF
; THE DBMEND ABORT COMMAND FORGETS TO SET MND.BIT
; THIS CAUSES DBMEND TO ABORT ITSELF!
; MODULES: MNDMAN
;[6%234] 17-APR-81 JEF
; DBCS GIVES CBU MESSAGE WHEN CLOTR, DELTR OR JBTRN FAIL
; NOW TNA (TRANS NOT ACTIVE)
; MODULES: DBTRAN
;[6%235] 19-APR-81 JEF
; DBMEND BLOWS (W/ ill mem wri at ..) IF WRONG FILE IS
; FED TO THE JOURNAL COMND BEFORE THE RIGHT ONE IS.
; JR.BAFT IS LEFT WITH <#OF BUFS * JR.PSIZ>
; HOWEVER DBOPEN IE OP.JBUF EXPECTS # OF BUFS
; MODULES: DBOPEN
;[6%236] 23-APR-81 JEF
; DBMEND ill inst 13 @ 1 ON ABSTRACT TO TTY:
; ABSTRACT DOESNT KNOW ABOUT TEMPORARY B/A IMAGES.
; MODULES: DBJOUR MNDOTH
;[6%237] 24-APR-81 JEF
; DBMLOK BLOWS UP WITH EITHER PDL OV OR ILL INST
; WHEN USEING PAGE LOCKS. TOOOOOO MANY PUSHES
; AT RELONP:
; MODULES: DBMLOK
;[6%240] 24-APR-81 JEF
; NOTE JOURNAL BARFS WHEN TYPING THE DATE -- TYPO
; MODULES: DBJOUR
;[6%241] 24-APR-81 JEF
; HAVE NOTE DO BETTER FOR ERROR DATA
; OUTPUT 2 HALF WORDS NOT 1 HUGMANGUS NUMBER
; MODULES: GENDCL DBCHAR
;[6%242] 1-MAY-81 HRB
; MAKE THE EXCLUDE COMMAND NOT OPEN THE AREAS BEING
; EXCLUDED.
; MODULES: DBOPEN
;[6%243] 4-MAY-81 JEF
; HAVE DBINFO SETUP LK.MAX SO AS NOT TO OVERWRITE RANDOM
; PRIVATE PAGES.
; MODULES: INFIDB
;[6%244] 5-MAY-81 HRB
; JR.FLUSH WILL CAUSE THE JOURNAL TO BE WRITTEN
; IMPROPERLY THE SECOND TIME IT IS CALLED FROM
; JREFILL.
; MODULES: DBJOUR
;[6%245] 6-MAY-81 JEF
; IMPLEMENT /AID /NOAID /TMP /NOTMP FOR DBINFO
; MODULES: INFCOM INFUTL DBCSYM DBKALC DBMOC DBJOUR
;[6%246] 6-MAY-81 JEF
; DBJOUR MAKES WRONG TEST ON WRONG FLAG IN PUT.DBPAG
; ALSO SAME FOR JR.AFT/JR.BEF WHEN DETERMING TAI/TBI.COD
; ALSO CMP.DBPAG - SAVES 5 ACS RESTORES 4; SOMETIMES
; DOESNT RESTORE AND DOESNT INIT R0 BEFORE RETURNING
; TO CALLER.
; MODULES: DBJOUR
;[6%247] 11-MAY-81 JEF
; DBMIO PMAP BLOWS UP WHEN DBS FILE PAGE IS GREATER
; THAN ONE PHYS PAGE AND MGO.WT TRIES TO MAP PROCESS
; PAGE TO TMP/AID FILE -- ONLY THE FIRST PG WAS A
; PROCESS PG THE LAST WAS STILL A .DBS FILE PAGE.
; MODULES: DBMIO
;[6%250] 11-MAY-81 HRB
; CL.OIP DOESN'T ALWAYS OPEN A TRANSACTION WHEN
; IT SHOULD. THE RESULT IS A ?DBSXWX
; MODULES: DBCLOS
;[6%251] 12-MAY-81 EDS/HRB
; MAKE DAEMDB SORT OF WORK WITH V6 OF FORTRAN
; MODULES: DBMOC
;[6%252] 12-MAY-81 HRB
; RETURN THE R-U ID IN DBKREG ON AN OPEN
; OF THE JOURNAL.
; MODULES: DBOPEN
;[6%253] 14-MAY-81 HRB
; MAKE SURE JOURNAL LOCK IS RELEASED ON A
; CLOSE.
; MODULES: DBMOC DBOPEN
;[6%254] 14-MAY-81 HRB
; MAKE SIN JSYS USE THE % CONVENTION TO AVOID
; SYMBOL CONFLICTS.
; MODULES: DBMIO SCHIO
;[6%255] 18-MAY-81 HRB
; RETURN XX40 ERROR IF RUN OUT OF STACK SPACE WHILE
; PERFORMING DEADLY EMBRACE DETECTION.
; MODULES: DBMLOK
;[6%256] 19-MAY-81 JEF
; WHEN CLOSING A TMP FILE -- DONT DELETE IT IF THE
; AREA IS NOT OPEN FOR UPDATE
; MODULES: DBMOC
;[6%257] 19-MAY-81 JEF
; MAKE PRESERVE COMND WORK IN DBMEND
; MODULES: MNDIDB, MNDCOM, MNDUTL, DBMOC, DBKALC
;[6%260] 21-MAY-81 HRB
; RETURN TRANSACTION ID IN DBKREG ON OPEN TRANSACTION
; MODULES: DBTRAN
;[6%261] 22-MAY-81 JEF
; DBMEND GET EXCEPTION (960) ON /NOAID AND THERE IS NONE
; MODULES: MNDMAN
;[6%262] 22-MAY-81 JEF
; DBMEND SET SUS-BIT DOWN TOO FAR WHEN /NOAID AND THERE
; IS NO AID FILE.
; MODULES: DBKALC
;[6%263] 27-MAY-81 JEF
; FIND PRIOR REC1 OF SET1 SET SOMETIMES FAILS
; MODULES DBFIND
;[6%264] 28-MAY-81 HRB
; ELIMINATE THE POSSIBILITY OF XWX MESSAGES DURING
; DBMEND.
; MODULES: DBLEAV
;[6%265] 28-MAY-81 HRB
; MAKE SURE XWX ALWAYS LEAVES SYSCOM SET UP WITH
; INITIAL ERROR INFORMATION.
; MODULES: DBLEAV DBCSYM
;[6%266] 28-MAY-81 HRB
; MAKE DBCS HANDLE ABORT AND DBSTP$ PROPERLY
; MODULES: DBMLOK
;[6%270] 1-JUN-81 HRB
; INSTEAD OF RETURNING THE TRANSACTION OR R-U ID IN
; DBKREG ADD A GETUID ENTRY POINT.
; MODULES: DBTRAN DBOPEN
;[6%271] 1-JUN-81 HRB
; ALWAYS OPEN .AID/.TMP FOR WRITE (MONITOR LEVEL
; ONLY) SO THAT THE FILE CAN BE CREATED.
; MODULES: DBMOC
;[6%272] 1-JUN-81 HRB
; DON'T TRY TO CLEAR CURRENCY ON A DBMEND CLOSE.
; MODULES: DBCLOS
;[6%273] 2-JUN-81 HRB
; MAKE SURE .TMP/.AID FILES USE SAME DEVICE NAME AS
; .DBS FILE
; MODULES: DDLOS
;[6%274] 2-JUN-81 HRB
; ELIMINATE V5/V6 .SCH FILE PROBLEMS BY ONLY
; ALLOWING 256K EDITS TO THE .SCH FILE BEFORE
; ROLLING THE EDIT NUMBER BACK TO 1.
; MODULES: SCHIO
;[6%275] 2-JUN-81 HRB
; ADD A PSEDO-QUEUE TO CONTROL ACCESS TO THE LOCK
; PAGE. INCREASES PERFORMANCE UNDER HIGH VOLUME
; PAGE LOCK SITUATIONS.
; MODULES: DBMLOK
;[6%276] 2-JUN-81 HRB
; UPDATE THE BUILD PROCEDURE TO HANDLE FORTRAN V5A AS
; WELL AS FORTRAN V6.
; MODULES: DBMS20.CTL DBGATE
;[6%277] 4-JUN-81 JEF
; IF TMP FILES AND PRESERVE IS NO SET MAKE SURE EVERY
; USER GETS HIS OWN TMP FILE -- NO SHARING -- GJ%NEW
; MODULES: DBMOC
;[6%300] 5-JUN-81 HRB
; ELIMINATE MISSLEADING EXCEPTION CODE.
; MODULES: DBMOC
;***** V6 SECOND FIELD TEST TAPE ON -20S 5-JUN-81 *****
;
;[6%301] 10-JUN-81 HRB
; ELIMINATE ?DBSSNI MESSAGES (AND EXITS) WHEN A COMMAND
; IS EXECUTED AFTER THE FAILURE OF /SCHEMA COMMAND
; MODULES: MNDCOM
;[6%302] 12-JUN-81 HRB
; FIX MULTIPLE PROBLEMS WITH CLUSTERING
; MODULES: DBKIO DBMIO
;[6%303] 12-JUN-81 HRB (REMOVED TO AGREE WITH DOCUMENTATION - JEF)
; CHANGE ERROR CODE WHEN AN AREA IS INCLUDED IN A TRANSACTION
; BUT NOT IN THE SUB-SCHEMA FROM ANF TO NNS
; MODULES: DBBIND
;[6%304] 15-JUN-81 HRB
; MERGE AID WITH NO AREAS OPEN SHOULD GIVE AN ERROR
; MODULES: MNDCOM
;[6%305] 16-JUN-81 HRB
; MAKE ON-LINE DELETE TRANSACTION ONLY OPEN THE AREAS REQUIRED
; TO PERFORM THE RECOVERY. ALSO, MAKE SURE THE DEFAULT
; TRANSACTION IS CLOSED AFTER AN ERROR OPENING AN AREA.
; MODULES: MNDCOM MNDOTH DBCLOS
;[6%306] 17-JUN-81 HRB
; DON'T CLEAR OUT BUFFER HEADER FOR A BUFFER IN USE BY A
; DIFFERENT AREA THAN THE ONE BEING CLOSED
; MODULES: DBMIO
;[6%307] 17-JUN-81 HRB
; DON'T ALLOCATE A PID IF HAVE SUS AND USRID IS ZERO
; MODULES: DBPORT
;[6%310] 17-JUN-81 JEF
; HAVE DBLEAV ZERO PSW.AFE AID-FILE-EXIST SINCE IT SHOULD NOT
; LIVE BEYOND THE DURATION OF THE DBMEND VERB I.E. /MERGE AID
; DBMEND COMPLAINS ABOUT UNMERGED AID FILES (MNDAFC)
; MODULES: DBLEAV
;[6%311] 18-JUN-81 JEF
; DBINFO CANT FIND SS NAME IF ITS GREATER THAN 25 CHARS
; MODULES: INFCOM.MAC
;[6%312] 18-JUN-81 JEF
; IN MEM.UNL -- TEST OF R0 (NEVER INITED) TO DETERMINE IF
; A DRI (DELETED REC INVOLVED) !!! CHANGE R0 T0 R1 AND DRI TO RNM
; MODULES: DBSET
;[6%313] 18-JUN-81 JEF
; TURN OFF JOURNALING IF DBMEND AND /AID/NOAID/PRE/NOPRESERVE
; INSERT CALL TO JMNON$
; MODULES: MNDIDB
;[6%314] 23-JUN-81 HRB
; IF AREAS ARE OPEN EXCLUSIVE AND JOURNAL IS OPEN FOR
; SHARED USE, THE JOURNAL WILL NEVER BE LOCKED!
; MODULES: DBMLOK
;[6%315] 23-JUN-81 JEF
; DBINFO - MAPSTR DOES THE WRONG THING WHEN FEED A LOWED CASE
; STRING AND CONVERSION IS 7 TO 6BIT -- CAUSES rngtst TO CONVERT
; TO 2.. INSTEAD OF rngtst.DBI WHEN DEFAULTING /APP OR /SU
; MODULES: INFCOM
;[6%316] 24-JUN-81 JEF
; MAKE EXPLICIT TRANS USAGE MODE OVER-RIDE IMPLICIT
; MODULES: DDLSKE
;[6%317] 24-JUN-81 JEF
; FIX 6%313 THE CALL TO JMNON$ BOMBS AP -- SO SAVE/RESTORE IT
; CAUSES EXCEPT 358 -- ARG ERROR
; MODULES: MNDIDB
;[6%320] 25-JUN-81 HRB
; MAKE SURE THAT PAGES CREATED BY CALC FIND FAILURES ARE
; NOT ACTUALLY CREATED IN THE DBS FILES.
; MODULES: DBKIO DBMIO DBMLOK
;[6%321] 25-JUN-81 JEF
; DBMEND DOES NOT RELEASE ALL LOCKS WHEN /AID/TMP/NOAID/NOTMP
; MODULES: MNDIDB
;[6%322] 29-JUN-81 JEF
; RELEASE 5 BUG -- FORK TO FILE PMAP NOW NEEDS PM%WR SET.
; MODULES: MNDMAN
;[6%323] 6-JUL-81 JEF
; DBMEND DOES NOT ALWAYS RELEASE LOCKS -- TOO MANY USES OF
; MND.BIT(SS) -- CREATE PSW.NRL DONT RELEASE LOCKS ON
; DELETE TRANS
; MODULES DBSDCL MNDIDB DBLEAV DBTRAN
;[6%324] 7-JUL-81 JEF
; DBMEND /CLOSE AREANAME -- CODE NOT COMPLETED
; ALSO A BUG, ARGOPEN-1 (IE ARG CNT) BOMBS JRNERC
; NO SPACE WAS RESERVED FOR THE CNT
; MODULES MNDCOM MNDUTL
;[6%325] 13-JULY-81 JEF
; COBOL PROGRAMS WITHOUT ANY DBMS "CODE" IN IT BLOW UP WITH
; ILL MEM REF AND ZERO CORE. DBPST$ DOES NOT CHECK TO SEE IF
; ANY CLEANUP IS NEEDED BEFORE RUNNING WILD. JUST RET IF NO SS.
; MODULES: DBMLOK
;[6%326] 14-JUL-81 JEF
; DBMEND DOES NOT RELEASE SCH/LOK/JRN JFNS ON /EXIT
; SO DOIT VIA DBPST$ IN DBMLOK
; MODULES: MNDDCL MNDCOM MNDIDB
;[6%327] 15-JUL-81 JEF
; INITIALIZE R1 BEFORE CALL ABT.PAG (SEE 6%320)
; MODULES: DBMIO
;[6%330] 17-JUL-81 JEF
; UNPRESERVED TMP FILES MUST GET A NEW GENERATION FOR EACH OPEN
; CHANGE GTJFN FLAG FROM GJ%NEW TO GJ%FOU
; MODULES: DBMOC
;[6%331] 17-JUL-81 JEF
; CLUSTER BUG - BEFORE DOING A CLUSTER READ ZERO PAG NMBR IN
; BUFFER HEADER SO WE DONT NOT FIND ANY RECORDS ON THAT PAG.
; MODULES: DBKIO
;[6%332] 19-JUL-81 JEF
; DBMEND /ABORT:MESSY THE ADMINISTRATION KEY DOESNT WORK
; CODE NOT WRITTEN
; MODULES: MNDCOM
;[6%333] 21-JUL-81 JEF
; MNDMANY'S CHKEXC DOES A CLOSEF ON THE LOK FILE WITH THE LOCK
; PAGE STILL MAPPED -- GET A OS ERROR -- WHICH IS IGNORED...!
; CALL CLOLKF (CLOSE LOK FIL) INSTEAD
; MODULES: MNDMAN
;[6%334] 21-JUL-81 JEF
; /DELETE TRANS AND THEN /PRESERVE ALL = (938) DOR
; TOO MANY OPEN ON THE .JRN FILE
; DO A JCLO.OS (CLOSE THE JRN) AT SAME PLACES AS EDIT 313
; MODULES: MNDIDB
;[6%335] 25-JUL-81 JEF
; CREATE A NEW MACRO TFOPERR TO RELEASE JFN ON TMP/AID FILE
; REPLACE FOPERR WITH TFOPERR AT OPNTO2 (OPENF) FAILURE
; IM NOT SURE WHAT TO DO WITH THE DBS FILE AT THIS POINT
; MODULES: DBMOC
;[6%336] 25-JUL-81 JEF
; GET RID OF SPURIOUS X38 (DOR) DUP OP ON RES PROBLEMS
; FREE.P UNINTENTIONALLY (?) ZEROES SS FLAGS
; MODULES: DBOTSI
;[6%337] 27-JUL-81 JEF
; DBMEND DOES NOT INIT THE OPTION REGISTER ON THE /DISPLAY COMMAND
; HENCE YOU ALWAYS GET ALL OPTIONS BUT RUNUNITID AND HEADERS
; MODULES: MNDCOM
;[6%340] 27-JUL-81 JEF
; ANOTHER ADDITION TO EDIT 326. CLOSE THE SCH FILE ALSO
; MODULES: DBMLOK SCHIO
;[6%341] 28-JUL-81 JEF
; IF VERB IS DELETE AND MEM.UNL IS CALLED TO UNLINK AN UNLINKED
; RECORD JUST RETURN AND DONT GIVE EXCEPTION RNM.
; MODULES: DBSET
;[6%342] 28-JUL-81 JEF
; HAVE REMOVE ALL GIVE THE CORRECT ERROR CODE WHEN THERE ARE NO
; OPTIONAL SETS TO REMOVE A REC FROM -- IE RNR NOT RNM
; MODULES: DBREM
;[6%343] 29-JUL-81 JEF
; SYMP: CANT OPEN AREA - SOME HAS THE JRN LOK
; SCHEMA SET PSW.VER (IMG/CMND) INSTEAD OF PSW.TRA (IMG/TRAN)
; MODULES: DDLDMC DDLSKE
;[6%344] 29-JUL-81 JEF
; DEFAULT THE CLUSTER SIZE TO ALL APPLICABLE AREAS
; NOTE THAT THE LAST CLUSTER SIZE GIVEN OVERIDES PRECEDING ONE
; MODULES: DDLSKE
;[6%345] 9-AUG-81 JEF
; DBMEND SOMETIMES GET CORBOV ERROR FROM FREE.P
; DAT.SS IS NEVER INITED TO ZERO - ONLY A PROBLEM WHEN YOU RESAVE
; DBMEND (WITH SOME PATCHES IN IT?)
; MODULES: MNDCOM MNDIDB
;[6%346] 3-AUG-81 JEF
; MNDCOM IS PASSING GARBAGE ARG TO DOPNE (JRN) IF ON-LINE MODE
; MODULES: MNDCOM
;[6%347] 3-AUG-81 JEF
; LOC MODE OF OWNER PSEUDONYM SCREWED UP
; DDLSKE'S ROUTINE PSCUHK USES WRONG ARG LIST TO COPSTR
; MODULES: DDLSKE
;[6%350] 4-AUG-81 JEF
; SOME OF THE NEW V6 ENCL SYNTAX DID NOT REQUIRE EOS (.) WHICH
; CAUSED WHOLE STATEMENTS TO BE IGNORED (TILL THE NEXT ".").
; MODULES: DDLDMC
;[6%351] 4-AUG-81 JEF
; SYM: KIA X15001 DUE TO LEFT HALF OF PAG BEING ZAPPED BY SETUP
; OF CALL TO ALC.LN
; MODULES: DBSET
;[6%352] 5-AUG-81 JEF
; EXTRANEOUS BIND GENERATED BY ACCESS PROCESSOR FOR BUFFER
; DATANAME.
; MODULES: DMLVOK
;[6%353] 6-AUG-81 HRB
; THE GHOST OF DBMS PAST RETURNS TO SOLVE TWO PROBLEMS:
; 1) OCCASIONAL BAD PERFORMANCE
; 2) FAILURE TO RELEASE LOCK PAGE ON STACK OVERFLOW
; MODULES: DBMLOK
;[6%354] 9-AUG-81 JEF
; CHECK FOR DEAD RUNUNITS AT CLKLK$ SO DBMEND CAN CLAIM THE LOCKS
; AND NOT SLEEP FOREVER WAITING FOR SOME DEADER TO RELEASE THEM
; MODULES: DBPORT DBMLOK MNDMAN
;[6%355] 7-AUG-81 JEF
; IF REC NAME IS MISPELLED IN ASSIGN...RANGE OF mispelt-rec
; SCHEMA DOES DDLSAF WHICH IS NO HELP. GIVE BETTER MESSAGE.
; MODULES: DDLSKE DDLMES
;[6%356] 11-AUG-81 JEF
; AREA.DBS PAGES GET CREAMED VIA CONFUSION OVER LK.MAX(SS).
; INITIALLY IT IS THE MAX MUNBER OF LOCKS.
; LATER IT IS THE SIZE OF THE LOCK PG.
; ALSO TESTING THE WRONG STATE OF THE WRONG FLAG
; MODULES: DBMLOK MNDMAN
;[6%357] 12-AUG-81 JEF
; /DELETE TRAN AFTER /FO ALL /CL ALL GEVES A 938
; AT $DELTRA CHECK TO SEE IF JRN IS OPEN BEFORE TRYING TO OPEN IT.
; MODULES: MNDCOM
;[6%360] 12-AUG-81 JEF
; DBMEND /EXIT WIPES OUT CORE. ACTUALLY ABOCLS DOES IT.
; IF NO LOK PAGE EXIST ITS PMAP WILL UNMAP PAGE 0
; MODULES: DBMLOK.MAC
;[6%361] 17-AUG-81 JEF
; DBMEND LOOPS FOREVER IF /DE T AND THERE IS NO JOURNAL
; IF J1.LIX(JLP) = 1 THEN THERE IS ONLY THE CREATED LABEL PG
; IN THE JOURNAL
; MODULES: DBJOUR
;[6%362] 18-AUG-81 JEF
; AVOID ILL MEM REF WHEN SBIND IS CALLED MULTIPLE TIMES
; CONTENTS OF LEFT SIDE OF X IS PSW-FLAGS AFTER EBIND IS CALLED
; SBIND'S CALL TO SCH.INIT MUST HAVE X(LEFT)=0 OR = SAVBAS(SS)
; SO ALWAYS JAM LEFT OF SAVBAS INTO LEFT OF X BEFORE SCH.INI CALL
; MODULES: DBBIND
;[6%363] 24-AUG-81 JEF
; GULP -- PASS BACK FINS6 RANGE KEY INFORMATION IN ERROR-DATA
; 0 = MATCH 1 = RANGE MATCH 2 = NO MATCH
; USE RK.ERRDAT(X) IE NON ZERO IF A RANGE KEY
; MODULES: DBKITM DBSET DBFIND DBSDCL
;***** V6 THIRD FIELD TEST TAPE ON 21-AUG-81 *****
; [ LAST-EDIT ]
SUBTTL DBCS CONTEXT SWITCHES
;;; I AM NOT SURE IF THERE IS A "CORRECT" WAY TO DO THIS OR IF THIS IS THE CORRECT WAY
;;; BUT THE VARIOUS DBCS-USING UTILITIES DO NEED CERTAIN TAILORED MODULES
;;; IN PARTICULAR, GATE, PORT, & LEAVE
;;; SO, IN THE INTEREST OF MINIMIZING REDUNDANCY
;;; EACH OF THESE (AND EVENTU OTHERS?) WILL BE PREFIXED BY THIS MACRO
DEFINE INIUTIL<
IFNDEF DBINFO,<DBINFO==0>
IFNDEF DBMEND,<DBMEND==0>
IFNDEF V3DBMS,<V3DBMS==0>
IFNDEF DBCONV,<DBCONV==0>
DBCS==1
IFN DBINFO!DBMEND!V3DBMS!DBCONV,<DBCS==0>
IFN DBINFO,<SEARCH INFDCL>
IFN DBMEND,<SEARCH MNDDCL> ;[6%41] V6 uses MNDDCL not MNDSYM
IFN V3DBMS,<SEARCH VTVDCL>
IFN DBCONV,<SEARCH CNVDCL>
>
SUBTTL MISCELLANEOUS SYMBOLS
;;; REC TYP ID'S--MACRO DEFINED IN SCHIO
EXTERN TID.AL,TID.CL,TID.DL,TID.FL,TID.IL,TID.ML,TID.VL,TID.YL ;[6%20]
EXTERN TID.OL,TID.RL,TID.SL,TID.UL,TID.WL,TID.TL,TID.EL,TID.KL
;;; SIMILARLY, THE SET TYPES ARE DEFINED= $ OWNER . MEM
EXTERN $S.A,$S.R,$S.U,$S.E,$S.Y ;[6%20]
EXTERN $R.D,$R.W,$R.O,$R.M
EXTERN $A.W,$D.C,$D.T,$O.M,$O.Y,$M.V,$V.C,$E.K ;[6%20]
; KEY VALUES ASSOCIATED WITH KEYWORDS PASSED AS ARGUMENTS TO DBCS
; THIS IS MASTER DEFINITION -- REFFED EVERYWHERE ELSE
DEFINE KEY(KEYARG),<[$$'KEYARG]> ;MECH OF GETTING AT THEM
HALF==777777 ;NEED HALF WORDS OF THESE GUYS OCCAS
$$ONLY==-^D10
$$SELECT==-^D11
$$FIRST==-^D12
$$LAST==-^D13
$$PRIOR==-^D14
$$NEXT==-^D15
$$DUPLIC==-^D16
$$ALL==-^D17
$$AREA==-^D18
$$RECORD==-^D19
$$SET==-^D20
$$UPDATE==-^D21
$$RETRIEV==-^D22
$$RUNUNIT==-^D23
$$PROT==-^D24
$$EXCLUSIVE==-^D25
$$CURR==-^D26
$$SHARED==-^D27
$$JOURNAL==-^D28
$$TRANSACTION==-^D29
;;; MISC SYMBOLS PART OF DATA BASE PROCESSING
GREG (BAS,15) ;SCHIO HAS NO STATIC LOW SEG
SKECHN==0
PAGWID==^D26
LINWID==^D35-PAGWID
DPVMOD==1000 ;[6%27] DIR PAG FLAG TO LIVE WITH PAG# IN BH.PAG(TBUF)
SYSNMID==1
SYSTID==40 ;RESERVE THESE FOR SYSTEM USE
TID.ASR==1 ;TID OF AREA-STATUS REC
TIDMAX==777 ;REC TYP ID IS 9 BIT FIELD
DOFFMAX==MAX.XB ;RESTRICT TO THIS VAL PURELY FOR CONVEN...SHOULD BE AMPLE IS 120
USEMAX==20 ;FOR DYN ALLOC OF USE CONDITIONS
TEXMAX==^D100 ;ALLOCATE 20 WORDS A SHOT
LOKMAX==5 ;PRIVACY KEYS/LOCKS, SCAN 5 CHARS ONLY
SIZ.MSK==3 ;[6%19] NUMBER OF MASK WORDS
AREAMAX==<SIZ.MSK*^D36>-1 ;NUM. AREAS REP'ABLE IN BITS AVAIL
;(NEED ONE BIT FOR TABLE RESOURCE)
STKPFRM=^D512 ;[6%22] SIZE OF PAGE STACK FRAME
SHORT==6 ;FORTRAN NAMES MAX LEN
NAMLEN==^D30 ;USUAL MAX NAME LEN
MAXFS20=^D120/CPW
MAXTS20==^D45/CPW ;ALWAYS OF FORM DSK:NAME-ONLY.TMP
MAX.SS==10 ;AT RUN-TIME FOR SETDB/UNSET (RIGHT PLACE?)
FOPSIZ==7 ;FILOP ARG BLK SIZE
TIOSIZ==6 ;[6%27] L/E BLK SIZE FOR TMP AREAS
DF.POLL==^D100000 ;[6%34] DEFAULT POLL RATE IN MSEC
DF.THRESH==^D50 ;[6%34] DEFAULT THRESHOLD IN PAGES
SUBTTL CERTAIN SCHEMA FIELDS CAN TAKE ON A RANGE OF VALUES
;;; USAGE MODES -- EVEN VALS=RETR /ODD=UPDATE
UM.COR==0 ;CONCUR RETR
UM.COU==1 ;CONC UPDATE
UM.PRR==2 ;PROT RETR
UM.PRU==3 ;PROT UPD
UM.EXR==4 ;EXCL RETR
UM.EXU==5 ;EXCL UPDATE
UM.UDED==6 ;EXCLUDED...FOR DBMEND
; *** THE INDIV CASES
UM%OIP==1B0 ;SIGN BIT INDICS OPEN IN PROCESS
UM%TEMP==1B1 ;AREA OPEN FOR TEMP USAGE
UM%ASR=1B2 ;INDIC (DURING OPEN) THAT ASR ACTU UPDATED
UM%CON==1B3
UM%PRO==1B4
UM%EXCL==1B5
UM%RETR==1B6
UM%UPD==1B7
UM%OTH==1B8 ;DBMOC DETERM THAT OTHER R-U CURR HAVE THE AREA OPEN
UM%DIODE=1B9 ;ONE-DIRECTIONAL UM, IE. ONLY CHECK IF SOME ONE ELSE IS UM%CON
UM%AID=1B10 ;[6%27] THERE WAS AN AID FILE REQUEST
UM%XCLU==1B11 ;[6%224] DON'T EVER WRITE IN THIS AREA (DBMEND)
;;; LOCATION MODES
LM.NONE==0 ;NOT POSSIBLE
LM.DIR==1
LM.VIA==2
LM.CAD==3 ;CALC, DUPS ALLOWED
LM.CAND==4 ;CALC, DUPS NOT ALLOWED
;;; [6%19] LOCKING CODES
LK%ARE==1B35 ;USE AREA LOCKS
LK%PAG==1B34 ;USE PAGE LOCKS
LK%RET==1B33 ;LOCK FOR RETRIEVAL (SHARED)
LK%UPD==1B32 ;LOCK FOR UPDATE (EXCLUSIVE)
LK%UPG==1B31 ;UPGRADE LOCK (SHRD TO EXCL)
LK%OPN==1B30 ;LOCK FOR OPEN (USE ENQ/DEQ)
LK%JRN==1B29 ;LOCK FOR JOURNAL
LK%NRL==1B28 ;[6%40] DON'T RELEASE SHARED LOCK
; UNTIL CLOSE TRANSACTION
LK%CBH==1B27 ;[6%142] CLEAR BUFFER HEADER (BH.PAGE)
; AFTER COPYING PAGE NUMBER.
; SET TO INDICATE THAT THE
; BUF. HDR. IS MERELY BEING
; USED TO PASS ARGUMENTS
LK.WAIT==500 ;TIME TO WAIT FOR A LOCK (MILLI-SECS)
;;; SET MEMBERSHIP
SH.AUT==0 ;MEMBERSHIP AUTOMATIC
SH.MAN==1B35
SH.MND==0 ;MANDATORY
SH.OPT==1B34
SH.AM==0
SH.MM==1
SH.AO==2
SH.MO==3
;;; SET ORDERING
OR.NONE==0
OR.1ST==1
OR.LAST==2
OR.NEXT==3
OR.PRIOR==4
OR.SORT==5 ;MEANS NO PHRASE FOLLOWS "ORDER SORTED"
OR.WIN==6 ;"WITHIN" PHRASE FOLLOWS
OR.DBK==7 ;DBKEY PHRASE FOLLOWS
OR.DUP==10 ;DUPS PHRASE FOLLOWS
SRTORD==4 ;NUM OF SORT ORDERINGS
;;; KEY-COMPARISON CONTROL
KC.USER==0 ;DATA FIELDS
KC.KED==1 ;DBKEY OF ACTUAL RECORD
KC.KEX==2 ;DBKEY OF RECORD AS ENCODED IN INDEX BLK
KC.TID==3 ;TID/RECNAME OF RECORD (FROM LINHDR IN EFFECT)
KC.TIX==4 ;TID/RECNAME AS ENCODED IN INDEX BLK
KC.MAX=4
;;; CONTROL OF ORDERING OF DUP RECS
DU.ARB==0 ;ORDER THEM ANY OLD WAY
DU.1ST==1 ;PUT EM FIRST
DU.LAST==2
DU.NOT==3 ;DONT ALLOW
;;; DATA-NAME KEY TYPES
KEY.ASC==1B35
KEY.DESC==1B34
KEY.RANG==1B33 ;IS RANGE KEY
KEY.CALC==1B32
KEY.NORD==1B31 ;ON IF DATUM CTLS MEMBER NOT IN CURR SS
KEY.SOR=1B30 ;IN EFFECT, IMAGE OF VIA.SOR
;;; MEMBER USAGE CTL IS VIA/FOR:
VIA.DIR==1 ;DITTO FOR LM = DIR
VIA.CALC==2 ;DITTO FOR LM = CALC
VIA.MEM==3 ;VIA BLK FROM SOS THRU MEMBER (IE. LM OF OWNER VIA)
VIA.SOR==4 ;THIS VIA BLK ENCODES SORT KEYS
;;; WHAT IS SET OCC SELECT
SOS.CUR==0 ;0 SINCE THE DEFAULT ALSO
SOS.LMO==1
;;; DATA TYPE CONSTANTS
;;; PRECISION/ SCALE CONSTANTS
;;; X=FIXED L=FLOAT B=BIN D=DEC R=REAL C=COMPLEX
; *** BIT COMPONENTS
TY.FLO==1B35
TY.BASE==1B34
TY.PLEX==1B33
; *** ACTUAL POSSIBLE TYPES
DT.STRUC==0 ;NO DATA TYPE MEANS SIZE PHRASE
DT.DBK==^D9
DT.D6==^D10
DT.D7==^D11
DT.D9==^D12
DT.MAX=^D12
ABSXBR==^D35
ABSXDR==^D10
ABSLBR==^D27
XBR.1M==^D35
XBR.1D==^D10 ;SAME THING IN DECIMAL PREC
XBR.2M==^D71
XBR.2D==^D18 ;DITTO BEFORE
XDR.MAX==^D18
;;; THE COMPLEX PREC CHARAS CAN BE DET FROM THE FLOAT COMPON
LBR.1M==^D27
LBR.2M==^D62
SUBTTL EXECUTION-RELATED CONSTANTS
;;; CENTRALLY DEFINE THE SET OF USER ENTRY CLASSES, & CONCOMITANT WITH THAT
;;; EACH VERB (CODASYL STAND) AND EXPLIC ENTRY PT IS GIVEN A CODE
DEFINE VERBS.<
;;; KLUDGE TO GET EXACTLY 2 WORDS PER ENTRY
VERB. (HOST) ;LET THESE HAVE STATUS CODE OF ZERO
VERB. (CLOSE)
VERB. (DELETE)
VERB. (FIND)
VERB. (USER) ;[6%46] FORMERLY "FREE"
VERB. (GET)
VERB. (UNUSED) ;[6%46] FORMERLY "KEEP/RETAIN"
VERB. (INSERT)
VERB. (MODIFY)
VERB. (OPEN)
VERB. (OPNT) ;[6%21] USE UNUSED SLOTS
;[6%21] VERB. (UNUSED)
VERB. (REMOVE)
VERB. (STORE)
VERB. (CLOTR) ;[6%21]
;[6%21] VERB. (UNUSED)
VERB. (DELTR) ;[6%21]
;[6%21] VERB. (UNUSED)
VERB. (BIND)
VERB. (CALL)
>
DEFINE VERB.(TEXT.)<
IFDEF XSTAT.,<
GETLEN <TEXT.>
IFE LEN.-3,<ASCIZ/TEXT. />
IFE LEN.-4,<ASCIZ/TEXT. />
IFE LEN.-5,<ASCIZ/TEXT. />
IFE LEN.-6,<ASCIZ/TEXT. />
IFE LEN.-7,<ASCIZ/TEXT. />
IFE LEN.-8,<ASCIZ/TEXT. />
>
IFNDEF XSTAT.,<FIELD(C.'TEXT.)>
>
VERBS.
BLKSIZ (CODE.V) ;NOT A TRUE SIZE BUT...
;;; SUPPRESS CLAUSE CODES AND BITS
SUP.ALL=$$ALL&HALF
SUP.REC==$$RECORD&HALF
SUP.AREA==$$AREA&HALF
SUP.SET==$$SET&HALF
R.SUP==1B35
A.SUP==1B34
S.SUP==1B33
;;; FIND3 (POSITIONAL) CODES
F3.OFF==1
F3.1ST==$$FIRST&HALF
F3.LAST==$$LAST&HALF
F3.PRIOR==$$PRIOR&HALF
F3.NEXT==$$NEXT&HALF
;;; CLOSE CODES
CL.JRN==$$JOURNAL&HALF
CL.RUN==$$RUNUNIT&HALF
CL.AREA==$$AREA&HALF
CL.ALL==$$ALL&HALF
;;; DELETION CODES
DL.ALL==$$ALL&HALF
DL.ONL==$$ONLY&HALF
DL.SEL==$$SELECTIVE&HALF
DL.SLF==0 ;DELETE JUST SELF, THE IMPLICIT OPTION
;;; OPEN-AREA CODES
OP.PROT==$$PROT&HALF
OP.EXCL==$$EXCL&HALF
OP.RETR==$$RETR&HALF
OP.UPD== $$UPDA&HALF
OP.CON== 0 ;THE IMPLIC OPTION
OP.JRN==$$JOUR&HALF
OP.ALL==$$ALL&HALF
SUBTTL EXECUTION-CONTROLLING FLAGS (SOME DEFINED BY SCHEMA)
;;; FLAG VALUES FOR LEFT HALF OF PORT VECTOR (IE. VFLAGS(X))
; *** IMPORTANT: THESE 3 ACT. FLAGS RESIDE WITH THE VAC. FLAGS IN ACT.XC(SS) AS DETERMINED BY THE USER'S DMCL ENTRIES
; *** BUT THESE HAVE NO IMAGE IN EV.FLAG BUT THE VAC. ONES DO
; *** IN PT OF ACT, EV.FLAG PLACES TOT DIF MEANINGS ON B30-B32
ACT.UAN==1B32 ;UNANTICIPATED EXCEP, EVERYTHING BUT 307=ESA & 326=NRS
ACT.ALL=1B31 ;ANY EXCEPTION
ACT.SYS==1B30 ;THE SYSTEM ERROR (APPROX. 40+)
ACT.JRN==1B29 ;[6%6] SUPPORT OF NOTE JOURNAL
; *** END IMPORTANT
; *** THE DMCL CAN DEFINE ACTIONS FOR EXCEPTIONS ON A VERB BASIS
VAC.UPD==1B35 ;ERROR DURING AN UPDATE VERB
VAC.CALL==1B34 ;ERROR DURING AN EXPLIC CALL (EG. JSTRAN)
VAC.BIND==1B33 ;ERROR DURING BINDING
VACBITS==VAC.UPD!VAC.CALL!VAC.BIND
; *** OTHER VERB-BASED SWITCHES
SCH.IO==1B32 ;TURNED ON TO INDIC X/BAS KLUDGE INVOLVED
OK.NOSS==1B31 ;AT MOMENT SBIND ONLY
OK.SUS==1B30 ;OK TO ENTER AT THIS EP EVEN THO SYS UNDEF STATE
CRU.MUST==1B29 ;CERTAIN VERBS REQUIRE THAT CUR.RU HAVE A VALUE
JR.OVU==1B28 ;ENTRY IS OTHER THAN A VERB UNIT & TOUCHES JOURNAL
;IE. JRDATA/JRTEXT/JSTRAN/JETRAN
;ADDIT, IN DBPORT IT IS TAKEN TO MEAN ANY ENTRY THAT CONTEX ENTERS THIS STATE
;EG. ANY VERB IF NOT JOURNALING
ENQ.J==JR.UPD ;DEFINE AS SAME THING
JR.UPD==1B27 ;DOES THE VERB UPD J (& DATA BASE)
ENQ.X==1B26 ;NEED TO ENQ EXCL IS EQUIV TO JR.UPD EXCEPT
;WHEN (OP/CL) PROCESSING J LAB ONLY
ENQ.SH==1B25 ;ENTRY DOES NO UPDATES BUT DOES ACCESS DB
ENQ.ALT==1B24 ;(EG. OPEN) ENTRY CAN ALTER SIMULT OF R-U, SO PLAY SAFE
;IE. STRONGER THAN ENQ.X
; ENQ.NO==NOT(ENQ.X&ENQ.SH) ;IE. A SERVICE ROUTINE SUCH AS STATS$
; *** NO MORE ROOM IN THIS FLAG VECTOR !!!
;;; INTRA-VERB SWITCHES...
;;; DEFINE LEFT-SIDE SS AS THE FLAG REGISTER WITH THESE FLAGS (18 MAX):
; *** ALSO... LET B0-2 BE COMMAND SPECIFIC (REFFED ONLY IN XXXX$ ENTRY PTS)
; *** USER-RECORD-COMMANDS
LINK.BIT==1B0 ;AT LEAST ONE ACTUAL LINKING OPER (IE.INS/REM) IN THIS VERB
INS.BIT==1B1 ;IS CALL TO CURN.U NECES
CA.BIT==1B2 ;NECESSARY TO (RE)CALC THIS REC BECAUSE ITS KEY HAS CHANGED
; *** BIND CLASS
NAB.BIT==1B0 ;NOOP ACTUBIND (IE. FOR DBINFO VIA SSBIND)
OSS.BIT==1B1 ;GUARAN DON'T PUNISH WRONG SUB-SCH IF BIND FAILURE
; UNUSED==1B2
; *** OPEN CLASS
XCLU.BIT==1B0
FOPN.BIT==1B1 ;ALLOW FH.STAT IN ASR TO BE -1
JRO.BIT==1B2 ;[6%41] Open journal read only
; *** CLOSE CLASS ;[6%127]
ITR.BIT==1B0 ;[6%127] INCOMPLETE TRANSACTION
; REMAINS IN THE JOURNAL
; UNUSED==1B1
; UNUSED==1B2
; *** CALL CLASS ;[6%41]
TRC.BIT==1B0 ;[6%41] TRACE TRANSACTIONS
; UNUSED==1B1 ;[6%41]
; UNUSED==1B2 ;[6%41]
; *** THOSE NOT COMMAND-SPECIFIC
RB.BIT==1B3 ;FORCE TMP.RB TO BE UPDATED
CNEX.BIT==1B4 ;HAVE USED A CANON-NEXT PTR IN GDETTB
NORD.BIT==1B5 ;SET IN DBKITM TO INDIC A CTLER OF INVIS SORTED-SET MODDED
JRV.BIT==1B6 ;JOURNALING BY VERB
BMO.BIT==1B7 ;BUFFER HAS BEEN MODDED
DMO.BIT==1B8 ;DSK HAS BEEN MODDED
XWX.BIT==1B9 ;IF ON AT DBSABO, MEANS HAVE GOTTEN EXCEPTION WHILE PROC EXCEP
UKY.BIT==1B10 ;USER-INTRODUCED DATA BASE KEYS MUST BE SPECIAL CASED
UCR.BIT==1B11 ;UNABLE TO COMPL RESTOR IF ON WHEN EXCEP OCCURS
VRO.BIT==1B12 ;[6%101] THIS VERB IS RETRIEVAL
;...ONLY
MND.BIT==1B13 ; [6%41] Called from DBMEND
DEQ.BIT==1B14 ;THIS VERB MUST CALL IU.DEQ IF ON IN DBLEAV
EOF.BIT==1B15 ;SET WHEN A PAGE ACCESS (IN GET.OS) IS BEYOND EOF
DFT.BIT==1B16 ;[6%19]INDICATES DEFAULT TRN OPN
NJE.BIT==1B17 ;DON'T WRITE TRAILER IN JRN
;;; SUB-SCHEMA STATUS WORD (IE. INTER-VERB SWITCHES)
; *** PERM LOC IS PSW(SS) (IE. PROGRAM-STATUS-WORD PER SS)
; *** RIGHT SIDE ONLY, IE. JUST 18 SWITS AT MOST
; *** INTRA-VERB LOC IS THE LEFT-SIDE OF REG X
PSW.TR==1B35 ;CHKPTING FOR TRANS ONLY
PSW.VER==1B34 ;CHKPTING PER VERB
PSW.CBUU==1B33 ;CANT BACKUP UPDATES
PSW.SUS==1B32 ;SYS IN UNDEF STATE (EG. AFTER ERROR AND CBUU SET)
PSW.MTA==1B31 ;MTA JOURNAL
PSW.JOSH==1B30 ;JOURNAL RETAINED SHARED
PSW.LIM==1B29 ;ACTIVE TRANSAC LIM
PSW.TAC==1B28 ;ON IF "BETWEEN" JSTRAN&JETRAN
PSW.RESH==1B27 ;ONE OR MORE AREAS OP IN RETR OR UPD U-M
;IE. ANY "VULNERABLE" SHARED AREAS (INCL J)
PSW.UPSH==1B26 ;1 OR MORE AREAS OPENED PRU OR COU
;IE. YOUR UPDATES CAN AFFECT OTHER R-U
PSW.ENQ==1B25 ;TURNED ON/OFF ONLY BY IU.ENQ AND IU.DEQ
PSW.CNV==1B24 ;INDIC DEALING WITH CONVERSION DB...NAME.??N
PSW.RAN==1B23 ;[6%101] RETRIEVAL ACCESS TO
; ...NON-EXISTENT PAGES ALLOWED
; ... (BUT NOT PAGE CREATION)
PSW.JRET==1B22 ;J OPENED ONLY FOR RETR
PSW.EAV==1B21 ;ENVIRONMENT ALTERING VERB(OPEN,CLOSE)
PSW.AFE==1B20 ;[6%126] AID FILE EMPTY. SET WHEN AID
; FILE CREATED CLEARED ON FIRST
; CALL TO PUT.RDY
PSW.NRL==1B19 ;[6%323] SET BY DBMEND /DEL TRAN
; MEANS DONT RELEASE LOCKS AT CLODEF
SUBTTL GENERAL STRUCTURES OF THE DATA BASE SYSTEM
;;; FORMAT OF AN AREA STATUS REC (ALWAYS 1STP/1 OF AREA)
;;; STATUS REC IS IN EFFECT FILE(AREA) HEADER
FIELD (FH.STAT) ;0 IF OK, "UNDEF" IF EDITS IN PROGRESS
BYTES (FH,<<FLG,^D18>,<UNU,^D18>>) ;[6%26]
FH%AID==1B17 ;[6%27] AREA WANTS AN AID FILE
FH%PRS==1B16 ;[6%27] OPEN UPDATE NOT SUPERCEDE
;[6%27] CLOSE BUT DONT DELETE TMP FILE
FH%NPR==FH%AID ;[6%27] ALL FLAGS BUT "PRS"
BLKSIZ (SIZ.FH)
;;; FORMAT OF A PAGE'S PAGHDR
FIELD (PH.NUM) ;PAG NUM OF THIS PAGE
BYTES (PH,<<HUSE,^D18>,<1STF,^D18>>)
;HUSE IS HIGHEST LIN NUM USED SO FAR
;THE (1STF)TH WORD OF THE PAGE IS THE 1ST TO CONTAIN NO DATA
BLKSIZ (PH.CALC) ;(FIXED) SIZED IS ALSO OBV OFFS OF THAT WHICH FOLLOWS: 0-N CALC BUCK WORDS
;;; FORMAT OF A LINE HDR
WORD (LH,<<RSIZ,^D12>,<TID,^D9>,<OFFS,^D15>>)
;;; FORMAT OF A DATABASE KEY
WORD (DBK,<<SIGN,1>,<PAG,PAGWID>,<LIN,LINWID>>)
SUBTTL SORTED-SETS
;;; CONSTANTS
TID.XB==2 ;UPPER LEVEL INDEX BLK
TID.XL==3 ;LEAF INDEX BLK (PTS AT DATA RECORDS)
TID.X6L==4 ;[6%20] VERSION 6 THIS BUOY HAS OWNER PTR
MAX.XB==^D120 ;INDEX BLKS ARE MIN(120,16*XNSIZ) BIG
FAU.XN==^D16 ;WILL TRY TO PUT 16 NODES IN INDEX BLK
MAX.XL==10 ;MAX SIZ OF INTERVAL BETWEEN "BUOYS"
; *** FOR MOMEMT INDEX BLK HAS NULL HDR
HDR.XB==0
;;; FORMAT OF A KEY-NODE IN AN INDEX BLK
FIELD (XN.SON) ;PTS AT INDEX-BLK/DATA-REC AT NEXT LOWER LEVEL
BLKSIZ (XN.KEY) ;ALSO 1ST WORD OF VAR LEN FIELD
;;; FORMAT OF A KEY-LEAF (OR "BUOY")
FIELD (XL.NEXT)
FIELD (XL.PRIOR)
FIELD (XL.CNT) ;NUM OF DATA-RECS IN THIS INTERVAL
SIZ.XL==SIZ.X6L-1 ;[6%20]
FIELD (XL.OWNER) ;[6%20]
BLKSIZ (SIZ.X6L) ;[6%20]
SUBTTL DAEMDB RELATED SYMBOLS
;[6%34] DEFINE DABNAME<ASCIZ/SYSTEM-DAEMDB/> ;GIVE STANDARD NAME TO DAEMDB PID
;;; DAEMDB ACTION DRIVING CODES
OFFS.==10 ;MAKE COINCIDENCE SOMEWHAT LESS LIKELY
FIELD (DADOPEN)
FIELD (DADCLJ) ;CLOSE-J FLUSHES ALL FROM JT
FIELD (DADCLRU) ;CLOSE-RU JUST COPS THRU JP.BIX-1
BLKSIZ (CODAD)
;;; ERROR CODES FROM DAEMDB
FIELD (DAXOK) ;SUCCESSFUL RETURN
;[6%34] FIELD (DAXNAV) ;NOT-AVAILABLE (SHUTDOWN ALREADY GIVEN)
;[6%34] FIELD (DAXNOM) ;MAGTAPE COULD NOT BE GOTTEN
;[6%34] FIELD (DAXOJT) ;UNABLE TO OPEN JT FILE
;[6%34] FIELD (DAXIDC) ;IMPROPER DEVICE CHARAC AFTER ASSIG/DEFIN
FIELD (DAXNQD) ;NO QUASAR OR DAEMDB
FIELD (DAXMIX) ;DBCS SOFTWARE ERROR DURING MAGTAPE INIT
FIELD (DAXAJD) ;ALREADY JMDISK DONE
;[6%34] FIELD (DAXJQA) ;J QUOTA ALREADY REACHED
;[6%34] FIELD (DAXOTH) ;SOME OTHER ERROR--DAEMDB FAILURE
BLKSIZ (CODAX)
COMMENT\ Edited out for [6%34]
;;; INFO PACKETS FOR DAEMDB COMMUN
FIELD (DABCODE) ;DAD VALUE
FIELD (DABSKE,2) ;SCH NAME IN ASCIZ
BLKSIZ (DABOTH)
; *** THE "CLOSE" STUFF
CLODSZ==DABOTH
; *** THE "OPEN" STUFF FOR THE -10
OFFS.==DABOTH
FIELD (DABMTA) ;PHYS NAME OF MAGTAPE IN 6BIT
FIELD (DABDSK) ;DITTO FOR JT DEVICE
FIELD (DABPPN) ;WRITE RBCNT OF DABDSK AT APPROP TIME
FIELD (DABFIL)
FIELD (DABEXT)
FIELD (DABPRIV)
BLKSIZ (OPNDS1)
IFG <OPNDS1-^D10>,<PRINTX ?DAB TO LONG FOR SHORT PACKET>
; *** THE "OPEN" STUFF FOR THE -20
OFFS.==DABOTH
FIELD (DABMTA,2) ;ASCIZ HERE
FIELD (DABSPEC,^D24)
BLKSIZ (OPNDS2)
IFG <OPNDS2-^D30>,<PRINTX ?DAB TO LONG FOR SHORT PACKET>
; *** THE "FROM" STUFF
FIELD (DABCODE) ;A DAX VALUE
FIELD (DABTHRESH) ;THE INIT THRESHOLD TO PUT IN A J
BLKSIZ (FROMDAB)
\;End edit for [6%34]
;;; [6%34] Basic DAEMDB/QUASAR "Create" Message Description
BYTES (QE,<<CNT,^D18>,<TYP,^D18>>) ; Word Count,,Message Type
.QOCQE==37
FIELD (QE.FLG) ; Flags
FIELD (QE.UDF) ; User Defined Field (not used)
FIELD (QE.FLW) ; Flag Word
FIELD (QE.ARG) ; Argument Count
FIELD (QE.QT) ; Queue Type Block...
.QCQUE==24
FIELD (QE.OBJ) ; Object Code (.OTDBM)
.OTDBM==21
FIELD (QE.FD) ; File Description Block...
.QCFIL==10
OFSFD.==OFFS. ; File Specification (TOPS20)
FIELD (QE.FIL,11) ; ...asciz text equivalent
OFFS.==OFSFD. ; File Specification (TOPS10)
FIELD (QE.STR) ; ...Structure Name in SIXBIT
FIELD (QE.NAM) ; ...File Name in SIXBIT
FIELD (QE.EXT) ; ...Extension in SIXBIT
FIELD (QE.PPN) ; ...Project,,Programmer Number
FIELD (QE.NUS,5) ; ...(not used)
FIELD (QE.FRR) ; Limit Block...
.QCFRR==37
FIELD (QE.COD) ; ...Journal Operation Code
FIELD (QE.PID) ; ...Sender's Process Id (PID)
BLKSIZ (SIZ.QE)
;;; End DAEMDB/QUASAR DECLARATIONS
SUBTTL JOURNAL RELATED SYMBOLS
;;; THE POSSIBLE JOURNAL-BLK CODES
AI.COD==1
BI.COD==2
CS.COD==3 ;COMMAND START
CE.COD==4 ;COMMAND END
LB.COD==5 ;LABEL (MULTI-REEL)
TS.COD==6
TE.COD==7 ;TRANSACTION START/END CODES
TX.COD==10 ;TEXT COMMENT BLOCK
CU.COD==11 ;CURRENCY-BACKUP BLOCK, USED AT RUN-TIME ONLY
TAI.COD==12 ;AFTER IMAGE FROM TEMP FILE
;(NOW JRN'D BECAUSE OF PRESERVE)
TBI.COD==13 ;BEFORE IMAGE FROM TEMP FILE
HI.COD==13 ;HIGHEST CURRENT CODE
; *** POWER-OF-2 BIT CORRES FOR J CODES
DEFINE C2B(STRING)<STRING'.BIT==1_<STRING'.COD-1>>
C2B(BI)
C2B(AI)
C2B(CS)
C2B(CE)
C2B(LB)
C2B(TS)
C2B(TE)
C2B(TX)
C2B(CU)
C2B(TAI)
C2B(TBI)
;;; THE POSSIBLE JOURNAL-PAGE IDS
EM.PID==0 ;EMPTY PHYSICAL BLK
DT.PID==1 ;1ST LOG BLK IS DATA BLK
LB.PID==2 ;1ST LOG BLK IS LABEL BLK
ER.PID==3 ;PSEUDO-VALUE, USED IN DBMEND FOR ERROR CONTROL
SK.PID==4 ;PSEUDO-VAL, USED IN DBMEND TO SKIP THE (BAD) BLK
;;; MISCELLANEOUS JOURNAL SYMBOLS
JR.PSIZ==1000 ;SIZE OF A JOURNAL PAGE/BUFFER
JR.PRALC==20 ;# OF JPAGES TO PRE-ALLOC, EACH
; TIME RUNOUT, DURING APPLIC
JR.CHUNK==40 ;# OF JPAGES TO COPY FROM A MAG
;TAPE JOURN TO DSK .TMP WHEN
; MERG BEF
EMP.JP==JR.PSIZ-HDR.JP ;AMT OF FREE SPACE ON AN EMPTY
; (IE. DATALESS) J PAGE
BKU.AI==1B35 ;AL-AB.BKU VALUE, BACKUP AFT IMS
BKU.BI==1B34 ;DITTO, BEF IMS
JI.WMAX==^D16 ;CARD IMAGE
JR.BFM==1B35 ;[6%23] JOURNAL BUFFERS MODIFIED
;...SINCE LAST FLUSH
;;; JOURNAL PAGE HEADER
FIELD (JP.BIX) ;BLOCK/JP INDEX, IDENTIFIES
;JOURNAL PAGE
JP.KEY==OFFS. ;FOR COMPARING AGAINST JLANCPID
BYTES (JP,<<ANC,^D18>,<PID,^D18>>)
;LH, PHYSICAL ANCHOR: TELLS
;ABOUT BUF END
;LSS 0: AMOUNT OF POTENTIALLY
;WASTED (IE. INCOMPLETE) DATA
;AT END OF PAGE
;ELSE THE NUM OF UNUSED WORDS
;ON PAGE
;PAGE TYPE ID (SEE BELOW)
JP.NEED=OFFS.
BYTES (JP,<<LSIZ,^D18>,<LCOD,^D18>>)
;SIZE OF LAST LOG BLK STARTING
;ON THIS JP
;ITS LOGICAL CODE
BYTES (JP,<<FLAG,^D18>,<1STH,^D18>>)
;OFFSET OF 1ST LOGBLK HDR ON J
;AGE, OR 0
FIELD (JP.SEQ) ;IF PAGE+1 HAS A LOWER SEQUENCE NUMBER, WILL
;KNOW THIS IS LAST PAGE OF J
FIELD (JP.UNU) ;FOR FUTURE EXPANSION
BLKSIZ (HDR.JP)
JLANCPID=<EMP.JP-SIZ.JL>B17+LB.PID ;ACTS AS KEY TO J FORMAT
;VALIDITY
;IF FORMAT OF JP.KEY CHANGES,
;THIS MUST ALSO
;[6%10] MOVE BUFHDR DESCRIPTION TO DESCRIPTION AB.BUFPT
;;; JOURNALL BLOCK HDR
;[6%10] JOURNAL BLK HDR NO LONGER HAS ALTEREGO OF DBPAGE BUFFER PREFIX
JB.CURR==OFFS.
BYTES (JB,<<CSIZ,^D18>,<CCOD,^D18>>)
;CUR SIZE (IN WORDS) AND CODE
;OF THIS JOURNAL BLK
JB.PREV==OFFS.
BYTES (JB,<<PSIZ,^D18>,<PCOD,^D18>>)
;DITTO, BUT FOR PREV JB
FIELD (JB.RNID) ;FOR SIMUL UPDATE, WHICH RUN-
;UNIT IS CREATOR OF BLK
BLKSIZ (HDR.JB)
;[6%9] DELETED QUEUE-AREA HDR
;;; TEMPLATES FOR EACH TYPE OF JB
; *** IMAGES ARE OF VARIABLE SIZE & ARE FULLY DESCRIBED IN USER SCHEMA
;[6%23] IM.NUM==HDR.JB ;JUST PINPOINT FIRST WORD
; *** LABEL BLK
FIELD (J1.PAG,HDR.JP) ;[6%23] MAKE JLP OFFSETS
;CONSISTENT W/ POS. ON PAGE
FIELD (JB.HDR,HDR.JB)
FIELD (J1.SCH,SHORT/CPW) ;SCHEMA NAME (IN SIXBIT)
FIELD (J1.RUN) ;RUN SEQUENCE NUM, IS INTEGER
FIELD (J1.REEL) ;REEL # (INTEG)
FIELD (J1.DATE,4) ;DATE/TIME IN ASCII
; *** INTERNAL CONTROL INFORMATION
FIELD (J1.RNID) ;ADD 1 AND GIVE NEXT J OPENER
;VAL AS ITS RNID
FIELD (J1.RACT) ;R-U ACTIVE (IE. LE RNID)
;USED TO SET JP.SEQ
FIELD (J1.TRAC) ;# OF TRANSAC WHICH ARE
;IN (IE. HAVE IMAGES IN) THE J
FIELD (J1.HALC) ;H PAGE # ALLOC IN JRT/JRN FILE
;IE. BOUND FOR WHERE UPFGS/
;FILOPS BEGIN
FIELD (J1.MTP) ;P# OF LAST JP MERGED INTO MTA J
FIELD (J1.LIX) ;LAST ACTUAL JP (W/ CURR SEQ#)
;IN (DISK PART OF) JOURNAL
J1.NEED=OFFS. ;FOR CONSIS. THE JP.NEED OF
BYTES (J1,<<ANC,^D18>,<PID,^D18>>) ; OF LAST PAGE (LIX)
FIELD (J1.THRESH) ;[6%34] MTA SPOOLING THRESHOLD
FIELD (J1.POLL) ;[6%34] MSEC MTA POLLING PERIOD
FIELD (J1.R3)
FIELD (J1.R4)
FIELD (J1.R5)
FIELD (J1.R6)
OFFS.==OFFS.-JB.HDR ;[6%44] MAKE LENGTH NOT INCLUDE
;[6%44] ...PAGE HEADER
BLKSIZ (SIZ.JL)
; *** INFO BLK
;[6%23] FIELD (JB.HDR,HDR.JB)
FIELD (JI.LEN) ;IN ITS OWN UNITS
INF.NOP==1B0 ;NON PRINTING INFO
INF.1ST==1B1 ;1ST OF MULTI-BLK INFO
INF.MOR==1B2 ;MIDDLE OF MULTI
INF.LAS==1B3 ;LAST OF MULTI
INF.1P==0 ;NO BITS ON, MEANS SINGLE PRINTING BLK
FIELD (JI.INFO,JI.WMAX)
BLKSIZ (SIZ.JI)
; *** CURRENCY BACKUP BLK
;[6%23] FIELD (JB.HDR,HDR.JB)
FIELD (JU.ADDR) ;LESS THAN 0 IS SET BLK
FIELD (JU.CURR)
FIELD (JU.CNEX) ;MEANINGFUL ONLY FOR SET BLK
BLKSIZ (SIZ.JU)
; *** COMMAND/VERB BLK
;[6%23] FIELD (JB.HDR,HDR.JB)
FIELD (JC.IDX) ;DENOTES THIS IS (I)TH CMD EXEC IN RUN-
;UNIT SINCE STARTED
FIELD (JC.TYP) ;AS IN STANDARD ERROR CODES
BLKSIZ (SIZ.JC)
; *** TRANSACTION BLK
;[6%23] FIELD (JB.HDR,HDR.JB)
FIELD (JT.IDX) ;DITTO FOR TRANSACTION OF THIS TYPE
FIELD (JT.LEN) ;NUM OF CHARS IN TRANS NAME/TYPE
FIELD (JT.NAM,NAMLEN/CPW)
BLKSIZ (SIZ.JT)
; *** DETERM WHICH JB TYPE IS LARGEST SINCE TEMPLATES WILL BE
; *** CO-INCIDENT DURING JOURNAL BUILDING
DEFINE MAXCHK(TYP.)<IRP TYP.,<IFG SIZ.J'TYP.-MAX.JB,<MAX.JB==SIZ.J'TYP.>>>
MAX.JB==0
MAXCHK <I,T,C,U>
SUBTTL IN-CORE SYMBOL DEFINITIONS
;;; COMMON TO AB.,RB., AND OB.
FIELD (SN.IDADR) ;NMID+IDVEC(SS) FOR THIS SYMBOL
BYTES (SN,<<NEXT,^D18>,<LEN,^D18>>)
BLKSIZ (SN.NAM) ;DOUBLES AS OFFSET OF VARIABLE LEN FIELD
;;; AREA IN-CORE BLOCK
FIELD (AB.CUR) ;DBKEY OF CURR REC OF AREA
FIELD (AB.TSC) ;DBKEY OF CURR REC OF AREA AT START OF
; TRANSACTION
FIELD (AB.CHAN) ;CHANNEL/JFN OF THE FILE THAT COMPRISES
;THE AREA
FIELD (AB.MODE) ;USAGE MODES -- SEE UM.XXX
AB.MASK==OFFS. ;->NXT WD ADDXABLE 2 WAYS
;THE LEFT SIDE MAY CONTAIN VARIOUS UM% BITS
BYTES (AB,<<MWD,^D18>,<MBT,^D18>>)
;[6%19] MWD=WHICH LOCK WORK THIS AREA
;USES
;[6%19] MBT=WHICH BIT IN THE WORD REPS
; AREA
FIELD (AB.TRN) ;[6%19]AOBJ PTR TO LIST OF KB'S WHICH
; REF THIS AREA
FIELD (AB.BUFPT) ;AOBJ LIST OF BUFFER PTRS FOR THIS AREA
FIELD (AB.CLPT) ;[6%22]AOBJ LIST OF CLUSTER PTRS FOR
; THIS AREA
; FIELD (AB.FIFO) ;BUF NUM OF NEXT BUF TO OVERWRITE
FIELD (AB.FIL) ;PTR TO FILE SPEC AREA ASSIGNED TO
FIELD (AB.TBUF) ;A "SPECIAL" EXTRA BUFFER IS ALLOC-ED
; FOR A TMP AREA
BYTES (AB,<<NUL,^D17>,<PTF,^D1>,<UNUSED,^D18>>)
;[6%27] NUL AND UNUSED ARE UNUSED
;[6%27] AB.PTF = PRESERVE TMP FILE
FIELD (AB.TOA) ;[6%27] -1,,0 = TMP 0,,-1 = AID -1 =TMP+AID
FIELD (AB.TCHAN) ;IF TEMP AREA, NEED A 2ND CHANNEL
; TCHAN= -1,,CHAN IF TMP
; 0,,CHAN IF AID
FIELD (AB.TLAP) ;THIS 2ND FILE GROWS...NEED LAST ALLOC
; PAGE (1ST PAGE==0)
FIELD (AB.ILAP) ;IN TEMP AREA, HAVE NEVER-NEVER LAND
; WHERE PAGES LT AB.LAP
;HAVEN'T BEEN WRITTEN BECAUSE TEMP FILE
; IS PACKED
;SO IF KNOW HOW BIG .DBS FILE IS, CAN
; DETECT THEM
;IOW, AB.ILAP=AB.LAP AS OF OPEN
FIELD (AB.PINV) ;THE VALUE=AL.PSIZ-AP.PUNR, FOR USE IN
; ALC.REC
; *** START OF BLTTABLE STUFF
AB.BLT==OFFS.
FIELD (AB.1STP) ;P# OF 1ST PAGE OF AREA
FIELD (AB.LASP) ;P# OF LAST DEFINED PAGE
FIELD (AB.PSIZ) ;PAGE SIZE
BYTES (AB,<<ONBUF,^D18>,<SHAR,^D18>>) ;[6%36] FOR SHARING BUFFERS
; ONBUF - AB WHICH OWNS NBUF
; SHAR - RING PTR OF ALL BUF SHAREES
FIELD (AB.DNBUF) ;[6%36] ADDR OF DATANAME WHICH
; CONTAINS NBUF
FIELD (AB.NBUF) ;NUM OF BUFS TO ALLOC
; 0 IF SHARING - USE AB.ONBUF
; ONLY BUFFER "OWNER" IS NONZERO
BYTES (AB,<<PGL,^D18>,<CLUS,^D18>>)
;[6%27]ADDX OF PAGE LIST FOR AREA
;[6%11]CLUSTER SIZE FOR THIS AREA
FIELD (AB.RPP) ;MAX RECS/PAGE TO ALLOW
FIELD (AB.CALC) ;MAX CALC BUCKETS PER PAGE--INIT VAL
; OF PH.1STF=PH.CALC+VAL(AB.CALC)
FIELD (AB.BKU) ;TYPE OF IMAGES TO PUT IN JOURNAL
FIELD (AB.LOK,LOKMAX/CPW * 6) ;TEXT OF LOCKS...S/P/E*R/U=6
; *** END OF BLTABLE STUFF
AB.BE==OFFS.
FIELD (AB.ID) ;START STRLIB SYMBOL NODE
FIELD (AB.NLEN) ;LENGTH OF AREA NAME
FIELD (AB.NAM,NAMLEN/CPW)
BLKSIZ (SIZ.AB) ;MAX SIZE...SHORT AREA NAMES MEANS LESS
; SIZE
; *** ANCILLARY STUFF
;[6%10] MAKE BUFHDR BE A NODE OFF OF AB.BUFPT
BYTES (BH,<<FLG,^D18>,<BUF,^D18>>)
BH%LSH==1 ;[6%22] PAGE LOCK SHARED
BH%LEX==2 ;[6%22] PAGE LOCK EXCLUSIVE
BH%LKS==BH%LSH+BH%LEX ;[6%22] ALL LOCK FLAGS
BH%TOA==4 ;[6%27] INPUT FROM TEMP OR AID FILE
BH%CLR==10 ;[6%32] CLUSTER READ PAGE HAS BEEN ACCESSED
BH%CPP==20 ;[6%120] NOT A FILE PAGE BUT
; A CREATED PROCESS PAGE
;ACTUAL ADDR OF A BUFFER/PAGE
FIELD (BH.PAGE) ;THE PAGE IN THE ASSOCIATED BUFFER
FIELD (BH.LRU) ;IDX TO SHOW WHETHER BUFF IS LEAST RECENTLY USED
FIELD (BH.WRIT) ;SWITCH: -1=MUST WRITE 0=CAN JUST OVWRITE
FIELD (BH.JPAG) ;HIGHEST JP THIS DBPAGE HAS A BEFIM IN
;[6%27] BH.DPAG==BH.JPAG ;SYNONYM: USED FOR DIRECTORY OF TEMP AREA
BH.DPAG==BH.LRU ;[6%27] POINTS TO 1 OF N TMP/AID DIRECTORY PAGES
FIELD (BH.TOA) ;[6%27] PHY PAG # IN TMP/AID FILE
BLKSIZ (SIZ.BH)
;[6%22] CLUSTER HEADER, IS A NODE OFF AB.CLPT, USED IN SAME WAY AS
; BUFFER HEADER, BUT SUMMARIZES INFO FOR CLUSTER
BYTES (CH,<<NUM,^D18>,<BH,^D18>>) ;NUMBER OF BUFFERS IN THIS CLUSTER
;ADDRESS OF FIRST BUFFER HEADER
FIELD (CH.LRU) ;HIGHEST LRU VALUE FOR CLUSTER
FIELD (CH.WRIT) ;AS BH.WRIT, & HIGHEST VALUE
;FOR CLUSTER
FIELD (CH.JPAG) ;HIGHEST JOURNAL PAGE A PAGE IN
;THIS CLUSTER HAS AN IMAGE IN
BLKSIZ (SIZ.CH)
;;;[6%19] TRANSACTION IN-CORE BLOCK [6%19]
BYTES (EB,<<FLAG,^D18>,<IMG,^D18>>) ;FLAG=FLAGS FOR THIS TRN.
EB%RO==1 ;TRANSACTION IS READ ONLY
;IMG=IMAGE MODE FOR THIS TRN
FIELD (EB.KBL) ;AOBJ PTR TO AREA LIST FOR THIS TRN
FIELD (EB.ALK) ;POINTER TO AREA LOCK STRUCTURE
;FOR THIS TRANSACTION
FIELD (EB.ID) ;NAME-ID OF THIS TRN
FIELD (EB.NLEN) ;LENGTH OF NAME
FIELD (EB.NAM,NAMLEN/CPW) ;NAME OF THIS TRANSACTION
BLKSIZE (SIZ.EB)
;;; TRANSACTION-AREA IN-CORE BLOCK [6%19]
BYTES (KB,<<MODE,^D18>,<CLU,^D18>>) ;USAGE-MODE FOR AREA FOR THIS TRN
FIELD (KB.EB) ;PTR TO ASSOC TRN BLK (EB)
;CLUSTER SIZE FOR THIS TRN
FIELD (KB.AREA) ;POINTER TO ASSOC AREA BLK
BLKSIZ (SIZ.KB)
;;; WITHIN IN-CORE BLOCK
FIELD (WB.1STP)
FIELD (WB.LASP)
BYTES (WB,<<RDCODE,^D18>,<RDINC,^D18>>) ;[6%24]
;[6%24] RDCODE - REC DISTRIBUTION CODE
WB.NRP==1 ;[6%24] N RECS PER PAGE
WB.RNP==2 ;[6%24] 1 REC PER N PAGES
WB.SNP==3 ;[6%24] 1 SET PER N PAGES
;[6%24] RDINC - THE N FOR ABOVE
BLKSIZ (SIZ.WB)
;;; RECORD IN-CORE BLOCK
BYTES (RB,<<LM,^D18>,<FLAG,^D18>>)
;LOC MOD CODE
RF.NALC==1B35 ;FLAG SAYS ALLOC OPERS ILLEG (IE. STORE/DELETE)
;...CAUSED BY SET OWNED BY REC NOT BEING IN SS
RF.NAO==1B34 ;FLAG=NOT-ALL-OWNERS IN SS, MEANS CANNOT DELETE THIS REC
;...SINCE WILL BE UNABLE TO REMOVE IT FROM THE "INVIS" SETS IT IS IN
BYTES (RB,<<DOFF,^D18>,<TSIZ,^D18>>)
;TOTAL SIZE OF REC...FROM DSIZ+DOFF
FIELD (RB.CUR) ;DBKEY OF CURR REC OF THIS TYPE
FIELD (RB.TSC) ;DBKEY OF CURR REC OF THIS TYPE
; AT START OF TRANSACTION
FIELD (RB.TID) ;REC TYPE ID
FIELD (RB.MYA) ;AOBJ PTR FOR AREAS CAN BE WITHIN
FIELD (RB.MYD) ;THE DATA-NAMES IN THE REC
FIELD (RB.ION) ;THE SETS I OWN
FIELD (RB.OBY) ;THE SETS I AM OWNED BY
FIELD (RB.LOC) ;PTR TO IN-CORE BLK OF VIA SET, ADDR OF DIRKEY, OR NUM OF CALC FIELDS
FIELD (RB.WID,2) ;STRING PTR TO UWA LOC FOR AREAID OR 0
FIELD (RB.ID) ;SYM NODE
FIELD (RB.NLEN)
FIELD (RB.NAM,NAMLEN/CPW)
BLKSIZ (SIZ.RB) ;MAX SIZE (WILL BE SMALLER IF RB.NLEN IS LESS THAN 26)
;AREA, OWNER BLKS ALSO THIS WAY
; *** ANCILLARY DEFS FOR AOBJ PTS
WORD (RB,<<RMB,^D18>,<MOB,^D18>>) ;FOR OBY
;REC'S MEM BLK(SELF)
;MEM'S OWNER BLK (SELF'S OWNER)
WORD (RB,<<UNU,^D18>,<ROB,^D18>>) ;FOR ION
;RECORD'S OWN BLK (SELF IS OWNER)
WORD (RB,<<UNU,^D18>,<RDB,^D18>>) ;MYD
;RECORD'S DATA BLKS
WORD (RB,<<RWB,^D18>,<RAB,^D18>>) ;MYA
;PTR TO THE WITHIN BLK ITSELF (RWB)
;AREA REC CAN BE WITHIN
WORD (RB,<<NTB,^D18>,<RTB,^D18>>) ;FOR OBY/ION IN V3TOV5
;NEW TENANT BLK/CURR TB
;;; DATA-NAME IN-CORE BLOCK
BYTES (DB,<<TID,^D18>,<OCC,^D9>,<TYP,^D9>>)
;ITS REC'S TID (FOR CONSIS OF GET/MOD LIST)
;DB.OCC FROM DL.OCC
;DATA TYPE--SEE DT.XXX
BYTES (DB,<<CASE,^D18>,<KTYP,^D18>>)
;CASE--PSEUDO? TID/DBKEY? ETC (SEE KC.XXX)
;KTYP--DATA DIRECTED KEY-TYPE ASPECTS (CURR .CALC/.NORD)
;...OTHER PROPS CONTEXT (IE. CTL-LINE) DPEND
; *** NOTE: THESE TWO WORDS CONSTITUTE A STRING PTR IE. THEY MUST BE TOGETHER
FIELD (DB.UWA) ;BYTE PTR TO BOUND ADDR OF D-N
FIELD (DB.SIZ) ;SIZE IN ITS OWN UNITS=DL.SIZ*DL.OCC(DEF 1)
FIELD (DB.OFF) ;BYTE PTR TO SAME, BUT OFFSET FROM BEGIN OF REC
BLKSIZ (SIZ.DB)
;;; OWNER IN-CORE BLOCK
OB.COWN==OFFS. ;...ACTUALLY, OWNER OF CURR SET OCC, IF KNOWN
FIELD (OB.OOFF) ;DEFINED TO HANDLE O/M INDETERMINANCY SIMPLY. SEE TB.XXX BELOW
FIELD (OB.POFF) ;OFFSET OF PRIOR PTR IN AN OWN REC, OR 0
FIELD (OB.NOFF) ;OFFSET OF NEXT PTR
FIELD (OB.XOFF) ;PTR TO HEAD OF INDEX STRUCTURE IF SORTED SET
FIELD (OB.YB) ;[6%20] POINTER TO A Y-BLOCK IF SORTED SET
;[6%20] FIELD (OB.XSIZ) ;NUM OF WORDS IN AN INDEX BLK FOR THIS SET TYPE
;[6%20] FIELD (OB.XNSIZ) ;DITTO FOR AN INDIV NODE
;IF 0, SORTED SET OCC WILL HAVE NO INDEX STRUCT
FIELD (OB.CVIX) ;IF MATCHES VERBIX, PERFORM APPLICABLE CURRENCY OPERATION
;(1) OB.CUR UPDATE IN INSERT, MODIFY
;(2) OB.CUR SUPDATE-SUPPRES IN FIND/STORE
;IF MATCHES -VERBIX, SUPPRESS OB.COWN
FIELD (OB.REC) ;ADDR OF REC BLK OF REC THAT OWNS SET
FIELD (OB.CPRI) ;WILL BE VALID ONLY WHEN CURR OF SET LAST DET BY
;FIND IMMED NEXT RECORD.
FIELD (OB.CUR) ;DBKEY OF CURR OF SET
FIELD (OB.TSC) ;DBKEY OF CURR OF SET
; AT START OF TRANSACTION
FIELD (OB.CNEX) ;RELEVANT IF CURR OF SET DELETED/REMOVED
FIELD (OB.ION) ;ANAL TO RB.ION
FIELD (OB.ID) ;SYMBOL NODE
FIELD (OB.NLEN)
FIELD (OB.NAM,NAMLEN/CPW)
BLKSIZ (SIZ.OB) ;MAX ALLOCATABLE SIZE
; *** ANCILLARY STUFF
WORD (OB,<<MRB,^D18>,<MMB,^D18>>) ;ION
;PTR TO MEM'S RECORD BLK
;PTR TO MEM'S MEMBER BLK
;;; MEMBER IN-CORE BLOCK
FIELD (MB.OOFF) ;OFFS OF OWNER PTR IN A MEM REC, OR 0
FIELD (MB.POFF) ;DITTO BUT FOR PRIOR PTR
FIELD (MB.NOFF) ;OFFS TO NEXT PTR ALWAYS
BYTES (MB,<<FLAG,^D18>,<SHIP,3>,<SOS,3>,<ORD,6>,<DUP,6>>)
;FLAG--FUTURE
;FOR OTHERS, SEE SCHEMA FILE ML. DESC
;??? MF.REORD==1B35 ;MEMBER MUST BE RE-INSERTED SINCE KEY FIELD MODDED
BYTES (MB,<<MYS,^D18>,<MYK,^D18>>)
;MYS=MY SOS CTL BLKS
;MYK=MY (SORT) KEY CTL BLKS
BLKSIZ (SIZ.MB)
WORD (MB,<<IRREV,^D18>,<REST,^D18>>) ;KLUDGE A BIT FOR EFFIC
MB.REST==MB.SHIP
;;; TENANT (PSEUDO!!!) IN-CORE BLOCK
DEFINE FAK.TB(OFF.)<
IRP OFF.,<
TB.'OFF.==MB.'OFF.
IFN TB.'OFF.-OB.'OFF.,<PRINTX ?MEMBER-OWNER PTR OFFSETS MUST AGREE>
>
>
FAK.TB <OOFF,POFF,NOFF>
;;; VIA IN-CORE BLOCK
FIELD (VB.MYC) ;AOBJ PTR TO SORT FIELDS AS THEY APPEAR IN DATA-RECORD
FIELD (VB.MYX) ;DITTO--BUT AS IN INDEX-NODE
BLKSIZ (SIZ.VB)
WORD (VB,<<KTYP,^D18>,<CDB,^D18>>)
;THE MEM DEPEND CHARAC OF A DATA-NAME
;PTR TO ASSOC (PSEUDO-)DATA-BLK
;;; FILE BLOCK
FIELD (FB.DEV)
FIELD (FB.CNT)
FIELD (FB.DIR)
FIELD (FB.FIL)
FIELD (FB.EXT)
FIELD (FB.PRIV)
FIELD (FB.SIZ)
BLKSIZ (SIZ1FB)
OFFS.==-2 ;[6%27]
FB.HDR==-OFFS. ;[6%27] FOR BIND CODE AT JFMERG
FIELD (FB.AOFF) ;[6%27] OFFSET FROM FB.SPEC TO FB.AID
FIELD (FB.FLEN) ;IN -1 WORD SO THAT JSYS USAGE NATURAL
FIELD (FB.SPEC,MAXFS20) ;VARIABLE LENGTH ASCIZ
FIELD (FB.TEMP,MAXTS20) ;...ACTU START PT DETERM BY FB.FLEN
FIELD (FB.AID,MAXTS20) ;[6%27] FILSPEC FOR .AID FILE
BLKSIZ (SIZ2FB)
;[6%20] INDEX (Y) BLOCK
FIELD (YB.FPG) ; FIRST PAGE OF INDEX BLOCK RANGE
FIELD (YB.LPG) ; LAST PAGE OF INDEX BLOCK RANGE
FIELD (YB.EPI) ; MAX # OF KEYS PER IDX BLOCK
FIELD (YB.EPB) ; MAX # OF RECORDS PER BOUY
FIELD (YB.ISIZ) ; INDEX BLOCK SIZE IN WORDS
FIELD (YB.NSIZ) ; INDEX NODE SIZE IN WORDS
FIELD (YB.AB) ; PTR TO AREA BLOCK WHERE REC RESIDES
BLKSIZ (SIZ.YB)
SUBTTL SCHEMA DIRECTORY BLOCKS AND OFFSETS
; SCHEMA BLOCK
FIELD (SL.ASR,SIZ.FH) ;MAKE THIS RECORD DOUBLE AS ASR
;SO THAT .SCH FILE IS .DBS FILE ALSO
FIELD (SL.SYS) ;NMID OF AREA THAT WILL HOLD SYS RECORD
FIELD (SL.HINMID) ;FOR BUILDING RUN-TIME VECTOR
FIELD (SL.HITID) ;FOR BUILDING RECTYP ID VEC
FIELD (SL.NAREA) ;NUM OF AREAS
FIELD (SL.NTRN) ;FOR BUILDINT TRNTYP ID VEC
FIELD (SL.EDIT) ;CHARAC OF ENTIRE SCHEMA OVER TIME
FIELD (SL.RUN) ;DITTO BUT NUMBER OF TIMES SBIND-ED
FIELD (SL.MLAS) ;LAST USED SS (MAX IS 36)
FIELD (SL.JOUR) ;DBKEY OF JOURNAL'S FILE BLK, IF ONE
FIELD (SL.JNBUF) ;[6%9]NUM OF JBUFS TO ALLOC WHEN J OPENED
FIELD (SL.CHKPT) ;SEE CHK.*
FIELD (SL.XACT) ;EXCEPTION ACTION FLAG WORD (SEE VAC.*/ACT.*)
;LEFT=NOTES // R=INTERCEPT
FIELD (SL.JSIZ) ;TELLS DBCS TO LIMIT JRN SIZE TO (N) TRANSAC
;...AND THEN TO BEGIN OVERWRITING AND REPEAT THE CYCLE
BYTES (SL,<<LKS,^D18>,<LNUM,^D18>>) ;[6%17]
; LKS IS SCOPE OF LOCK
LKS.AL==1B0 ; --AREA LOCKS
LKS.PL==1B1 ; --PAGE LOCKS
; LNUM IS MAX NUM OF LOCKS
FIELD (SL.LOK) ;[6%43] PRIVACY LOCK FOR ADMINISTRATION
FIELD (SL.UNU) ;RESERVED FOR FUTURE
BLKSIZ (SIZ.SL)
;;; STANDARD LIST HEADER [6%32]
BYTES (LST,<<BEG,^D18>,<END,^D18>>) ;BEG,,END OFFSETS (SPACE)
BYTES (LST,<<CBEG,^D18>,<CEND,^D18>>) ;CURRENT LIST BEG,,END
BLKSIZ (SIZ.LHD)
SIZ.LE==2 ;LIST ENTRY SIZE
;;;[6%17] FORMAT OF A LOCK BLOCK
FIELD (LK.HEAD,SIZ.LHD) ;STANDARD LIST HEADER
; ( BYTES (LST,<<BEG,^D18>,<END,^D18>>) ;BEG,,END OFFSETS )
; ( BYTES (LST,<<CBEG,^D18>,<CEND,^D18>>) ;CURRENT LIST BEG,,END)
FIELD (LK.AOS) ;SEMAPHORE WORD FOR BLOCK ACCESS
FIELD (LK.ABO) ;ABORT STATUS FIELD
FIELD (LKJ.OWN) ;JRN LK OWNER ID
BYTES (LKJ,<<MODE,^D1>,<HIP,^D35>>) ;JRN LK TYPE
;HIGHEST PAGE NUMBER IN THIS PAGE
BLKSIZ (LK.HDR) ;ALSO OFFSET TO ACTUAL LOCK STR.
FIELD (LKP.OWN) ;OWNER OF THIS LOCK
BYTES (LKP,<<MODE,^D2>,<QUE,^D2>,<UNU,^D5>,<PAG,^D27>>)
;MODE IS: 0-SHR, 1-EXCLU, 2-NO-RELEASE
LK.SHR==0
LK.EXC==1
LK.NRL==2 ;DON'T RELEASE SHARED LOCK UNTIL
;...THE END OF TRANSACTION (CLOSE TRN)
;QUE IS 0-LOCKED, 1-QUEUED, 2-UPGRADE
LK.LOK==0
LK.QRQ==1
LK.UPG==2
;OWN IS OWNER-ID (PER-RU)
;PAGE IS PAGE NUMBER LOCKED
BLKSIZ (LK.PLK) ;SIZE OF PAGE LOCK BLOCK
FIELD (LKA.OWN) ;OWNER-ID
BYTES (LKA,<<MODE,^D1>,<UNU,^D35>>) ;MODE AS ABOVE
FIELD (LKA.LN,SHORT/CPW) ;LOCK NAME (SCH UNLESS SETDB)
FIELD (LKA.QUE) ;[6%40] 0=LOCK,1=REQ,-1=2ND PART REQ
FIELD (LKA.W1,SIZ.MSK) ;AREA LOCK WORDS
BLKSIZE (LK.ALK) ;SIZE OF AREA LOCK BLOCK
;[6%31] FORMAT OF A SHARED TABLE FRAME - TOPS-10 ONLY
BYTES (ST,<<LCLK,^D18>,<CLEN,^D18>>) ;LOW CLOCK
;....CURRENT LENGTH
FIELD (ST.LIST,^D511) ;ACTUAL WORDS OF LIST
BLKSIZ (SIZ.ST)
; ; [6%22] FORMAT OF A PAGE STACK FRAME -TOPS-20 ONLY
;
; FIELD (PF.LST) ;AOBJN PTR TO CURRENT STACK FRAME
; FIELD (PF.NXT) ;POINTER TO NEXT FRAME IF PRESENT
; FIELD (PF.PRI) ;POINTER TO PRIOR FRAME, OR 0 FOR LAST
; FIELD (PF.STK,STKPFRM-OFFS.) ;THE STACK OF PAGE NUMBERS AND LENGTHS
; BLKSIZ (SIZ.PF) ;SIZ.PF SHOULD = STKPFRM
FIELD (PF.RWD,STKPFRM)
BLKSIZ (SIZ.PF)
;SUB-SCHEMA BLOCK
FIELD (UL.MASK) ;ANY BLOCK THAT "OR"S NON-0 WITH THIS IS IN SS
FIELD (UL.LOK,LOKMAX/CPW) ;LOCK FOR PVC KEY
FIELD (UL.NLEN) ;UNPADDED NAME LEN
FIELD (UL.NAM,NAMLEN/CPW) ;ALLOCATION OF SPACE FOR SS NAME
BLKSIZ (SIZ.UL)
;RECORD BLOCK
BYTES (RL,<<IDSET,^D18>,<NMID,^D18>>)
;NMID IS COMMON TO MOST SCHEMA DEFINED BLOCKS
;IDSET IS LAST SET TO WHICH THIS REC WAS ASSOC--FOR TENANT CONSIS
BYTES (RL,<<NDAT,^D9>,<NAREA,^D9>,<NOWN,^D9>,<NMEM,^D9>>)
;EACH IS NUM OF (X) ASSOC WITH THE RECORD
BYTES (RL,<<LM,6>,<DSIZ,^D12>,<DOFF,^D9>,<TID,^D9>>)
;LM IS FOR LOC MODE: 0=UNDEF 1=DIRECT 2=VIA 3=CALCDUP 4=CALCNODUP
;DSIZ IS SIZE OF DATA IN WORDS
;THE (DOFF)TH WORD OF THE LINE CONTAINS 1ST WORD OF DATA
;TID IS THE RECORD TYPE ID (APPEARS IN LINE HDR)
FIELD (RL.SS) ;TELLS WHICH SS THIS REC IN
FIELD (RL.LOC) ;IF VIA, DBKEY OF THAT SET BLK
;IF DIRECT, DBKEY OF ITS ITEM BLK
;IF CALC, NUM OF CALC FIELDS
FIELD (RL.WID) ;DBKEY OF ITEM BLK OF AREA ID, IF ONE
FIELD (RL.NLEN) ;LEN OF REC NAME
FIELD (RL.NAM,NAMLEN/CPW) ;THE REC NAME IN ASCII
BLKSIZ (SIZ.RL)
;AREA BLOCK -- USE MOSTLY FULL WORDS, ASSUME NUM OF AREA BLKS SMALL %
BYTES (AL,<<SYM,^D18>,<NMID,^D18>>)
;AL.SYM USED BY SCHEMA PROCESSOR, PTS TO AREA'S SYMBOL BLK
;AS BEFORE
FIELD (AL.SS) ;SS THIS AREA IS IN
; *** BEGIN BLTTABLE STUFF
AL.BLT==OFFS.
FIELD (AL.1STP) ;1STP IS PAGE NUM OF 1ST PAGE OF AREA
FIELD (AL.LASP) ;LAST PAGE NUM OF THIS AREA
BYTES (AL,<<PUNR,^D18>,<PSIZ,^D18>>)
;UNROUNDED PAGE SIZE--ALLOWS MAKING PART OF PAGE INVIS
;PSIZ=PHYSICAL PAGE SIZE (ACCOR PAGE BUF SIZE)
;[6%36] BYTES (AL,<<SHAR,^D18>,<NBUF,^D18>>)
BYTES (AL,<<ONBUF,^D18>,<SHAR,^D18>>) ;[6%36] FOR SHARING BUFFERS
; ONBUF - AB WHICH OWNS NBUF
; SHAR - NAMID OF "AT AREA..."
FIELD (AL.DNBUF) ;[6%36] DBK OF IL FOR DATANAME
FIELD (AL.NBUF) ;[6%36] NUM OF BUFS TO ALLOC
; NBUF IS 0 IF SHARING BUFS
; ONLY BUFFER "OWNER" IS NONZERO
FIELD (AL.CLUS) ;[6%10]CLUSTER SIZE FOR THIS AREA
FIELD (AL.RPP) ;MAX RECS PER PAGE
FIELD (AL.CALC) ;MAX CALC RECS PER PAGE
FIELD (AL.BKU) ;BACKUP SPEC: 0=NO 1=AFTER 2=BEFORE 3=BOTH
FIELD (AL.LOK,LOKMAX/CPW * 6) ;ALL OF THE LOCKS: PERMUTE CONC/PROT/EXCL UPDATE/RETR
; *** END BLTTABLE STUFF
AL.MASK==OFFS. ;->NXT WD ADDXABLE 2 WAYS
;THE LEFT SIDE MAY CONTAIN VARIOUS UM% BITS
BYTES (AL,<<MWD,^D18>,<MBT,^D18>>)
;[6%19] MWD=WHICH LOCK WORK THIS AREA USES
;[6%19] MBT=WHICH BIT IN THE WORD REPS AREA
FIELD (AL.FIL) ;DBKEY OF FILBLK FOR AREA
FIELD (AL.TMP) ;SS FOR WHICH THIS AREA A TEMP AREA
FIELD (AL.NLEN) ;LEN OF AREA NAME
FIELD (AL.NAM,NAMLEN/CPW) ;THE AREA'S NAME
BLKSIZ (SIZ.AL)
;[6%20] INDEX BLOCK YL.FPG MUST BE FIRST IN Y-LINE
FIELD (YL.FPG) ; FIRST PAGE OF INDEX BLOCK RANGE
FIELD (YL.LPG) ; LAST PAGE OF INDEX BLOCK RANGE
FIELD (YL.EPI) ; MAX# OF INDEX ENTRIES / IDX BLOCK
FIELD (YL.EPB) ; MAX# OF DATA REC ENTRIES / BUOY
FIELD (YL.ISIZ) ; INDEX BLOCK SIZE (WORDS)
FIELD (YL.NSIZ) ; INDEX NODE SIZE (WORDS)
BYTES (YL,<<NUL,^D18>,<ANMID,^D18>>)
; YL.NUL - NOT USED
; YL.ANMID - AREA NAME ID
BYTES (YL,<<SYM,^D18>,<ASYM,^D18>>)
; SYM - ADR OF SETNAME IN SYM TBL
; ASYM - AREA SYM NODE PTR
FIELD (YL.SLEN) ; SET NAME'S LENGTH
FIELD (YL.SNAM,NAMLEN/CPW) ; SET NAME
BLKSIZ (SIZ.YL)
;DATA BLOCK
BYTES (DL,<<IDREC,^D18>,<NMID,^D18>>)
;NMID AS BEFORE
;IDREC--NEED TO VERIFY THAT DN PART OF RIGHT REC OCCAS
BYTES (DL,<<UNU,^D18>,<OCC,^D9>,<PREC,^D9>>)
;UNUSED
;OCC IS # OF OCCURS IF GTR 0
;PREC IS PRECISION, IN COBOL S9(10) FOR EX
BYTES (DL,<<NLEN,6>,<SLEN,6>,<PLEN,6>,<TYP,6>,<CALC,6>,<SCAL,6>>)
;SINCE DATA BLKS ARE PRESUMABLY MOST FREQUENT
;TRY TO SAVE SPACE (HOPEFULLY NOT AN ERROR IN JUDGMENT)
;ALL STRINGS ARE ENCODED AS ONE, WITH SUBSTRING OPERATORS USED TO PULL APART
;NLEN DATA-NAME'S LENGTH
;PLEN PICTURE'S LENGTH
;SLEN PSEUDONYM'S LENGTH
;THE DATA TYPE
;CALC FIELD ORDINALITY
;SCALE FACTOR (IMPLIED DECIMAL PT)
FIELD (DL.SS) ;AS BEFORE
FIELD (DL.OFF) ;A BYTE PTR TO ITEM WITHIN ITS RECORD
FIELD (DL.SIZ) ;IN TERMS OF ITS LOGICAL USE--CHARS,WORDS,ETC
DLSLEN==NAMLEN+NAMLEN+SHORT
FIELD (DL.STRING,DLSLEN/CPW) ;ALL THE STRINGS
BLKSIZ (SIZ.DL)
;OWNER BLOCK
BYTES (OL,<<POFF,^D9>,<NOFF,^D9>,<NMID,^D18>>)
;THE (POFF)TH WORD OF EACH OWNER REC IS THE PRIOR PTR FOR THIS SET, IF ONE
;THE (NOFF)TH WORD IS THE NEXT PTR--ALWAYS NON-0
;NMID--AS BEFORE
BYTES (OL,<<XNSIZ,^D18>,<XOFF,^D18>>)
;LARGEST KEY-NODE SIZE FOR MEMS OF THIS SET (0 IMPLIES: USE NO INDEX STRUCT)
;THE (XOFF)TH WORD IS TOP-LEVEL IDXBLK, IF ONE
FIELD (OL.NMEM) ;# OF MEMS IN SET
FIELD (OL.SS) ;SS MASK FOR THIS SET
FIELD (OL.NLEN) ;SET NAME'S LEN
FIELD (OL.NAM,NAMLEN/CPW) ;SET NAME
BLKSIZ (SIZ.OL)
;MEMBER BLOCK
BYTES (ML,<<IDREC,^D18>,<SHIP,3>,<SOS,3>,<ORD,6>,<DUP,6>>)
;NMID OF REC THAT IS MEM (USED DURING BINDING)
;SHIP: AUTO/MAN AND MAND/OPT
;SOS IS TYPE OF SOS THIS REC HAS 1=CURR 2=LMO
;ORD IS 1 OF 12 POSSIB (2 PATHOL): 1ST/LAST/NEXT/PRIOR ARE POSIT
;SORTED ARE: PLAIN/DBKEY/WITHIN/UNIFIED PLUS EACH WITH USER KEYS
;BUT DBKEY+USER KEY IMPOS & UNIFIED+NO-USER IMPOS
;IF SORTED, DUP = 0 MEANS ANY 1=FIRST 2=LAST 3=NOT
BYTES (ML,<<OOFF,^D9>,<POFF,^D9>,<NOFF,^D9>>)
;OFFSETS ARE AS BEFORE--OOFF IS NON-0 IF LINKED TO OWNER
BLKSIZ (SIZ.ML)
WORD (ML,<<IRREV,^D18>,<REST,^D18>>)
ML.REST==ML.SHIP
;WITHIN BLOCK
BYTES (WL,<<REC,^D18>,<IDAREA,^D18>>)
;SYM OF UNBOUND REC. IOW, NON-0 IF EXPLIC PAGE RANGE
;NMID OF AREA CONNECTED TO
FIELD (WL.1STP) ;IF NOT EXPLIC SPECIFIED, =AL.1STP
FIELD (WL.LASP) ;DITTO AL.LASP
BYTES (WL,<<RDCODE,^D18>,<RDINC,^D18>>) ;[6%24]
;[6%24] RDCODE - REC DISTRIBUTION CODE
; SEE WB.??P FOR DEFINITION
;[6%24] RDINC - THE N FOR ABOVE
BLKSIZ (SIZ.WL)
;VIA BLOCK
BYTES (VL,<<NKEY,^D18>,<TYP,^D18>>)
;TYP IS VIA LINE FOR SOS OR SORT CTL
;NKEY = NUMBER OF ELEMS IN LIST
BLKSIZE (SIZ.VL)
;CONTROL BLOCK
BYTES (CL,<<CASE,^D18>,<KTYP,^D18>>)
;CASE--FOR COMPARISON CTL
;KTYP--ASC/DESC FOR INSTANCE
BYTES (CL,<<IDDAT,^D18>,<IDSET,^D18>>)
;IDSET HERE AS WITH DL.IDREC RL.IDSET
;DITTO IDDAT
FIELD (CL.ALIAS) ;DBKEY OF ITEM LINE IF THERE IS AN ALIAS NAME
FIELD (CL.IDX) ;ORDINALITY OF THIS SUBKEY (START 1)
FIELD (CL.XOFF) ;FOR SORTED SETS (IN VIA.SOR LISTS), WHERE IN INDEX NODE THE KEY IS
FIELD (CL.KSET) ;DBKEY OF SET IT CTLS, USED TO SET KEY.NORD
BLKSIZ (SIZ.CL)
;TEXT BLK
FIELD (TL.SS) ;NOW TEXT CAN BE SPECIFIED ON A SS BASIS
FIELD (TL.TLEN) ;CHARS OF TEXT
FIELD (TL.TEXT,TEXMAX/CPW) ;PERHAPS TOO MUCH, WHO KNOWS
BLKSIZ (SIZ.TL)
;ITEM BLOCK -- ALL RECORD INDEP SYMBOLS ARE DESCRIBED HERE
FIELD (IL.SLEN)
FIELD (IL.PSU,SHORT/CPW) ;ITS PSUEDONYM IF NON-0
FIELD (IL.NLEN) ;AS BEFORE
FIELD (IL.NAM,NAMLEN/CPW) ;AS BEFORE
BLKSIZ (SIZ.IL)
;TRANSACTION BLOCK (EVENT BLOCK) - DEFINES TRANSACTION NAMES AND
; RECOVERY MODES
BYTES (EL,<<NKL,^D18>,<NMID,^D18>>) ;NAME-ID OF TRANSACTION
;NUMBER OF TRN-AREA LINES FOR BIND
FIELD (EL.SS) ;SUB-SCHEMAS IN
BYTES (EL,<<FLAG,^D18>,<IMG,^D18>>) ;FLAGS FOR THIS TRANS
EL%RO==1 ;...Retrieval Only transaction
;IMAGE TYPES FOR THIS TRANS
FIELD (EL.NLEN) ;LENGTH OF NAME
FIELD (EL.NAM,NAMLEN/CPW) ;REAL NAME
BLKSIZ (SIZ.EL)
;TRANSACTION-AREA BLOCK DEFINES AREAS, CLUSTERING AND USAGE PER AREA,
; PER-TRANSACTION
BYTES (KL,<<USG,^D18>,<CLU,^D18>>) ;USAGE MODE (RETR, UPDTE)
FIELD (KL.ARID) ;NAME-ID OF AREA
BLKSIZ (SIZ.KL)
;FILE BLOCK -- SEPARATE IN HOPE OF BETTER OS INDEP
FIELD (FL.DEV)
FIELD (FL.CNT) ;SET ONLY BY CODE
FIELD (FL.DIR)
FIELD (FL.FIL)
FIELD (FL.EXT) ;SET ONLY BY CODE
FIELD (FL.PRIV)
BLKSIZ (SIZ1FL)
BYTES (FL,<<AOFF,^D9>,<FLEN,^D9>,<BLEN,^D18>>)
;[6%27] AOFF IS OFFSET TO .AID FSPEC
;FLEN IS # OF WORDS IN FILE SPEC
;BLEN # WORDS IN FILE SPEC+TMP+AID SPEC
FIELD (FL.SPEC,MAXFS20) ;JUST A LONG ASCIZ STRING FOR TOPS20
FIELD (FL.TEMP,MAXTS20) ; TMP FILSPEC
FIELD (FL.AID,MAXTS20) ;[6%27] AID FILSPEC
;THE ACTUAL SIZES OF THE FIL/TMP SPEC IS DRIVEN BY 1ST WORD
BLKSIZ (SIZ2FL)
;
END