ECOURSE Sample

The ECOURSE view accesses the EMPINFO and COURSE tables.

In this section: ECOURSE MASTER ECOURSE FOCSQL ECOURSE Diagram

ECOURSE MASTER

For DB2 or DB2 for VM:

FILENAME=ECOURSE     ,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=COURSE ,SEGTYPE=S0  ,PARENT=EMPINFO,$
 FIELD=CNAME   ,ALIAS=COURSE_NAME ,USAGE=A15, ACTUAL=A15,$
 FIELD=WHO     ,ALIAS=EMP_NO      ,USAGE=A9,  ACTUAL=A9,$
 FIELD=GRADE   ,ALIAS=GRADE       ,USAGE=A1,  ACTUAL=A1, MISSING=ON,$
 FIELD=YR_TAKEN,ALIAS=YR_TAKEN    ,USAGE=A2,  ACTUAL=A2,$
 FIELD=QTR     ,ALIAS=QUARTER      ,USAGE=A1,  ACTUAL=A1,$

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.

ECOURSE FOCSQL

For DB2 or DB2 for VM:

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

For Teradata:

SEGNAME=EMPINFO, TABLENAME=USER1.EMPINFO, KEYS=1, WRITE=YES,
   FALLBACK=YES,$
SEGNAME=COURSE,  TABLENAME=USER1.COURSE,  KEYS=2  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 = COURSE, TABLENAME = CRSSCHEM.COURSE, KEYS = 2,
   WRITE = YES,     DBSPACE = CRSSEG.CRSAREA,
     KEYFLD = EMP_ID, IXFLD = WHO,$

For Oracle:

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

ECOURSE Diagram

check file ecourse 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=   91
 SECTION 01
              STRUCTURE OF SQLDS    FILE ECOURSE  ON 06/16/93 AT 09.43.01
 
          EMPINFO
  01      S0
 **************
 *EMP_ID      **
 *LAST_NAME   **
 *FIRST_NAME  **
 *HIRE_DATE   **
 *            **
 ***************
  **************
        I
        I
        I
        I COURSE
  02    I S0
 **************
 *CNAME       **
 *WHO         **
 *GRADE       **
 *YR_TAKEN    **
 *            **
 ***************
  **************