Predict Version 3.4 or above is a prerequisite for the installation of Adabas Native SQL. Please check which version of Predict is installed.
The Adabas files and fields that will be used by Adabas Native SQL application programs must be defined in the data dictionary.
This document covers the following topics:
If you are using System Maintenance Aid (SMA), refer to the SMA documentation (included on the current edition of the Natural documentation CD).
If you are not using SMA, follow the instructions below.
This section explains how to:
Copy data set COPYTAPE.JOB from medium to library.
Modify this member to conform with your local naming conventions.
The JCL in this member is then used to copy all data sets from medium to disk.
If the datasets for more than one product are delivered on the medium, the member COPYTAPE.JOB contains the JCL to unload the datasets for all delivered products from the medium to your disk, except the datasets that you can directly install from medium, for example, Natural INPL objects.
After that, you will have to perform the individual install procedure for each component.
The data set COPYTAPE.JOB (file 5) contains the JCL to unload all other existing data sets from medium to disk. To unload COPYTAPE.JOB, use the following sample JCL:
* $$ JOB JNM=LIBRCAT,CLASS=0, + * $$ DISP=D,LDEST=(*,UID),SYSID=1 * $$ LST CLASS=A,DISP=D // JOB LIBRCAT * ***************************************** * CATALOG COPYTAPE.JOB TO LIBRARY * ***************************************** // ASSGN SYS004,nnn <------ tape address // MTC REW,SYS004 // MTC FSF,SYS004,4 ASSGN SYSIPT,SYS004 // TLBL IJSYSIN,'COPYTAPE.JOB' // EXEC LIBR,PARM='MSHP; ACC S=lib.sublib' <------- for catalog /* // MTC REW,SYS004 ASSGN SYSIPT,FEC /* /& * $$ EOJ
Where:
| NNN | is the medium address. |
| lib.sublib | is the library and sublibrary of the catalog. |
Modify COPYTAPE.JOB to conform with your local naming conventions and set the disk space parameters before submitting this job.
Submit COPYTAPE.JOB to unload all other data sets from the medium to your disk.
The following specifications in the procedures should be adapted to suit the system environment. Use the JCS procedure SQLJCL.J to adapt all the JCS procedures.
The global parameters for Adabas Native SQL must also be modified.
The error message texts for decoding preprocessor-time errors are typically stored in the Natural system file, specified by the global SYSFILE FNAT parameter.
The error messages for decoding run-time errors are typically stored in
the data dictionary file. If this is not the case, use the global parameter
ABORT FILE to specify the location (number) of this
file.
See also chapter Global Parameters in the Adabas Native SQL Reference Manual for further information.
Typical global parameter definitions:
SYSFILE FDIC=(1,11) FNAT=(1,8). LANG COBOL. XREF ON. ABORT FILE=8.
If a different Adabas interface module is to be used instead of the standard module ADAUSER, Adabas Native SQL must be relinked. The procedure SQLLINK.J can be used to link the module ADASQL.
The module ADAUSER reads ADARUN parameters from SYSIPT. If ADALNK is used, no ADARUN card is necessary.
When relinking Adabas Native SQL, be sure to use the correct language-dependent modules:
| Language | Modules |
|---|---|
| Ada | ASQL1A.OBJ and APPEX1DA.OBJ |
| COBOL | ASQL1C.OBJ and APPEX1DC.OBJ |
| FORTRAN | ASQL1F.OBJ and APPEX1DF.OBJ |
| PL/I | ASQL1P.OBJ and APPEX1DP.OBJ |
Before testing the examples, check that the files EMPLOYEES and VEHICLES are loaded, and that they are documented in the Predict data dictionary. If the file definitions are not yet present in the data dictionary, they can be loaded from the file PRDnnn.DEMO, which can be found on the Predict installation medium. The notation nnn represents the Version, Release and SM level of Predict at your site. Ensure that the relationships for soft coupling are defined in the data dictionary. If you wish to use Adabas Native SQL to preprocess FORTRAN programs, ensure that the necessary language synonyms are defined in the data dictionary. See for example Appendix B in the Adabas Native SQL Reference Manual.
Adapt the job SQLJCL.J and the appropriate section in this( J.COBOLGO, J.FORTGO, J.PLIGO) to perform the following steps:
Preprocess the program with Adabas Native SQL;
Compile the preprocessed program (COBOL, FORTRAN or PL/I).
Link-edit the program. The following modules may be called by the user program at runtime:
| COBOL | COBOL/CICS | PL/I | Description |
|---|---|---|---|
| RESPINT (C) | RESPCICS (C) | RESPINT (C,P) | Error handling routine. |
| PRTRACE (C) | PRTRCICS (C) | PRTRACE (C,P) | Runtime trace routine. Activated by the error handling
routine if MODE TRACE is set.
|
| PRTFLOW (C) | -- | PRTFLOW (C,P) | Runtime Adabas Native SQL statement printing. Activated if
MODE FLOW is set.
|
| PRPABEND (A) | CICSABEND | PRPABEND (A) | Terminates program execution. Called by the error handling routine. |
| SQFRDATE (C) | SQFRDATE (C) | SQFRDATE (C) | Routine which converts format D number to numeric date. |
| SQFRTIME (C) | SQFRTIME (C) | SQFRTIME (C) | Routine which converts format T number to numeric date and numeric time. |
| SQTODATE (C) | SQTODATE (C) | SQTODATE (C) | Routine which converts numeric date to format D number. |
| SQTOTIME (C) | SQTOTIME (C) | SQTOTIME (C) | Routine which converts numeric date and numeric time to format T number. |
| Ada | FORTRAN | Description | |
| RESPF (F) | RESPF(F) | Error handling routine. | |
| PRTRAC (F) | PRTRAC (F) | Runtime trace routine. Activated by the error handling
routine if MODE TRACE is set.
|
|
| PRTFLO (F) | PRTFLO (F) | Runtime Adabas Native SQL statement printing. Activated if
MODE FLOW is set.
|
|
| PRPABEND (A) | -- | Terminates program execution. Called by the error handling routine. | |
| SQFRDATE (C) | SQFRDATE (C) | Routine which converts format D number to numeric date. | |
| SQFRTIME (C) | SQFRTIME (C) | Routine which converts format T number to numeric date and numeric time. | |
| SQTODATE (C) | SQTODATE (C) | Routine which converts numeric date to format D number. | |
| SQTOTIME (C) | SQTOTIME (C) | Routine which converts numeric date and numeric time to format T number. |
Notes:
ABORT PLI should be coded. The procedure as supplied
links the standard Adabas interface module ADAUSER to the application program.
If a different module is used, the procedure must be modified
accordingly.
Execute the program.
If the program is to be passed through other preprocessors in addition to Adabas Native SQL, the corresponding job step should be included in the procedure following the Adabas Native SQL step and preceding compilation.
Adabas Native SQL refers to files using the following symbolic device names:
| Device Name | Description |
|---|---|
| SYS000 | The Adabas parameters that are used by Adabas Native SQL at preprocessor time. (Second input.) |
| SYS007 | The global parameter definitions. (First input.) LRECL=80,RECFM=FB |
| SYS008 | The source program to be preprocessed. (Third input.) LRECL=80,RECFM=FB |
| SYS010 | A temporary work file. LRECL=80,RECFM=FB |
| SYS016 | Adabas Native SQL writes messages at preprocessing time to this dataset. |
| SYS018 | The output of the preprocessor. Embedded Adabas Native SQL statements in the source program appear in this file as comments and are followed by the generated Ada, COBOL, FORTRAN or PL/I code. LRECL=80,RECFM=FB |
| SYS019 | A temporary work file. LRECL=80,RECFM=FB |
At run time, the application program generated by Adabas Native SQL refers to files using the following symbolic device names (in addition to any other user-defined files):
| Device Name | Description |
|---|---|
| SYS000 | The Adabas parameters that are used by the ADARUN module at run time. |
| SYS013 | If the TRACE facility is used, the trace output is written to this file. LRECL=80,RECFM=FB |