Google
 

Trailing-Edge - PDP-10 Archives - BB-4148E-BM - sources/theini.cbl
There are 2 other files named theini.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. SETUP.
AUTHOR. SOFTWARE SUPPORT.
INSTALLATION. DEC-MARLBOROUGH.
DATE-WRITTEN. 24 APRIL 1980.
SECURITY. TRIVIAL.

***************************************************************************
*                                                                         *
* This program initializes the Theme Example database.                    *
*                                                                         *
***************************************************************************

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. DECSYSTEM-20.
OBJECT-COMPUTER. DECSYSTEM-20.
INPUT-OUTPUT SECTION.
DATA DIVISION.
SCHEMA SECTION.
	INVOKE SUB-SCHEMA COBSYS OF SCHEMA Theme
	PRIVACY KEY FOR COMPILE IS ACEDB.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.


	OPEN AREA Head-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Index-Block-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Inventory-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Manufacturing-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Orders-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Personnel-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Personal-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	OPEN AREA Temporary-Area
		USAGE-MODE IS EXCLUSIVE UPDATE
		PRIVACY KEY IS N1234.

	MOVE HIGH-VALUES TO Cust-dummy.
	MOVE 0 TO Num-of-Cust.
	STORE Cust-Head-Rec.
	MOVE HIGH-VALUES To Emp-dummy.
	MOVE 0 TO Num-of-Emp.
	STORE Employee-Head-Rec.
	MOVE HIGH-VALUES TO PO-Dummy.
	MOVE 0 TO Num-of-PO.
	STORE Purchase-Order-Head-Rec.
	MOVE HIGH-VALUES TO WO-Dummy.
	MOVE 0 TO Num-Work-Orders.
	STORE Work-Order-Head-Rec.
	MOVE HIGH-VALUES TO Number-dummy.
	MOVE 0 TO Last-Order-Num.
	STORE Number-of-Last-Order-Rec.
	MOVE HIGH-VALUES TO Part-Dummy.
	MOVE 0 TO Num-of-Parts.
	STORE Part-Head-Rec.
	CLOSE RUN-UNIT.
	CLOSE JOURNAL.
STOP RUN.