sHelp
                                     SCH.PROGRAM
     i   2
   sch.program.ltr.prn
   sch.program.main
     sch.program.departments

 Ì     i   2
sch.program.ltr.prn    (ltr.prn) 
[lp.mnemonic]
/WPLP[wp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 lp.mnemonic                 15 FREE     L  SCH.PROGRAM    wp                                                      
 lp.beg.date                  8 DATE     L                 /WPLP[wp]|0                                                 
 lp.end.date                  8 DATE     L                 /WPLP[wp]|1                                                 

 Ì     i   2
sch.program.main    (main) 
[mnemonic]
&WP[wp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    15 FREE     L                 wp                                                          
 active                       1 YN       L                 &WP[wp]|0                                                   
 appt.frag                   15 FREE     L  SCH.PROGRAM    &WP[wp]|8                                               
 appt.letter                  8 CHOICE   L                 &WP[wp]|14                                                  
 ask.time.range               1 YN       L                 &WP[wp]|11                                                  
 description                 35 FREE     L                 &WP[wp]|1                                                   
 ie.depts                     7 CHOICE   L                 &WP[wp]|16                                                  
 last.update                 10 PINT     R                 &WP[wp]UPD                                                  
 letter.text                 10 FREE     L  SCH.LETTER.TEXT&WP[wp]|5                                               
 letter.text.frag            10 FREE     L  SCH.LETTER.TEXT&WP[wp]|13                                              
 ltr.que.date                 8 DATE     L                 &WP[wp]|12                                                  
 magic.pgm.name              60 FREE     L                 &WP[wp]|4                                                   
 new.letter                  11 CHOICE   L                 &WP[wp]|6                                                   
 print.exp                    1 YN       L                 &WP[wp]|15                                                  
 sch.book.num.appt.cols       1 PINT     R                 &WP[wp]|10                                                  
 sch.book.time.increment      3 PINT     R                 &WP[wp]|9                                                   
 source                       1 CHOICE   L                 &WP[wp]|2                                                   
 type                        10 CHOICE   L                 &WP[wp]|3                                                   
 when.print                   6 CHOICE   L                 &WP[wp]|7                                                   

 Ì   €�   i   2
sch.program.departments    (departments) 
[mnemonic, department]
&WP[wp]DP[ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 department                  10 FREE     L  MIS.LOCN.DICT  ggn                                                     

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 sch.program.type.index             [type,mnemonic]
   type.x                             &WPTX[wpT,wp]