DSN8CP1
THIS MODULE PERFORMS THE INCLUDES TO BRING IN THE SQL TABLE DCLS AND DCLGEN STRUCURES AS WELL AS PARAMETER AREA.
DSN8CP1:PROC (COMMPTR) OPTIONS(MAIN);
/*********************************************************************
* *
* MODULE NAME = DSN8CP1 *
* *
* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION *
* SQL 1 MAINLINE *
* CICS *
* PL/I *
* ORGANIZATION APPLICATION *
* *
* COPYRIGHT = 5740-XYR (C) COPYRIGHT IBM CORP 1982, 1985 *
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 *
* *
* STATUS = RELEASE 2, LEVEL 0 *
* *
* FUNCTION = THIS MODULE PERFORMS THE INCLUDES TO BRING IN THE *
* SQL TABLE DCLS AND DCLGEN STRUCURES AS WELL AS *
* PARAMETER AREA. *
* INCLUDE DSN8MP1. *
* CALL DSN8CP2. *
* RETURN TO DSN8CP0. *
* *
* NOTES = *
* DEPENDENCIES = CALLED BY DSN8CP0, CALLS DSN8CP2 (CICS LINKS). *
* RESTRICTIONS = NONE *
* *
* MODULE TYPE = PL/I PROC(COMMPTR) OPTIONS. *
* PROCESSOR = DB2 PRECOMPILER, CICS TRANSLATOR, PL/I OPTIMIZER
* MODULE SIZE = SEE LINK-EDIT *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = DSN8CP1 *
* PURPOSE = SEE FUNCTION *
* LINKAGE = NONE *
* *
* INPUT = PARAMETERS EXPLICITLY PASSED TO THIS FUNCTION: *
* *
* SYMBOLIC LABEL/NAME = COMMPTR (POINTER TO COMMAREA) *
* DESCRIPTION = NONE *
* *
* OUTPUT = PARAMETERS EXPLICITLY RETURNED: *
* *
* SYMBOLIC LABEL/NAME = NONE *
* DESCRIPTION = NONE *
* *
* EXIT-NORMAL = DSN8CP0 *
* *
* EXIT-ERROR = DSN8CP0 *
* *
* RETURN CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = DSN8CP2 *
* *
* DATA-AREAS = *
* DSN8MPCA - PLI STRUCTURE FOR COMMAREA *
* DSN8MPCS - DECLARE CONVERSATION STATUS *
* DSN8MPOV - DECLARE OPTION VALIDATION *
* DSN8MPVO - FIND VALID OPTIONS FOR ACTION, *
* OBJECT, SEARCH CRITERIA *
* DSN8MP1 - RETRIEVE LAST CONVERSATION, *
* VALIDATE, CALL SQL2 *
* 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 ) *
* EXEC CICS RETURN. *
* *
* CP1CALL: ( REFERENCED BY DSN8MP1 ) *
* EXEC CICS LINK PROGRAM('DSN8CP2') COMMAREA(COMMAREA) *
* LENGTH(3000). *
* GO TO MP1SAVE. (LABEL IN DSN8MP1) *
* *
* INCLUDE VALIDATION MODULES. *
* *
* END. *
*-------------------------------------------------------------------*/
/*------------------------------------------------------------------*/
/* */
/* */
/* */
/* */
/* SQL1 MAINLINE */
/* */
/* */
/* */
/* */
/* */
/*------------------------------------------------------------------*/
/* SQL RETURN CODE HANDLING */
EXEC SQL WHENEVER SQLERROR GO TO DB_ERROR;
EXEC SQL WHENEVER SQLWARNING GO TO DB_ERROR;
/****************************************************************/
/* ** DCLGENS AND INITIALIZATIONS */
/****************************************************************/
DCL STRING BUILTIN;
DCL J FIXED BIN;
DCL SAVE_CONVID CHAR(16);
/* DECLARE CONTROL FLAGS */
DCL ( SENDBIT, ENDBIT, NEXTBIT, ON, OFF) BIT(1);
/********************************************************/
/* ** FIELDS SENT TO MESSAGE ROUTINE */
/********************************************************/
DCL MODULE CHAR (07);
DCL OUTMSG CHAR (69);
DCL DSN8MPG EXTERNAL ENTRY;
EXEC SQL INCLUDE DSN8MPCA; /* INCLUDE COMMAREA */
DSN8_MODULE_NAME.MAJOR = 'DSN8CP1 '; /* 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; /* INCLUDE SQL COMMAREA*/
EXEC SQL INCLUDE DSN8MP1; /* INCLUDE SQL1 MAIN*/
EXEC SQL INCLUDE DSN8MPXX; /* INCLUDE ERRORHANDLER */
CP1EXIT :
EXEC CICS RETURN; /* STANDARD EXIT */
CP1CALL :
/* GO TO DSN8CP2 (SQL2) */
EXEC CICS LINK PROGRAM('DSN8CP2') COMMAREA(COMMAREA) LENGTH(3000);
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 */