DSN8IP1
PERFORM INCLUDES TO BRING IN SQL TABLE DCLS AND DCLGEN STRUCTURES AS WELL AS PARAMETER AREA.
DSN8IP1:PROC (COMMPTR) ;
/*********************************************************************
* *
* MODULE NAME = DSN8IP1 *
* *
* DESCRIPTIVE NAME = SAMPLE APPLICATION *
* SQL 1 MAINLINE *
* IMS *
* PL/I *
* *
* COPYRIGHT = 5740-XYR (C) COPYRIGHT IBM CORP 1982, 1985 *
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 *
* *
* STATUS = RELEASE 2, LEVEL 0 *
* *
* FUNCTION = PERFORM INCLUDES TO BRING IN SQL TABLE DCLS AND *
* DCLGEN STRUCTURES AS WELL AS PARAMETER AREA. *
* INCLUDE DSN8MP1. *
* CALL DSN8IP2. *
* RETURN TO DSN8IP0. *
* *
* NOTES = NONE *
* *
* MODULE TYPE = PL/I PROC(COMMPTR). *
* PROCESSOR = DB2 PRECOMPILER, PL/I OPTIMIZER *
* MODULE SIZE = SEE LINKEDIT *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = DSN8IP1 *
* PURPOSE = SEE FUNCTION *
* LINKAGE = CALLED BY DSN8IP0 *
* *
* INPUT = PARAMETERS EXPLICITLY PASSED TO THIS FUNCTION: *
* *
* SYMBOLIC LABEL/NAME = COMMPTR *
* DESCRIPTION = POINTER TO COMMUNICATION AREA *
* *
* COMMON AREA. *
* *
* SYMBOLIC LABEL/NAME = PFKIN *
* DESCRIPTION = 00/01/02/03/08/10 *
* *
* SYMBOLIC LABEL/NAME = INAREA *
* DESCRIPTION = USER INPUT *
* *
* OUTPUT = PARAMETERS EXPLICITLY RETURNED: *
* COMMON AREA. *
* *
* SYMBOLIC LABEL/NAME = OUTAREA *
* DESCRIPTION = GENERAL MENU OR SECONDARY *
* SELECTION MENU *
* *
* SYMBOLIC LABEL/NAME = LASTSCR *
* DESCRIPTION = DSN8001/DSN8002 *
* *
* EXIT-NORMAL = DSN8IP0 *
* *
* EXIT-ERROR = DSN8IP0 *
* *
* RETURN CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = NONE *
* *
* DATA-AREAS = *
* DSN8MPCA - PLI STRUCTURE FOR COMMAREA *
* DSN8MPCS - VCONA TABLE DCL AND PCONA DCLGEN *
* DSN8MPOV - VOPTVAL TABLE DCL & POPTVAL DCLGEN *
* DSN8MPVO - VALIDATION CURSORS *
* DSN8MP1 - SQL1 COMMON MODULE FOR IMS AND CICS *
* DSN8MP3 -- DSN8MP5 - VALIDATION MODULES CALLED BY DSN8MP1 *
* DSN8MPXX - SQL ERROR HANDLER *
* *
* CONTROL-BLOCKS = *
* SQLCA - SQL COMMUNICATION AREA *
* *
* TABLES = NONE *
* *
* CHANGE-ACTIVITY = NONE *
* *
* *
* *PSEUDOCODE* *
* *
* PROCEDURE *
* INCLUDE DECLARATIONS. *
* INCLUDE DSN8MP1. *
* INCLUDE ERROR HANDLER. *
* *
* CP1EXIT: ( REFERENCED BY DSN8MP1 ) *
* RETURN. *
* *
* CP1CALL: ( REFERENCED BY DSN8MP1 ) *
* CALL 'DSN8IP2'(COMMPTR). *
* GO TO MP1SAVE. (LABEL IN DSN8MP1) *
* *
* INCLUDE VALIDATION MODULES. *
* *
* END. *
*********************************************************************/
1/********************************************************************/
/* SQL1 MAINLINE */
/********************************************************************/
DCL STRING BUILTIN;
DCL J FIXED BIN;
DCL SAVE_CONVID CHAR(16);
DCL (SENDBIT, ENDBIT, NEXTBIT, ON, OFF) BIT(1);
/* SQL RETURN CODE HANDLING */
EXEC SQL WHENEVER SQLERROR GO TO DB_ERROR;
EXEC SQL WHENEVER SQLWARNING GO TO DB_ERROR;
/********************************************************/
/* FIELDS PASSED TO MESSAGE ROUTINE */
/********************************************************/
DCL MODULE CHAR(07);
DCL OUTMSG CHAR(69);
DCL DSN8IP2 EXTERNAL ENTRY;
DCL DSN8MPG EXTERNAL ENTRY;
EXEC SQL INCLUDE DSN8MPCA; /* INCLUDE COMMAREA */
DSN8_MODULE_NAME.MAJOR = 'DSN8IP1'; /* INITIALIZE MODULE NAME*/
EXEC SQL INCLUDE DSN8MPCS; /* INCLUDE PCONA */
EXEC SQL INCLUDE DSN8MPOV; /* INCLUDE POPTVAL */
EXEC SQL INCLUDE DSN8MPVO; /* INCLUDE CURSOR */
EXEC SQL INCLUDE SQLCA; /* SQL COMMON AREA */
EXEC SQL INCLUDE DSN8MP1; /* INCLUDE SQL1 MAIN*/
EXEC SQL INCLUDE DSN8MPXX; /* HANDLES ERRORS */
CP1EXIT : /* STANDARD EXIT */
RETURN;
CP1CALL :
/* GO TO DSN8IP2 (SQL2) */
CALL DSN8IP2 (COMMPTR);
GO TO MP1SAVE;
EXEC SQL INCLUDE DSN8MP3; /* INCLUDE ACTION VALIDATION*/
EXEC SQL INCLUDE DSN8MP4; /* INCLUDE OBJECT VALIDATION*/
EXEC SQL INCLUDE DSN8MP5; /* INCLUDE SEARCH CRITERIA*/
END; /* VALIDATION */