PATDB01 Sample

The PATDB01 database has a primary index because it is a HIDAM database. It is also defined with three secondary indexes. Chapter 3, Creating FOCUS Descriptions, describes how to create a Master File to use secondary indexes.

This section illustrates the following:

DBDs for the database and the indexes.

A PSB with four PCBs: one that uses the primary index and three others that use a secondary index as the main entry point to the database.

The FOCPSB that corresponds to the PSB.

A Master File, PATINFO, that describes the primary and three secondary indexes.

Top of page

PATDB01 DBD

Five DBDs are associated with PATDB01: the DBD for the database, the DBD for the primary index, and one DBD for each of the three secondary indexes.

Top of page

Database DBD for PATDB01

PATDB01 DBD:

  PRINT NOGEN
  DBD      NAME=PATDB01,ACCESS=(HIDAM,VSAM)
  DATASET  DD1=PATDB01,DEVICE=3380,BLOCK=4096,SCAN=5
*
  SEGM NAME=PATINFO,PTR=H,PARENT=0,BYTES=233
    FIELD NAME=(SSN,SEQ,U),BYTES=9,START=26,TYPE=C
    LCHILD NAME=(SEGIX,PATDBIX),PTR=INDX
    FIELD NAME=SEQFIELD,BYTES=6,START=1,TYPE=C
    FIELD NAME=REVSEQ,BYTES=6,START=7,TYPE=C
    FIELD NAME=SSNALPHA,BYTES=9,START=35,TYPE=C
    FIELD NAME=EMPID,BYTES=12,START=44,TYPE=C
    FIELD NAME=LNAME,BYTES=12,START=56,TYPE=C
    FIELD NAME=FNAME,BYTES=12,START=68,TYPE=C
    FIELD NAME=ADMDATE,BYTES=8,START=89,TYPE=C
    FIELD NAME=PATID,BYTES=10,START=176,TYPE=C
    FIELD NAME=/SX1
*
    LCHILD NAME=(SEGIX1,PATDBIX1),PTR=INDX
    XDFLD  NAME=IXNAME,SRCH=(LNAME,FNAME),                             X
               SUBSEQ=/SX1,NULLVAL=BLANK
*
    LCHILD NAME=(SEGIX2,PATDBIX2),PTR=INDX
    XDFLD  NAME=IXCOMP,SRCH=(SSNALPHA,EMPID,LNAME)
*
    LCHILD NAME=(SEGIX3,PATDBIX3),PTR=INDX
    XDFLD  NAME=IXADMD,SRCH=(ADMDATE),                                 X
               SUBSEQ=/SX1,NULLVAL=BLANK
*

  DBDGEN
  FINISH
  END

Top of page

Primary Index DBD for PATDB01

PATDBIX DBD:

    PRINT NOGEN
    DBD      NAME=PATDBIX,ACCESS=INDEX
    DATASET  DD1=PATDBIX,DEVICE=3380
  *
    SEGM NAME=SEGIX,PARENT=0,BYTES=9
      FIELD NAME=(SSNIX,SEQ,U),BYTES=9,START=1,TYPE=C
      LCHILD NAME=(PATINFO,PATDB01),INDEX=SSN
    DBDGEN
    FINISH
    END

Top of page

Secondary Index DBDs for PATDB01

PATDBIX1 DBD:

  PRINT NOGEN
  DBD      NAME=PATDBIX1,ACCESS=INDEX
  DATASET  DD1=PATDBIX1,DEVICE=3380
*
  SEGM NAME=SEGIX1,PARENT=0,BYTES=28
    FIELD NAME=(IXNAMEIX,SEQ,U),BYTES=28,START=1
    LCHILD NAME=(PATINFO,PATDB01),INDEX=IXNAME,PTR=SNGL
  DBDGEN
  FINISH
  END

PATDBIX2 DBD:

  PRINT NOGEN
  DBD      NAME=PATDBIX2,ACCESS=INDEX
  DATASET  DD1=PATDBIX2,DEVICE=3380
*
  SEGM NAME=SEGIX2,PARENT=0,BYTES=33
    FIELD NAME=(IXCOMPIX,SEQ,U),BYTES=33,START=1
    LCHILD NAME=(PATINFO,PATDB01),INDEX=IXCOMP,PTR=SNGL
  DBDGEN
  FINISH
  END

PATDBIX3 DBD:

  PRINT NOGEN
  DBD      NAME=PATDBIX3,ACCESS=INDEX
  DATASET  DD1=PATDBIX3,DEVICE=3380
*
  SEGM NAME=SEGIX3,PARENT=0,BYTES=12
    FIELD NAME=(IXADMDIX,SEQ,U),BYTES=12,START=1
    LCHILD NAME=(PATINFO,PATDB01),INDEX=IXADMD,PTR=SNGL
  DBDGEN
  FINISH
  END

Top of page

PSB to Access PATDB01

This PSB is member TSTPSB01 in the PSB dataset because PSBNAME=TSTPSB01.

PCB       TYPE=TP,MODIFY=YES,EXPRESS=YES
PCB       TYPE=TP,EXPRESS=NO,MODIFY=YES,SAMETRM=YES
*
PCB       TYPE=DB,DBDNAME=PATDB01,PROCOPT=GO,KEYLEN=9
SENSEG    NAME=PATINFO,PARENT=0
*
PCB       TYPE=DB,DBDNAME=PATDB01,PROCOPT=GO,KEYLEN=28,PROCSEQ=PATDBIX1
SENSEG    NAME=PATINFO,PARENT=0
*
PCB       TYPE=DB,DBDNAME=PATDB01,PROCOPT=GO,KEYLEN=33,PROCSEQ=PATDBIX2
SENSEG    NAME=PATINFO,PARENT=0
*
PCB       TYPE=DB,DBDNAME=PATDB01,PROCOPT=GO,KEYLEN=12,PROCSEQ=PATDBIX3
SENSEG    NAME=PATINFO,PARENT=0
*
PSBGEN    LANG=COBOL,PSBNAME=TSTPSB01,CMPAT=YES
END

Top of page

FOCPSB to Access PATDB01

FOCPSB=EXTENDED,$                                                           
PCBNAME=   , PCBTYPE=TERM,$                                                 
PCBNAME=   , PCBTYPE=TERM,$                                                 
PCBNAME=   , PCBTYPE=TERM,$                                                 
PCBNAME=PATINFO, PCBTYPE=DB,$                                               
PCBNAME=IXNAME , PCBTYPE=DB,$                                               
PCBNAME=IXCOMP , PCBTYPE=DB,$                                               
PCBNAME=IXADMD , PCBTYPE=DB,$

This FOCPSB is member TSTPSB01 in the FOCPSB dataset because it must have the same member name as its corresponding PSB. It has four database PCB entries. The first is for the normal entry point into the database and identifies the name of the Master File. Each of the other entries identifies one of the three secondary indexes.

Top of page

Master File to Access PATDB01

FILE=PATDB01,SUFFIX=IMS,$
SEGNAME=PATINFO,PARENT=,SEGTYPE=S1,$
FIELD=SEQFIELD       ,ALIAS=SEQFIELD.IMS   ,USAGE=A06   ,ACTUAL=A06,$
FIELD=REVSEQ         ,ALIAS=REVSEQ.IMS     ,USAGE=A06   ,ACTUAL=A06,$
FIELD=SALARY         ,ALIAS=               ,USAGE=A08   ,ACTUAL=A08,$
FIELD=OT_HR_PAY      ,ALIAS=               ,USAGE=A05   ,ACTUAL=A05,$
FIELD=SSN            ,ALIAS=SSN.KEY        ,USAGE=A09   ,ACTUAL=A09,$
FIELD=SSNALPHA       ,ALIAS=SSNALPHA.IMS   ,USAGE=A09   ,ACTUAL=A09,$
FIELD=EMPLOYEEID     ,ALIAS=EMPID.IMS      ,USAGE=A12   ,ACTUAL=A12,$
FIELD=LAST_NAME      ,ALIAS=LNAME.IMS      ,USAGE=A12   ,ACTUAL=A12,$
FIELD=FIRST_NAME     ,ALIAS=FNAME.IMS      ,USAGE=A12   ,ACTUAL=A12,$
FIELD=DATE_OF_BIRTH  ,ALIAS=               ,USAGE=A08   ,ACTUAL=A08,$
FIELD=RACE           ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=ADMIT_DATE     ,ALIAS=ADMDATE.IMS    ,USAGE=A08   ,ACTUAL=A08,$
FIELD=ADMIT_TYPE     ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=DISPOSITION    ,ALIAS=               ,USAGE=A02   ,ACTUAL=A02,$
FIELD=TRANSFER_DATE  ,ALIAS=               ,USAGE=A08   ,ACTUAL=A08,$
FIELD=ALLERGY1       ,ALIAS=               ,USAGE=A15   ,ACTUAL=A15,$
FIELD=ALLERGY2       ,ALIAS=               ,USAGE=A15   ,ACTUAL=A15,$
FIELD=ALLERGY3       ,ALIAS=               ,USAGE=A15   ,ACTUAL=A15,$
FIELD=ALLERGY4       ,ALIAS=               ,USAGE=A15   ,ACTUAL=A15,$
FIELD=HOUSING        ,ALIAS=               ,USAGE=A03   ,ACTUAL=A03,$
FIELD=RPR            ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=URIN           ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=PRACTITIONAR   ,ALIAS=               ,USAGE=A02   ,ACTUAL=A02,$
FIELD=SHIFT          ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=PATINET_ID     ,ALIAS=PATID.IMS      ,USAGE=A12   ,ACTUAL=A12,$
FIELD=WHO_ADDED      ,ALIAS=               ,USAGE=A10   ,ACTUAL=A10,$
FIELD=DATE_ADDED     ,ALIAS=               ,USAGE=A08   ,ACTUAL=A08,$
FIELD=WHO_EDITED     ,ALIAS=               ,USAGE=A10   ,ACTUAL=A10,$
FIELD=DATE_EDITED    ,ALIAS=               ,USAGE=A08   ,ACTUAL=A08,$
FIELD=STATION_ID     ,ALIAS=               ,USAGE=A12   ,ACTUAL=A12,$
FIELD=DIABETIC       ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$
FIELD=DIALYSIS       ,ALIAS=               ,USAGE=A01   ,ACTUAL=A01,$

GROUP=NAMEIX         ,ALIAS=IXNAME.SKY,    ,USAGE=A24,  ,ACTUAL=A24,$
 FIELD=NAMEL         ,ALIAS=LAST_NAME      ,USAGE=A12   ,ACTUAL=A12,$
 FIELD=NAMEF         ,ALIAS=FIRST_NAME     ,USAGE=A12   ,ACTUAL=A12,$

GROUP=COMPIX         ,ALIAS=IXCOMP.SKY     ,USAGE=A33   ,ACTUAL=A33,$
 FIELD=SSN_ALPHA     ,ALIAS=SSNALPHA       ,USAGE=A09   ,ACTUAL=A09,$
 FIELD=EMPLOYEE_ID   ,ALIAS=EMPLOYEEID     ,USAGE=A12   ,ACTUAL=A12,$
 FIELD=LASTNAME      ,ALIAS=LAST_NAME      ,USAGE=A12   ,ACTUAL=A12,$

GROUP=ADMDIX         ,ALIAS=IXADMD.SKY     ,USAGE=A08   ,ACTUAL=A08,$
 FIELD=SSN_ALPHA     ,ALIAS=SSNALPHA       ,USAGE=A08   ,ACTUAL=A08,$

This Master File is member PATINFO in the Master File dataset because the first database PCB in the TSTPSB01 FOCPSB specifies PCBNAME=PATINFO.

Information Builders