HOSPPSB

PCB TYPE=DB,NAME=HOSPDBD,KEYLEN=28,PROCOPT=A
SENSEG NAME=HOSPITAL,PARENT=0
SENSEG NAME=WARD,PARENT=HOSPITAL
SENSEG NAME=PATIENT,PARENT=WARD
PSBGEN LANG=COBOL,PSBNAME=HOSPPSB
END