sHelp
                                     AP.EDI.PROGRAM
       2
   ap.edi.program.main
     ap.edi.program.fields

 Ì       2
ap.edi.program.main    (main) 
[mnemonic]
&KJD[kjd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    15 FREE     L                 kjd                                                         
 active                       1 YN       L                 &KJD[kjd]|0                                                 
 last.update                 10 PINT     R                 &KJD[kjd]UPD                                                
 name                        50 FREE     L                 &KJD[kjd]|1                                                 
 phone                       14 PHONE    L                 &KJD[kjd]|4                                                 
 program                     15 FREE     L  MIS.PGM        &KJD[kjd]|3                                             

 Ì   €�     2
ap.edi.program.fields    (fields) 
[mnemonic, field]
&KJD[kjd]F[gipF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 field                       10 FREE     L                 gipF                                                        
 map                         10 FREE     L                 &KJD[kjd]F[gipF]|1                                          
 value                       30 FREE     L                 &KJD[kjd]F[gipF]|0