BACKUP NO IMAGES. NOTE UNANTICIPATED. RPP 511. ACCESS CONTROL IS VIA AREA LOCKS. ASSIGN SCHEMA-AREA TO SCHEMA RPP 100 BUFFER 5 CALC 0 RPP FIRST PAGE 1 LAST PAGE 500 PAGE SIZE 512 WORDS. SCHEMA SCHALL. AREA SCHEMA-AREA. RECORD SCHEMA-LINE LOCATION DIRECT DBK1ST WITHIN SCHEMA-AREA. 02 SL-ASR SIZE 2 WORDS. 02 SL-SYS SIZE 1 WORDS. 02 SL-HINMID SIZE 1 WORDS. 02 SL-HTID SIZE 1 WORDS. 02 SL-NAREA SIZE 1 WORDS. 02 SL-NTRN SIZE 1 WORDS. 02 SL-EDIT SIZE 1 WORDS. 02 SL-RUN SIZE 1 WORDS. 02 SL-MLAS SIZE 1 WORDS. 02 SL-JOUR TYPE DBKEY. 02 SL-JNBUF SIZE 1 WORDS. 02 SL-CHKPT SIZE 1 WORDS. 02 SL-XACT SIZE 1 WORDS. 02 SL-JSIZ SIZE 1 WORDS. 02 SL-LKS SIZE 1 WORDS. 02 SL-LOK SIZE 1 WORDS. 02 SL-UNU SIZE 1 WORDS. RECORD RECORD-LINE LOCATION VIA SR WITHIN SCHEMA-AREA. 02 RL-ID SIZE IS 1 WORDS. 02 RL-MANY SIZE IS 1 WORDS. 02 RL-INTERN SIZE IS 1 WORDS. 02 RL-SS SIZE IS 1 WORDS. 02 RL-LOC SIZE IS 1 WORDS. 02 RL-WID TYPE IS DBKEY. 02 RL-NLEN SIZE IS 1 WORDS. 02 RL-NAM PIC X(30) USAGE DISPLAY-7. RECORD DATA-LINE LOCATION VIA RD WITHIN SCHEMA-AREA. 02 DL-ID SIZE IS 1 WORDS. 02 DL-SPC SIZE IS 1 WORDS. 02 DL-MANY SIZE IS 1 WORDS. * BYTES (DL,<,,,,,>) * ;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) 02 DL-SS SIZE IS 1 WORDS. 02 DL-OFF SIZE IS 1 WORDS. 02 DL-SIZ SIZE IS 1 WORDS. 02 DL-STRING PIC X(66) USAGE DISPLAY-7. RECORD CONTROL-LINE LOCATION DIRECT CNTRLKY WITHIN SCHEMA-AREA. 02 CL-CATYP SIZE 1 WORDS. * BYTES (CL,<,>) * ;CASE--FOR COMPARISON CTL * ;KTYP--ASC/DESC FOR INSTANCE 02 CL-ID SIZE 1 WORDS. * BYTES (CL,<,>) * ;IDSET HERE AS WITH DL.IDREC RL.IDSET * ;DITTO IDDAT 02 CL-ALIAS SIZE 1 WORDS. * FIELD (CL.ALIAS) ;DBKEY OF ITEM LINE IF THERE IS AN ALIAS NAME 02 CL-IDX SIZE 1 WORDS. * FIELD (CL.IDX) ;ORDINALITY OF THIS SUBKEY (START 1) 02 CL-XOFF SIZE 1 WORDS. * FIELD (CL.XOFF) ;FOR SORTED SETS (IN VIA.SOR LISTS), WHERE IN INDEX NODE THE KEY IS 02 CL-KSET SIZE 1 WORDS. * FIELD (CL.KSET) ;DBKEY OF SET IT CTLS, USED TO SET KEY.NORD RECORD MEMBER-LINE LOCATION VIA RM WITHIN SCHEMA-AREA. 02 ML-MANY SIZE 1 WORDS. * BYTES (ML,<,,,,>) * ;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 * 02 ML-OFF SIZE 1 WORDS. * BYTES (ML,<,,>) * ;OFFSETS ARE AS BEFORE--OOFF IS NON-0 IF LINKED TO OWNER RECORD OWNER-LINE LOCATION VIA RO WITHIN SCHEMA-AREA. 02 OL-OFF SIZE 1 WORDS. * BYTES (OL,<,,>) * ;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 * 02 OL-XOFF SIZE 1 WORDS. * BYTES (OL,<,>) * ;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 * 02 OL-NMEM SIZE 1 WORDS. 02 OL-SS SIZE 1 WORDS. 02 OL-NLEN SIZE 1 WORDS. 02 OL-NAM PIC X(30) USAGE DISPLAY-7. RECORD WITHIN-LINE LOCATION VIA RW WITHIN SCHEMA-AREA. 02 WL-RECID SIZE 1 WORDS. * BYTES (WL,<,>) * ;SYM OF UNBOUND REC. IOW, NON-0 IF EXPLIC PAGE RANGE * ;NMID OF AREA CONNECTED TO 02 WL-1STP SIZE 1 WORDS. * FIELD (WL.1STP) ;IF NOT EXPLIC SPECIFIED, =AL.1STP 02 WL-LASP SIZE 1 WORDS. * FIELD (WL.LASP) ;DITTO AL.LASP 02 WL-INCD SIZE 1 WORDS. * BYTES (WL,<,>) ;[6%24] * ;[6%24] RDCODE - REC DISTRIBUTION CODE * ; SEE WB.??P FOR DEFINITION * ;[6%24] RDINC - THE N FOR ABOVE RECORD AREA-LINE LOCATION VIA SA WITHIN SCHEMA-AREA. 02 AL-ID SIZE IS 1 WORDS. 02 AL-SS SIZE IS 1 WORDS. 02 AL-1STP SIZE IS 1 WORDS. 02 AL-LASP SIZE IS 1 WORDS. 02 AL-PSIZ SIZE IS 1 WORDS. 02 AL-SHAR SIZE IS 1 WORDS. 02 AL-DNBUF SIZE IS 1 WORDS. 02 AL-NBUF SIZE IS 1 WORDS. 02 AL-CLUS SIZE IS 1 WORDS. 02 AL-RPP SIZE IS 1 WORDS. 02 AL-CALC SIZE IS 1 WORDS. 02 AL-BKU SIZE IS 1 WORDS. 02 AL-LOK PIC X(30) USAGE DISPLAY-7. 02 AL-MASK SIZE IS 1 WORDS. 02 AL-FIL TYPE DBKEY. 02 AL-TMP SIZE IS 1 WORDS. 02 AL-NLEN SIZE IS 1 WORDS. 02 AL-NAM PIC X(30) USAGE DISPLAY-7. RECORD TEXT-LINE LOCATION VIA DT WITHIN SCHEMA-AREA. 02 TL-SS SIZE 1 WORDS. * FIELD (TL.SS) ;NOW TEXT CAN BE SPECIFIED ON A SS BASIS 02 TL-TLEN SIZE 1 WORDS. * FIELD (TL.TLEN) ;CHARS OF TEXT 02 TL-TEXT PIC X(100) USAGE DISPLAY-7. * FIELD (TL.TEXT,TEXMAX/CPW) ;PERHAPS TOO MUCH, WHO KNOWS RECORD SUB-SCHEMA-LINE LOCATION VIA SU WITHIN SCHEMA-AREA. 02 UL-MASK SIZE IS 1 WORDS. 02 UL-LOK PIC X(5) USAGE DISPLAY-7. 02 UL-NLEN SIZE IS 1 WORDS. 02 UL-NAM PIC X(30) USAGE DISPLAY-7. RECORD VIA-LINE LOCATION VIA MV WITHIN SCHEMA-AREA. 02 VL-NKTYP SIZE 1 WORDS. * BYTES (VL,<,>) * ;TYP IS VIA LINE FOR SOS OR SORT CTL * ;NKEY = NUMBER OF ELEMS IN LIST RECORD ITEM-LINE LOCATION DIRECT ITMKEY WITHIN SCHEMA-AREA. 02 IL-SLEN SIZE 1 WORDS. * FIELD (IL.SLEN) 02 IL-PSU PIC X(6) USAGE DISPLAY-7. * FIELD (IL.PSU,SHORT/CPW) ;ITS PSUEDONYM IF NON-0 02 IL-NLEN SIZE 1 WORDS. * FIELD (IL.NLEN) ;AS BEFORE 02 IL-NAM PIC X(30) USAGE DISPLAY-7. * FIELD (IL.NAM,NAMLEN/CPW) ;AS BEFORE RECORD FILE-LINE LOCATION DIRECT FILKEY WITHIN SCHEMA-AREA. * 02 FL-DEV SIZE 1 WORDS. * FIELD (FL.DEV) * 02 FL-CNT SIZE 1 WORDS. * FIELD (FL.CNT) ;SET ONLY BY CODE * 02 FL-DIR SIZE 1 WORDS. * FIELD (FL.DIR) * 02 FL-FIL SIZE 1 WORDS. * FIELD (FL.FIL) * 02 FL-EXT SIZE 1 WORDS. * FIELD (FL.EXT) ;SET ONLY BY CODE * 02 FL-PRIV SIZE 1 WORDS. * FIELD (FL.PRIV) * BLKSIZ (SIZ1FL) 02 FL-LEN SIZE 1 WORDS. * BYTES (FL,<,,>) * ;[6%27] AOFF IS OFFSET TO .AID FSPEC * ;FLEN IS # OF WORDS IN FILE SPEC * ;BLEN # WORDS IN FILE SPEC+TMP+AID SPEC 02 FL-SPEC PIC X(120) USAGE DISPLAY-7. * FIELD (FL.SPEC,MAXFS20) ;JUST A LONG ASCIZ STRING FOR TOPS20 02 FL-TEMP PIC X(45) USAGE DISPLAY-7. * FIELD (FL.TEMP,MAXTS20) ; TMP FILSPEC 02 FL-AID PIC X(45) USAGE DISPLAY-7. * FIELD (FL.AID,MAXTS20) ;[6%27] AID FILSPEC * ;THE ACTUAL SIZES OF THE FIL/TMP SPEC IS DRIVEN BY 1ST WORD * BLKSIZ (SIZ2FL) RECORD TRANSACTION-LINE LOCATION VIA SE WITHIN SCHEMA-AREA. 02 EL-NID SIZE 1 WORDS. * BYTES (EL,<,>) ;NAME-ID OF TRANSACTION * ;NUMBER OF TRN-AREA LINES FOR BIND 02 EL-SS SIZE 1 WORDS. * FIELD (EL.SS) ;SUB-SCHEMAS IN 02 EL-IMG SIZE 1 WORDS. * BYTES (EL,<,>) ;FLAGS FOR THIS TRANS * ;IMAGE TYPES FOR THIS TRANS 02 EL-NLEN SIZE 1 WORDS. * FIELD (EL-NLEN) ;LENGTH OF NAME 02 EL-NAM PIC X(30) USAGE DISPLAY-7. * FIELD (EL.NAM,NAMLEN/CPW) ;REAL NAME RECORD TRN-AREA-LINE LOCATION VIA EK WITHIN SCHEMA-AREA. 02 KL-UCLU SIZE 1 WORDS. * BYTES (KL,<,>) ;USAGE MODE (RETR, UPDTE) 02 KL-ARID SIZE 1 WORDS. * FIELD (KL.ARID) ;NAME-ID OF AREA RECORD Y-LINE LOCATION VIA SY WITHIN SCHEMA-AREA. * ;[6%20] INDEX (Y) BLOCK 02 YL-FPG SIZE IS 1 WORDS. * FIELD (YL.FPG) ; FIRST PAGE OF INDEX BLOCK RANGE 02 YL-LPG SIZE IS 1 WORDS. * FIELD (YL.LPG) ; LAST PAGE OF INDEX BLOCK RANGE 02 YL-EPI SIZE IS 1 WORDS. * FIELD (YL.EPI) ; MAX # OF KEYS PER IDX BLOCK 02 YL-EPB SIZE IS 1 WORDS. * FIELD (YL.EPB) ; MAX # OF RECORDS PER BOUY 02 YL-ISIZ SIZE IS 1 WORDS. * FIELD (YL.ISIZ) ; INDEX BLOCK SIZE IN WORDS 02 YL-NSIZ SIZE IS 1 WORDS. * FIELD (YL.NSIZ) ; INDEX NODE SIZE IN WORDS 02 YL-ANMID SIZE IS 1 WORDS. * BYTES (YL,<,>) * ; YL.NUL - NOT USED * ; YL.ANMID - AREA NAME ID 02 YL-ASYM SIZE IS 1 WORDS. * BYTES (YL,<,>) * ; SYM - ADR OF SETNAME IN SYM TBL * ; ASYM - AREA SYM NODE PTR 02 YL-SLEN SIZE IS 1 WORDS. * FIELD (YL.SLEN) ; SET NAME'S LENGTH 02 YL-SNAM PIC X(30) USAGE DISPLAY-7. * FIELD (YL.SNAM,NAMLEN/CPW) ; SET NAME ******** * * S E T D E F I N I T I O N S * ******** SET NAME IS SR MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS SCHEMA-LINE. MEMBER IS RECORD-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS SA MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS SCHEMA-LINE. MEMBER IS AREA-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS SU MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS SCHEMA-LINE. MEMBER IS SUB-SCHEMA-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS SE MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS SCHEMA-LINE. MEMBER IS TRANSACTION-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS SY MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS SCHEMA-LINE. MEMBER IS Y-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS RD MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS RECORD-LINE. MEMBER IS DATA-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS RM MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS RECORD-LINE. MEMBER IS MEMBER-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS RO MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS RECORD-LINE. MEMBER IS OWNER-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS RW MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS RECORD-LINE. MEMBER IS WITHIN-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS AW MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS AREA-LINE. MEMBER IS WITHIN-LINE OPTIONAL MANUAL SET SELECTION CURRENT. ![6%521] SET NAME IS OM MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS OWNER-LINE. MEMBER IS MEMBER-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS OY MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS OWNER-LINE. MEMBER IS Y-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS MV MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS MEMBER-LINE. MEMBER IS VIA-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS VC MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS VIA-LINE. MEMBER IS CONTROL-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS DC ![6%521] MODE IS CHAIN ![6%521] ORDER IS ALWAYS NEXT ![6%521] OWNER IS DATA-LINE. ![6%521] MEMBER IS CONTROL-LINE OPTIONAL MANUAL ![6%521] SET SELECTION CURRENT. ![6%521] SET NAME IS DT ![6%521] MODE IS CHAIN ![6%521] ORDER IS ALWAYS NEXT ![6%521] OWNER IS DATA-LINE. ![6%521] MEMBER IS TEXT-LINE OPTIONAL MANUAL ![6%521] SET SELECTION CURRENT. ![6%521] SET NAME IS EK MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS TRANSACTION-LINE. MEMBER IS TRN-AREA-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SET NAME IS FI MODE IS CHAIN ORDER IS ALWAYS NEXT OWNER IS FILE-LINE. MEMBER IS ITEM-LINE OPTIONAL MANUAL SET SELECTION CURRENT. SUB-SCHEMA NAME IS ALL-LINES. AREA SECTION. COPY ALL AREAS. RECORD SECTION. COPY ALL RECORDS. SET SECTION. COPY ALL SETS. END-SCHEMA.