sHelp
                                     LAB.R.SUPL.DIST
     i   2
 main
   comments
   containers

 Ì     i   2
main
[urn]
*(S)SRSD[srsd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                         10 URN      L                 srsd                                                        
 client                      10 FREE     L  MIS.DOC        *(S)SRSD[srsd]|0                                        
 client.name                 30 FREE     L                 VAL=@MIS.DOC.DICT.name[@client]                             
 dist.date                    8 DATE     L                 *(S)SRSD[srsd]|1                                            
 enter.date                   8 DATE     L                 *(S)SRSD[srsd]|4                                            
 enter.time                   4 HHMM     L                 *(S)SRSD[srsd]|5                                            
 enter.user                  10 FREE     L  MIS.USER       *(S)SRSD[srsd]|3                                        
 last.edit.date               8 DATE     L                 *(S)SRSD[srsd]|7                                            
 last.edit.time               4 HHMM     L                 *(S)SRSD[srsd]|8                                            
 last.edit.user              10 FREE     L  MIS.USER       *(S)SRSD[srsd]|9                                        
 num.part                     5 PINT     R                 VAL=@number#"1-"?1NN+0                                      
 number                       8 FREE     L                 *(S)SRSD[srsd]|2                                            
 requester                   30 FREE     L                 *(S)SRSD[srsd]|6                                            
 year                         4 PINT     R                 VAL=@LAB.R.SUPL.DIST.dist.date$4                            
 Ì   €   i   2
comments
[urn,  comment.q]
*(S)SRSD[srsd]C[srsdK]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.q                    2 PINT     R                 srsdK                                                       
 comment                     60 TEXT     L                 *(S)SRSD[srsd]C[srsdK]                                      
 Ì   €   i   2
containers
[urn,  container]
*(S)SRSD[srsd]CON[sck]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 container                   10 FREE     L  LAB.C.CONTAINERsck                                                     
 container.cnt                4 PINT     R                 *(S)SRSD[srsd]CON[sck]|0                                    
 temp.last.count              4 PINT     R                 VAL=/LC[container]|1                                        
 temp.last.date               8 DATE     L                 VAL=/LC[container]|0                                        
 temp.last.number             8 FREE     L                 VAL=/LC[container]|2                                        

 Index Files                        Subscripts/Physical Base

 client.x                           [client,dist.date,number] = urn
                                      ?(S)SRSDC[ggg,srsdd,srsdN]

 number.x                           [year,client,num.part] = urn
                                      ?(S)SRSDN[srsdY,ggg,srsdn]