IDMS/DB Sample File Descriptions

In this section:

The following sections contain:

Note: Some samples are annotated to illustrate specific clauses.


Top of page

x
Schema: EMPSCHM

This schema is the physical description of the IDMS/DB EMPSCHM database. It contains the following items:

ADD SCHEMA NAME IS EMPSCHM VERSION IS 1
SCHEMA DESCRIPTION IS 'EMPLOYEE DEMO DATABASE'
COMMENTS 'INSTALLATION: COMMONWEATHER CORPORATION'
    .
       ADD FILE NAME IS EMPDEMO ASSIGN TO EMPDEMO
           DEVICE TYPE IS 3380
    .
       ADD FILE NAME IS INSDEMO ASSIGN TO INSDEMO
                  DEVICE TYPE IS 3380
    .
       ADD FILE NAME IS ORGDEMO ASSIGN TO ORGDEMO
                  DEVICE TYPE IS 3380
    .
       ADD AREA NAME IS EMP-DEMO-REGION
                  RANGE IS 75001 THRU 75100
                  WITHIN FILE EMPDEMO FROM 1 THRU 100
    .
       ADD AREA NAME IS ORG-DEMO-REGION
                  RANGE IS 75151 THRU 75200
                  WITHIN FILE ORGDEMO FROM 1 THRU 50
    .
       ADD AREA NAME IS INS-DEMO-REGION
                  RANGE IS 75101 THRU 75150
                  WITHIN FILE INSDEMO FROM 1 THRU 50
    .
       ADD RECORD NAME IS COVERAGE
           SHARE STRUCTURE OF RECORD COVERAGE VERSION IS 1
           RECORD ID IS 0400
           LOCATION MODE IS VIA             EMP-COVERAGE SET
           WITHIN AREA INS-DEMO-REGION
           OFFSET  2 PAGES FOR 48 PAGES
    .
       ADD RECORD NAME IS DENTAL-CLAIM
           SHARE STRUCTURE OF RECORD DENTAL-CLAIM VERSION IS 1
           RECORD ID IS 0405
           LOCATION MODE IS VIA          COVERAGE-CLAIMS SET
           WITHIN AREA INS-DEMO-REGION
           OFFSET  2 PAGES FOR 48 PAGES
           MINIMUM ROOT LENGTH IS             130 CHARACTERS
           MINIMUM FRAGMENT LENGTH IS          RECORD LENGTH
    .
       ADD RECORD NAME IS DEPARTMENT
           SHARE STRUCTURE OF RECORD DEPARTMENT VERSION IS 1
           RECORD ID IS 0410
           LOCATION MODE IS CALC          USING DEPT-ID-0410
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA ORG-DEMO-REGION
           OFFSET  2 PAGES FOR 48 PAGES
    .
       ADD RECORD NAME IS EMPLOYEE
           SHARE STRUCTURE OF RECORD EMPLOYEE VERSION IS 1
           RECORD ID IS 0415
           LOCATION MODE IS CALC           USING EMP-ID-0415
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA EMP-DEMO-REGION
           OFFSET  2 PAGES FOR 98 PAGES
    .
       ADD RECORD NAME IS EMPOSITION
           SHARE STRUCTURE OF RECORD EMPOSITION VERSION IS 1
           RECORD ID IS 0420
           LOCATION MODE IS VIA           EMP-EMPOSITION SET
           WITHIN AREA EMP-DEMO-REGION
           OFFSET  2 PAGES FOR 98 PAGES
    .
       ADD RECORD NAME IS EXPERTISE
           SHARE STRUCTURE OF RECORD EXPERTISE VERSION IS 1
           RECORD ID IS 0425
           LOCATION MODE IS VIA            EMP-EXPERTISE SET
           WITHIN AREA EMP-DEMO-REGION
           OFFSET  2 PAGES FOR 98 PAGES
    .
       ADD RECORD NAME IS HOSPITAL-CLAIM
           SHARE STRUCTURE OF RECORD HOSPITAL-CLAIM VERSION IS 1
           RECORD ID IS 0430
           LOCATION MODE IS VIA          COVERAGE-CLAIMS SET
           WITHIN AREA INS-DEMO-REGION
           OFFSET  2 PAGES FOR 48 PAGES
    .
       ADD RECORD NAME IS INSURANCE-PLAN
           SHARE STRUCTURE OF RECORD INSURANCE-PLAN VERSION IS 1|
           RECORD ID IS 0435
           LOCATION MODE IS CALC    USING INS-PLAN-CODE-0435
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA INS-DEMO-REGION
           OFFSET  1 PAGE  FOR  1 PAGE
    .
       ADD RECORD NAME IS JOB
           SHARE STRUCTURE OF RECORD JOB VERSION IS 1
           RECORD ID IS 0440
           LOCATION MODE IS CALC           USING JOB-ID-0440
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA ORG-DEMO-REGION
           OFFSET  2 PAGES FOR 48 PAGES
           MINIMUM ROOT LENGTH IS CONTROL LENGTH
           MINIMUM FRAGMENT LENGTH IS RECORD LENGTH
           CALL IDMSCOMP BEFORE STORE
           CALL IDMSCOMP BEFORE MODIFY
           CALL IDMSDCOM AFTER GET
    .
       ADD RECORD NAME IS NON-HOSP-CLAIM
           SHARE STRUCTURE OF RECORD NON-HOSP-CLAIM VERSION IS 1
           RECORD ID IS 0445
           LOCATION MODE IS VIA          COVERAGE-CLAIMS SET
           WITHIN AREA INS-DEMO-REGION
           OFFSET 2 PAGES FOR 48 PAGES
           MINIMUM ROOT LENGTH IS             248 CHARACTERS
           MINIMUM FRAGMENT LENGTH IS          RECORD LENGTH
    .
       ADD RECORD NAME IS OFFICE
           SHARE STRUCTURE OF RECORD OFFICE VERSION IS 1
           RECORD ID IS 0450
           LOCATION MODE IS CALC      USING OFFICE-CODE-0450
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA ORG-DEMO-REGION
           OFFSET 2 PAGES FOR 48 PAGES
    .
       ADD RECORD NAME IS SKILL
           SHARE STRUCTURE OF RECORD SKILL VERSION IS 1
           RECORD ID IS 0455
           LOCATION MODE IS CALC         USING SKILL-ID-0455
                                      DUPLICATES NOT ALLOWED
           WITHIN AREA ORG-DEMO-REGION
           OFFSET 2 PAGES FOR 48 PAGES
    .
       ADD RECORD NAME IS STRUCTURE
           SHARE STRUCTURE OF RECORD STRUCTURE VERSION IS 1
           RECORD ID IS 0460
           LOCATION MODE IS VIA                  MANAGES SET
           WITHIN AREA EMP-DEMO-REGION
           OFFSET 2 PAGES FOR 98 PAGES
    .
       ADD SET NAME IS COVERAGE-CLAIMS
           ORDER IS LAST
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS COVERAGE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS HOSPITAL-CLAIM
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
           MEMBER IS NON-HOSP-CLAIM
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
           MEMBER IS DENTAL-CLAIM
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
    .
       ADD SET NAME IS DEPT-EMPLOYEE
           ORDER IS SORTED
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS DEPARTMENT
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EMPLOYEE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               OPTIONAL AUTOMATIC
               ASCENDING KEY IS ( EMP-LAST-NAME-0415
                                  EMP-FIRST-NAME-0415 )
                   DUPLICATES LAST
    .
       ADD SET NAME IS EMP-COVERAGE
           ORDER IS FIRST
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS EMPLOYEE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS COVERAGE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
    .
       ADD SET NAME IS EMP-EMPOSITION
           ORDER IS FIRST
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS EMPLOYEE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EMPOSITION
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
    .
       ADD SET NAME IS EMP-EXPERTISE
           ORDER IS SORTED
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS EMPLOYEE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EXPERTISE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
               DESCENDING KEY IS (SKILL-LEVEL-0425 )
                   DUPLICATES FIRST
    .
       ADD SET NAME IS EMP-NAME-NDX
           ORDER IS SORTED
           MODE IS INDEX BLOCK CONTAINS 40 KEYS
           OWNER IS SYSTEM
               WITHIN AREA EMP-DEMO-REGION
               OFFSET  1 PAGE  FOR  1 PAGE
           MEMBER IS EMPLOYEE
               INDEX DBKEY POSITION IS AUTO
               OPTIONAL AUTOMATIC
               ASCENDING KEY IS ( EMP-LAST-NAME-0415
                                  EMP-FIRST-NAME-0415 )
                   COMPRESSED
                   DUPLICATES LAST
    .
       ADD SET NAME IS JOB-EMPOSITION
           ORDER IS NEXT
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS JOB
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EMPOSITION
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               OPTIONAL MANUAL
    .
       ADD SET NAME IS JOB-TITLE-NDX
           ORDER IS SORTED
           MODE IS INDEX BLOCK CONTAINS 30 KEYS
           OWNER IS SYSTEM
               WITHIN AREA ORG-DEMO-REGION
               OFFSET  1 PAGE  FOR  1 PAGE
           MEMBER IS JOB
               INDEX DBKEY POSITION IS AUTO
               OPTIONAL AUTOMATIC
               ASCENDING KEY IS ( TITLE-0440 )
                   DUPLICATES NOT ALLOWED
    .
       ADD SET NAME IS MANAGES
           ORDER IS NEXT
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS EMPLOYEE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS STRUCTURE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
    .
       ADD SET NAME IS OFFICE-EMPLOYEE
           ORDER IS SORTED
           MODE IS INDEX BLOCK CONTAINS 30 KEYS
           OWNER IS OFFICE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EMPLOYEE
               INDEX DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               OPTIONAL AUTOMATIC
               ASCENDING KEY IS ( EMP-LAST-NAME-0415
                                  EMP-FIRST-NAME-0415 )
                   COMPRESSED
                   DUPLICATES LAST
    .
       ADD SET NAME IS REPORTS-TO
           ORDER IS NEXT
           MODE IS CHAIN LINKED TO PRIOR
           OWNER IS EMPLOYE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS STRUCTURE
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               OPTIONAL MANUAL
    .
       ADD SET NAME IS SKILL-EXPERTISE
           ORDER IS SORTED
           MODE IS INDEX BLOCK CONTAINS 30 KEYS
           OWNER IS SKILL
               NEXT DBKEY POSITION IS AUTO
               PRIOR DBKEY POSITION IS AUTO
           MEMBER IS EXPERTISE
               INDEX DBKEY POSITION IS AUTO
               LINKED TO OWNER
                   OWNER DBKEY POSITION IS AUTO
               MANDATORY AUTOMATIC
               DESCENDING KEY IS ( SKILL-LEVEL-0425 )
                   DUPLICATES FIRST
    .
       ADD SET NAME IS SKILL-NAME-NDX
           ORDER IS SORTED
           MODE IS INDEX BLOCK CONTAINS 30 KEYS
           OWNER IS SYSTEM
               WITHIN AREA ORG-DEMO-REGION
               OFFSET  1 PAGE  FOR  1 PAGE
           MEMBER IS SKILL
               INDEX DBKEY POSITION IS AUTO
               OPTIONAL AUTOMATIC
               ASCENDING KEY IS ( SKILL-NAME-0455 )
                   DUPLICATES NOT ALLOWED
    .
       VALIDATE
     .

Top of page

x
Network Subschema: EMPSS01

This subschema shows the network view of the schema EMPSCHM:

ADD SUBSCHEMA NAME IS EMPSS01
  OF SCHEMA NAME IS EMPSCHM VERSION  1
DMCL NAME IS EMPDMCL
  OF SCHEMA NAME IS EMPSCHM VERSION  1
COMMENTS 'THIS IS THE COMPLETE VIEW OF EMPSCHM'.
ADD AREA NAME IS EMP-DEMO-REGION.
ADD AREA NAME IS INS-DEMO-REGION.
ADD AREA NAME IS ORG-DEMO-REGION.
ADD RECORD NAME IS COVERAGE.
ADD RECORD NAME IS DENTAL-CLAIM.
ADD RECORD NAME IS DEPARTMENT.
ADD RECORD NAME IS EMPLOYEE.
ADD RECORD NAME IS EMPOSITION.
ADD RECORD NAME IS EXPERTISE.
ADD RECORD NAME IS HOSPITAL-CLAIM.
ADD RECORD NAME IS INSURANCE-PLAN.
ADD RECORD NAME IS JOB.
ADD RECORD NAME IS NON-HOSP-CLAIM.
ADD RECORD NAME IS OFFICE.
ADD RECORD NAME IS SKILL.
ADD RECORD NAME IS STRUCTURE.
ADD SET COVERAGE-CLAIMS.
ADD SET DEPT-EMPLOYEE.
ADD SET EMP-COVERAGE.
ADD SET EMP-EXPERTISE.
ADD SET EMP-NAME-NDX.
ADD SET EMP-EMPOSITION.
ADD SET JOB-EMPOSITION.
ADD SET JOB-TITLE-NDX.
ADD SET MANAGES.
ADD SET OFFICE-EMPLOYEE.
ADD SET REPORTS-TO.
ADD SET SKILL-EXPERTISE.
ADD SET SKILL-NAME-NDX.
GENERATE.

Top of page

x
Master File for Network

This Master File corresponds to the network subschema EMPSS01:

FILE=EMPFULL,SUFFIX=IDMSR ,$
SEGNAME=DEPT,$
  FIELDNAME=DEPT_ID     ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=DEPT_NAME   ,ALIAS=      ,USAGE=A45  ,ACTUAL=A45      ,$
  FIELDNAME=DEPT_HEAD   ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=DEPT_DBKEY  ,ALIAS=DBKEY ,USAGE=I10  ,ACTUAL=I4       ,$
SEGNAME=EMPLOYE,PARENT=DEPT,SEGTYPE=S,$
  FIELDNAME=EMP_ID      ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  GROUP=EMP_NAME        ,ALIAS=      ,USAGE=A25  ,ACTUAL=A25      ,$
    FIELDNAME=FIRST_NAME,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
    FIELDNAME=LAST_NAME ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=EMP_STREET  ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=EMP_CITY    ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=EMP_STATE   ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=EMP_FULL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=EMP_ZIP   ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=EMP_ZIP_L ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=EMP_PHONE   ,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=STATUS      ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  FIELDNAME=SOC_SEC_NUM ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
  FIELDNAME=EMP_STRT_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=EMP_TERM_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=EMP_BRTH_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=EMP_DBKEY   ,ALIAS=DBKEY ,USAGE=I10  ,ACTUAL=I4       ,$
SEGNAME=OFFICE,PARENT=EMPLOYE,SEGTYPE=U,$
  FIELDNAME=OFF_CODE    ,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
  FIELDNAME=OFF_STREET  ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=OFF_CITY    ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=OFF_STATE   ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=OFF_FULL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=OFF_ZIP   ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=OFF_ZIP_L ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=O_PHONES    ,ALIAS=      ,USAGE=A21  ,ACTUAL=A21      ,$
  FIELDNAME=OFF_AREA_CDE,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
  FIELDNAME=SPEED_DIAL  ,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
SEGNAME=PHONES,PARENT=OFFICE,SEGTYPE=S,OCCURS=3,POSITION=O_PHONES ,$
  FIELDNAME=OFF_PHONE   ,ALIAS=      ,USAGE=A7   ,ACTUAL=A7       ,$
  FIELDNAME=LINE_NO     ,ALIAS=ORDER ,USAGE=I4   ,ACTUAL=I4       ,$
SEGNAME=STRUCTUR,PARENT=EMPLOYE,SEGTYPE=S,$
  FIELDNAME=STRUCTURE_CD,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  FIELDNAME=STRUCTURE_DT,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
SEGNAME=SUBORDS,PARENT=STRUCTUR,SEGTYPE=U,$
  FIELDNAME=SUB_ID      ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  GROUP=SUB_NAME        ,ALIAS=      ,USAGE=A25  ,ACTUAL=A25      ,$
    FIELDNAME=SUB_F_NAME,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
    FIELDNAME=SUB_L_NAME,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=SUB_STREET  ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=SUB_CITY    ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=SUB_STATE   ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=SUB_FULL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=SUB_ZIP   ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=SUB_ZIP_L ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=SUB_PHONE   ,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=SUB_STATUS  ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  FIELDNAME=SUB_SSN     ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
  FIELDNAME=SUB_STRT_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=SUB_TERM_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=SUB_BRTH_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
SEGNAME=EMPOSIT,PARENT=EMPLOYE,SEGTYPE=S,$
  FIELDNAME=POS_STRT_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=POS_FIN_DTE ,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=SALARY_GRADE,ALIAS=      ,USAGE=P4   ,ACTUAL=Z2       ,$
  FIELDNAME=SALARY_AMT  ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=BONUS_PCT   ,ALIAS=      ,USAGE=P4   ,ACTUAL=P2       ,$
  FIELDNAME=COMMIS_PCT  ,ALIAS=      ,USAGE=P4   ,ACTUAL=P2       ,$
  FIELDNAME=OVERTIME_PCT,ALIAS=      ,USAGE=P5.2 ,ACTUAL=P2       ,$
SEGNAME=JOB,PARENT=EMPOSIT,SEGTYPE=U,$
  FIELDNAME=JOB_ID      ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=TITLE       ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20,
   FIELDTYPE=I,$
    DEFINE SHORTTITLE/A10 = EDIT(JTIT,'9999999999$');             ,$
  FIELDNAME=JOB_DESC    ,ALIAS=      ,USAGE=A120 ,ACTUAL=A120     ,$
  FIELDNAME=REQUIREMENTS,ALIAS=      ,USAGE=A120 ,ACTUAL=A120     ,$
  FIELDNAME=MIN_SALARY  ,ALIAS=      ,USAGE=P12.2,ACTUAL=Z8       ,$
  FIELDNAME=MAX_SALARY  ,ALIAS=      ,USAGE=P12.2,ACTUAL=Z8       ,$
  FIELDNAME=SAL_GRADE_1 ,ALIAS=      ,USAGE=P4   ,ACTUAL=Z2       ,$
  FIELDNAME=SAL_GRADE_2 ,ALIAS=      ,USAGE=P4   ,ACTUAL=Z2       ,$
  FIELDNAME=SAL_GRADE_3 ,ALIAS=      ,USAGE=P4   ,ACTUAL=Z2       ,$
  FIELDNAME=SAL_GRADE_4 ,ALIAS=      ,USAGE=P4   ,ACTUAL=Z2       ,$
  FIELDNAME=POSITION_NUM,ALIAS=      ,USAGE=P4   ,ACTUAL=Z3       ,$
  FIELDNAME=NUM_OPEN    ,ALIAS=      ,USAGE=P4   ,ACTUAL=Z3       ,$
SEGNAME=EXPERTSE,PARENT=EMPLOYE,SEGTYPE=S,$
  FIELDNAME=SKILL_LEVEL ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  FIELDNAME=EXPERT_DTE  ,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
SEGNAME=SKILL,PARENT=EXPERTSE,SEGTYPE=U,$
  FIELDNAME=SKILL_ID    ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=SKILL_NAME  ,ALIAS=      ,USAGE=A12  ,ACTUAL=A12,
   FIELDTYPE=I,$
  FIELDNAME=SKILL_DESC  ,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
SEGNAME=COVERAGE,PARENT=EMPLOYE,SEGTYPE=S,$
  FIELDNAME=COV_SEL_DT  ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=COV_TERM_DTE,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=COVER_TYPE  ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
  FIELDNAME=COV_CODE    ,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
SEGNAME=HOSPITAL,PARENT=COVERAGE,SEGTYPE=S,$
  FIELDNAME=H_CLAIM_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=H_FIRST_NAME,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=H_LAST_NAME ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=H_BIRTH_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=H_SEX       ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
  FIELDNAME=H_RELATED_BY,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=HOSP_NAME   ,ALIAS=      ,USAGE=A25  ,ACTUAL=A25      ,$
  FIELDNAME=HOSP_STREET ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=HOSP_CITY   ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=HOSP_STATE  ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=HOSP_FUL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=HOSP_ZIP  ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=HOSP_ZIP_L,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=ADMITTED    ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=DISCHARGED  ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=H_DIAGNOSIS1,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=H_DIAGNOSIS2,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=WARD_DAYS   ,ALIAS=      ,USAGE=P5   ,ACTUAL=P3       ,$
  FIELDNAME=WARD_RATE   ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=WARD_TOTAL  ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=SEMI_DAYS   ,ALIAS=      ,USAGE=P5   ,ACTUAL=P3       ,$
  FIELDNAME=SEMI_RATE   ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=SEMI_TOTAL  ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=DELIVERY_TOT,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=ANESTHES_TOT,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=LAB_TOT     ,ALIAS=      ,USAGE=P10.2,ACTUAL=P5       ,$
  FIELDNAME=            ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=CLAIM_MONTH ,ALIAS=CMO   ,USAGE=I2   ,ACTUAL=Z2       ,$
SEGNAME=NON_HOSP,SEGTYPE=S,PARENT=COVERAGE,$
  FIELDNAME=N_CLAIM_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=N_FIRST_NAME,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=N_LAST_NAME ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=N_BIRTH_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=N_SEX       ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
  FIELDNAME=N_RELATED_BY,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=PHYS_FNAME  ,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=PHYS_LNAME  ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=PHYS_STREET ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=PHYS_CITY   ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=PHYS_STATE  ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=PHYS_FUL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=PHYS_ZIP  ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=PHYS_ZIP_L,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=PHYS_ID     ,ALIAS=      ,USAGE=P6   ,ACTUAL=Z6       ,$
  FIELDNAME=P_DIAGNOSIS1,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=P_DIAGNOSIS2,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=P_NO_OF_PROC,ALIAS=      ,USAGE=I2   ,ACTUAL=I2       ,$
  FIELDNAME=            ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
SEGNAME=PHYSCHRG,SEGTYPE=S,PARENT=NON_HOSP,OCCURS=P_NO_OF_PROC    ,$
  FIELDNAME=P_SERVICE_DT,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=PHYS_PROC_CD,ALIAS=      ,USAGE=P4   ,ACTUAL=Z4       ,$
  FIELDNAME=P_SERV_DESC ,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=PHYS_FEE    ,ALIAS=      ,USAGE=P11.2,ACTUAL=P5       ,$
  FIELDNAME=            ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
  FIELDNAME=PHYS_CHRG_NO,ALIAS=ORDER ,USAGE=I4   ,ACTUAL=I4       ,$
SEGNAME=DENTAL,SEGTYPE=S,PARENT=COVERAGE,$
  FIELDNAME=D_CLAIM_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=D_FIRST_NAME,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=D_LAST_NAME ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=D_BIRTH_DTE ,ALIAS=      ,USAGE=I6YMD,ACTUAL=Z6       ,$
  FIELDNAME=D_SEX       ,ALIAS=      ,USAGE=A1   ,ACTUAL=A1       ,$
  FIELDNAME=D_RELATED_BY,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=DENT_FNAME  ,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=DENT_LNAME  ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=DENT_STREET ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=DENT_CITY   ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=DENT_STATE  ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=DENT_FUL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=DENT_ZIP  ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=DENT_ZIP_L,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=DENT_LICENSE,ALIAS=      ,USAGE=P6   ,ACTUAL=Z6       ,$
  FIELDNAME=D_NO_OF_PROC,ALIAS=      ,USAGE=I2   ,ACTUAL=I2       ,$
  FIELDNAME=            ,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
SEGNAME=DENTCHRG,SEGTYPE=S,PARENT=DENTAL,OCCURS=D_NO_OF_PROC,$
  FIELDNAME=TOOTH_NUM   ,ALIAS=      ,USAGE=P2   ,ACTUAL=Z2       ,$
  FIELDNAME=D_SERVICE_DT,ALIAS=      ,USAGE=A6YMD,ACTUAL=A6       ,$
  FIELDNAME=DENT_PROC_CD,ALIAS=      ,USAGE=P4   ,ACTUAL=Z4       ,$
  FIELDNAME=D_SERV_DESC ,ALIAS=      ,USAGE=A60  ,ACTUAL=A60      ,$
  FIELDNAME=DENT_FEE    ,ALIAS=      ,USAGE=P11.2,ACTUAL=P5       ,$
  FIELDNAME=            ,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
  FIELDNAME=DENT_CHRG_NO,ALIAS=ORDER ,USAGE=I9   ,ACTUAL=I4       ,$
SEGNAME=INSURNCE,PARENT=COVERAGE,SEGTYPE=U,$
  FIELDNAME=INS_PLAN_CDE,ALIAS=      ,USAGE=A3   ,ACTUAL=A3       ,$
  FIELDNAME=INS_CO_NAME ,ALIAS=      ,USAGE=A45  ,ACTUAL=A45      ,$
  FIELDNAME=INS_STREET  ,ALIAS=      ,USAGE=A20  ,ACTUAL=A20      ,$
  FIELDNAME=INS_CITY    ,ALIAS=      ,USAGE=A15  ,ACTUAL=A15      ,$
  FIELDNAME=INS_STATE   ,ALIAS=      ,USAGE=A2   ,ACTUAL=A2       ,$
  GROUP=INS_FULL_ZIP    ,ALIAS=      ,USAGE=A9   ,ACTUAL=A9       ,$
    FIELDNAME=INS_ZIP   ,ALIAS=      ,USAGE=A5   ,ACTUAL=A5       ,$
    FIELDNAME=INS_ZIP_L ,ALIAS=      ,USAGE=A4   ,ACTUAL=A4       ,$
  FIELDNAME=INS_PHONE   ,ALIAS=      ,USAGE=A10  ,ACTUAL=A10      ,$
  FIELDNAME=INS_GROUP_NO,ALIAS=      ,USAGE=A6   ,ACTUAL=A6       ,$
  FIELDNAME=DEDUCT      ,ALIAS=      ,USAGE=P12.2,ACTUAL=P5       ,$
  FIELDNAME=MAX_LIFE_CST,ALIAS=      ,USAGE=P12.2,ACTUAL=P5       ,$
  FIELDNAME=FAMILY_COST ,ALIAS=      ,USAGE=P12.2,ACTUAL=P5       ,$
  FIELDNAME=DEPENDNT_CST,ALIAS=      ,USAGE=P12.2,ACTUAL=P5       ,$

Top of page

x
Access File for Network

This Access File is associated with the network subschema EMPSS01 and corresponds to its Master File:

SSCHEMA=EMPSS01,RELEASE=15,MODE=DML,TRACE=NO,READY=,$
SEGNAM=DEPT,RECORD=DEPARTMENT,AREA=ORG-DEMO-REGION,
  CLCFLD=DEPT_ID,CLCDUP=N,$
SEGNAM=EMPLOYE,RECORD=EMPLOYEE,AREA=EMP-DEMO-REGION,
  CLCFLD=EMP_ID,CLCDUP=N,ACCESS=SET,SETNAME=DEPT-EMPLOYEE,
  SETMBR=OA,GETOWN=Y,MULTMBR=N,$
SEGNAM=OFFICE,RECORD=OFFICE,AREA=ORG-DEMO-REGION,
  CLCFLD=OFF_CODE,CLCDUP=N,ACCESS=SET,SETNAME=OFFICE-EMPLOYEE,
  SETMBR=OA,GETOWN=Y,MULTMBR=N,$
SEGNAM=STRUCTUR,RECORD=STRUCTURE,AREA=EMP-DEMO-REGION,
  ACCESS=SET,SETNAME=MANAGES,SETMBR=MA,GETOWN=Y,MULTMBR=N,$
SEGNAM=SUBORDS,RECORD=EMPLOYEE,AREA=EMP-DEMO-REGION,
  CLCFLD=SUB_ID,CLCDUP=N,ACCESS=SET,SETNAME=REPORTS-TO,
  SETMBR=OM,GETOWN=Y,MULTMBR=N,$
SEGNAM=EMPOSIT,RECORD=EMPOSITION,AREA=EMP-DEMO-REGION,
  ACCESS=SET,SETNAME=EMP-EMPOSITION,SETMBR=MA,GETOWN=Y,MULTMBR=N,$
SEGNAM=JOB,RECORD=JOB,AREA=ORG-DEMO-REGION,
  CLCFLD=JOB_ID,CLCDUP=N,ACCESS=SET,SETNAME=JOB-EMPOSITION,
  SETMBR=OM,GETOWN=Y,MULTMBR=N,SEQFIELD=TITLE,$
SEGNAM=EXPERTSE,RECORD=EXPERTISE,AREA=EMP-DEMO-REGION,
  ACCESS=SET,SETNAME=EMP-EXPERTISE,KEYFLD=SKILL_LEVEL,SETORD=D,
  SETDUP=Y,SETMBR=MA,GETOWN=Y,MULTMBR=N,$
SEGNAM=SKILL,RECORD=SKILL,AREA=ORG-DEMO-REGION,
  CLCFLD=SKILL_ID,CLCDUP=N,ACCESS=SET,SETNAME=SKILL-EXPERTISE,
  KEYFLD=SKILL_LEVEL,SETORD=D,SETDUP=Y,
  SETMBR=MA,GETOWN=Y,MULTMBR=N,SEQFIELD=SKILL_NAME,$
SEGNAM=COVERAGE,RECORD=COVERAGE,AREA=INS-DEMO-REGION,
  ACCESS=SET,SETNAME=EMP-COVERAGE,SETMBR=MA,GETOWN=Y,MULTMBR=N,$
SEGNAM=HOSPITAL,RECORD=HOSPITAL-CLAIM,AREA=INS-DEMO-REGION,
  ACCESS=SET,SETNAME=COVERAGE-CLAIMS,SETMBR=MA,GETOWN=Y,MULTMBR=Y,$
SEGNAM=NON_HOSP,RECORD=NON-HOSP-CLAIM,AREA=INS-DEMO-REGION,
  ACCESS=SET,SETNAME=COVERAGE-CLAIMS,SETMBR=MA,GETOWN=Y,MULTMBR=Y,$
SEGNAM=DENTAL,RECORD=DENTAL-CLAIM,AREA=INS-DEMO-REGION,
  ACCESS=SET,SETNAME=COVERAGE-CLAIMS,SETMBR=MA,GETOWN=Y,MULTMBR=Y,$
IXSET=JOB-TITLE-NDX,IXFLD=TITLE,IXDUP=N,IXORD=A,
  IXAREA=INS-DEMO-REGION,$
IXSET=SKILL-NAME-NDX,IXFLD=SKILL_NAME,IXDUP=N,IXORD=D,
  IXAREA=EMP-DEMO-REGION,$
SEGNAM=INSURNCE,RECORD=INSURANCE-PLAN,AREA=INS-DEMO-REGION,
  CLCFLD=INS_PLAN_CDE,CLCDUP=N,ACCESS=CLC,KEYFLD=COV_CODE,$

Top of page

x
LRF Subschema: EMPSS02

This subschema shows the LRF view of the schema EMPSCHM. It contains the following items:

ADD SUBSCHEMA NAME IS EMPSS02
    OF SCHEMA NAME IS EMPSCHM VERSION  1
    USAGE IS LR
DMCL NAME IS EMPDMCL
    OF SCHEMA NAME IS EMPSCHM VERSION  1
COMMENTS 'THIS IS THE COMPLETE VIEW OF EMPSCHM'.
ADD AREA NAME IS EMP-DEMO-REGION.
ADD AREA NAME IS ORG-DEMO-REGION.
ADD RECORD NAME IS DEPARTMENT.
ADD RECORD NAME IS EMPLOYEE.
ADD RECORD NAME IS EMPOSITION.
ADD RECORD NAME IS JOB.
ADD SET DEPT-EMPLOYEE.
ADD SET EMP-NAME-NDX.
ADD SET EMP-EMPOSITION.
ADD SET JOB-EMPOSITION.
ADD SET JOB-TITLE-NDX.
ADD
   LOGICAL RECORD NAME IS DEPT-EMP-POS
   ELEMENTS ARE DEPARTMENT
                EMPLOYEE
                EMPOSITION.
ADD
PATH-GROUP NAME IS OBTAIN DEPT-EMP-POS
   SELECT FOR FIELDNAME-EQ DEPT-ID-0410
      OBTAIN DEPARTMENT
        WHERE CALCKEY EQ DEPT-ID-0410 OF REQUEST
      IF DEPT-EMPLOYEE IS NOT EMPTY
      OBTAIN EACH EMPLOYEE WITHIN DEPT-EMPLOYEE
      IF EMP-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN EMP-EMPOSITION
   SELECT FOR FIELDNAME-EQ EMP-ID-0415
      OBTAIN EMPLOYEE
        WHERE CALCKEY EQ EMP-ID-0415 OF REQUEST
      IF DEPT-EMPLOYEE MEMBER
      OBTAIN OWNER WITHIN DEPT-EMPLOYEE
      IF EMP-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN EMP-EMPOSITION
   SELECT FOR ELEMENT DEPARTMENT
      OBTAIN EACH DEPARTMENT WITHIN ORG-DEMO-REGION
      IF DEPT-EMPLOYEE IS NOT EMPTY
      OBTAIN EACH EMPLOYEE WITHIN DEPT-EMPLOYEE
      IF EMP-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN EMP-EMPOSITION
   SELECT FOR ELEMENT EMPLOYEE
      OBTAIN EACH EMPLOYEE WITHIN EMP-DEMO-REGION
      IF DEPT-EMPLOYEE MEMBER
      OBTAIN OWNER WITHIN DEPT-EMPLOYEE
      IF EMP-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN EMP-EMPOSITION
   SELECT FOR ELEMENT EMPOSITION
      OBTAIN EACH EMPOSITION WITHIN EMP-DEMO-REGION
      OBTAIN OWNER WITHIN EMP-EMPOSITION
      IF DEPT-EMPLOYEE MEMBER
      OBTAIN OWNER WITHIN DEPT-EMPLOYEE
   SELECT
      OBTAIN EACH DEPARTMENT WITHIN ORG-DEMO-REGION
      IF DEPT-EMPLOYEE IS NOT EMPTY
      OBTAIN EACH EMPLOYEE WITHIN DEPT-EMPLOYEE
      IF EMP-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN EMP-EMPOSITION.
ADD
   LOGICAL RECORD NAME IS JOB-EMPOSITION
   ELEMENTS ARE JOB
                EMPOSITION.
ADD
PATH-GROUP NAME IS OBTAIN JOB-EMPOSITION
   SELECT FOR FIELDNAME-EQ JOB-ID-0440
      OBTAIN JOB
        WHERE CALCKEY EQ JOB-ID-0440 OF REQUEST
      IF JOB-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN JOB-EMPOSITION
   SELECT USING INDEX JOB-TITLE-NDX
       FOR FIELDNAME TITLE-0440
      OBTAIN EACH JOB USING INDEX
      IF JOB-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN JOB-EMPOSITION
   SELECT FOR FIELDNAME START-DATE-0420
      OBTAIN EACH EMPOSITION WITHIN EMP-DEMO-REGION
      IF JOB-EMPOSITION MEMBER
      OBTAIN OWNER WITHIN JOB-EMPOSITION
   SELECT FOR ELEMENT JOB
      OBTAIN EACH JOB WITHIN ORG-DEMO-REGION
      IF JOB-EMPOSITION IS NOT EMPTY
      OBTAIN EACH EMPOSITION WITHIN JOB-EMPOSITION
   SELECT FOR ELEMENT EMPOSITION
      OBTAIN EACH EMPOSITION WITHIN EMP-DEMO-REGION
      IF JOB-EMPOSITION MEMBER
      OBTAIN OWNER WITHIN JOB-EMPOSITION
   SELECT
      OBTAIN EACH JOB WITHIN ORG-DEMO-REGION
        ON 0307 CLEAR RETURN LR-NOT-FOUND
        ON 0000 NEXT
      IF JOB-EMPOSITION IS NOT EMPTY
        ON 0000 ITERATE
        ON 1601 NEXT
      OBTAIN EACH EMPOSITION WITHIN JOB-EMPOSITION
        ON 0000 NEXT
        ON 0307 ITERATE.
GENERATE.

Top of page

x
Master File for LRF
FILE=EMPDATA,SUFFIX=IDMSR,$
SEGNAME=DEPTEMPO,$
  FIELD=DEPT_ID     ,ALIAS=        ,USAGE=A4   ,ACTUAL=A4   ,$
  FIELD=DEPT_NAME   ,ALIAS=        ,USAGE=A45  ,ACTUAL=A45  ,$
  FIELD=DEPT_HEAD   ,ALIAS=        ,USAGE=A4   ,ACTUAL=A4   ,$
  FIELD=            ,ALIAS=FILL.END,USAGE=A3   ,ACTUAL=A3   ,$
  FIELD=EMP_ID      ,ALIAS=        ,USAGE=A4   ,ACTUAL=A4   ,$
  GROUP=EMP_NAME    ,ALIAS=        ,USAGE=A25  ,ACTUAL=A25  ,$
    FIELD=FIRST_NAME,ALIAS=        ,USAGE=A10  ,ACTUAL=A10  ,$
    FIELD=LAST_NAME ,ALIAS=        ,USAGE=A15  ,ACTUAL=A15  ,$
  FIELD=EMP_STREET  ,ALIAS=        ,USAGE=A20  ,ACTUAL=A20  ,$
  FIELD=EMP_CITY    ,ALIAS=        ,USAGE=A15  ,ACTUAL=A15  ,$
  FIELD=EMP_STATE   ,ALIAS=        ,USAGE=A2   ,ACTUAL=A2   ,$
  GROUP=EMP_FULL_ZIP,ALIAS=        ,USAGE=A9   ,ACTUAL=A9   ,$
    FIELD=EMP_ZIP   ,ALIAS=        ,USAGE=A5   ,ACTUAL=A5   ,$
    FIELD=EMP_ZIP_L ,ALIAS=        ,USAGE=A4   ,ACTUAL=A4   ,$
  FIELD=EMP_PHONE   ,ALIAS=        ,USAGE=A10  ,ACTUAL=A10  ,$
  FIELD=STATUS      ,ALIAS=        ,USAGE=A2   ,ACTUAL=A2   ,$
  FIELD=SOC_SEC_NUM ,ALIAS=        ,USAGE=A9   ,ACTUAL=A9   ,$
  FIELD=EMP_STRT_DTE,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=EMP_TERM_DTE,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=EMP_BRTH_DTE,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=            ,ALIAS=FILL.END,USAGE=A6   ,ACTUAL=A6   ,$
  FIELD=POS_STRT_DT1,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=POS_FIN_DT1 ,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=SALARY_GRAD1,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=SALARY_AMT1 ,ALIAS=        ,USAGE=P10.2,ACTUAL=P5   ,$
  FIELD=BONUS_PCT1  ,ALIAS=        ,USAGE=P4   ,ACTUAL=P2   ,$
  FIELD=COMMIS_PCT1 ,ALIAS=        ,USAGE=P4   ,ACTUAL=P2   ,$
  FIELD=OVERTIM_PCT1,ALIAS=        ,USAGE=P5.2 ,ACTUAL=P2   ,$
SEGNAME=JOBPOS,PARENT=DEPTEMPO,SEGTYPE=U,$
  FIELD=JOB_ID      ,ALIAS=        ,USAGE=A4   ,ACTUAL=A4   ,$
  FIELD=TITLE       ,ALIAS=        ,USAGE=A20  ,ACTUAL=A20  ,$
  FIELD=JOB_DESC    ,ALIAS=        ,USAGE=A120 ,ACTUAL=A120 ,$
  FIELD=REQUIREMENTS,ALIAS=        ,USAGE=A120 ,ACTUAL=A120 ,$
  FIELD=MIN_SALARY  ,ALIAS=        ,USAGE=P12.2,ACTUAL=Z8   ,$
  FIELD=MAX_SALARY  ,ALIAS=        ,USAGE=P12.2,ACTUAL=Z8   ,$
  FIELD=SAL_GRADE_1 ,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=SAL_GRADE_2 ,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=SAL_GRADE_3 ,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=SAL_GRADE_4 ,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=POSITION_NUM,ALIAS=        ,USAGE=P4   ,ACTUAL=Z3   ,$
  FIELD=NUM_OPEN    ,ALIAS=        ,USAGE=P4   ,ACTUAL=Z3   ,$
  FIELD=            ,ALIAS=FILL.END,USAGE=A2   ,ACTUAL=A2   ,$
  FIELD=POS_STRT_DT2,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=POS_FIN_DT2 ,ALIAS=        ,USAGE=A6YMD,ACTUAL=A6   ,$
  FIELD=SALARY_GRAD2,ALIAS=        ,USAGE=P4   ,ACTUAL=Z2   ,$
  FIELD=SALARY_AMT2 ,ALIAS=        ,USAGE=P10.2,ACTUAL=P5   ,$
  FIELD=BONUS_PCT2  ,ALIAS=        ,USAGE=P4   ,ACTUAL=P2   ,$
  FIELD=COMMIS_PCT2 ,ALIAS=        ,USAGE=P4   ,ACTUAL=P2   ,$
  FIELD=OVERTIM_PCT2,ALIAS=        ,USAGE=P5.2 ,ACTUAL=P2   ,$

Top of page

x
Access File for LRF

This Access File is associated with LRF subschema EMPSS02, and corresponds to its Master File.

SSCHEMA=EMPSS02,RELEASE=15,MODE=LR,TRACE=PARMS,READY=ALL,$
SEGNAM=DEPTEMPO,RECORD=DEPT-EMP-POS,AREA=EMP-DEMO-REGION,LR=Y,$
SEGNAM=JOBPOS,RECORD=JOB-EMPOSITION,AREA=ORG-DEMO-REGION,LR=Y,
 ACCESS=LR,KEYFLD=POS_STRT_DT1,IXFLD=POS_STRT_DT2,$

Top of page

x
Sample of a Partial LRF Record

The following is an example of a NULL SELECT clause that creates a partial record by returning a user-defined record code. The adapter does not support this user-defined code or any status code other than LR-FOUND or LR-NOT-FOUND.

SELECT
   OBTAIN EACH JOB WITHIN ORG-DEMO-REGION
   IF JOB-EMPOSITION IS NOT EMPTY
     ON 0000 RETURN NO-POS-FOR-JOB
   OBTAIN EACH EMPOSITION WITHIN JOB-EMPOSITION.

Top of page

x
SPF Indexes

The following is a section of a subschema that contains SPF indexes. Comparable Integrated Indexes are found in the LRF subschema EMPSS02 listed as EMP-NAME-NDX, JOB-TITLE-NDX, and SKILL-NAME-NDX.

ADD SET NAME IS IX-EMP-LNAME
  ORDER IS SORTED
  MODE IS CHAIN
  OWNER IS IXOWNER
     NEXT DBKEY POSITION IS AUTO
  MEMBER IS EMPLOYEE
     NEXT DBKEY POSITION IS AUTO
     OPTIONAL MANUAL
     ASCENDING KEY IS ( EMP-LAST-NAME-0415)
          DUPLICATES LAST
.
ADD SET NAME IS IX-TITLE
  ORDER IS SORTED
  MODE IS CHAIN
  OWNER IS IXOWNER
     NEXT DBKEY POSITION IS AUTO
  MEMBER IS JOB
     NEXT DBKEY POSITION IS AUTO
     OPTIONAL MANUAL
     DESCENDING KEY IS ( TITLE-0440 )
          DUPLICATES NOT ALLOWED
.
ADD SET NAME IS IX-SKILL-NAME
  ORDER IS SORTED
  MODE IS CHAIN
  OWNER IS IXOWNER
     NEXT DBKEY POSITION IS AUTO
  MEMBER IS SKILL
     NEXT DBKEY POSITION IS AUTO
     OPTIONAL MANUAL
     ASCENDING KEY IS ( SKILL-NAME-0455 )
          DUPLICATES NOT ALLOWED
    .

iWay Software