PRINT NOGEN
  DBD   NAME=DI21PART,ACCESS=(HDAM,VSAM),RMNAME=(DFSHDC40,4,80,500)
  DATASET  DD1=DI21PART,DEVICE=3380
  SEGM     NAME=PARTROOT,PARENT=0,BYTES=50,FREQ=250
  FIELD    NAME=(PARTKEY,SEQ),TYPE=C,BYTES=17,START=1
  SEGM     NAME=STANINFO,PARENT=PARTROOT,BYTES=85,FREQ=1
  FIELD    NAME=(STANKEY,SEQ),TYPE=C,BYTES=2,START=1
  SEGM     NAME=STOKSTAT,PARENT=PARTROOT,BYTES=160,FREQ=2
  FIELD    NAME=(STOCKEY,SEQ),TYPE=C,BYTES=16,START=1
  SEGM     NAME=CYCCOUNT,PARENT=STOKSTAT,BYTES=25,FREQ=1
  FIELD    NAME=(CYCLKEY,SEQ),TYPE=C,BYTES=2,START=1
  SEGM     NAME=BACKORDR,PARENT=STOKSTAT,BYTES=75,FREQ=0
  FIELD    NAME=(BACKKEY,SEQ),TYPE=C,BYTES=10,START=1
  DBDGEN
  FINISH
  END

   PCB       TYPE=TP,MODIFY=YES,EXPRESS=YES
   PCB       TYPE=TP,EXPRESS=NO,MODIFY=YES,SAMETRM=YES
   PCB       TYPE=DB,DBDNAME=DI21PART,PROCOPT=GO,KEYLEN=43
   SENSEG    NAME=PARTROOT,PARENT=0
   SENSEG    NAME=STANINFO,PARENT=PARTROOT
   SENSEG    NAME=STOKSTAT,PARENT=PARTROOT
   SENSEG    NAME=CYCCOUNT,PARENT=STOKSTAT
   SENSEG    NAME=BACKORDR,PARENT=STOKSTAT
   PSBGEN LANG=COBOL,PSBNAME=FOCSD,CMPAT=YES
   END

This PSB is member FOCSD in the PSB data set because PSBNAME=FOCSD.

FOCPSB=EXTENDED,$
PCBNAME=   , PCBTYPE=TERM,$
PCBNAME=   , PCBTYPE=TERM,$
PCBNAME=   , PCBTYPE=TERM,$
PCBNAME=DI21PART, PCBTYPE=DB,$

This FOCPSB is member FOCSD in the FOCPSB data set because it must have the same member name as its corresponding PSB.

FILE=DI21PART    ,SUFFIX=IMS,$
SEGNAME=PARTROOT ,PARENT=,SEGTYPE=S2,$
  FIELD=PARTKEY  ,ALIAS=PARTKEY.HKY  ,USAGE=A17  ,ACTUAL=A17  ,$
  FIELD=SKIP1    ,ALIAS=SKIP1        ,USAGE=A33  ,ACTUAL=A33  ,$
SEGNAME=STANINFO ,PARENT=PARTROOT,SEGTYPE=S2,$
  FIELD=STANKEY  ,ALIAS=STANKEY.KEY  ,USAGE=A2   ,ACTUAL=A2   ,$
  FIELD=SKIP2    ,ALIAS=SKIP2        ,USAGE=A83  ,ACTUAL=A83  ,$
SEGNAME=STOKSTAT ,PARENT=PARTROOT,SEGTYPE=S2,$
  FIELD=STOCKEY  ,ALIAS=STOCKEY.KEY  ,USAGE=A16  ,ACTUAL=A16  ,$
  FIELD=SKIP3    ,ALIAS=,SKIP3       ,USAGE=A124 ,ACTUAL=A124 ,$
SEGNAME=CYCCOUNT ,PARENT=STOKSTAT,SEGTYPE=S2,$
  FIELD=CYCCKEY  ,ALIAS=CYCCKEY.KEY  ,USAGE=A2   ,ACTUAL=A2   ,$
  FIELD=SKIP4    ,ALIAS=SKIP4        ,USAGE=A23  ,ACTUAL=A23  ,$
SEGNAME=BACKORDR ,PARENT=STOKSTAT,SEGTYPE=S2,$
  FIELD=BACKEY   ,ALIAS=BACKEY.KEY   ,USAGE=A10  ,ACTUAL=A10  ,$
  FIELD=SKIP5    ,ALIAS=SKIP5        ,USAGE=A65  ,ACTUAL=A65  ,$

This Master File is member DI21PART in the Master File data set because its corresponding PCB in the DI21PART FOCPSB specifies PCBNAME=DI21PART.

PSB=FOCSD,$

This Access File is member DI21PART in the Access File data set because it must have the same member name as its corresponding Master File. It can be used only in the DBCTL environment.