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

IDENTIFICATION DIVISION.

PROGRAM-ID.	LIFE.
REMARKS.
	PROGRAM TO CALL THE MACRO SUBROUTINE "COBWAK" WITH
	AN ARGUMENT LIST. THE PURPOSE OF THIS IS TO WAKE A
	JOB AND GIVE IT LIFE! ENTERS DDT IF "DDT" OR "DEB" IS
	ENTERED FOR A JOB NUMBER. [DDT EXECUTION IS DEPENDENT
	ON THE LOADING OF DDT FROM THE SYSTEM LIBRARY.]

	*** DEVELOPED AS A TEST FOR THE WAKE ROUTINE "COBWAK" ***

AUTHOR.		DAVID RICHARD KIARSIS.
INSTALLATION.	REYNOLDS AND REYNOLDS.
DATE-WRITTEN.	27-JAN-72.
DATE-COMPILED.	27-JAN-72.
SECURITY.	TOP-SECRET.

ENVIRONMENT DIVISION.

CONFIGURATION SECTION.

SOURCE-COMPUTER. PDP-10.
OBJECT-COMPUTER. PDP-10.

DATA DIVISION.

WORKING-STORAGE SECTION.

01	WAKE-ARGUMENTS.
	02	WAKE-JOB	PIC	X(6).

PROCEDURE DIVISION.

START-THE-RUN.
	DISPLAY " ".
	DISPLAY "JOB? _"
	ACCEPT WAKE-JOB.
	IF WAKE-JOB EQUALS "STOP" OR "EXIT"
		GO TO END-THE-RUN.
	IF WAKE-JOB EQUALS "DDT" OR "DEB"
		GO TO FIX-LITTLE-BUG.

WAKE-UP-JOB.
	ENTER MACRO COBWAK USING WAKE-ARGUMENTS.

IS-THERE-LIFE.
	IF WAKE-JOB EQUALS "DONE"
		DISPLAY "JOB HAS LIFE!"
			GO TO START-THE-RUN.
	IF WAKE-JOB EQUALS "ERROR"
		DISPLAY "JOB IS TOO TIRED TO BE DISTURBED."
			GO TO START-THE-RUN.
	DISPLAY "***UNKNOW RETURN --> ",WAKE-JOB.

FIX-LITTLE-BUG.
	DISPLAY " ".
	DISPLAY "DEBUGGER HERE_".
	ENTER MACRO DDT.

RETURN-FROM-BUG.
	DISPLAY " ".
	DISPLAY "RETURN FROM BUG"
		GO TO START-THE-RUN.

END-THE-RUN.
	DISPLAY "***LIFE TERMINATED"
	STOP RUN.