sHelp
                                     PHA.JOB.CLASS
     i   2
 main
   printers

 Ì   €   i   2
main
[job.class]
&(T)TDJC[gzc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 job.class                   20 FREE     L                 gzc                                                         
 active                       1 YN       L                 &(T)TDJC[gzc]|0                                             
 last.update                 50 FREE     L                 &(T)TDJC[gzc]UPD                                            
 Ì   €   i   2
printers
[job.class,  printer]
&(T)TDJC[gzc]P[hup]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 printer                     10 FREE     L  UNV.PRINTER    hup                                                     

 Index Files                        Subscripts/Physical Base

 printer.x                          [printer] = job.class
                                      &(T)TDJCP[hup]