The CICS common area has the following structure. (“DB2 Access Module” in the following copybook means “AMD2.”)
**************************************************************
* AMD2CCPX Rel 10.1
* This copy book defines the LINKAGE SECTION for a COBOL II
* Parse Exit Routine for DB2 Access Module. **************************************************************
01 AMD2CCPX-COMMAREA REDEFINES DFHCOMMAREA.
05 AMD2CCPX-CA-EYECATCHER PIC X(8).
05 AMD2CCPX-CA-USERID PIC X(32).
05 AMD2CCPX-CA-PASSWORD PIC X(32).
05 AMD2CCPX-CA-NETGWNAME PIC X(32).
05 AMD2CCPX-CA-CHARSETCLT PIC X(32).
05 AMD2CCPX-CA-CHARSETSRV PIC X(32).
05 AMD2CCPX-CA-NATLANGCLT PIC X(32).
05 AMD2CCPXAMD2CCPX-CA-DBCS PIC X(32).
05 AMD2CCPX-CA-STMT-PTR POINTER.
05 AMD2CCPX-CA-RETCODE PIC S9(9) COMP.
05 AMD2CCPX-CA-MSGCODE PIC S9(9) COMP.
05 AMD2CCPX-CA-RESERVED PIC X(80).
*------------------------------------------------------------
* Define SQL text area pointed to by AMD2CCPX-CA-STMT-PTR
*------------------------------------------------------------
01 AMD2SQL-TEXT-LVL-01.
03 AMD2SQL-TEXT.
05 AMD2SQL-TEXT-LL PIC S9(4) COMP.
05 AMD2SQL-TEXT-CHARS OCCURS 0 TO 32704 TIMES
DEPENDING ON AMD2SQL-TEXT-LL
PIC X.
03 AMD2SQL-TEXT-DUMMY-LVL PIC X.
*****************************************************************
* END AMD2CCPX COPY BOOK
*****************************************************************
Copyright © 2005. Sybase Inc. All rights reserved. |
![]() |