Google
 

Trailing-Edge - PDP-10 Archives - BB-D867E-BM - uetp/lib/v4s.ddl
There are 15 other files named v4s.ddl in the archive. Click here to see a list.
	IMAGES NOT BY COMMAND.
	INTERCEPT SYSTEM UPDATE BIND CALL.
	JOURNAL IS DSK:V4S.

	ASSIGN SYSTEM AREA AREA1 TO AREA1
	BACKUP BEFORE IMAGES
	CALC AT MOST 2 RECORDS-PER-PAGE
	RECORDS-PER-PAGE IS 72
	FIRST PAGE 1
	LAST PAGE 1000
	PAGE SIZE 384WORDS
	RANGE OF CALCREC 700 TO 1000.

	SCHEMA NAME IS V4S.

	AREA NAME IS AREA1 PRIVACY LOCK ABC.

	RECORD NAME IS CALCREC
	LOCATION MODE IS CALC USING PROFES, LNAME DUPLICATES NOT ALLOWED
	WITHIN AREA1.
	02 VACATION%VACAMT TYPE FLOAT BIN.
	02 LNAME PICTURE X(12) USAGE DISPLAY-7.
	02 FAMILY SIZE IS 3 WORDS.
	02 PROFES TYPE FIXED BIN.

	RECORD NAME IS SORTREC
	LOCATION MODE IS VIA SYS-SET
	WITHIN AREA1.
	02 EXPER TYPE FIXED DEC 3.
	02 SKILLMASK%SKMASK TYPE FIXED BIN 71.

	SET NAME IS SYS-SET
	ORDER IS SORTED DUPLICATES ARE ALLOWED
	OWNER IS SYSTEM
	MODE IS CHAIN.
	MEMBER IS SORTREC MAND AUTO
	ASC KEY IS SKILLMASK ASC RANGE KEY IS EXPER.

	SET NAME IS CALCSORT
	OWNER IS CALCREC
	ORDER IS ALWAYS NEXT
	MODE IS CHAIN.
	MEMBER IS SORTREC OPTIONAL AUTO LINKED TO OWNER
	SET SELECTION IS LOCATION MODE OF OWNER.

	SUB-SCHEMA NAME IS SS1.

AREA SECTION.
	COPY AREA1.

RECORD SECTION.
	01 SORTREC.
	01 CALCREC.
	02 FAMILY.
	DATA FAMILY/10,20,30/
	COPY OTHERS.

SET SECTION.
	COPY ALL SETS.

	SUB-SCHEMA NAME IS SS2.

AREA SECTION.
	COPY AREA1.

RECORD SECTION.
	01 SORTREC.
	01 CALCREC.
	02 FAMILY.
	03 A PIC 9(10) COMP VALUE 10.
	03 B PIC 9(20) COMP VALUE 10.
	03 C PIC 9(30) COMP VALUE 10.
	COPY OTHERS.

SET SECTION.
	COPY ALL SETS.

	SUB-SCHEMA NAME IS SS3.

AREA SECTION.
	COPY	TEMPORARY AREA1.

RECORD SECTION.
	01 SORTREC.
	01 CALCREC.
	02 FAMILY.
	DATA FAMILY/10,20,30/
	02 LNAME.
	DATA LNAME/'MISTERCALC'/
	COPY OTHERS.

SET SECTION.
	COPY ALL SETS.

	END-SCHEMA.