sHelp
                                     EAR.SURG
     i   2
 main

 Ì     i   2
main
[mnemonic]
&(HO)HOCS[hcs]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 hcs                                                         
 active                       1 YN       L                 &(HO)HOCS[hcs]|0                                            
 keyword                     25 FREE     L                                                                             
 name                        30 FREE     L                 &(HO)HOCS[hcs]|1                                            
 type                        10 CHOICE   L                 &(HO)HOCS[hcs]|2                                            

 Index Files                        Subscripts/Physical Base

 name.x                             [name,mnemonic]
                                      &(HO)HOCSN[hcsn,hcs]