DELETE NCPFIX;
REDEFINE DOMAIN NCPFIX USING NCPLOG_FIX_RECORD ON NCPLOG.FIX;

DELETE NCPLOG;
REDEFINE DOMAIN NCPLOG USING NCPLOG_RECORD ON NCPLOG.LOG;

DELETE NCPLOG_FIX_RECORD;
REDEFINE RECORD NCPLOG_FIX_RECORD OPTIMIZE
01 NCPLOG_FIX_REC.
    10 DATE USAGE DATE.
    10 TIME COMPUTED BY FN$TIME(DATE) EDIT_STRING T(11).
    10 CLASS USAGE WORD EDIT_STRING Z9.
    10 TYPE USAGE WORD EDIT_STRING Z9.
    10 SENDER.
	20 AREA USAGE WORD EDIT_STRING 9.
	20 NUMBER USAGE WORD EDIT_STRING ZZ9.
	20 NODE PIC X(6).
    10 SINK USAGE BYTE.
    10 ENTITY USAGE BYTE.
    10 FROM.
	20 AREA USAGE WORD EDIT_STRING 9.
	20 NUMBER USAGE WORD EDIT_STRING ZZ9.
        20 TEXT PIC X(32) QUERY_HEADER IS "Node" / "Circuit" / "Line".
;

DELETE NCPLOG_RECORD;
REDEFINE RECORD NCPLOG_RECORD OPTIMIZE
01 NCPLOG_REC.
    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).
;