DSN8FRCT
THE CICS® RCT ADDITIONS ARE NEEDED FOR THE Db2 SAMPLE PROGRAMS .
********************************************************************** 00010000
* * 00020000
* MODULE NAME = DSN8FRCT * 00030000
* * 00040000
* DESCRIPTIVE NAME = CICS RCT ADDITIONAL ENTRIES FOR THE SAMPLE. * 00050000
* * 00060000
* LICENSED MATERIALS - PROPERTY OF IBM * 00070000
* 5645-DB2 * 00080000
* (C) COPYRIGHT 1982, 1998 IBM CORP. ALL RIGHTS RESERVED. * 00090000
* * 00100000
* STATUS = VERSION 6 * 00110000
* * 00120000
* FUNCTION = * 00130000
* THE CICS RCT ADDITIONS ARE NEEDED FOR THE DB2 SAMPLE PROGRAMS * 00140000
* * 00150000
* NOTES = * 00160000
* DEPENDENCIES = NONE * 00170000
* * 00180000
* RESTRICTIONS = NONE * 00190000
* * 00200000
* REGISTER CONVENTIONS = NONE, NO EXECUTABLE CODE * 00210000
* * 00220000
* MODULE TYPE = PROCEDURE * 00230000
* * 00240000
* PROCESSOR = ASSEMBLER XF OR H * 00250000
* * 00260000
* MODULE SIZE = SEE ASSEMBLER LISTING * 00270000
* * 00280000
* ATTRIBUTES = REUSABLE * 00290000
* * 00300000
* ENTRY POINT = NONE * 00310000
* * 00320000
* PURPOSE = SEE FUNCTION * 00330000
* * 00340000
* LINKAGE = NONE * 00350000
* * 00360000
* INPUT = NONE * 00370000
* * 00380000
* OUTPUT = NONE * 00390000
* * 00400000
* * 00410000
* EXIT-NORMAL = NONE * 00420000
* * 00430000
* EXIT-ERROR = NONE * 00440000
* * 00450000
* RETURN CODE = NONE * 00460000
* REASON CODE = NONE * 00470000
* * 00480000
* ABEND CODES = NONE * 00490000
* * 00500000
* ERROR-MESSAGES = NONE * 00510000
* * 00520000
* EXTERNAL REFERENCES = * 00530000
* ROUTINES/SERVICES = NONE * 00540000
* * 00550000
* DATA-AREAS = NONE * 00560000
* * 00570000
* CONTROL-BLOCKS = NONE * 00580000
* * 00590000
* MACROS = * 00600000
* DSNCRCT - DB2/CICS RESOURCE CONTROL TABLE * 00610000
* * 00620000
* TABLES = NONE * 00630000
* * 00640000
* CHANGE-ACTIVITY = * 00650000
* 01-19-94 Added 'AUTH=' parms to prevent RC = 04 TU2632CL* 00660000
* 07-27-98 Change 'AUTH=(USER,TERM,TXID)' PQ15668* 00670000
* to 'AUTH=TXID' to prevent RC = 05 * 00680000
* * 00690000
* PSEUDOCODE = * 00700000
* * 00710000
* THIS MODULE CONTAINS NO EXECUTABLE CODE. * 00720000
* * 00730000
********************************************************************** 00740000
EJECT 00750000
DSNCRCT TYPE=INIT,SUFFIX=Z 00760000
DSNCRCT TYPE=POOL, X00770000
AUTH=TXID, X00780000
THRDM=3,THRDA=3,PLAN=DSN8CC0 00790000
* 00800000
* DEFINE THE PLI SAMPLE TRANSACTION 00810000
* 00820000
DSNCRCT TYPE=ENTRY,TXID=D8PS,THRDM=1,THRDA=1,PLAN=DSN8CP0, X00830000
AUTH=TXID 00840000
DSNCRCT TYPE=ENTRY,TXID=D8PP,THRDM=1,THRDA=1,PLAN=DSN8CQ0, X00850000
AUTH=TXID 00860000
* 00870000
* DEFINE THE COBOL SAMPLE TRANSACTION 00880000
* 00890000
DSNCRCT TYPE=ENTRY,TXID=D8CS,THRDM=1,THRDA=1,PLAN=DSN8CC0, X00900000
AUTH=TXID 00910000
* 00920000
* DEFINE THE PLI PHONE TRANSACTION 00930000
* 00940000
DSNCRCT TYPE=ENTRY,TXID=D8PT,THRDM=1,THRDA=1,PLAN=DSN8CH0, X00950000
AUTH=TXID 00960000
* D8PU TRANSACTION USED INTERNALLY 00970000
DSNCRCT TYPE=ENTRY,TXID=D8PU,THRDM=1,THRDA=1,PLAN=DSN8CH0, X00980000
AUTH=TXID 00990000
DSNCRCT TYPE=FINAL 01000000
END 01010000