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

Sample Logical File DDS

T* YQ: Birth details (0|BTDT|SEX).
Z* CRTLF
*
H* SYSTEM : Widget processing system
H* PROGRAMMER : Alfred E Neuman
H* DATE : 07/07/87
H* (C) COPYRIGHT 1987 Universal Sprocket Co
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A UNIQUE
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R @USDAYQ PFILE(YMUSDAP)
A TEXT(‘YQ: Birth details+ (0|BTDT|SX)’)
A
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

* Birth date
A K YQBTDT
* Gender code
A K YQSXCD
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =