Examples of CICS Inbound and Outbound Applications


	Corporate Info \| News \| Solutions \| Products \| Partners \| Services \| Events \| Download \| How To Buy
	e-docs.beasys.com \| Site Map \| Search \| PDF Files \| Contact \| Glossary

MessageQ Doc Home \| LU6.2 Services for OpenVMS User's Guide \| Previous Topic \| Next Topic \| Contents \| Index

The following sections provide samples of CICS Inbound and Outbound applications.

Sample CICS Inbound Application

--------------------------------------------------------------------------------

TITLE 'VAXIN - BACKEND TRANSACTION PROGRAM' 00010001
*********************************************************************** 00020000
* * 00030000
* THIS PROGRAM CAN BE ACTIVATED UNDER THE TRANSACTION 'VXIN'. * 00040056
* * 00080000
*********************************************************************** 00090000
* 00100000
R15 EQU 15 00110000
R14 EQU 14 00120000
R13 EQU 13 00130000
R12 EQU 12 00140000
R11 EQU 11 00150000
R10 EQU 10 00160000
R9 EQU 9 00170000
R8 EQU 8 00180000
R7 EQU 7 00190000
R6 EQU 6 00200000
R5 EQU 5 00210000
R4 EQU 4 00220000
R3 EQU 3 00230000
R2 EQU 2 00240000
R1 EQU 1 00250000
R0 EQU 0 00260000
* 00280000
* FIXED REGISTERS 00290000
* 00300000
EIBREG EQU R9 00310000
* 00320000
* 00330000
PRINT NOGEN 00331096
* 00333010
VAXIN DFHEIENT EIBREG=EIBREG,DATAREG=(13,4) 00340000
* 00350000
** MOVE CONSTANTS TO WORKING STORAGE 00350000
* 00350000

MVC TRANID,CTRANID
MVC SYNLVL,CSYNLVL
MVC SYSID,CSYSID
MVC DECOUT,CDECOUT
MVC TPN,CTPN
MVC COMMA1,CCOMMA
MVC TERMEQ,CTERMID
MVC COMMA2,CCOMMA
MVC DATAEQ,CDATA
*
******** EXEC CICS HANDLE CONDITION ERROR(EXFREE)

Sample CICS Outbound Application

------------------------------------------------------------------------------

TITLE 'FROMIBM - INIT A TRANSACTION ON THE VAX' 00010001
********************************************************************** 00020000
* * 00030000
* * 00031033
* THIS PROGRAM IS DESIGNED TO COMMUNICATE WITH ANOTHER LU6.2 LOGICAL * 00040000
* UNIT WHICH MAY BE A VMS SYSTEM. IT PERFORMS THE FOLLOW-ING FUNCTIONS * 00050000
* IN A LOOP WHICH IS REPEATED TEN TIMES :- * 00060000
* * 00070000
* 1) ALLOCATE A SESSION TO REMOTE SYSTEM 'DC1R'. PL381021 * 00080000
* * 00090000
* 2) CONNECT TO PROCESS 'IMSAYNC' AT SYNCHPOINT LEVEL ZERO * 00100000
* * 00110000
* 3) ISSUE A CONVERSE REQUEST TO SEND AND RECEIVE DATA. * 00120000
* * 00130000
* 4) FREE THE SES-SION. * 00140000
* * 00150000
* ANY NUMBER OF TRANSACTIONS CAN USE THIS PROGRAM AT ANY ONE TIME * 00160000
* * 00170000
********************************************************************** 00210000

* 00220000
R15 EQU 15 REGIS-TERS 00230000
R14 EQU 14 REGIS-TERS 00240000
R13 EQU 13 REGIS-TERS 00250000
R12 EQU 12 REGIS-TERS 00260000
R11 EQU 11 REGIS-TERS 00270000
R10 EQU 10 REGIS-TERS 00280000
R9 EQU 9 REGIS-TERS 00290000
R8 EQU 8 REGIS-TERS 00300000
R7 EQU 7 REGIS-TERS 00310000
R6 EQU 6 REGIS-TERS 00320000
R5 EQU 5 REGIS-TERS 00330000
R4 EQU 4 REGIS-TERS 00340000
R3 EQU 3 REGIS-TERS 00350000

R2 EQU 2 REGIS-TERS 00360000
R1 EQU 1 REGIS-TERS 00370000
R0 EQU 0 REGIS-TERS 00380000
PRINT NOGEN 00390000

* 00400000
* FIXED REGIS-TERS 00410000
* 00420000
EIBREG EQU R9 00430000
* 00440000
VAXOUT DFHEIENT EIBREG=(EIBREG) 00450000
* 00460000
**** REQUEST SYSID FROM THE TERMI-NAL 00662017
*