PAYINFO Sample

The PAYINFO table contains the employees' salary history.

PAYINFO MASTER

For DB2:

FILENAME=PAYINFO,  SUFFIX=DB2,$
SEGNAME=PAYINFO  ,SEGTYPE=S0,$
  FIELDNAME=PAYEID  ,ALIAS=EID ,USAGE=A9        ,ACTUAL=A9,$
  FIELDNAME=DAT_INC ,ALIAS=DI  ,USAGE=YMD       ,ACTUAL=DATE,$
  FIELDNAME=PCT_INC ,ALIAS=PI  ,USAGE=F6.2      ,ACTUAL=F4,$
  FIELDNAME=SALARY  ,ALIAS=SAL ,USAGE=D12.2M    ,ACTUAL=D8,$
  FIELDNAME=JOBCODE  ,ALIAS=JBC ,USAGE=A3        ,ACTUAL=A3,$
Note:
  • For Teradata:
    • Change the suffix value to SQLDBC.
    • Change the ALIAS for PCT_INC to PINC, the USAGE format to D6.2, and the ACTUAL format to D8.
    • Change the USAGE format for SALARY to P9.2 and the ACTUAL to P8.
  • For CA-IDMS, change the suffix value to SQLIDMS.
  • For Oracle, change the suffix value to SQLORA.

PAYINFO FOCSQL

For DB2:

SEGNAME = PAYINFO, TABLENAME = "USER1"."PAYINFO", KEYS = 2, WRITE = YES,
    DBSPACE = PUBLIC.SPACE0,$

For Teradata:

SEGNAME=PAYINFO,TABLENAME=USER1.PAYINFO,KEYS=2,WRITE=YES,FALLBACK=YES,$

For IDMS SQL:

SEGNAME = PAYINFO, TABLENAME = PAYSCHEM.PAYINFO, KEYS = 2, WRITE = YES,
    DBSPACE = PAYSEG.PAYAREA,$

For Oracle:

SEGNAME=PAYINFO, TABLENAME=USER1.PAYINFO, KEYS=2, WRITE=YES,
   DBSPACE=SPACE1, $

PAYINFO Diagram

check file payinfo pict
  NUMBER OF ERRORS=     0
  NUMBER OF SEGMENTS=   1  ( REAL=    1  VIRTUAL=   0 )
  NUMBER OF FIELDS=     5  INDEXES=   0  FILES=     1
  TOTAL LENGTH OF ALL FIELDS=   28
 SECTION 01
              STRUCTURE OF SQLDS    FILE PAYINFO  ON 06/16/93 AT 09.44.31
          PAYINFO
  01      S0
 **************
 *PAYEID      **
 *DAT_INC     **
 *PCT_INC     **
 *SALARY      **
 *            **
 ***************
  **************