sHelp
                                     BAR.CLAIM.PGM
       2
   bar.claim.pgm.main
     bar.claim.pgm.data.types
     facilities
     bar.claim.pgm.fields
       bar.claim.pgm.fld.attributes
       bar.claim.pgm.fld.attrs.len
     bar.claim.pgm.imag.records
       bar.claim.pgm.imag.fields
     bar.claim.pgm.spec.id.fields

 Ì       2
bar.claim.pgm.main    (main) 
[mnemonic]
&BEP[bep]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    15 FREE     L                 bep                                                         
 acct.limit                   8 PINT     R                 &BEP[bep]|10                                                
 active                       1 YN       L                 &BEP[bep]|0                                                 
 cpu.print.conf.pgm          45 FREE     L                 &BEP[bep]|8                                                 
 cpu.receive.conf.pgm        45 FREE     L                 &BEP[bep]|7                                                 
 cpu.transmit.pgm            45 FREE     L                 &BEP[bep]|14                                                
 date.range                   1 YN       L                 &BEP[bep]|13                                                
 editable                     1 YN       L                 &BEP[bep]|16                                                
 image.file                   1 YN       L                 &BEP[bep]|12                                                
 last.update                 10 PINT     R                 &BEP[bep]UPD                                                
 name                        30 FREE     L                 &BEP[bep]|1                                                 
 pgm.name                    30 FREE     L                 &BEP[bep]|2                                                 
 pgm.type                     5 CHOICE   L                 &BEP[bep]|3                                                 
 quarterly                    1 YN       L                 &BEP[bep]|9                                                 
 source                       1 CHOICE   L                 &BEP[bep]|4                                                 
 submission.per.prov          1 YN       L                 &BEP[bep]|11                                                
 tape.create.pgm             45 FREE     L                 &BEP[bep]|15                                                
 tape.number.of.buffers       3 PINT     R                 &BEP[bep]|6                                                 
 version                      1 FREE     L                 &BEP[bep]|5                                                 
 Ì       2
bar.claim.pgm.data.types    (data.types) 
[mnemonic, data.type]
&BEP[bep]DT[bepdt]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 data.type                   10 FREE     L                 bepdt                                                       
 data.type.cust.ei.conv      75 FREE     L                 &BEP[bep]DT[bepdt]EI                                        
 data.type.cust.format.chk   75 FREE     L                 &BEP[bep]DT[bepdt]F                                         
 data.type.cust.ie.conv      75 FREE     L                 &BEP[bep]DT[bepdt]IE                                        
 data.type.cust.message      75 FREE     L                 &BEP[bep]DT[bepdt]M                                         
 data.type.description       30 FREE     L                 &BEP[bep]DT[bepdt]|0                                        
 data.type.ext.int.conv.xl   75 FREE     L                 &BEP[bep]DT[bepdt]EIX                                       
 data.type.format.chk.xl     75 FREE     L                 &BEP[bep]DT[bepdt]FX                                        
 data.type.int.ext.conv.xl   75 FREE     L                 &BEP[bep]DT[bepdt]IEX                                       
 data.type.message.xl        75 FREE     L                 &BEP[bep]DT[bepdt]MX                                        
 data.type.npr.dt            25 FREE     L  NPR.DATA       &BEP[bep]DT[bepdt]|1                                    
 Ì       2
facilities    (facilities) 
[mnemonic, facility]
&BEP[bep]FAC[gqb]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 facility                    10 FREE     L  MIS.FACILITY   gqb                                                     
 facility.active              1 YN       L                 &BEP[bep]FAC[gqb]|0                                         
 Ì       2
bar.claim.pgm.fields    (fields) 
[mnemonic, field]
&BEP[bep]F[bepF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 field                       18 FREE     L                 bepF                                                        
 customer.access              1 YN       L                 &BEP[bep]F[bepF]|4                                          
 description                 55 FREE     L                 &BEP[bep]F[bepF]|3                                          
 field.data.type             10 FREE     L                 &BEP[bep]F[bepF]|7                                          
 map.field                   20 FREE     L                 &BEP[bep]F[bepF]|1                                          
 map.or.value                 1 CHOICE   L                 &BEP[bep]F[bepF]|0                                          
 max.length                   3 PINT     R                 &BEP[bep]F[bepF]|6                                          
 min.length                   3 PINT     R                 &BEP[bep]F[bepF]|5                                          
 sort.file                   10 FREE     L                 &BEP[bep]F[bepF]|2                                          
 Ì       2
bar.claim.pgm.fld.attributes    (field.attributes) 
[mnemonic,field, field.attribute]
&BEP[bep]F[bepF]A[bepFA]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 field.attribute              6 FREE     L                 bepFA                                                       
 field.attribute.log        255 FREE     L                 &BEP[bep]F[bepF]A[bepFA]L                                   
 field.attribute.xl         255 FREE     L                 &BEP[bep]F[bepF]A[bepFA]XL                                  
 Ì       2
bar.claim.pgm.fld.attrs.len    (field.attributes.lengths) 
[mnemonic,field, fld.attribute,fld.attribute.len.index]
&BEP[bep]F[bepF]AL[bepFA,bepli]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 fld.attribute                5 FREE     L                 bepFA                                                       
 fld.attribute.len.index      3 PINT     R                 bepli                                                       
 fld.attribute.len.value      3 PINT     R                 &BEP[bep]F[bepF]AL[bepFA,bepli]                             
 Ì       2
bar.claim.pgm.imag.records    (imag.records) 
[mnemonic, imag.record]
&BEP[bep]REC[bepR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 imag.record                 17 FREE     L                 bepR                                                        
 imag.record.condition       85 FREE     L                 &BEP[bep]REC[bepR]|2                                        
 imag.record.desc            55 FREE     L                 &BEP[bep]REC[bepR]|1                                        
 imag.record.level           10 FREE     L                 &BEP[bep]REC[bepR]|0                                        
 Ì       2
bar.claim.pgm.imag.fields    (imag.fields) 
[mnemonic,imag.record, imag.no]
&BEP[bep]REC[bepR]FLD[bepN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 imag.no                      7 FREE     L                 bepN                                                        
 imag.end                     3 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|3                               
 imag.field                  18 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|1                               
 imag.length                  3 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|4                               
 imag.seq                     2 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|0                               
 imag.split                  12 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|6                               
 imag.start                   3 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|2                               
 imag.type                    6 FREE     L                 &BEP[bep]REC[bepR]FLD[bepN]|5                               
 Ì       2
bar.claim.pgm.spec.id.fields    (spec.id.fields) 
[mnemonic, spec.id]
&BEP[bep]SIF[bepSI]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 spec.id                     17 FREE     L                 bepSI                                                       
 spec.id.description         35 FREE     L                 &BEP[bep]SIF[bepSI]|1                                       
 spec.id.field               15 FREE     L                 &BEP[bep]SIF[bepSI]|0