SALARY Sample

The SALARY table contains data on salary and monthly pay deductions.

In this section: SALARY MASTER SALARY FOCSQL SALARY Diagram With OCCURS Segment

SALARY MASTER

For DB2 or DB2 for VM:

 FILENAME=SALARY, SUFFIX=SQLDS,$
 
 SEGNAME=SALARY,  SEGTYPE=S0,$
  FIELD=EMPID,    ALIAS=EMPID,    USAGE=A7,   ACTUAL=A7,$
  FIELD=EMPNAME,  ALIAS=EMPNAME,  USAGE=A10,  ACTUAL=A10,$
  FIELD=SALARY,   ALIAS=PAY,      USAGE=P9.2, ACTUAL=P8,$
 
  FIELD=DEDUCT1,  ALIAS=DEDUCT1,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT2,  ALIAS=DEDUCT2,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT3,  ALIAS=DEDUCT3,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT4,  ALIAS=DEDUCT4,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT5,  ALIAS=DEDUCT5,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT6,  ALIAS=DEDUCT6,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT7,  ALIAS=DEDUCT7,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT8,  ALIAS=DEDUCT8,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT9,  ALIAS=DEDUCT9,  USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT10, ALIAS=DEDUCT10, USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT11, ALIAS=DEDUCT11, USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=DEDUCT12, ALIAS=DEDUCT12, USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
 
 SEGNAME=OCC, PARENT=SALARY, POSITION=DEDUCT1, OCCURS=12,$
  FIELD=TAX,      ALIAS=TAXDEDUC, USAGE=P9.2, ACTUAL=P8, MISSING=ON,$
  FIELD=ORDER,    ALIAS=ORDER,     USAGE=I4,   ACTUAL=I4,$

Note: For Teradata, change the suffix value to SQLDBC, for CA-IDMS, change the suffix value to SQLIDMS, and for Oracle, change the suffix value to SQLORA.

SALARY FOCSQL

For DB2 or DB2 for VM:

SEGNAME = SALARY, TABLENAME = "USER1"."SALARY", KEYS = 1,
WRITE = NO,   DBSPACE = PUBLIC.SPACE0,$

For Teradata:

SEGNAME=SALARY, TABLENAME=USER1.SALARY, KEYS=1, WRITE= NO, FALLBACK=YES,$

For IDMS SQL:

SEGNAME = SALARY, TABLENAME = SALRSCHEM.SALARY, KEYS = 2,
 WRITE = YES,  DBSPACE = SALRSEG.SALRAREA,$

For Oracle:

SEGNAME=SALARY, TABLENAME=USER1.SALARY, KEYS=1, WRITE = NO, 
   DBSPACE=SPACE1, $

SALARY Diagram With OCCURS Segment

check file salary pict
  NUMBER OF ERRORS=     0
  NUMBER OF SEGMENTS=   2  ( REAL=    2  VIRTUAL=   0 )
  NUMBER OF FIELDS=     6  INDEXES=   0  FILES=     1
  TOTAL LENGTH OF ALL FIELDS=  129
 SECTION 01
              STRUCTURE OF SQLDS    FILE SALARY   ON 06/16/93 AT 09.44.51
 
          SALARY
  01      S0
 **************
 *EMPID       **
 *EMPNAME     **
 *SALARY      **
 *DEDUCT      **
 *            **
 ***************
  **************
        I
        I
        I
        I OCC
  02    I S0
 **************
 *TAX         **
 *ORDER       **
 *            **
 *            **
 *            **
 ***************
  **************