Google
 

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.