本文介绍了如何在CICS环境中，使用COBOL编写程序实现从一个交易（PGM0）到另一个交易（PGM1）的RETURN操作。通过示例代码展示了在PGM0中如何提示用户输入密码，并通过RETURN命令调用PGM1进行验证。PGM1接收传入的参数，根据密码正确与否给出不同的响应。
结合前面所讲的伪会话程序的基本概念，下面直接通过具体实例说明先后任务对应不同程序的情况。不妨假设CICS中某两个交易及其各自关联的程序分别如下：
q 交易TRN0，关联的程序为PGM0。
q 交易TRN1，关联的程序为PGM1。
以上面这两个交易为例，图反映了伪会话程序中先后任务对应不同程序的情况。
下面给出程序PGM0和PGM1的具体示例代码，以说明该方式在实际中通常的应用途径。假设PGM0的代码如下：
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM0.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE
最低0.47元/天 解锁文章
扫一扫
2436
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
