Programming and Coding Examples › Database File DDS Example › Sample Physical File DDS

Sample Physical File DDS

T* YQ    : Birth details (*NONE)                                      
Z*           CRTPF   MAXMBRS(*NOMAX) SIZE(*NOMAX)  
*                                                                 
H* SYSTEM             : Widget processing system  
H* PROGRAMMER         : E. Codd  
H* DATE                : 07/07/87 
H* (C) COPYRIGHT 1987 Universal Sprocket Co 
M* 12/12/89 HF Name at birth 
 * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
A                                                REF(YYFDRFP)   
A          R       @USDAYQ                 TEXT(‘YQ: Birth details) 
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 
* Gender code 
A                    YQSXCD  R       REFFLD($$SXCD) 
* Birth date
A                        YQBTDT  R       REFFLD($$BTDT)  
* Effective date
A                   YQEFDT  R       REFFLD($$EFDT) 
* Name at birth 
A                    YQBTNM  R       REFFLD($$BTNM)  
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =