Key: ALLS35171108A.csv      53                                                
        4445333333334267722222233                                                
        1CC3351711081E33600000053                                                
Record: ALLS35171108A.csv      53 2017-12-08 Fri 04:477790084   DSS35062770     I
        4445333333334267722222233233332332332476233333333333322245533333333222224
        1CC3351711081E3360000005302017D12D080629004A47779008400043335062770000009
        000000000011111111112222222222333333333344444444445555555555666666666677777777778
        012345678901234567890123456789012345678901234567890123456789012345678901234567890
        
        SET RECL.HPAY = 300                                                                                
        SET KEYL.HPAY = 025                                                                        
                                                                                                   
                                                                                                   
        LENGTH   6       & LOCAL HPAY.ALLSYS.DEALER.ID$                                            
        LENGTH  12       & LOCAL HPAY.FILE.ID$                                                     
        LENGTH  20       & LOCAL HPAY.RUN.DATE.TIME$                                               
        LENGTH   6.0     & LOCAL HPAY.LINE.NR                                                      
                                                                                                   
                                                                                                   
HPAY.FMT: FORMAT _                                                                                 
HPAY.ALLSYS.DEALER.ID$;_           ! A(  1):AllSystems Dealer                       S   6    6  000
HPAY.FILE.ID$;_                    ! B(  2):File ID                                 S  12   12  006
HPAY.LINE.NR;_                     ! C(  3):No.                                     N  6.0   7  018
HPAY.RUN.DATE.TIME$;_              ! D(  4):RUN Date/Time                           S  20   20  025

!================                                                                                  
HPAY.INSERT.HPAY:                                                                                  
!================                                                                                  
        RC.GOOD.INSERT$ = Y.ANS$                                                                   
        INSERT (LUN.HPAY,HPAY.FMT) EXCPSUB=EXCPSUB.INSERT                                          
        HPAY.INSERTED$  = RC.GOOD.INSERT$                                                          
                                                                                                   
        RETURN                                                                                     
        
Comet CFAM KeyCheck Utility Version 14.00   12/08/2017 05:15        
                                                            
Checking File "HPAY" on "SYS"                               
                                                            
From Key: < First Key >                                     
To Key:   < Last Key >                                      
                                                            
Positions of key fields in record are:                      
0 for a length of 25                                        
                                                            
KeyCheck ended with Exception 2                             
                                                            
Keys processed: 456                                         
Total errors: 0                                             
KeyCheck completed:   12/08/2017 05:15