Trailing-Edge
-
PDP-10 Archives
-
DBMS-20_V6.0_bin_9-25-81
-
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.