CREATE DICTIONARY SEARTONS

ELEMENT BRANCH-ID                C 4  &
    PATTERN "^^^#"
ELEMENT BRANCH-NAME              C 18 
ELEMENT BRANCH-PROV              C 2  &
    PATTERN "^^"
ELEMENT ACCOUNT-ID               C 10
ELEMENT N-ACCOUNT-ID             N 10
ELEMENT ACCOUNT-STATUS           C 2 &
    VALUE "A" CAPTION "ACTIVE"
ELEMENT ISSUE-DATE               N 8

ELEMENT EXPIRY-DATE              N 8
ELEMENT CARDS-ISSUED             N 2
ELEMENT PRIMARY-FIRST-NAME       C 18
ELEMENT PRIMARY-LAST-NAME        C 12
ELEMENT PRIMARY-MID-INIT         C 2
ELEMENT PRIMARY-CARD-HOLDER      C 32
ELEMENT SECOND-FIRST-NAME        C 18
ELEMENT SECOND-LAST-NAME         C 12
ELEMENT SECOND-MID-INIT          C 2
ELEMENT SECOND-CARD-HOLDER       C 32
ELEMENT STATEMENT-DAY            N 2
ELEMENT PREV-BALANCE             N 12      
ELEMENT CURRENT-BALANCE          N 12      
ELEMENT TOTAL-PAYMENTS           N 12      
ELEMENT TOTAL-PURCHASES          N 12      
ELEMENT LAST-PAY-DATE            N 8
ELEMENT LAST-PURCH-DATE          N 8
ELEMENT MIN-PAY-DUE              N 12 &
    PICTURE "$^,^^^,^^^,^^^.^^"     
ELEMENT CREDIT-LIMIT             N 12 &
    PICTURE "$^,^^^,^^^,^^^"     
ELEMENT ACTUAL-CRD-LIMIT         N 12      
ELEMENT STREET                   C 18
ELEMENT CITY                     C 18
ELEMENT PROVINCE                 C 2
ELEMENT POSTAL-CODE              C 6
ELEMENT CARD-HOLDER-ADDRESS      C 44
ELEMENT LANG-CODE                C 2
ELEMENT LAST-CONTACT-DATE        N 8
ELEMENT WORK-PHONE               N 10      
ELEMENT HOME-PHONE               N 10  & 
    PICTURE "(^^^) ^^^-^^^^"  SIGNIFICANCE 14  
ELEMENT INTEREST-OWED            N 12  
ELEMENT DATE-OF-BIRTH            N 8 &
    PICTURE "^^^^-^^-^^" SIGNIFICANCE 10
ELEMENT PAYMENT-DATE             C 8
ELEMENT PAYMENT-TIME             C 6
ELEMENT PAYMENT-AMT              N 12     
ELEMENT PAYMENT-TYPE             C 2
ELEMENT REFERENCE-ID             C 4
ELEMENT YEAR-MONTH               N 6
ELEMENT TOT-MON-PAY              N 12    
ELEMENT TOT-MON-SALE             N 12    
ELEMENT SALE-DATE                C 8
ELEMENT SALE-TIME                C 6
ELEMENT SALES-SLIP-NBR           N 8     
ELEMENT PURCHASE-AMT             N 12    
ELEMENT AUTH-NBR                 N 8     
ELEMENT RETURN-NBR               N 4   
ELEMENT INT-RATE                 N 4       
ELEMENT RETURN-DATE              C 8
ELEMENT RETURN-TIME              C 6
ELEMENT RETURN-AMT               N 12   
ELEMENT RETURN-KEY               C 24
ELEMENT BRANCH-FILLER            C 232
ELEMENT ACCOUNT-FILLER           C 246
ELEMENT CLIENT-FILLER            C 42
ELEMENT PAYMENT-FILLER           C 214
ELEMENT SALE-FILLER              C 214
ELEMENT RETURN-FILLER            C 218
ELEMENT SEARTON-FILLER           C 236
ELEMENT SUMMARY-FILLER           C 240
ELEMENT PAYMENT-KEY              C 24
ELEMENT SALES-KEY                C 24

FILE BRANCH-INFO      ORGANIZATION INDEXED
    RECORD BRANCH-INFO
        ITEM BRANCH-ID                      DATATYPE CHAR
        ITEM BRANCH-NAME                    DATATYPE CHAR
        ITEM BRANCH-PROV                    DATATYPE CHAR
        ITEM BRANCH-FILLER                  DATATYPE CHAR
        INDEX BRANCH-ID          UNIQUE   
            SEGMENT BRANCH-ID

FILE CLIENT           ORGANIZATION INDEXED
    RECORD CLIENT                           
        ITEM ACCOUNT-ID                     DATATYPE CHAR
        ITEM ACCOUNT-STATUS                 DATATYPE CHAR
        ITEM ISSUE-DATE                     DATATYPE INTEGER SIGNED SIZE 4
        ITEM EXPIRY-DATE                    DATATYPE INTEGER SIGNED SIZE 4
        ITEM CARDS-ISSUED                   DATATYPE INTEGER SIGNED SIZE 4
        ITEM PRIMARY-CARD-HOLDER            
            BEGIN STRUCTURE
                ITEM PRIMARY-LAST-NAME      DATATYPE CHAR
                ITEM PRIMARY-FIRST-NAME     DATATYPE CHAR
                ITEM PRIMARY-MID-INIT       DATATYPE CHAR
            END STRUCTURE
        ITEM SECOND-CARD-HOLDER
            BEGIN STRUCTURE
                ITEM SECOND-LAST-NAME       DATATYPE CHAR 
                ITEM SECOND-FIRST-NAME      DATATYPE CHAR
                ITEM SECOND-MID-INIT        DATATYPE CHAR
            END STRUCTURE
        ITEM STATEMENT-DAY                  DATATYPE INTEGER SIGNED SIZE 4  
        ITEM PREV-BALANCE                   DATATYPE PACKED SIZE 6
        ITEM CURRENT-BALANCE                DATATYPE PACKED SIZE 6
        ITEM TOTAL-PAYMENTS                 DATATYPE PACKED SIZE 6
        ITEM TOTAL-PURCHASES                DATATYPE PACKED SIZE 6
        ITEM LAST-PAY-DATE                  DATATYPE INTEGER SIGNED SIZE 4 
        ITEM LAST-PURCH-DATE                DATATYPE INTEGER SIGNED SIZE 4 
        ITEM MIN-PAY-DUE                    DATATYPE PACKED SIZE 6
        ITEM CREDIT-LIMIT                   DATATYPE PACKED SIZE 6
        ITEM ACTUAL-CRD-LIMIT               DATATYPE PACKED SIZE 6
        ITEM CARD-HOLDER-ADDRESS            
            BEGIN STRUCTURE
                ITEM STREET                 DATATYPE CHAR
                ITEM CITY                   DATATYPE CHAR
                ITEM PROVINCE               DATATYPE CHAR
                ITEM POSTAL-CODE            DATATYPE CHAR
            END STRUCTURE
        ITEM LANG-CODE                      DATATYPE CHAR
        ITEM LAST-CONTACT-DATE              DATATYPE INTEGER SIGNED SIZE 4
        ITEM WORK-PHONE                     DATATYPE PACKED SIZE 6
        ITEM HOME-PHONE                     DATATYPE PACKED SIZE 6
        ITEM INTEREST-OWED                  DATATYPE PACKED SIZE 6
        ITEM DATE-OF-BIRTH                  DATATYPE INTEGER SIGNED SIZE 4
        ITEM CLIENT-FILLER                  DATATYPE CHAR
      
        INDEX ACCOUNT-ID          UNIQUE
            SEGMENT ACCOUNT-ID
        INDEX ACCOUNT-STATUS      REPEATING
             SEGMENT ACCOUNT-STATUS 
        INDEX ISSUE-DATE          REPEATING  
            SEGMENT ISSUE-DATE   
        INDEX EXPIRY-DATE         REPEATING
            SEGMENT EXPIRY-DATE         
        INDEX PRIMARY-CARD-HOLDER REPEATING
            SEGMENT PRIMARY-CARD-HOLDER      
        INDEX STATEMENT-DAY       REPEATING
            SEGMENT STATEMENT-DAY
        INDEX LAST-PAY-DATE       REPEATING
            SEGMENT LAST-PAY-DATE
        INDEX LAST-PURCH-DATE     REPEATING
            SEGMENT LAST-PURCH-DATE    
        INDEX CARD-HOLDER-ADDRESS REPEATING
           SEGMENT CARD-HOLDER-ADDRESS

FILE PAYMENT-TRANSACTION          ORGANIZATION INDEXED
    RECORD PAYMENT-TRANSACTION
         ITEM PAYMENT-KEY 
         BEGIN STRUCTURE
             ITEM ACCOUNT-ID                    DATATYPE CHAR         
             ITEM PAYMENT-DATE                  DATATYPE CHAR  
             ITEM PAYMENT-TIME                  DATATYPE CHAR 
         END STRUCTURE
         ITEM BRANCH-ID                     DATATYPE CHAR
         ITEM PAYMENT-TYPE                  DATATYPE CHAR
         ITEM REFERENCE-ID                  DATATYPE CHAR
         ITEM BRANCH-PROV                   DATATYPE CHAR
         ITEM PAYMENT-AMT                   DATATYPE PACKED SIZE 6
         ITEM PAYMENT-FILLER                DATATYPE CHAR
 
         INDEX PAYMENT-KEY     UNIQUE
             SEGMENT PAYMENT-KEY          
         INDEX BRANCH-ID         REPEATING
             SEGMENT BRANCH-ID
         INDEX BRANCH-PROV       REPEATING
             SEGMENT BRANCH-PROV

FILE PAYMENT-TRANS-SUMMARY       ORGANIZATION INDEXED
    RECORD PAYMENT-TRANS-SUMMARY
        ITEM BRANCH-ID                     DATATYPE CHAR 
        ITEM YEAR-MONTH                    DATATYPE INTEGER SIGNED SIZE 4
        ITEM TOT-MON-PAY                   DATATYPE PACKED SIZE 6
        ITEM BRANCH-PROV                   DATATYPE CHAR
        ITEM SUMMARY-FILLER                DATATYPE CHAR
 
        INDEX BRANCH-ID          REPEATING
            SEGMENT BRANCH-ID
        INDEX YEAR-MONTH         REPEATING
            SEGMENT YEAR-MONTH

FILE SALES-TRANSACTION          ORGANIZATION INDEXED
    RECORD SALES-TRANSACTION
        ITEM SALES-KEY
        BEGIN STRUCTURE
            ITEM ACCOUNT-ID                    DATATYPE CHAR
            ITEM SALE-DATE                     DATATYPE CHAR
            ITEM SALE-TIME                     DATATYPE CHAR
        END STRUCTURE
        ITEM BRANCH-ID                     DATATYPE CHAR
        ITEM SALES-SLIP-NBR                DATATYPE INTEGER SIGNED SIZE 4
        ITEM AUTH-NBR                      DATATYPE INTEGER SIGNED SIZE 4
        ITEM PURCHASE-AMT                  DATATYPE PACKED SIZE 6
        ITEM SALE-FILLER                   DATATYPE CHAR 

        INDEX SALES-KEY        UNIQUE
            SEGMENT SALES-KEY
        INDEX BRANCH-ID         REPEATING
           SEGMENT BRANCH-ID

FILE SALES-TRANS-SUMMARY       ORGANIZATION INDEXED
    RECORD SALES-TRANS-SUMMARY
        ITEM BRANCH-ID                    DATATYPE CHAR              
        ITEM YEAR-MONTH                   DATATYPE INTEGER SIGNED SIZE 4
        ITEM TOT-MON-SALE                 DATATYPE PACKED SIZE 6
        ITEM BRANCH-PROV                  DATATYPE CHAR 
        ITEM SUMMARY-FILLER               DATATYPE CHAR 

        INDEX BRANCH-ID         REPEATING
           SEGMENT BRANCH-ID
        INDEX YEAR-MONTH        REPEATING
           SEGMENT YEAR-MONTH
        INDEX BRANCH-PROV       REPEATING
           SEGMENT BRANCH-PROV

FILE SEARTONS-WORK             ORGANIZATION SEQUENTIAL
    RECORD SEARTONS-WORK
        ITEM SALES-SLIP-NBR               DATATYPE INTEGER SIGNED SIZE 4
        ITEM AUTH-NBR                     DATATYPE INTEGER SIGNED SIZE 4
        ITEM RETURN-NBR                   DATATYPE INTEGER SIGNED SIZE 4
        ITEM INT-RATE                     DATATYPE INTEGER SIGNED SIZE 4
        ITEM N-ACCOUNT-ID                 DATATYPE INTEGER SIGNED SIZE 4
        ITEM SEARTON-FILLER               DATATYPE CHAR
             
FILE RETURNS                   ORGANIZATION INDEXED
    RECORD RETURNS
        ITEM RETURN-KEY
        BEGIN STRUCTURE
            ITEM ACCOUNT-ID               DATATYPE CHAR
            ITEM RETURN-DATE              DATATYPE CHAR
            ITEM RETURN-TIME              DATATYPE CHAR
        END STRUCTURE
        ITEM BRANCH-ID                    DATATYPE CHAR
        ITEM RETURN-NBR                   DATATYPE INTEGER SIGNED SIZE 4
        ITEM RETURN-AMT                   DATATYPE PACKED SIZE 6
        ITEM RETURN-FILLER                DATATYPE CHAR

        INDEX RETURN-KEY       UNIQUE
            SEGMENT RETURN-KEY
        INDEX BRANCH-ID        REPEATING
            SEGMENT BRANCH-ID
        INDEX RETURN-NBR       UNIQUE
            SEGMENT RETURN-NBR

FILE ACCOUNT-TEMP              ORGANIZATION SEQUENTIAL
     RECORD ACCOUNT-TEMP
        ITEM ACCOUNT-ID                  DATATYPE CHAR
        ITEM ACCOUNT-FILLER              DATATYPE CHAR 
LOAD