DI21PART Sample

IBM ships the DI21PART database, which is an HDAM database, with IMS.

DI21PART DBD

  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

PSB to Access DI21PART

   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 dataset because PSBNAME=FOCSD.

FOCPSB to Access DI21PART

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

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

DI21PART Master File

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 dataset because its corresponding PCB in the DI21PART FOCPSB specifies PCBNAME=DI21PART.

DI21PART Access File

PSB=FOCSD,$

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