sHelp
                                     LAB.R.SUPL.DIST
     i   2
   lab.r.supl.dist.main
     lab.r.supl.dist.comments
     lab.r.supl.dist.containers

 Ì     i   2
lab.r.supl.dist.main    (main) 
[urn]
?SRSD[srsd]

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

 Ì   €�   i   2
lab.r.supl.dist.comments    (comments) 
[urn, comment.q]
?SRSD[srsd]C[srsdK]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 comment.q                    2 PINT     R                 srsdK                                                       
 comment                     60 FREE     L                 ?SRSD[srsd]C[srsdK]                                         

 Ì   €�   i   2
lab.r.supl.dist.containers    (containers) 
[urn, container]
?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                 ?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                                        

 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 lab.r.supl.dist.client.x           [client,dist.date,number] = urn
   client.x                           ?SRSDC[ggg,srsdd,srsdN]

 lab.r.supl.dist.number.x           [year,client,num.part] = urn
   number.x                           :SRSDN[srsdY,ggg,srsdn]