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 CICSTS55.CICS libraries in which they can be found, are summarized in the following tables.
| Language | Member name | Library |
|---|---|---|
| Assembler | DFHDSRP | SDFHSAMP |
| COBOL | DFHDSRP | SDFHCOB |
| PL/I | DFHDSRP | SDFHPL1 |
| C | DFHDSRP | SDFHC370 |
| Language | Member name | Library |
|---|---|---|
| Assembler | DFHDYPDS | SDFHMAC |
| COBOL | DFHDYPDS | SDFHCOB |
| PL/I | DFHDYPDS | SDFHPL1 |
| C | DFHDYPDS | SDFHC370 |
You can write your own distributed routing program in COBOL, 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.
If you want to route requests dynamically, you must customize DFHDSRP, or replace it completely with your own routing program.