Following is a listing of the Employee database:
SCHEMA=EMPSCHM VERSION=(100)
SUBSCHEMA=(EMPSS01)
RECORD NAME........ COVERAGE RLGTH= 36
RECORD VERSION..... 0100 DLGTH= 20
RECORD ID.......... 0400 KLGTH= 16
RECORD LENGTH...... FIXED DSTRT= 16
LOCATION MODE...... VIA SET EMP-COVERAGE DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
EMP-COVERAGE MEMBER 1 2 3
COVERAGE-CLAIMS OWNER 4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 SELECTION-DATE-0400 DISPLAY 1 8 03 SELECTION-YEAR-0400 DISPLAY 9(4) 1 4 03 SELECTION-MONTH-0400 DISPLAY 9(2) 5 2 03 SELECTION-DAY-0400 DISPLAY 9(2) 7 2 02 TERMINATION-DATE-0400 DISPLAY 9 8 03 TERMINATION-YEAR-0400 DISPLAY 9(4) 9 4 03 TERMINATION-MONTH-0400 DISPLAY 9(2) 13 2 03 TERMINATION-DAY-0400 DISPLAY 9(2) 15 2 02 TYPE-0400 DISPLAY X 17 1 88 MASTER-0400 COND 'M' 17 88 FAMILY-0400 COND 'F' 17 88 DEPENDENT-0400 COND 'D' 17 02 INS-PLAN-CODE-0400 DISPLAY X(3) 18 3 88 GROUP-LIFE-0400 COND '001' 18 88 HMO-0400 COND '002' 18 88 GROUP-HEALTH-0400 COND '003' 18 88 GROUP-DENTAL-0400 COND '004' 18
RECORD NAME........ DENTAL-CLAIM RLGTH= 944
RECORD VERSION..... 0100 DLGTH= 936
RECORD ID.......... 0405 KLGTH= 8
RECORD LENGTH...... VARIABLE DSTRT= 12
MINIMUM ROOT....... 132 CHARACTERS
MINIMUM FRAGMENT... 932 CHARACTERS
LOCATION MODE...... VIA SET COVERAGE-CLAIMS DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION OFFSE 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
COVERAGE-CLAIMS MEMBER 1
(FRAGMENT CHAIN) INTRNL 2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 CLAIM-DATE-0405 DISPLAY 1 8 03 CLAIM-YEAR-0405 DISPLAY 9(4) 1 4 03 CLAIM-MONTH-0405 DISPLAY 9(2) 5 2 03 CLAIM-DAY-0405 DISPLAY 9(2) 7 2 02 PATIENT-NAME-0405 DISPLAY 9 25 03 PATIENT-FIRST-NAME-0405 DISPLAY X(10) 9 10 03 PATIENT-LAST-NAME-0405 DISPLAY X(15) 19 15 02 PATIENT-BIRTH-DATE-0405 DISPLAY 34 8 03 PATIENT-BIRTH-YEAR-0405 DISPLAY 9(4) 34 4 03 PATIENT-BIRTH-MONTH-0405 DISPLAY 9(2) 38 2 03 PATIENT-BIRTH-DAY-0405 DISPLAY 9(2) 40 2
02 PATIENT-SEX-0405 DISPLAY X 42 1 02 RELATION-TO-EMPLOYEE-0405 DISPLAY X(10) 43 10 02 DENTIST-NAME-0405 DISPLAY 53 25 03 DENTIST-FIRST-NAME-0405 DISPLAY X(10) 53 10 03 DENTIST-LAST-NAME-0405 DISPLAY X(15) 63 15 02 DENTIST-ADDRESS-0405 DISPLAY 78 46 03 DENTIST-STREET-0405 DISPLAY X(20) 78 20 03 DENTIST-CITY-0405 DISPLAY X(15) 98 15 03 DENTIST-STATE-0405 DISPLAY X(2) 113 2 03 DENTIST-ZIP-0405 DISPLAY 115 9 04 DENTIST-ZIP-FIRST-FIVE-0405 DISPLAY X(5) 115 5 04 DENTIST-ZIP-LAST-FOUR-0405 DISPLAY X(4) 120 4 02 DENTIST-LICENSE-NUMBER-0405 DISPLAY 9(6) 124 6 02 NUMBER-OF-PROCEDURES-0405 COMP 9(2) 130 2 02 FILLER DISPLAY X 132 1 02 DENTIST-CHARGES-0405 DISPLAY OCCURS 0 TO 10 133 800 DEPENDING ON --- NUMBER-OF-PROCEDURES-0405
03 TOOTH-NUMBER-0405 DISPLAY 9(2) 1 2 03 SERVICE-DATE-0405 DISPLAY 3 8 04 SERVICE-YEAR-0405 DISPLAY 9(4) 3 4 04 SERVICE-MONTH-0405 DISPLAY 9(2) 7 2 04 SERVICE-DAY-0405 DISPLAY 9(2) 9 2 03 PROCEDURE-CODE-0405 DISPLAY 9(4) 11 4 03 DESCRIPTION-OF-SERVICE-0405 DISPLAY X(60) 15 60 03 FEE-0405 COMP-3 S9(7)V99 75 5 03 FILLER DISPLAY X 80 1
RECORD NAME........ DEPARTMENT RLGTH= 72
RECORD VERSION..... 0100 DLGTH= 56
RECORD ID.......... 0410 KLGTH= 16
RECORD LENGTH...... FIXED DSTRT= 16
LOCATION MODE...... CALC USING DEPT-ID-0410 DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
DEPT-EMPLOYEE INDEX OWNER 3 4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 DEPT-ID-0410 DISPLAY 9(4) 1 4 02 DEPT-NAME-0410 DISPLAY X(45) 5 45 02 DEPT-HEAD-ID-0410 DISPLAY 9(4) 50 4 02 FILLER DISPLAY XXX 54 3
RECORD NAME........ EMPLOYEE RLGTH= 192
RECORD VERSION..... 0100 DLGTH= 120
RECORD ID.......... 0415 KLGTH= 72
RECORD LENGTH...... FIXED DSTRT= 72
LOCATION MODE...... CALC USING EMP-ID-0415 DUPLICATES NOT ALLOWED
WITHIN............. EMP-DEMO-REGION OFFSET 5 PGS FOR 45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
DEPT-EMPLOYEE INDEX MEMBER 3 4
EMP-NAME-NDX INDEX MEMBER 5
EMP-SSN-NDX INDEX MEMBER 6
OFFICE-EMPLOYEE INDEX MEMBER 7 8
EMP-COVERAGE OWNER 9 10
EMP-EMPOSITION OWNER 11 12
EMP-EXPERTISE OWNER 13 14
MANAGES OWNER 15 16
REPORTS-TO OWNER 17 18
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 EMP-ID-0415 DISPLAY 9(4) 1 4 02 EMP-NAME-0415 DISPLAY 5 25 03 EMP-FIRST-NAME-0415 DISPLAY X(10) 5 10 03 EMP-LAST-NAME-0415 DISPLAY X(15) 15 15 02 EMP-ADDRESS-0415 DISPLAY 30 46 03 EMP-STREET-0415 DISPLAY X(20) 30 20 03 EMP-CITY-0415 DISPLAY X(15) 50 15 03 EMP-STATE-0415 DISPLAY X(2) 65 2 03 EMP-ZIP-0415 DISPLAY 67 9 04 EMP-ZIP-FIRST-FIVE-0415 DISPLAY X(5) 67 5 04 EMP-ZIP-LAST-FOUR-0415 DISPLAY X(4) 72 4 02 EMP-PHONE-0415 DISPLAY 9(10) 76 10 02 STATUS-0415 DISPLAY X(2) 86 2 88 ACTIVE-0415 COND '01' 86 88 ST-DISABIL-0415 COND '02' 86 88 LT-DISABIL-0415 COND '03' 86 88 LEAVE-OF-ABSENCE-0415 COND '04' 86 88 TERMINATED-0415 COND '05' 86
02 SS-NUMBER-0415 DISPLAY 9(9) 88 9 02 START-DATE-0415 DISPLAY 97 8 03 START-YEAR-0415 DISPLAY 9(4) 97 4 03 START-MONTH-0415 DISPLAY 9(2) 101 2 03 START-DAY-0415 DISPLAY 9(2) 103 2 02 TERMINATION-DATE-0415 DISPLAY 105 8 03 TERMINATION-YEAR-0415 DISPLAY 9(4) 105 4 03 TERMINATION-MONTH-0415 DISPLAY 9(2) 109 2 03 TERMINATION-DAY-0415 DISPLAY 9(2) 111 2 02 BIRTH-DATE-0415 DISPLAY 113 8 03 BIRTH-YEAR-0415 DISPLAY 9(4) 113 4 03 BIRTH-MONTH-0415 DISPLAY 9(2) 117 2 03 BIRTH-DAY-0415 DISPLAY 9(2) 119 2
RECORD NAME........ EMPOSITION RLGTH= 56
RECORD VERSION..... 0100 DLGTH= 32
RECORD ID.......... 0420 KLGTH= 24
RECORD LENGTH...... FIXED DSTRT= 24
LOCATION MODE...... VIA SET EMP-EMPOSITION DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION OFFSET 5 PGS FOR 45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
EMP-EMPOSITION MEMBER 1 2 3
JOB-EMPOSITION MEMBER 4 5 6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 START-DATE-0420 DISPLAY 1 8 03 START-YEAR-0420 DISPLAY 9(4) 1 4 03 START-MONTH-0420 DISPLAY 9(2) 5 2 03 START-DAY-0420 DISPLAY 9(2) 7 2 02 FINISH-DATE-0420 DISPLAY 9 8 03 FINISH-YEAR-0420 DISPLAY 9(4) 9 4 03 FINISH-MONTH-0420 DISPLAY 9(2) 13 2 03 FINISH-DAY-0420 DISPLAY 9(2) 15 2 02 SALARY-GRADE-0420 DISPLAY 9(2) 17 2 02 SALARY-AMOUNT-0420 COMP-3 S9(7)V99 19 5 02 BONUS-PERCENT-0420 COMP-3 SV999 24 2 02 COMMISSION-PERCENT-0420 COMP-3 SV999 26 2 02 OVERTIME-RATE-0420 COMP-3 S9V99 28 2 02 FILLER DISPLAY XXX 30 3
RECORD NAME........ EXPERTISE RLGTH= 32
RECORD VERSION..... 0100 DLGTH= 12
RECORD ID.......... 0425 KLGTH= 20
RECORD LENGTH...... FIXED DSTRT= 20
LOCATION MODE...... VIA SET EMP-EXPERTIS DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION OFFSET 5 PGS FOR 45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
EMP-EXPERTISE MEMBER 1 2 3
SKILL-EXPERTISE INDEX MEMBER 4 5
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 SKILL-LEVEL-0425 DISPLAY XX 1 2 88 EXPERT-0425 COND '04' 1 88 PROFICIENT-0425 COND '03' 1 88 COMPETENT-0425 COND '02' 1 88 ELEMENTARY-0425 COND '01' 1 02 EXPERTISE-DATE-0425 DISPLAY 3 8 03 EXPERTISE-YEAR-0425 DISPLAY 9(4) 3 4 03 EXPERTISE-MONTH-0425 DISPLAY 9(2) 7 2 03 EXPERTISE-DAY-0425 DISPLAY 9(2) 9 2 02 FILLER DISPLAY XX 11 2
RECORD NAME........ HOSPITAL-CLAIM RLGTH= 304
RECORD VERSION..... 0100 DLGTH= 300
RECORD ID.......... 0430 KLGTH= 4
RECORD LENGTH...... FIXED DSTRT= 4
LOCATION MODE...... VIA SET COVERAGE-CLAIMS DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
COVERAGE-CLAIMS MEMBER 1
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 CLAIM-DATE-0430 DISPLAY 1 8
03 CLAIM-YEAR-0430 DISPLAY 9(4) 1 4
03 CLAIM-MONTH-0430 DISPLAY 9(2) 5 2
03 CLAIM-DAY-0430 DISPLAY 9(2) 7 2
02 PATIENT-NAME-0430 DISPLAY 9 25
03 PATIENT-FIRST-NAME-0430 DISPLAY X(10) 9 10
03 PATIENT-LAST-NAME-0430 DISPLAY X(15) 19 15
02 PATIENT-BIRTH-DATE-0430 DISPLAY 34 8 03 PATIENT-BIRTH-YEAR-0430 DISPLAY 9(4) 34 4 03 PATIENT-BIRTH-MONTH-0430 DISPLAY 9(2) 38 2 03 PATIENT-BIRTH-DAY-0430 DISPLAY 9(2) 40 2 02 PATIENT-SEX-0430 DISPLAY X 42 1 02 RELATION-TO-EMPLOYEE-0430 DISPLAY X(10) 43 10 02 HOSPITAL-NAME-0430 DISPLAY X(25) 53 25 02 HOSP-ADDRESS-0430 DISPLAY 78 46 03 HOSP-STREET-0430 DISPLAY X(20) 78 20 03 HOSP-CITY-0430 DISPLAY X(15) 98 15 03 HOSP-STATE-0430 DISPLAY X(2) 113 2 03 HOSP-ZIP-0430 DISPLAY 115 9 04 HOSP-ZIP-FIRST-FIVE-0430 DISPLAY X(5) 115 5
04 HOSP-ZIP-LAST-FOUR-0430 DISPLAY X(4) 120 4 02 ADMIT-DATE-0430 DISPLAY 124 8 03 ADMIT-YEAR-0430 DISPLAY 9(4) 124 4 03 ADMIT-MONTH-0430 DISPLAY 9(2) 128 2 03 ADMIT-DAY-0430 DISPLAY 9(2) 130 2 02 DISCHARGE-DATE-0430 DISPLAY 132 8 03 DISCHARGE-YEAR-0430 DISPLAY 9(4) 132 4 03 DISCHARGE-MONTH-0430 DISPLAY 9(2) 136 2 03 DISCHARGE-DAY-0430 DISPLAY 9(2) 138 2 02 DIAGNOSIS-0430 DISPLAY OCCURS 2 X(60) 140 120 02 HOSPITAL-CHARGES-0430 DISPLAY 260 41 03 ROOM-AND-BOARD-0430 DISPLAY 260 26 04 WARD-0430 DISPLAY 260 13 05 WARD-DAYS-0430 COMP-3 S9(5) 260 3 05 WARD-RATE-0430 COMP-3 S9(7)V99 263 5 05 WARD-TOTAL-0430 COMP-3 S9(7)V99 268 5 04 SEMI-PRIVATE-0430 DISPLAY 273 13
05 SEMI-DAYS-0430 COMP-3 S9(5) 273 3 05 SEMI-RATE-0430 COMP-3 S9(7)V99 276 5 05 SEMI-TOTAL-0430 COMP-3 S9(7)V99 281 5 03 OTHER-CHARGES-0430 DISPLAY 286 15 04 DELIVERY-COST-0430 COMP-3 S9(7)V99 286 5 04 ANESTHESIA-COST-0430 COMP-3 S9(7)V99 291 5 04 LAB-COST-0430 COMP-3 S9(7)V99 296 5
RECORD NAME........ INSURANCE-PLAN RLGTH= 140
RECORD VERSION..... 0100 DLGTH= 132
RECORD ID.......... 0435 KLGTH= 8
RECORD LENGTH...... FIXED DSTRT= 8
LOCATION MODE...... CALC USING INS-PLAN-CODE-0435 DUPLICATES NOT ALLOWED
WITHIN............. INS-DEMO-REGION OFFSET 1 PGS FOR 4 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 INS-PLAN-CODE-0435 DISPLAY X(3) 1 3
88 GROUP-LIFE-0435 COND '001' 1 88 HMO-0435 COND '002' 1 88 GROUP-HEALTH-0435 COND '003' 1 88 GROUP-DENTAL-0435 COND '004' 1
02 INS-CO-NAME-0435 DISPLAY X(45) 4 45 02 INS-CO-ADDRESS-0435 DISPLAY 49 46 03 INS-CO-STREET-0435 DISPLAY X(20) 49 20 03 INS-CO-CITY-0435 DISPLAY X(15) 69 15 03 INS-CO-STATE-0435 DISPLAY X(2) 84 2 03 INS-CO-ZIP-0435 DISPLAY 86 9 04 INS-CO-ZIP-FIRST-FIVE-0435 DISPLAY X(5) 86 5 04 INS-CO-ZIP-LAST-FOUR-0435 DISPLAY X(4) 91 4 02 INS-CO-PHONE-0435 DISPLAY 9(10) 95 10 02 GROUP-NUMBER-0435 DISPLAY 9(6) 105 6 02 PLAN-DESCRIPTION-0435 DISPLAY 111 20 03 DEDUCT-0435 COMP-3 S9(7)V99 111 5 03 MAXIMUM-LIFE-COST-0435 COMP-3 S9(7)V99 116 5 03 FAMILY-COST-0435 COMP-3 S9(7)V99 121 5 03 DEP-COST-0435 COMP-3 S9(7)V99 126 5 02 FILLER DISPLAY XX 131 2
RECORD NAME........ JOB RLGTH= 324
RECORD VERSION..... 0100 DLGTH= 300
RECORD ID.......... 0440 KLGTH= 24
RECORD LENGTH...... FIXED (INTERNALLY VARIABLE) DSTRT= 28
MINIMUM ROOT....... 24 CHARACTERS
MINIMUM FRAGMENT... 296 CHARACTERS
LOCATION MODE...... CALC USING JOB-ID-0440 DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
CALL PROCEDURES.... NAME.... WHEN.. FUNCTION
IDMSCOMP BEFORE STORE
IDMSCOMP BEFORE MODIFY
IDMSDCOM AFTER GET
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
JOB-TITLE-NDX INDEX MEMBER 3
JOB-EMPOSITION OWNER 4 5
(FRAGMENT CHAIN) INTRNL 6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH 02 JOB-ID-0440 DISPLAY 9(4) 1 4 02 TITLE-0440 DISPLAY X(20) 5 20
02 DESCRIPTION-0440 DISPLAY 25 120 03 DESCRIPTION-LINE-0440 DISPLAY OCCURS 2 X(60) 25 120 02 REQUIREMENTS-0440 DISPLAY 145 120 03 REQUIREMENT-LINE-0440 DISPLAY OCCURS 2 X(60) 145 120 02 MINIMUM-SALARY-0440 DISPLAY S9(6)V99 265 8 02 MAXIMUM-SALARY-0440 DISPLAY S9(6)V99 273 8 02 SALARY-GRADES-0440 DISPLAY OCCURS 4 9(2) 281 8 02 NUMBER-OF-POSITIONS-0440 DISPLAY 9(3) 289 3 02 NUMBER-OPEN-0440 DISPLAY 9(3) 292 3 02 FILLER DISPLAY XX 295 2
RECORD NAME........ NON-HOSP-CLAIM RLGTH= 1064
RECORD VERSION..... 0100 DLGTH= 1056
RECORD ID.......... 0445 KLGTH= 8
RECORD LENGTH...... VARIABLE DSTRT= 12
MINIMUM ROOT....... 248 CHARACTERS
MINIMUM FRAGMENT... 1052 CHARACTERS
LOCATION MODE...... VIA SET COVERAGE-CLAIMS DISPLACEMENT 0000 PAGES
WITHIN............. INS-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
COVERAGE-CLAIMS MEMBER 1
(FRAGMENT CHAIN) INTRNL 2
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 CLAIM-DATE-0445 DISPLAY 1 8
03 CLAIM-YEAR-0445 DISPLAY 9(4) 1 4
03 CLAIM-MONTH-0445 DISPLAY 9(2) 5 2
03 CLAIM-DAY-0445 DISPLAY 9(2) 7 2
02 PATIENT-NAME-0445 DISPLAY 9 25
03 PATIENT-FIRST-NAME-0445 DISPLAY X(10) 9 10 03 PATIENT-LAST-NAME-0445 DISPLAY X(15) 19 15 02 PATIENT-BIRTH-DATE-0445 DISPLAY 34 8 03 PATIENT-BIRTH-YEAR-0445 DISPLAY 9(4) 34 4 03 PATIENT-BIRTH-MONTH-0445 DISPLAY 9(2) 38 2 03 PATIENT-BIRTH-DAY-0445 DISPLAY 9(2) 40 2 02 PATIENT-SEX-0445 DISPLAY X 42 1 02 RELATION-TO-EMPLOYEE-0445 DISPLAY X(10) 43 10 02 PHYSICIAN-NAME-0445 DISPLAY 53 25
03 PHYSICIAN-FIRST-NAME-0445 DISPLAY X(10) 53 10 03 PHYSICIAN-LAST-NAME-0445 DISPLAY X(15) 63 15
02 PHYSICIAN-ADDRESS-0445 DISPLAY 78 46 03 PHYSICIAN-STREET-0445 DISPLAY X(20) 78 20 03 PHYSICIAN-CITY-0445 DISPLAY X(15) 98 15 03 PHYSICIAN-STATE-0445 DISPLAY X(2) 113 2 03 PHYSICIAN-ZIP-0445 DISPLAY 115 9 04 PHYSICIAN-ZIP-FIRST-FIVE-0445 DISPLAY X(5) 115 5 04 PHYSICIAN-ZIP-LAST-FOUR-0445 DISPLAY X(4) 120 4 02 PHYSICIAN-ID-0445 DISPLAY 9(6) 124 6 02 DIAGNOSIS-0445 DISPLAY OCCURS 2 X(60) 130 120 02 NUMBER-OF-PROCEDURES-0445 COMP 9(2) 250 2 02 FILLER DISPLAY X 252 1 02 PHYSICIAN-CHARGES-0445 DISPLAY OCCURS 0 TO 10 253 800 DEPENDING ON -- NUMBER-OF-PROCEDURES-0445
03 SERVICE-DATE-0445 DISPLAY 1 8 04 SERVICE-YEAR-0445 DISPLAY 9(4) 1 4 04 SERVICE-MONTH-0445 DISPLAY 9(2) 5 2 04 SERVICE-DAY-0445 DISPLAY 9(2) 7 2 03 PROCEDURE-CODE-0445 DISPLAY 9(4) 9 4 03 DESCRIPTION-OF-SERVICE-0445 DISPLAY X(60) 13 60 03 FEE-0445 COMP-3 S9(7)V99 73 5 03 FILLER DISPLAY XXX 78 3
RECORD NAME........ OFFICE RLGTH= 92
RECORD VERSION..... 0100 DLGTH= 76
RECORD ID.......... 0450 KLGTH= 16
RECORD LENGTH...... FIXED DSTRT= 16
LOCATION MODE...... CALC USING OFFICE-CODE-0450 DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
OFFICE-EMPLOYEE INDEX OWNER 3 4
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 OFFICE-CODE-0450 DISPLAY X(3) 1 3
02 OFFICE-ADDRESS-0450 DISPLAY 4 46
03 OFFICE-STREET-0450 DISPLAY X(20) 4 20
03 OFFICE-CITY-0450 DISPLAY X(15) 24 15
03 OFFICE-STATE-0450 DISPLAY X(2) 39 2 03 OFFICE-ZIP-0450 DISPLAY 41 9 04 OFFICE-ZIP-FIRST-FIVE-0450 DISPLAY X(5) 41 5 04 OFFICE-ZIP-LAST-FOUR-0450 DISPLAY X(4) 46 4 02 OFFICE-PHONE-0450 DISPLAY OCCURS 3 9(7) 50 21 02 OFFICE-AREA-CODE-0450 DISPLAY X(3) 71 3
02 SPEED-DIAL-0450 DISPLAY X(3) 74 3
RECORD NAME........ SKILL RLGTH= 96 RECORD VERSION..... 0100 DLGTH= 76 RECORD ID.......... 0455 KLGTH= 20 RECORD LENGTH...... FIXED DSTRT= 20
LOCATION MODE...... CALC USING SKILL-ID-0455 DUPLICATES NOT ALLOWED
WITHIN............. ORG-DEMO-REGION OFFSET 5 PGS FOR 20 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
CALC MEMBER 1 2
SKILL-NAME-NDX INDEX MEMBER 3
SKILL-EXPERTISE INDEX OWNER 4 5
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 SKILL-ID-0455 DISPLAY 9(4) 1 4
02 SKILL-NAME-0455 DISPLAY X(12) 5 12
02 SKILL-DESCRIPTION-0455 DISPLAY X(60) 17 60
RECORD NAME........ STRUCTURE RLGTH= 36
RECORD VERSION..... 0100 DLGTH= 12
RECORD ID.......... 0460 KLGTH= 24
RECORD LENGTH...... FIXED DSTRT= 24
LOCATION MODE...... VIA SET MANAGES DISPLACEMENT 0000 PAGES
WITHIN............. EMP-DEMO-REGION OFFSET 5 PGS FOR 45 PGS
DBKEY POSITIONS.... SET............. TYPE........ NEXT PRIOR OWNER
MANAGES MEMBER 1 2 3
REPORTS-TO MEMBER 4 5 6
DATA ITEM.......... REDEFINES... USAGE....... VALUE..... PICTURE. STRT LGTH
02 STRUCTURE-CODE-0460 DISPLAY X(2) 1 2 88 ADMIN-0460 COND 'A' 1 88 PROJECT-0460 COND 'P1' THRU 'P9' 1 02 STRUCTURE-DATE-0460 DISPLAY 3 8 03 STRUCTURE-YEAR-0460 DISPLAY 9(4) 3 4 03 STRUCTURE-MONTH-0460 DISPLAY 9(2) 7 2 03 STRUCTURE-DAY-0460 DISPLAY 9(2) 9 2 02 FILLER DISPLAY XX 11 2
|
Copyright © 2014 CA.
All rights reserved.
|
|