sHelp
                                     BAR.CLAIM.PGM
       2
   bar.claim.pgm.main
     bar.claim.pgm.fields
     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.fields    (fields) 
[mnemonic, field]
&BEP[bep]F[bepF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 field                       15 FREE     L                 bepF                                                        
 description                 35 FREE     L                 &BEP[bep]F[bepF]|3                                          
 map.field                   20 FREE     L                 &BEP[bep]F[bepF]|1                                          
 map.or.value                 1 CHOICE   L                 &BEP[bep]F[bepF]|0                                          
 sort.file                   10 FREE     L                 &BEP[bep]F[bepF]|2                                          
 Ì        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                 11 FREE     L                 bepR                                                        
 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                  10 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