开始会话

本程序可准备会话以供 FEPI 样本应用程序使用。

CZUC 事务由 FEPI 在开始新会话时启动。

必须访问 FEPI 启动的对话，以使 FEPI 知道正在处理事件。 所需的处理取决于会话使用的数据方式和类型 (从启动数据获取) ，以及后端系统是 IMS 还是 CICS®。

对于 SLU P 方式 (必须是 IMS) ，处理完全取决于本地需求，并且通常用于处理安全应用程序。 出于说明目的，此程序获取并废弃初始数据。 请注意，这些样本的设置未指定 SLU P 方式的开始会话事务。

对于使用格式化数据的 CICS 的 SLU2 方式，有一条 CICS "早上好" 消息正在等待。 将接收到消息，并且将清除后端屏幕并准备好输入事务标识。

对于使用数据流的 CICS 的 SLU2 方式，可能存在需要应答的 "读分区" 请求 (例如，如果池指定了设备 T3279Mx 或 TPS55Mx ，或者正在使用的登录方式表指定了 "扩展数据流")。 然后，将收到 CICS "早上好" 消息。 将向任何 "读取分区" 查询请求发送应答，接收 "早上好" 消息，并清除后端屏幕，以便输入事务标识。

对于使用 IMS的 SLU2 方式，未说明任何处理。

处理后，将使用 HOLD 选项释放对话，这将使其可供应用程序使用。 将报告写入名为 SESSION 的 TS 队列，可使用 CEBR 进行浏览。 TS 队列记录的格式为:
date time CZUC Begin session completed
          RESP........0            RESP2.......0
          Target......TGTNAME      Node........NODENAME
          Pool........POOLNAME

如果发生任何错误，那么会将报告写入 TS 队列，并使用 RELEASE 选项释放对话，从而结束会话。

程序逻辑

  Main procedure:
    RETRIEVE start data
    Access conversation using FEPI ALLOCATE with PASSCONVID
    Call PROCESS-LUP, PROCESS-FORMATTED, or
        PROCESS-DATASTREAM according to data mode and type
    Free conversation, keeping session
    Write event details to TS queue
    RETURN
  PROCESS-LUP routine:
    FEPI RECEIVE initial data
    Handle data as required
  PROCESS-FORMATTED routine:
    FEPI RECEIVE initial data
    Clear back-end screen and make ready for transaction ID
      to be entered, using FEPI CONVERSE
  PROCESS-DATASTREAM routine:
    FEPI RECEIVE
    If 'read partition' query
        FEPI CONVERSE query reply and get acknowledgment
        FEPI RECEIVE initial data
    Clear back-end screen and make ready for transaction ID
      to be entered, using FEPI CONVERSE