sHelp
                                     PHA.DFT
       2
 main
   sites
     defaults.by.prompt.code
       text
     ee
     prompts.by.seq.num
       text.by.seq.num

 Ì   €     2
main
[routine]
&(T)TDDF[tddf]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 routine                     10 FREE     L                 tddf                                                        
 active                       1 YN       L                 &(T)TDDF[tddf]|0                                            
 custom                       1 YN       L                 &(T)TDDF[tddf]|2                                            
 last.update                 50 FREE     L                 &(T)TDDF[tddf]UPD                                           
 list.active                  1 YN       L                 VAL=IF{@.user="MTB" "Y";@active}                            
 routine.name                30 FREE     L                 &(T)TDDF[tddf]|1                                            
 Ì   €     2
sites
[routine,  site]
&(T)TDDF[tddf]S[tdsi]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site                        10 FREE     L  PHA.SITE       tdsi                                                    
 Ì   €     2
defaults.by.prompt.code
[routine,site,  prompt.code.by.value]
&(T)TDDF[tddf]S[tdsi]D[tddfP]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 prompt.code.by.value        10 FREE     L                 tddfP                                                       
 dft                         30 FREE     L                 &(T)TDDF[tddf]S[tdsi]D[tddfP]                               
 Ì   €     2
text
[routine,site,prompt.code.by.value,  text.q]
&(T)TDDF[tddf]S[tdsi]D[tddfP]T[tddfR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 text.q                       2 PINT     R                 tddfR                                                       
 text.line                   90 TEXT     L                 &(T)TDDF[tddf]S[tdsi]D[tddfP]T[tddfR]                       
 Ì   €     2
ee
[routine,site,  ee.q]
&(T)TDDF[tddf]S[tdsi]EE[tddfQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 ee.q                         3 PINT     R                 tddfQ                                                       
 ee.default                  30 FREE     L                 &(T)TDDF[tddf]S[tdsi]EE[tddfQ]|4                            
 ee.dft.data.type             7 CHOICE   L                 &(T)TDDF[tddf]S[tdsi]EE[tddfQ]|3                            
 ee.dft.length                2 PINT     R                 &(T)TDDF[tddf]S[tdsi]EE[tddfQ]|2                            
 ee.prompt.seq.num            7 PDEC     R                 &(T)TDDF[tddf]S[tdsi]EE[tddfQ]|0                            
 ee.prompt.text              30 FREE     L                 &(T)TDDF[tddf]S[tdsi]EE[tddfQ]|1                            
 Ì   €     2
prompts.by.seq.num
[routine,site,  prompt.seq.num]
&(T)TDDF[tddf]S[tdsi]P[tddfN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 prompt.seq.num               7 PDEC     R                 tddfN                                                       
 choices                     80 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]C|0                            
 default.by.seq.num          30 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|6                             
 dft.data.type                7 CHOICE   L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|4                             
 dft.extra.check             80 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|5                             
 dft.length                   2 PINT     R                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|3                             
 help                        70 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]HLP                            
 prompt.code                 10 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|0                             
 prompt.custom                1 YN       L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|2                             
 prompt.text                 30 FREE     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]|1                             
 Ì   €     2
text.by.seq.num
[routine,site,prompt.seq.num,  text.by.seq.q]
&(T)TDDF[tddf]S[tdsi]P[tddfN]T[tddfR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 text.by.seq.q                2 PINT     R                 tddfR                                                       
 text.line.by.seq            90 TEXT     L                 &(T)TDDF[tddf]S[tdsi]P[tddfN]T[tddfR]