These file descriptions, which are used in the Ada, COBOL, FORTRAN and PL/I examples shown in the following appendices, are supplied on the Predict installation tape. They can be loaded into the data dictionary using the Load function of the migration utility as described in the Predict Administration Manual. FORTRAN synonyms that must be used in order for the examples to run are listed at the end of this appendix.
> > + Fi: EMPLOYEES L: 1 S: 36 Ty L Field name F Length Occ D U DB S *- - -------------------------------- *- -------- ----- * * -- * 1 PERSONNEL-ID A 8.0 D U AA GR 1 FULL-NAME AB 2 FIRST-NAME A 20.0 AC N 2 MIDDLE-I A 1.0 AD N 2 NAME A 20.0 D AE 1 MIDDLE-NAME A 20.0 AD N 1 MAR-STAT A 1.0 AF F 1 SEX A 1.0 AG F 1 BIRTH U 6.0 D AH GR 1 FULL-ADDRESS A1 MU 2 ADDRESS-LINE A 20.0 8 AI N 2 CITY A 20.0 D AJ N 2 ZIP A 10.0 AK N 2 POST-CODE A 10.0 AK N 2 COUNTRY A 3.0 AL N GR 1 TELEPHONE A2 2 AREA-CODE A 6.0 AN N 2 PHONE A 15.0 AM N 1 DEPT A 6.0 D AO 1 JOB-TITLE A 25.0 D AP N PE 1 INCOME 40 AQ 2 CURR-CODE A 3.0 AR N 2 SALARY P 9.0 AS N MU 2 BONUS P 9.0 12 AT N GR 1 LEAVE-DATA A3 2 LEAVE-DUE U 2.0 AU 2 LEAVE-TAKEN U 2.0 AV N PE 1 LEAVE-BOOKED 20 AW 2 LEAVE-START U 6.0 AX N 2 LEAVE-END U 6.0 AY N MU 1 LANG A 3.0 15 D AZ N PH 1 PHONETIC-NAME A 20.0 D PH SP 1 LEAVE-LEFT B 4.0 D H1 N SB 1 DEPARTMENT A 4.0 D S1 SP 1 DEPT-PERSON A 26.0 D S2 SP 1 CURRENCY-SALARY A 12.0 D S3 N -- - -------------------------------- -- -------- ----- - - -- -
> > + Fi: VEHICLES L: 1 S: 16
Ty L Field name F Length Occ D U DB S All
*- - -------------------------------- *- -------- ----- * * -- *
1 REG-NUM A 15.0 D U AA N
1 CHASSIS-NUM B 4.0 AB F
1 PERSONNEL-ID A 8.0 D AC
GR 1 CAR-DETAILS CD
2 MAKE A 20.0 D AD N
2 MODEL A 20.0 AE N
2 COLOR A 10.0 D AF N
2 COLOUR A 10.0 D AF N
1 YEAR U 2.0 AG N
1 CLASS A 1.0 D AH F
1 LEASE-PUR A 1.0 AI F
1 DATE-ACQ U 6.0 AJ N
1 CURR-CODE A 3.0 AL N
MU 1 MAINT-COST P 7.0 60 AM N
SP 1 DAT-ACQ-DESC B 4.0 D AN
SP 1 MODEL-YEAR-MAKE A 22.0 D AO
-- - -------------------------------- -- -------- ----- - - -- -
This document covers the following topics:
File EMPLOYEES:
| PERSONNEL-ID | PID |
| FIRST-NAME | FNAME |
| INCOME | INC |
File VEHICLES:
| PERSONNEL-ID | PID |
| MODEL-YEAR-MAKE | MOYEMA |
| REG-NUM | REGNUM |
In order to run FORTRAN example 3, the field SALARY must be changed from P9 to I4. The small difference in the total is attributable to rounding in the integer-to-real and real-to-integer conversions.
