REDEFINE DOMAIN NCP_EVENTS USING NCP_EVENT_RECORD ON NCP_EVENTS.DOM;

REDEFINE RECORD NCP_EVENT_RECORD OPTIMIZE
01 NCP_EVENT_REC.
!
! Used for a domain table of Network event numbers to text.
!
! B. Z. Lederman
!
    10 EVENT_NUMBER PIC 999V99 EDIT_STRING ZZ9.99.
    10 TEXT PIC X(40).
;

DELETE EVENT_TABLE;
REDEFINE TABLE NCP_EVENT_TABLE FROM NCP_EVENTS
    EVENT_NUMBER : TEXT
    ELSE "Undefined"
END_TABLE

REDEFINE DOMAIN NCPFIX USING NCPFIX_RECORD ON NCPLOG.FIX;

REDEFINE DOMAIN NCPLOG USING NCPLOG_RECORD ON NCPLOG_FILE;

REDEFINE RECORD NCPLOG_RECORD OPTIMIZE
01 NCPLOG_REC.
!
! Used to 'explore' the NCP log file format.
!
! B. Z. Lederman
!
    10 A USAGE BYTE.
    10 B USAGE BYTE.
    10 C USAGE BYTE.
    10 D USAGE BYTE.
    10 E USAGE BYTE.
    10 F USAGE BYTE.
    10 G USAGE BYTE.
    10 H USAGE BYTE.
    10 I USAGE BYTE.
    10 J USAGE BYTE.
    10 K USAGE BYTE.
    10 L USAGE BYTE.
    10 LEN1 USAGE BYTE.
    10 HIDE1.
	20 FILLER PIC X(255).
    10 READ1 REDEFINES HIDE1.
	20 S1 PIC X(64).
!    10 STRINGA COMPUTED BY FN$PRINT_ONLY(S1).
!    10 STRING1 COMPUTED BY FN$STR_EXTRACT (S1, 1, LEN1).
!    10 STRING2 COMPUTED BY FORMAT FN$STR_COUNTED(S1, 7) USING X(60).
;

REDEFINE RECORD NCPFIX_RECORD OPTIMIZE
01 NCPFIX_REC.
!
! Read the converted NCP log file, processed by the NCPLOG program.
!
! B. Z. Lederman
!
    10 DATE USAGE DATE.
    10 TIME COMPUTED BY FN$TIME(DATE) EDIT_STRING T(11).
    10 HIDE1.
	20 FILLER PIC X(4).
    10 DATA1 REDEFINES HIDE1.
	20 CLASS USAGE WORD EDIT_STRING Z9.
	20 TYPE USAGE WORD EDIT_STRING Z9.
    10 EVENT COMPUTED BY FORMAT (CLASS + (TYPE/100)) USING ZZ9.Z9.
    10 E_TEXT COMPUTED BY EVENT VIA NCP_EVENT_TABLE EDIT_STRING X(16).
    10 HIDE2.
	20 FILLER PIC X(4).
    10 DATA2 REDEFINES HIDE2.
	20 AREA USAGE WORD EDIT_STRING 9.
	20 NUMBER USAGE WORD EDIT_STRING ZZ9.
    10 SENDER.
	20 ID COMPUTED BY DATA2.AREA | "." | DATA2.NUMBER EDIT_STRING X(6).
	20 NODE PIC X(6).
    10 SINK USAGE BYTE.
    10 ENTITY USAGE BYTE.
    10 HIDE3.
	20 FILLER PIC X(4).
    10 DATA3 REDEFINES HIDE3.
	20 AREA USAGE WORD EDIT_STRING 9.
	20 NUMBER USAGE WORD EDIT_STRING ZZ9.
    10 FROM.
	20 ID COMPUTED BY DATA3.AREA | "." | DATA3.NUMBER EDIT_STRING X(6).
        20 NCL PIC X(32) QUERY_HEADER IS "Node" / "Circuit" / "Line".
	20 DTE PIC X(16) QUERY_HEADER IS "DTE"/"or"/"Process".
;