Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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,<<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)
	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,^D18>,<KTYP,^D18>>)
*				;CASE--FOR COMPARISON CTL
*					;KTYP--ASC/DESC FOR INSTANCE
	02 CL-ID SIZE 1 WORDS.
*	BYTES	(CL,<<IDDAT,^D18>,<IDSET,^D18>>)
*				;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,<<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
*
	02 ML-OFF SIZE 1 WORDS.
*	BYTES	(ML,<<OOFF,^D9>,<POFF,^D9>,<NOFF,^D9>>)
*				;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,<<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
*
	02 OL-XOFF SIZE 1 WORDS.
*	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
*
	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,<<REC,^D18>,<IDAREA,^D18>>)

*				;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,<<RDCODE,^D18>,<RDINC,^D18>>)	;[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,<<NKEY,^D18>,<TYP,^D18>>)
*					;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,<<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
	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,<<NKL,^D18>,<NMID,^D18>>)	;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,<<FLAG,^D18>,<IMG,^D18>>)	;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,<<USG,^D18>,<CLU,^D18>>)		;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,<<NUL,^D18>,<ANMID,^D18>>)
*					; YL.NUL - NOT USED
*					; YL.ANMID - AREA NAME ID
	02 YL-ASYM SIZE IS 1 WORDS.
*	BYTES	(YL,<<SYM,^D18>,<ASYM,^D18>>)
*					; 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.