📜  CICS-伪编程

📅  最后修改于: 2020-11-22 16:35:08             🧑  作者: Mango


到目前为止,我们已经涵盖了非转换和转换程序。转换程序的主要缺点是它们的思考时间相当长。为了克服这个问题,伪转换编程出现了。现在,我们将讨论有关伪转换程序的更多信息。

伪转换程序

以下是伪转换程序中发生的事件序列-

  • 步骤1-系统将消息发送到屏幕并终止交易,并指定要在收到用户输入时开始的交易。

  • 步骤2-系统将此事务使用的资源分配给系统中运行的其他事务。因此,我们可以在伪转换程序中利用资源,直到用户提供输入为止。

  • 步骤3-系统以固定的时间间隔轮询终端输入。收到输入后,将对其进行处理并显示输出。

  • 步骤4-在需要时将应用程序加载到主存储器中,在不使用时将其释放。

CICS伪转换程序

伪转换技术

伪对话中要注意的重要一点是每个任务之间的数据传递。我们将讨论有关传递数据的技术。

逗号

COMMAREA被称为通信区域。 COMMAREA用于在任务之间传递数据。以下示例显示如何通过在工作存储部分中声明了WSCOMMAREA和WS-COMMAREA-LENGTH的COMMAREA-

EXEC CICS RETURN
   TRANSID ('transaction-id')
   COMMAREA (WS-COMMAREA)
   LENGTH  (WS-COMMAREA-LENGTH)
END-EXEC.

DFHCOMMAREA

DFHCOMMAREA是CICS为每个任务提供的特殊存储区。

  • 它用于将数据从一个程序传递到另一程序。程序可以存在于同一事务中,也可以存在于不同事务中。

  • 在程序的“链接”部分中以01级别声明。

  • 它应该具有与WS-COMMAREA相同的picture子句。

  • 可以使用MOVE语句将数据从DFHCOMMAREA移回WS-COMMAREA。

MOVE DFHCOMMAREA TO WS-COMMAREA.

发送地图后,任务结束并等待用户响应。在此阶段,需要保存数据,因为尽管任务已结束,但事务尚未完成。当要恢复该事务时,它将需要任务的先前状态。用户输入输入。现在必须由RECEIVE MAP命令接收它,然后进行验证。以下示例显示如何声明COMMAREA和DFHCOMMAREA-

WORKING-STORAGE SECTION.
01 WS-COMMAREA.
   05 WS-DATA PIC X(10).
   
LINKAGE SECTION.
01 DFHCOMMAREA.
   05 LK-DATA PIC X(10).

伪代码

下面给出的是我们在伪编程中使用的伪代码的逻辑-

MOVE DFHCOMMAREA TO WS-COMMAREA
IF EIBCALEN = 0
   STEP1: SEND MAP
   STEP2: MOVE  to WS-COMMAREA
   STEP3: ISSUE CONDITIONAL RETURN
ELSE
   IF WS-COMMAREA =  
      STEP4: RECEIVE MAP
      STEP5: PROCESS DATA
      STEP6: SEND OUTPUT MAP
      STEP7: MOVE  to WS-COMMAREA
      STEP8: ISSUE CONDITIONAL RETURN 
   END-IF
END-IF      
STEP9: REPEAT STEP3 TO STEP7 UNTIL EXIT

以下示例显示了伪转换程序-

******************************************************************
* PROGRAM TO DEMONSTRATE PSEUDO-CONVERSATION                     *
******************************************************************
IDENTIFICATION DIVISION.                                         
PROGRAM-ID. HELLO.                                               
DATA DIVISION.                                                   
WORKING-STORAGE SECTION.                                         
01 WS-MESSAGE          PIC X(30).                                
01 WS-COMMAREA         PIC X(10) VALUE SPACES.                    
LINKAGE SECTION.                                                 
01 DFHCOMMAREA         PIC X(10).                                 
PROCEDURE DIVISION.
   MOVE DFHCOMMAREA TO WS-COMMAREA
   IF  WS-COMMAREA  =  SPACES                                   
******************************************************************
* TRANSACTION GETTING EXECUTED FOR THE FIRST TIME                *
******************************************************************
   MOVE 'HELLO' TO WS-MESSAGE                               
   EXEC CICS SEND TEXT                                      
      FROM (WS-MESSAGE)                                   
   END-EXEC                                                 
   MOVE 'FIRST' TO WS-COMMAREA                              
******************************************************************
* TASK ENDS AS A RESULT OF RETURN. IF AID KEY PRESSED, NEXT      *
* TRANSACTION SHOULD BE TP002. DATA PASSED FROM WS-COMMAREA TO   *
* DFHCOMMAREA                                                    *
******************************************************************
   EXEC CICS RETURN                                         
      TRANSID('TP002')                                      
      COMMAREA(WS-COMMAREA)                                
   END-EXEC                                                 
******************************************************************
* IF  COMMAREA IS NOT EMPTY , THEN TP002 HAS BEEN EXECUTED ONCE  *
* ALREADY, USER INTERACTION IS FACILITATED BY RECEIVE            *
******************************************************************
   ELSE                                                         
      EXEC CICS RECEIVE                                        
         INTO(WS-MESSAGE)                                    
   END-EXEC
      EXEC CICS SEND TEXT                                      
      FROM (WS-MESSAGE)                                   
   END-EXEC                                                 
******************************************************************
* TASK ENDS AS A RESULT OF RETURN, NO NEXT TRANSACTION SPECIFIED *
* TO BE EXECUTED                                                 *
******************************************************************
   EXEC CICS RETURN                                         
   END-EXEC                                                 
END-IF.       

伪转换的优点

以下是伪转换的优点-

  • 资源得到最佳利用。程序暂时暂停后,资源将立即释放。

  • 看起来好像处于对话模式。

  • 它具有更好的响应时间。

退货单

以下是CICS中使用的两种类型的return语句-

返回1

当发出以下无条件返回语句时,任务和事务(程序)将终止。

EXEC CICS RETURN 
END-EXEC.

返回2

当发出以下条件返回(即,用TRANSID语句返回)时,控件将返回带有下一个要执行的transid的CICS。当用户按下AID键时,下一个事务开始。

EXEC CICS RETURN
   TRANSID ('trans-id')
   [COMMAREA(WS-COMMAREA)]
END-EXEC.