Examiner Library

This SL library is set up as EXAMINERLIB, and is called by Agile Business Suite programs as follows:

PROCEDURE TIME_PLEASE (TIME12); returns TIME(12) for 11 digits.

PROCEDURE CAPTURE_INFO(INFO); supplies a record in the following COBOL format.

 	01 GLB-TIME-REC.
		03 GLB-TIME-TAG 				REAL 						%Unique trans id
		03 GLB-TIME-CODE 				PIC 9(3). 				%Timing point id
		03 GLB-TIME-ID 				PIC X. 					%Record Code
		03 GLB-TIME11 					PIC 9(11). 				%Time
		03 GLB-TIME-MIX 				PIC 9(8) COMP. 		%Mix no of program
		03 GLB-TIME-ISPEC 			PIC x(5). 				%Ispec name
		03 GLB-TIME-CPU 				PIC 9(16) COMP. 		%CPU time
		03 GLB-TIME-PIVOT 			PIC 9(10). 				%LINCLOG Pivot
		03 GLB-TIME-FIND 				PIC 9(8) COMP. 		%DMS read count
		03 GLB-TIME-STORE 			PIC 9(8) COMP. 		%DMS write count
		03 GLB-TIME-SUBSYSTEM 		PIC 99 COMP. 			%LINC subsystem
		03 GLB-TIME-FILLER1 		PIC X(1).
		03 GLB-TIME-SYSTEMNAME 	PIC X(30). 				%LINC System name
		03 GLB-TIME-VER 				PIC X(4). 				%Value for LINC Release

For the restricted, special-purpose Network Applications Platform interface, the COBOL format is redefined, with extra properties from the NAP header.

 01 GLB-TIME-NAP-REC REDEFINES GLB-TIME-REC.
		03 GLB-TIME-NAP-DILGID 			PIC X(6).
		03 GLB-TIME-NAP-CODE 				PIC 9(3).
		03 GLB-TIME-NAP-ID 					PIC X.
		03 GLB-NAP-TIME11 					PIC 9(11).
		03 GLB-TIME-NAP-MIX 				PIC 9(8) COMP.
		03 GLB-TIME-NAP-ISPEC 				PIC X(5).
		03 GLB-TIME-NAP-CPU 				PIC 9(16) COMP.
		03 GLB-TIME-NAP-ERRORS 			PIC 9(8).
		03 GLB-TIME-NAP-DIALOG-INDEX REDEFINES GLB-TIME-NAP-ERRORS
	PIC X(8).
		03 GLB-TIME-NAP-FIND 				PIC 9(8) COMP.
		03 GLB-TIME-NAP-STORE 				PIC 9(8) COMP.
		03 GLB-TIME-NAP-SUBSYSTEM 		PIC 99 COMP.
		03 GLB-TIME-NAP-MSGTYP 			PIC 9(4).
		03 GLB-TIME-NAP-ONEEXIT.
			09 GLB-TIME-NAP-EXAMKEY 		PIC X(30).
			09 GLB-TIME-NAP-DGTRC 			PIC X(3).
		03 GLB-TIME-NAP-ONEENTRY REDEFINES GLB-TIME-NAP-ONEEXIT.
			09 GLB-TIME-NAP-SYSTEMNAME 	PIC X(10).
			09 GLB-TIME-NAP-RSPHDR 		PIC X(23).

REAL PROCEDURE AUTO-ENABLE (REQUEST, PARAMETER, PARAMETERSZ, ACTION):
		REAL PARAMETERSZ, 					%length of packname
		RESULTS; 								%0, 11, 12 SUCCESS

		EBCDIC ARRAY REQUEST[0], 			%"EXAM"
		PARAMETER[0], 							%packname
		ACTION; 									%"ON, "OFF", "CHANGE"

For the ACTION value, ON starts collections of statistics, OFF stops statistics, and CHANGE changes packs.