DELETE XFC_CACHE;
REDEFINE DOMAIN XFC_CACHE USING XFC_CACHE_RECORD ON XFC.DOM;

DELETE XFC_CACHE_RECORD;
REDEFINE RECORD XFC_CACHE_RECORD
!
! Bart Z. Lederman	21-MAY-2004	Basic definition for all fields.
!
01 XFC_CACHE_REC.
    10 FILE_INFO.
        20 NODE PIC X(8).
        20 DEVICE PIC X(8).
        20 DIRECTORY PIC X(64).
        20 FILE PIC X(64).
    10 STATE.
        20 OPEN PIC X(8).
        20 ENABLED PIC X(8).
        20 ACTIVE_CACHING_MODE PIC X(16).
    10 STATS.
        20 ALLOCATED_PAGES USAGE LONG EDIT_STRING Z,ZZ9.
        20 TOTAL_QIOS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 READ_HITS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 VIRTUAL_READS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 VIRTUAL_WRITES USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 HIT_RATE USAGE LONG EDIT_STRING Z,ZZ9.
        20 READ_AHEADS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 READ_THROUGHS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 WRITE_THROUGHS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 READ_AROUNDS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
        20 WRITE_AROUNDS USAGE LONG EDIT_STRING ZZZ,ZZZ,ZZ9.
;

DELETE XFC_CONVERT;
REDEFINE PROCEDURE XFC_CONVERT
!
! Bart Z. Lederman	21-MAY-2004	Read a CSV file, parse it out,
!					store the fields.
!
DECLARE T_NODE PIC X(16).
!
READY XFC_IN
!
DEFINE FILE FOR XFC_CACHE;      ! Create a new clean file.
!
READY XFC_CACHE WRITE
!
FOR XFC_IN BEGIN
    T_NODE = FN$STR_ELEMENT (0, ",", INFIELD)
!
! Skip fields which might have slipped through with no data. Also
! skip the CSV header record, if there is one.
!
    IF T_NODE NE "", "Node" STORE XFC_CACHE USING BEGIN
!
! All of the fields are simply parsed out using the comma delimiters.
!
        NODE = T_NODE
        DEVICE = FN$STR_ELEMENT (1 , ",", INFIELD)
        DIRECTORY = FN$STR_ELEMENT (2 , ",", INFIELD)
        FILE = FN$STR_ELEMENT (3 , ",", INFIELD)
        OPEN = FN$STR_ELEMENT (4 , ",", INFIELD)
        ENABLED = FN$STR_ELEMENT (5 , ",", INFIELD)
        ACTIVE_CACHING_MODE = FN$STR_ELEMENT (6 , ",", INFIELD)
        ALLOCATED_PAGES = FN$STR_ELEMENT (7 , ",", INFIELD)
        TOTAL_QIOS = FN$STR_ELEMENT (8 , ",", INFIELD)
        READ_HITS = FN$STR_ELEMENT (9 , ",", INFIELD)
        VIRTUAL_READS = FN$STR_ELEMENT (10 , ",", INFIELD)
        VIRTUAL_WRITES = FN$STR_ELEMENT (11 , ",", INFIELD)
        HIT_RATE = FN$STR_ELEMENT (12 , ",", INFIELD)
        READ_AHEADS = FN$STR_ELEMENT (13 , ",", INFIELD)
        READ_THROUGHS = FN$STR_ELEMENT (14 , ",", INFIELD)
        WRITE_THROUGHS = FN$STR_ELEMENT (15 , ",", INFIELD)
        READ_AROUNDS = FN$STR_ELEMENT (16 , ",", INFIELD)
        WRITE_AROUNDS = FN$STR_ELEMENT (17 , ",", INFIELD)
    END
END
END_PROCEDURE

DELETE XFC_IN;
REDEFINE DOMAIN XFC_IN USING XFC_IN_RECORD ON XFC.CSV;

DELETE XFC_IN_RECORD;
REDEFINE RECORD XFC_IN_RECORD
01 XFC_IN_REC.
    10 INFIELD PIC X(255) EDIT_STRING T(64).
;