EMPFUND Sample

The EMPFUND view accesses the EMPINFO and FUNDTRAN tables.

In this section: EMPFUND MASTER EMPFUND FOCSQL EMPFUND Diagram

EMPFUND MASTER

For DB2 or DB2 for VM:

FILENAME=EMPFUND ,SUFFIX=SQLDS,$
 
SEGNAME=EMPINFO  ,SEGTYPE=S0,$
 FIELD=EMP_ID        ,ALIAS=EID           ,USAGE=A9       ,ACTUAL=A9,$
 FIELD=LAST_NAME     ,ALIAS=LN            ,USAGE=A15      ,ACTUAL=A15,$
 FIELD=FIRST_NAME    ,ALIAS=FN            ,USAGE=A10      ,ACTUAL=A10,$
 FIELD=HIRE_DATE     ,ALIAS=HDT           ,USAGE=YMD      ,ACTUAL=DATE,$
 FIELD=DEPARTMENT    ,ALIAS=DPT           ,USAGE=A10      ,ACTUAL=A10,
   MISSING=ON,$
 FIELD=CURRENT_SALARY,ALIAS=CSAL          ,USAGE=P9.2     ,ACTUAL=P4,$
 FIELD=CURR_JOBCODE  ,ALIAS=CJC           ,USAGE=A3       ,ACTUAL=A3,$
 FIELD=ED_HRS        ,ALIAS=OJT           ,USAGE=F6.2     ,ACTUAL=F4,
   MISSING=ON,$
 FIELD=BONUS_PLAN    ,ALIAS=BONUS_PLAN    ,USAGE=I4       ,ACTUAL=I4,$
 
SEGNAME=FUNDTRAN, SEGTYPE=U, PARENT=EMPINFO,$
 FIELDNAME=WHO          ,ALIAS=EID   ,USAGE=A9    ,ACTUAL=A9,$
 FIELDNAME=BANK_NAME    ,ALIAS=BN    ,USAGE=A20   ,ACTUAL=A20,$
 FIELDNAME=BANK_CODE    ,ALIAS=BC    ,USAGE=I6S   ,ACTUAL=I4,$
 FIELDNAME=BANK_ACCT    ,ALIAS=BA    ,USAGE=I9S   ,ACTUAL=I4,$
 FIELDNAME=EFFECT_DATE   ,ALIAS=EDATE ,USAGE=YMD   ,ACTUAL=DATE,$

Note:

• For Teradata:
• Change the suffix value to SQLDBC.
• Change the ALIAS for LAST_NAME to LNAME.
• Change the ACTUAL format for CURRENT_SALARY to P8.
• Change the USAGE format for ED_HRS to D6.2 and the ACTUAL to D8.

• For CA-IDMS, change the suffix value to SQLIDMS.
• For Oracle, change the suffix value to SQLORA.

EMPFUND FOCSQL

For DB2 or DB2 for VM:

SEGNAME = EMPINFO, TABLENAME = "USER1"."EMPINFO", KEYS = 1, WRITE = YES,
     DBSPACE = PUBLIC.SPACE0,$
SEGNAME = FUNDTRAN, TABLENAME = "USER1"."FUNDTRAN", KEYS = 1,
    WRITE = YES, DBSPACE = PUBLIC.SPACE0,
    KEYFLD = EMP_ID, IXFLD = WHO,$

For Teradata:

SEGNAME=EMPINFO, TABLENAME=USER1.EMPINFO, KEYS=1, WRITE=YES, FALLBACK=YES,$
SEGNAME=FUNDTRAN,TABLENAME=USER1.FUNDTRAN,KEYS=1, WRITE=YES, FALLBACK=YES,
    KEYFLD=EMP_ID, IXFLD=WHO,$

For IDMS SQL:

SEGNAME = EMPINFO, TABLENAME = EMPSCHEM.EMPINFO, KEYS = 1, WRITE = YES,
     DBSPACE = EMPSEG.EMPAREA,$
SEGNAME = FUNDTRAN, TABLENAME = FUNDSCHM.FUNDTRAN, KEYS = 1,
    WRITE = YES, DBSPACE = FUNDSEG.FUNDAREA,
    KEYFLD = EMP_ID, IXFLD = WHO,$

For Oracle:

SEGNAME=EMPINFO, TABLENAME=USER1.EMPINFO, KEYS=1, WRITE=YES,
    DBSPACE=SPACE1,
SEGNAME = FUNDTRAN, TABLENAME = USER1.FUNDTRAN, KEYS = 1, WRITE=YES,
    DBSPACE=SPACE1,
     KEYFLD = EMP_ID, IXFLD = WHO,$

EMPFUND Diagram

check file empfund pict
  NUMBER OF ERRORS=     0
  NUMBER OF SEGMENTS=   2  ( REAL=    2  VIRTUAL=   0 )
  NUMBER OF FIELDS=    14  INDEXES=   0  FILES=     1
  TOTAL LENGTH OF ALL FIELDS=  104
 SECTION 01
              STRUCTURE OF SQLDS    FILE EMPFUND  ON 06/16/93 AT 09.43.45
 
          EMPINFO
  01      S0
 **************
 *EMP_ID      **
 *LAST_NAME   **
 *FIRST_NAME  **
 *HIRE_DATE   **
 *            **
 ***************
  **************
        I
        I
        I
        I FUNDTRAN
  02    I U
 **************
 *WHO         *
 *BANK_NAME   *
 *BANK_CODE   *
 *BANK_ACCT   *
 *            *
 **************