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

IMAGES NOT IN ORDER BY COMMAND.
NOTE UPDATE.
JOURNAL IS JRN:PITNEY
   SIZE IS 100 TRANSACTIONS.


ASSIGN CUSTOMER-AREA TO AREA1
RECORDS-PER-PAGE 12
BACKUP BEFORE IMAGES
BUFFER COUNT IS 20
FIRST PAGE IS 1
LAST PAGE IS 1001
PAGE SIZE IS 512 WORDS.


ASSIGN METER-AREA TO AREA2
RECORDS-PER-PAGE 20
BACKUP BEFORE IMAGES
BUFFER COUNT IS 25
FIRST PAGE IS 3001
LAST PAGE IS 5001
PAGE SIZE IS 512 WORDS
RANGE OF METER-RECORD IS PAGE 3001 TO 4001.


ASSIGN PARENT-PO-AREA TO AREA3
RECORDS-PER-PAGE 60
BACKUP BEFORE IMAGES
BUFFER COUNT IS 20
FIRST PAGE IS 7001
LAST PAGE IS 8001
PAGE SIZE IS 512 WORDS.


SCHEMA NAME IS PITNEY.


AREA NAME IS CUSTOMER-AREA.


RECORD NAME IS CUSTOMER-RECORD
LOCATION MODE IS CALC USING CUSTOMER-NUMBER
DUPLICATES ARE NOT ALLOWED
WITHIN CUSTOMER-AREA.
02 CUSTOMER-NUMBER    PIC X(5).
02 CUST-UPDATE-FLAG   PIC 99.
02 CUST-DATE          PIC X(6).
02 CUST-FILLER        PIC X(159).
02 CUST-REC-DESC      PIC X(8).


AREA NAME IS METER-AREA.


RECORD NAME IS METER-RECORD
LOCATION MODE IS CALC USING METER-NUMBER
DUPLICATES ARE NOT ALLOWED
WITHIN METER-AREA.
02 METER-NUMBER            PIC X(5).
02 METER-LAST-UPDATE       PIC X(4).
02 METER-UPDATE-FLAG       PIC 99.
02 METER-ACT-RECORDS  PIC 9999.
02 METER-FILLER            PIC X(125).
02 METER-REC-DESC          PIC X(5).


RECORD NAME IS METER-ACT-RECORD
LOCATION MODE VIA METER-SET
WITHIN METER-AREA.
02 METER-ACT-DATE     PIC X(6).
02 METER-ACT-CODE     PIC XXX.
02 METER-ACT-FILLER   PIC X(33).
02 METER-ACT-REC-DESC PIC X(8).



RECORD NAME IS CUSTOMER-HISTORY-RECORD
LOCATION MODE VIA CUSTOMER-HISTORY-SET
WITHIN METER-AREA.
02 METER-CUSTOMER-HISTORY-NUMBER     PIC X(5).
02 CUSTOMER-HISTORY-NUMBER           PIC X(5).
02 CUSTOMER-FILLER                            PIC X(26).


RECORD NAME IS BRANCH-HISTORY-RECORD
LOCATION MODE VIA BRANCH-HISTORY-SET
WITHIN METER-AREA.
02 METER-BRANCH-HISTORY-NUMBER       PIC X(5).
02 BRANCH-HISTORY-NUMBER             PIC X(4).
02 BRANCH-HISTORY-FILLER                            PIC X(27).


AREA NAME IS PARENT-PO-AREA.


RECORD NAME IS PARENT-PO-RECORD
LOCATION MODE IS CALC USING PARENT-NUMBER
DUPLICATES ARE NOT ALLOWED
WITHIN PARENT-PO-AREA.
02 PARENT-NUMBER     PIC X(4).
02 PARENT-FILLER     PIC X(26).
02 PARENT-REC-DESC   PIC X(6).


RECORD NAME IS BRANCH-PO-RECORD
LOCATION MODE IS CALC USING BRANCH-NUMBER
DUPLICATES ARE NOT ALLOWED
WITHIN PARENT-PO-AREA.
02 BRANCH-NUMBER     PIC X(4).
02 BRANCH-FILLER     PIC X(26).
02 BRANCH-REC-DESC   PIC X(6).


SET NAME IS PARENT-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS PARENT-PO-RECORD
	MEMBER IS BRANCH-PO-RECORD OPTIONAL MANUAL
	SET SELECTION CURRENT.

SET NAME IS METER-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS METER-RECORD
	MEMBER IS METER-ACT-RECORD MANDATORY AUTOMATIC
	SET SELECTION CURRENT.

SET NAME IS BRANCH-METER-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS BRANCH-PO-RECORD
	MEMBER IS METER-RECORD
		OPTIONAL MANUAL
	SET SELECTION CURRENT.

SET NAME IS CUSTOMER-METER-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS CUSTOMER-RECORD
	MEMBER IS METER-RECORD
		OPTIONAL MANUAL
	SET SELECTION CURRENT.


SET NAME IS CUSTOMER-HISTORY-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS METER-RECORD
	MEMBER IS CUSTOMER-HISTORY-RECORD
		MANDATORY AUTOMATIC
	SET SELECTION CURRENT.


SET NAME IS BRANCH-HISTORY-SET
	MODE IS CHAIN
	ORDER IS ALWAYS FIRST
	OWNER IS METER-RECORD
	MEMBER IS BRANCH-HISTORY-RECORD
		MANDATORY AUTOMATIC
	SET SELECTION CURRENT.


SUB-SCHEMA NAME IS SUBPIT.

AREA SECTION.
	COPY ALL AREAS.

RECORD SECTION.
	COPY ALL RECORDS.

SET SECTION.
	COPY ALL SETS.

END-SCHEMA.