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 CICSTS31.CICS libraries in which they can be found, are summarized in Table 32.
Language | Member name | Library |
---|---|---|
Programs:
Assembler COBOL PL/I C |
DFHDSRP DFHDSRP DFHDSRP DFHDSRP |
SDFHSAMP SDFHCOB SDFHPL1 SDFHC370 |
Copy books:
Assembler COBOL PL/I C |
DFHDYPDS DFHDYPDS DFHDYPDS DFHDYPDS |
SDFHMAC SDFHCOB SDFHPL1 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.