sHelp
                                     PP.PROGRAM
     i   2
   pp.program.dictionary

 Ì     i   2
pp.program.dictionary    (main) 
[mnemonic]
&JE.PG[jepg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    15 FREE     L                 jepg                                                        
 active                       1 YN       L                 &JE.PG[jepg]|0                                              
 cust.pgm.type               13 CHOICE   L                 &JE.PG[jepg]|3                                              
 id                          15 FREE     L                                                                             
 last.update                 10 PINT     R                 &JE.PG[jepg]UPD                                             
 magic.pgm.name              50 FREE     L                 &JE.PG[jepg]|4                                              
 name                        30 FREE     L                 &JE.PG[jepg]|1                                              
 pgm.type                    13 CHOICE   L                 &JE.PG[jepg]|3                                              
 source                       1 CHOICE   L                 &JE.PG[jepg]|2                                              
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pp.program.type.index              [pgm.type,mnemonic]
   pgm.type.x                         &JE.PGI[jepgT,jepg]