Naming your distributed routing program, Distributed transaction routing sample programs – IBM SC33-1683-02 User Manual
Page 625
DYRVER
is the version number of the dynamic routing interface. For CICS Transaction
Server for OS/390 Release 3, the number is “5”.
Naming your distributed routing program
The supplied, sample distributed routing program is named DFHDSRP. If you write
your own version, you can name it differently.
After the system has been loaded, to find the name of the distributed routing
program currently identified to CICS, use the EXEC CICS INQUIRE SYSTEM
command. Field DSRTPROGRAM contains the name of the current program.
To change the current program:
v
Use the DSRTPGM system initialization parameter. For information about how to
do this, refer to the
CICS System Definition Guide.
v
Make the change online using the EXEC CICS SET SYSTEM DSRTPROGRAM
command. For programming information about this command, refer to the
CICS
System Programming Reference manual.
Note: A sample definition is provided for DFHDSRP, but you must install a new
resource definition for a customized distributed routing program.
Distributed transaction routing sample programs
The CICS-supplied sample distributed routing program is named DFHDSRP. The
corresponding copy book that defines the communications area is DFHDYPDS.
There are assembler-language, COBOL, PL/I, and C source-level samples and
copy books. The supplied programs and copy books, and the CICSTS13.CICS
libraries in which they can be found, are summarized in Table 29.
Table 29. Distributed routing programs and copy books
Language
Member name
Library
Programs:
Assembler
COBOL
PL/I
C/370
DFHDSRP
DFHDSRP
DFHDSRP
DFHDSRP
SDFHSAMP
SDFHCOB
SDFHPL1
SDFHC370
Copy books:
Assembler
COBOL
PL/I
C/370
DFHDYPDS
DFHDYPDS
DFHDYPDS
DFHDYPDS
SDFHMAC
SDFHCOB
SDFHPL1
SDFHC370
You can write your own distributed routing program in VS COBOL II, PL/I, C, or
assembler language, and you can change the name of the program.
When invoked with DYRFUNC set to ‘0’, the sample programs accept the sysid that
is passed in field DYRSYSID of the communications area, and set DYRRETC to ‘0’
before returning to CICS. When invoked with DYRFUNC set to ‘2’, ‘3’, ‘5’, or ‘6’,
they set a return code of ‘0’. When invoked with DYRFUNC set to ‘1’ or ‘4’, they set
a return code of ‘8’.
parameters passed to DFHDSRP
Chapter 17. Writing a distributed routing program
593
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|