Example of receiving an FMH-5

This section provides an example for receiving an FMH-5. Figure 1 shows an application program, APPLA, that has its ATTN exit driven for the receipt of an FMH-5. The application program must issue RCVFMH5 to accept the FMH-5. The application program must save the LU name of the conversation partner, the mode being used by the conversation, and the returned conversation identifier. This information is saved in the storage areas LUNAME, MODE, and CONVID.

Figure 1. Example of receiving an FMH-5

         CLC   12(4,1),=C'FMH5'  * WAS EXIT DRIVEN FOR FMH-5?
         BE    FMH5IN            * GO TO FMH5 CODE IF SO
              •
              •
              •
FMH5IN   DS    0H
              •
              •
              •
 
*
         APPCCMD CONTROL=RCVFMH5,                                      X
               RPL=RPLA,                                               X
               AAREA=RPLAX,                                            X
               ACB=APPLA,                                              X
               OPTCD=SYN,                                              X
               CONMODE=LLCA,                                           X
               CONXMOD=CA,                                             X
               AREA=FMH5INST,                                          X
               AREALEN=255
*
         LTR   15,15             * CHECK GENERAL RETURN CODE IN 15
         BNZ   BADGENRC          * HANDLE NONZERO RETURN CODE
         LTR   0,0               * CHECK CONDITIONAL COMPLETION
         BNZ   BADCOND           * HANDLE NONZERO RETURN CODE
         LA    9,RPLAX           * GET RPL EXTENSION ADDRESS
         USING ISTRPL6X,9        * ESTABLISH ADDRESSABILITY
         MVC   LUNAME,RPL6LU     * SAVE PARTNER LU NAME
         MVC   MODE,RPL6MODE     * SAVE MODE NAME
         MVC   CONVID,RPL6CNVD   * STORE THE CONVERSATION ID
                  •
                  •
                  •
MODE     DS    XL8               * MODE NAME
LUNAME   DS    XL8               * PARTNER LU NAME
CONVID   DS    XL4               * RETURNED CONVERSATION ID
FMH5INST DS    XL255             * RECEIVED FMH-5
RPLA     RPL AM=VTAM             * RPL STORAGE
RPLAX    ISTRPL6                 * RPL EXTENSION STORAGE
APPLA    ACB AM=VTAM,MACRF=LOGON,APPLID=APPLNAME * ACB STORAGE