DELETE CONSOLE;
DEFINE DOMAIN CONSOLE
 USING CON-REC ON CONSOLE.SEQ;
DELETE C;
DEFINE DOMAIN C
 USING C-REC ON C.SEQ;
DELETE PRINT-CONSOLE;
DEFINE PROCEDURE PRINT-CONSOLE
READY CONSOLE READ
FOR CONSOLE BEGIN
	IF COTID = "COT -- Date " PRINT COT
	IF LOGID = "Login " PRINT LOGIN
	IF LOGID = "Logout" PRINT LOGIN
	IF DMOID = "Dismount" PRINT DMO
	IF BATID = "Batch" BEGIN
		IF BATTYP = "started" PRINT BATIM, BATNAM, DEV1
		IF BATTYP = "complet" PRINT BATIM, BATNAM, DEV2
		END
END
FINISH
END-PROCEDURE
DELETE CONVERT;
DEFINE PROCEDURE CONVERT
DEFINE FILE FOR C;
READY CONSOLE READ
READY C WRITE
DECLARE S-DATE USAGE IS DATE.
FOR CONSOLE BEGIN
	IF COTID = "COT -- Date " S-DATE = COTDATE
	IF LOGID = "Login ", "Logout" STORE C USING BEGIN
		DATE = S-DATE
		TIME = LITIM
		TYPE = LOGID
		TEXT = LOGNAM
		END
	IF DMOID = "Dismount" STORE C USING BEGIN
		DATE = S-DATE
		TIME = DMOTIM
		TYPE = "Dismount"
		DEVICE = DMODEV
		END
	IF BATID = "Batch" STORE C USING BEGIN
		DATE = S-DATE
		TIME = BATIM
		IF BATTYP = "started" BEGIN
			DEVICE = DEV1
			TYPE = "Batch Start"
			END
		IF BATTYP = "complet" BEGIN
			DEVICE = DEV2
			TYPE = "Batch Stop"
			END
		TEXT = BATNAM
		END
END
FINISH
END-PROCEDURE
DELETE BATCH-REPORT;
DEFINE PROCEDURE BATCH-REPORT
READY C READ
REPORT C WITH TYPE CONT "Batch" ON BATCH.RPT
SET REPORT-NAME = "Batch Jobs"
SET COLUMNS-PAGE = 80
PRINT C-REC
END-REPORT
END-PROCEDURE
DELETE CON-REC;
DEFINE RECORD CON-REC
USING
ALLOCATION IS LEFT-RIGHT
01 CON-REC.
	10 BASE.
		20 TEXT PIC X(56).
	10 COT REDEFINES BASE.
		20 COTIME PIC X(8).
		20 FILLER PIC X(2).
		20 COTID PIC X(12).
		20 FILLER PIC X(3).
		20 COTDATE PIC X(9).
	10 LOGIN REDEFINES BASE.
		20 LITIM PIC X(8).
		20 FILLER PIC XX.
		20 LOGID PIC X(6).
		20 FILLER PIC X(6).
		20 LOGNAM PIC X(14).
	10 DMO REDEFINES BASE.
		20 FILLER PIC XX.
		20 DMOTIM PIC X(8).
		20 FILLER PIC X(6).
		20 DMODEV PIC X(4).
		20 FILLER PIC X(5).
		20 DMOID PIC X(8).
	10 BATCH REDEFINES BASE.
		20 BATIM PIC X(8).
		20 FILLER PIC XX.
		20 BATID PIC X(5).
		20 FILLER PIC X(7).
		20 BATNAM PIC X(9).
		20 FILLER PIC X.
		20 BATTYP PIC X(7).
		20 FILLER PIC X(4).
		20 DEVICE PIC X(6).
		20 D1 REDEFINES DEVICE.
			30 DEV1 PIC X(4).
		20 D2 REDEFINES DEVICE.
			30 FILLER PIC XX.
			30 DEV2 PIC X(4).
;
DELETE C-REC;
DEFINE RECORD C-REC
USING
ALLOCATION IS LEFT-RIGHT
01 C-REC.
	10 DATE USAGE IS DATE.
	10 TIME PIC X(8).
	10 TYPE PIC X(12).
	10 DEVICE PIC X(4).
	10 TEXT PIC X(16) QUERY-HEADER IS " ".
;