Version 2.4.1
 —  Adabas Native SQL Reference Manual  —

APPENDIX B - DESCRIPTIONS OF THE FILES USED IN THE EXAMPLES

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:


FORTRAN Synonyms

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.

Top of page