Creating the IQCLODX0 user exit routine

Create your own LOAD function user exit routine named IQCLODX0 for different IMSPLEX systems.

******************************************************************** 
* BPE USER EXIT LIST PROCLIB MEMBER                                * 
******************************************************************** 
#------------------------------------------------------------------#
#          DEFINE LOAD USER EXIT:  IQCLODX0                        #
#------------------------------------------------------------------#
EXITDEF(TYPE=LOADX,EXITS=(IQCLODX0)) 

***********************************************************************
* SAMPLE CONFIGURATION FILE FOR BPE WITH QCF SERVER ADDRESS SPACE     * 
*********************************************************************** 
*---------------------------------------------------------------------* 
* Specify the language for messages. Syntax is:                       *
*                                                                     * 
* LANG=language                                                       *
*                                                                     * 
* language = 3-character code for the requested language. Currently,  * 
* only ENU (U.S. English) is supported.                               * 
*---------------------------------------------------------------------* 
LANG=ENU                                    /* Language for messages */ 
                                            /* (ENU = U.S. English)  */ 
*---------------------------------------------------------------------* 
* Trace table level definitions. Syntax is:                           * 
*                                                                     * 
* TRCLEV=(tablename,level,component) -or-                             * 
* TRCLEV=(tablename,level,component,PAGES=#pages)                     * 
*                                                                     * 
* tablename = name of the trace table, or * to set default for all    * 
* level = tracing level: NONE, ERROR, LOW, MEDIUM, or HIGH            * 
* component = owning component name (BPE or QCF)                      * 
* #pages = (optional) # of 4K pages to be allocated to this trace     * 
* table                                                               * 
*---------------------------------------------------------------------* 
# 
# Definitions for BPE system traces 
# 
TRCLEV=(*,HIGH,BPE)                   /* Set default for all BPE    */ 
                                      /* traces to HIGH. Uncomment  */ 
                                      /* lines below and fill in    */ 
                                      /* level to change particular */ 
                                      /* table levels to other than */ 
                                      /* HIGH.                      */ 
#TRCLEV=(AWE,level,BPE)               /* AWE server trace           */ 
#TRCLEV=(CBS,level,BPE)               /* Control blk srvcs trace    */ 
#TRCLEV=(CMD,level,BPE)               /* Command services trace     */ 
#TRCLEV=(DISP,level,BPE)              /* Dispatcher trace           */ 
#TRCLEV=(HASH,level,BPE)              /* Hash table trace           */ 
#TRCLEV=(LATC,level,BPE)              /* Latch trace                */ 
#TRCLEV=(SSRV,level,BPE)              /* System services trace      */ 
#TRCLEV=(STG,level,BPE)               /* Storage trace              */ 
#TRCLEV=(USRX,level,BPE)              /* User exit services trace   */ 
# 
# Definitions for QCF traces 
# 
TRCLEV=(*,HIGH,QCF)                   /* Set default for all QCF    */ 
                                      /* traces to HIGH. Uncomment  */ 
                                      /* lines below and fill in    */ 
                                      /* level to change particular */ 
                                      /* table levels to other than */ 
                                      /* HIGH.                      */ 
#TRCLEV=(ERR,level,QCF)               /* QCF error trace            */ 
#TRCLEV=(INI,level,QCF)               /* QCF initialization trace   */ 
#TRCLEV=(MST,level,QCF)               /* QCF master control trace   */ 
#TRCLEV=(CSV,level,QCF)               /* QCF common service trace   */ 
#TRCLEV=(CVC,level,QCF)               /* QCF conversation trace     */ 
#TRCLEV=(REQ,level,QCF)               /* QCF request service trace  */ 
#TRCLEV=(RSP,level,QCF)               /* QCF response service trace */ 
#TRCLEV=(SAF,level,QCF)               /* QCF SFA manager trace      */ 
#TRCLEV=(CMD,level,QCF)               /* QCF command processor trace*/ 
#TRCLEV=(SCI,level,QCF)               /* QCF SCI trace              */ 
EXITMBR=(IQCEXIT0,QCF)                /* EXIT MBR DEF               */