Trailing-Edge
-
PDP-10 Archives
-
red405a2
-
uetp/lib/tstidb.cbl
There are 15 other files named tstidb.cbl in the archive. Click here to see a list.
IDENTIFICATION DIVISION.
PROGRAM-ID. CTLCTST.
ENVIRONMENT DIVISION.
DATA DIVISION.
SCHEMA SECTION.
* DBMS
INVOKE V01IDB OF SCHEMA TSTIDB PRIVACY KEY COMPILE IDBALL.
WORKING-STORAGE SECTION.
01 STOP-ANS PIC X.
01 ANS PIC X.
01 ABC COMP-1.
01 TRAP-FLAG PIC 9(10) COMP.
PROCEDURE DIVISION.
DECLARATIVES.
USE1 SECTION.
USE IF ERROR-STATUS.
USE11.
DISPLAY "ERROR: USE".
END DECLARATIVES.
START-THE-RUN.
ENTER MACRO JMBEF USING 0.
ENTER MACRO STATS.
STOP RUN.