HOSPDBD

PRINT NOGEN
DBD NAME=HOSPDBD,ACCESS=(HDAM),RMNAME=(DFSHDC40,1,500)
DATASET DD1=HOS,DEVICE=3390
SEGM NAME=HOSPITAL,PARENT=0,BYTES=60
FIELD NAME=(HOSPNAME,SEQ,U),BYTES=20,START=1,TYPE=C
SEGM NAME=WARD,PARENT=HOSPITAL,BYTES=40
FIELD NAME=(WARDNO,SEQ,U),BYTES=4,START=1,TYPE=C
FIELD NAME=BEDAVAIL,BYTES=3,START=12,TYPE=C
FIELD NAME=WARDTYPE,BYTES=20,START=16,TYPE=C
SEGM NAME=PATIENT,PARENT=WARD,BYTES=40
FIELD NAME=(BEDIDENT,SEQ,U),BYTES=4,START=1,TYPE=C
FIELD NAME=PATNAME,BYTES=20,START=10,TYPE=C
FIELD NAME=DATEADMT,BYTES=6,START=30,TYPE=C
DBDGEN
FINISH
END