DSN8FIMS
THE IMS SYSDEF ADDITIONS NEEDED FOR THE Db2 SAMPLE PROGRAMS THESE DEFINITIONS MUST BE ADDED TO THE NORMAL SYSDEF.
**********************************************************************
* *
* MODULE NAME = DSN8FIMS *
* *
* DESCRIPTIVE NAME = IMS APPLICATION AND TRANSACTION DEFINITIONS *
* *
* COPYRIGHT = 5685-DB2 (C) COPYRIGHT IBM CORP 1982, *
* 1993 (UNPUBLISHED) *
* SEE COPYRIGHT INSTRUCTIONS *
* LICENSED MATERIALS - PROPERTY OF IBM *
* *
* STATUS = VERSION 3 RELEASE 1, LEVEL 0 *
* *
* FUNCTION = *
* THE IMS SYSDEF ADDITIONS NEEDED FOR THE DB2 SAMPLE PROGRAMS *
* THESE DEFINITIONS MUST BE ADDED TO THE NORMAL SYSDEF. *
* *
* NOTES = *
* DEPENDENCIES = NONE *
* *
* RESTRICTIONS = NONE *
* *
* REGISTER CONVENTIONS = NONE, NO EXECUTABLE CODE *
* *
* MODULE TYPE = PROCEDURE *
* *
* PROCESSOR = ASSEMBLER XF OR H *
* *
* MODULE SIZE = SEE ASSEMBLER LISTING *
* *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = NONE *
* *
* PURPOSE = SEE FUNCTION *
* *
* LINKAGE = NONE *
* *
* INPUT = NONE *
* *
* OUTPUT = NONE *
* *
* *
* EXIT-NORMAL = NONE *
* *
* EXIT-ERROR = NONE *
* *
* RETURN CODE = NONE *
* REASON CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = NONE *
* *
* DATA-AREAS = NONE *
* *
* CONTROL-BLOCKS = NONE *
* *
* MACROS = *
* APPLCTN - IMS APPLICATION DEFINITION *
* TRANSACT - IMS TRANSACTION DEFINITION *
* *
* TABLES = NONE *
* *
* CHANGE-ACTIVITY = *
* NONE *
* *
* PSEUDOCODE = *
* *
* THIS MODULE CONTAINS NO EXECUTABLE CODE. *
* *
**********************************************************************
EJECT
*
* DEFINE THE PLI SAMPLE TRANSACTIONS
*
APPLCTN PSB=DSN8IP0
TRANSACT CODE=DSN8PS,MSGTYPE=(,RESPONSE)
APPLCTN PSB=DSN8IQ0
TRANSACT CODE=DSN8PP,MSGTYPE=(,RESPONSE)
*
* DEFINE THE COBOL SAMPLE TRANSACTION
*
APPLCTN PSB=DSN8IC0
TRANSACT CODE=DSN8CS,MSGTYPE=(,RESPONSE)
*
* DEFINE THE PLI PHONE TRANSACTION
*
APPLCTN PSB=DSN8IH0
TRANSACT CODE=DSN8PT,MSGTYPE=(,RESPONSE)