Suppose that an application program called APPLA has had its SCIP exit scheduled. The application program checks that the session will be an LU 6.2 session and then issues an APPCCMD macroinstruction to establish the session. This is shown in the following example:

         L     10,16(,1)         * GET RPL ADD. (5TH WORD OF PARM LIST)
         USING IFGRPL,10         * ESTABLISH ADDRESSABILITY
         TM    RPLCNTDC,RPLTBIND * WAS EXIT DRIVEN FOR BIND?
         BNO   NOTBIND           * GO ELSEWHERE FOR OTHER REQUESTS
         L     9,4(,1)           * GET CID (2ND WORD OF PARM LIST)
         TM    RPLCHN,RPLVACS    * IS THIS BIND FOR AN LU 6.2 SESSION?
         BNO   NONAPPC           * GO ELSEWHERE FOR OTHER SESSION TYPES
*
* EXIT WAS DRIVEN FOR 6.2 BIND - ACCEPT IT WITH APPCCMD.
*
         APPCCMD CONTROL=OPRCNTL,                                      X
               QUALIFY=ACTSESS,                                        X
               RPL=RPLA,                                               X
               AAREA=RPLAX,                                            X
               ACB=APPLA,                                              X
               ARG=(9),                                                X
               AREA=0
                  •
                  •
                  •
RPLA     RPL AM=VTAM             * RPL STORAGE
RPLAX    ISTRPL6                 * RPL EXTENSION STORAGE
APPLA    ACB AM=VTAM,MACRF=LOGON,APPLID=APPLNAME * ACB STORAGE