DSN8CC1
THIS MODULE PERFORMS THE INCLUDES TO BRING IN THE SQL TABLE DCLS AND DCLGEN STRUCTURES AS WELL AS THE PARAMETER AREA.
IDENTIFICATION DIVISION.
*------------------------
PROGRAM-ID. DSN8CC1.
********** DSN8CC1 - SQL 1 MAINLINE FOR CICS - COBOL ************
* *
* MODULE NAME = DSN8CC1 *
* *
* DESCRIPTIVE NAME = DB2 SAMPLE APPLICATION *
* SQL 1 MAINLINE *
* CICS *
* COBOL *
* *
*Licensed Materials - Property of IBM *
*5605-DB2 *
*(C) COPYRIGHT 1982, 2010 IBM Corp. All Rights Reserved. *
* *
*STATUS = Version 10 *
* *
* FUNCTION = THIS MODULE PERFORMS THE INCLUDES TO BRING IN THE *
* SQL TABLE DCLS AND DCLGEN STRUCTURES AS WELL AS *
* THE PARAMETER AREA. *
* *
* NOTES = *
* DEPENDENCIES = CALLED BY DSN8CC0, CALLS DSN8CC2(CICS LINKS).*
* RESTRICTIONS = NONE *
* *
* *
* MODULE TYPE = *
* PROCESSOR = DB2 PRECOMPILER,CICS TRANSLATOR,COBOL COMPILER
* MODULE SIZE = SEE LINK_EDIT *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = DSN8CC1 *
* PURPOSE = SEE FUNCTION *
* LINKAGE = INCLUDED BY MODULE DSN8MC1 *
* *
* INPUT = PARAMETERS EXPLICITLY PASSED TO THIS FUNCTION: *
* *
* SYMBOLIC LABEL/NAME = NONE *
* DESCRIPTION = NONE *
* *
* OUTPUT = PARAMETERS EXPLICITLY RETURNED: *
* *
* SYMBOLIC LABEL/NAME = NONE *
* DESCRIPTION = NONE *
* *
* EXIT-NORMAL = DSN8CC0 *
* *
* EXIT-ERROR = DSN8CC0 *
* *
* RETURN CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = DSN8CC2 *
* *
* DATA-AREAS = *
* DSN8MCCA - COBOL STRUCTURE FOR DFHCOMMAREA *
* DSN8MCCS - VCONA TABLE DCL AND PCONA DCLGEN *
* DSN8MCC2 - COMMON AREA PART 2 *
* DSN8MCOV - VOPTVAL TABLE DCL & POPTVAL DCLGEN *
* DSN8MCVO - FINDS VALID OPTIONS FOR ACTION, *
* OBJECT, SEARCH CRITERIA *
* DSN8MC1 - SQL1 COMMON MODULE FOR IMS AND CICS *
* DSN8MC3 - DSN8MC5 - VALIDATION MODULES CALLED BY DSN8MC0*
* DSN8MCXX - SQL ERROR HANDLER *
* *
* CONTROL-BLOCKS = *
* SQLCA - SQL COMMUNICATION AREA *
* *
* TABLES = NONE *
* *
* CHANGE-ACTIVITY = *
* - 10/18/2005 PK03311 INITIALIZE UNINITIALIZED STORAGE @01 *
* *
* *PSEUDOCODE* *
* *
* PROCEDURE *
* INCLUDE DECLARATIONS. *
* INCLUDE DSN8MC1. *
* INCLUDE ERROR HANDLER. *
* *
* CC1EXIT: ( REFERENCED BY DSN8MC1 ) *
* EXEC CICS RETURN. *
* *
* CC1CALL: ( REFERENCED BY DSN8MC1 ) *
* EXEC CICS LINK PROGRAM('DSN8CC2') *
* COMMAREA(DFHCOMMAREA). *
* GO TO MC1SAVE. (LABEL IN DSN8MC1) *
* *
* INCLUDE VALIDATION MODULES. *
* *
* END. *
*****************************************************************
ENVIRONMENT DIVISION.
*------------------------
DATA DIVISION.
*------------------------
WORKING-STORAGE SECTION.
*****************************************************************
* * DECLARE FIELD PASSED TO MESSAGE ROUTINE *
* * DECLARE CONVERSATION STATUS *
* * DECLARE MESSAGE TEXT *
* * DECLARE OPTION VALIDATION *
* * DECLARE COMMON AREA AND COMMON AREA PART 2 *
*****************************************************************
01 MSGCODE PIC X(04).
01 OUTMSG PIC X(69).
EXEC SQL INCLUDE DSN8MCCS END-EXEC.
EXEC SQL INCLUDE DSN8MCOV END-EXEC.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL INCLUDE DSN8MCC2 END-EXEC.
LINKAGE SECTION.
01 DFHCOMMAREA.
EXEC SQL INCLUDE DSN8MCCA END-EXEC.
PROCEDURE DIVISION.
*------------------------
* INIT AREA INCLUDED BY DSN8MCCS @01
MOVE SPACES TO PCONA.
* INIT AREA INCLUDED BY DSN8MCOV @01
MOVE SPACES TO POPTVAL.
********************************************************
* SQL RETURN CODE HANDLING *
********************************************************
EXEC SQL WHENEVER SQLERROR GO TO DB-ERROR END-EXEC
EXEC SQL WHENEVER SQLWARNING GO TO DB-ERROR END-EXEC.
MOVE 'DSN8CC1' TO MAJOR IN DSN8-MODULE-NAME.
***********************************************************
* FIND VALID OPTIONS FOR ACTION, OBJECT, SEARCH CRITERION*
* RETRIEVE CONVERSATION, VALIDATE, CALL SQL2 *
***********************************************************
EXEC SQL INCLUDE DSN8MCVO END-EXEC.
EXEC SQL INCLUDE DSN8MC1 END-EXEC.
* **RETURN
CC1-EXIT.
EXEC CICS RETURN END-EXEC.
***********************************************************
* VALIDATE ACTION, OBJECT, SEARCH CRITERIA *
* HANDLE ERRORS *
***********************************************************
CC1-CALL.
EXEC CICS LINK PROGRAM('DSN8CC2') COMMAREA(DFHCOMMAREA)
LENGTH(3000) END-EXEC.
GO TO MC1-SAVE.
EXEC SQL INCLUDE DSN8MC3 END-EXEC.
EXEC SQL INCLUDE DSN8MC4 END-EXEC.
EXEC SQL INCLUDE DSN8MC5 END-EXEC.
EXEC SQL INCLUDE DSN8MCXX END-EXEC.
GOBACK.