The tape contains the following files. The notation nnn represents the version, release and SM level.
| File | Format | Contents | Space Requirements |
|---|---|---|---|
| SQLnnn.LIBR | RECFM =U BLKSIZE =16632 |
z/VSE BACKUP for Adabas Native SQL | approx. 30 blocks |
| SQLnnn.ERRN | RECFM =VB BLKSIZE =4628 LRECL =4624 |
The Adabas Native SQL preprocessor error messages. It was created using the utility program ERRLODUS. | approx. 280 blocks |
The library contains the following phases:
| Name | Description |
|---|---|
| ADASQLA.PHASE | The executable Adabas Native SQL preprocessor (load module) that generates Ada code. |
| ADASQLC.PHASE | The executable Adabas Native SQL preprocessor (load module) that generates COBOL code. |
| ADASQLF.PHASE | The executable Adabas Native SQL preprocessor (load module) that generates FORTRAN code. |
| ADASQLP.PHASE | The executable Adabas Native SQL preprocessor (load module) that generates PL/I code. |
The library contains the following obj's:
| Name | Description |
|---|---|
| APPEX1DA.OBJ | An Adabas Native SQL module (Ada). |
| APPEX1DC.OBJ | An Adabas Native SQL module (COBOL). |
| APPEX1DF.OBJ | An Adabas Native SQL module (FORTRAN). |
| APPEX1DP.OBJ | An Adabas Native SQL module (PL/I). |
| APPEX2S.OBJ | An Adabas Native SQL module. |
| APPEX3S.OBJ | An Adabas Native SQL module. |
| APPMSG.OBJ | An Adabas Native SQL module. |
| APPTIME.OBJ | An Adabas Native SQL module. |
| ASQL1A.OBJ | An Adabas Native SQL module (Ada). |
| ASQL1C.OBJ | An Adabas Native SQL module (COBOL). |
| ASQL1F.OBJ | An Adabas Native SQL module (FORTRAN). |
| ASQL1P.OBJ | An Adabas Native SQL module (PL/I). |
| CMDIX.OBJ | Module that generates the names of the record buffer. |
| FGFID.OBJ | Module that generates a global format ID. |
| FJOBNAME.OBJ | Module that gets the job name. |
| PRPABEND.OBJ | This module is used to abend an application program if an error occurred. |
| PRTRACE.OBJ | Module that traces the record buffers and format buffers during the execution of the application program if MODE TRACE is set (object module, COBOL). |
| RESPINT.OBJ | The response code interpretation routine (object module, COBOL). |
| SQFRDATE.OBJ | Routine which converts format D number to numeric date. |
| SQFRTIME.OBJ | Routine which converts format T number to numeric date and numeric time. |
| SQTODATE.OBJ | Routine which converts numeric date to format D number. |
| SQTOTIME.OBJ | Routine which converts numeric date and numeric time to format T number. |
The library contains the following sources:
| Name | Description |
|---|---|
| AEX1.A....AEX3.A | Ada examples using various Adabas Native SQL statements. |
| TYPESADA.A | Data definitions for use in Ada programs. This file must be compiled before using the Adabas Native SQL preprocessor with Ada source programs. |
| CEX1.C...CEX3.C | COBOL examples using various Adabas Native SQL statements. |
| CEXC.C | A COBOL example using Adabas Native SQL under CICS. |
| PRTFLOW.C | The source code of the routine that prints a flow-trace of all executed Adabas Native SQL statements during the execution of the program if MODE FLOW is set (COBOL). |
| PRTRACE.C | The source code of the routine that traces the record buffers and format buffers during the execution of the application program if MODE TRACE is set (COBOL). |
| PRTRCICS.C | The source code of the routine that traces the record buffers and format buffers during the execution of the application program if MODE TRACE is set (COBOL; for use in CICS programs). |
| RESPCICS.C | The source code of the response code interpretation routine (COBOL; for use in CICS programs). |
| RESPINT.C | The source code of the response code interpretation routine (COBOL). |
| SQFRDATE.C | Routine which converts format D number to numeric date. |
| SQFRTIME.C | Routine which converts format T number to numeric date and numeric time. |
| SQTODATE.C | Routine which converts numeric date to format D number. |
| SQTOTIME.C | Routine which converts numeric date and numeric time to format T number. |
| FEX1.F...FEX3.F.F | FORTRAN examples using various Adabas Native SQL statements. |
| PRTFLO.F | The source code of the routine that prints a flow-trace of all executed Adabas Native SQL statements during the execution of the program if MODE FLOW is set (FORTRAN). |
| PRTRAC.F | The source code of the routine that traces the record buffers and format buffers during the execution of the application program if MODE TRACE is set (FORTRAN). |
| RESPF.F | The source code of the response code interpretation routine (FORTRAN). |
| PEX1.P...PEX3.P | PL/I examples using various Adabas Native SQL statements. |
| PRTFLOP.P | The source code of the routine that prints a flow-trace of all executed Adabas Native SQL statements during the execution of the program if MODE FLOW is set (PL/I). |
| PRTRACP.P | The source code of the routine that traces the record buffers and format buffers during the execution of the application program if MODE TRACE is set (PL/I). |
| RESPPL1.P | The source code of the response code interpretation routine (PL/I). |
If necessary, the source modules may be edited to accommodate installation-specific requirements. The original source modules should be retained for future reference.
The members ADASQL.J and SQLJCL.J contain the following procedures with parameterized data. The parameters are documented.
| Name | Procedures |
|---|---|
| ADASQL.J |
A sample JCL procedure to link Adabas Native SQL. A sample procedure to generate the procedure SQLLIBS with the utility MAINT. |
| SQLJCL.J |
A sample JCL procedure to preprocess, compile, link and execute an Ada program. A sample JCL procedure to preprocess, compile, link and execute a COBOL program. A sample JCL procedure to preprocess, compile, link and execute a FORTRAN program. A sample JCL procedure to preprocess, compile, link and execute a PL/I program. A sample JCL procedure to preprocess an Ada, COBOL, FORTRAN or PL/I
program. The sub-procedure ASQL must be called with one of the following
parameters as appropriate : "SQL='ADASQLA.PHASE'"
(Ada) "SQL='ADASQLC.PHASE'" (COBOL)
"SQL='ADASQLF.PHASE'" (FORTRAN)
"SQL='ADASQLP.PHASE'" (PL/I) Also, the global
parameter |
