Calling API QliChgLL

     * Change Library List
       dcl-pr QliChgLL extpgm('QliChgLL');
         pCurLib      Char(11) const;
         pProdLib1    Char(11) const;
         pProdLib2    Char(11) const;
         pUsrLibL     Char(11) const  dim(50);
         pUsrLibLen   Int(10)  const;
         pStdApiErr   VarChar(16);
       end-pr;

      * Change Library List Parameters
       dcl-s SameLib   char(11)  inz('*SAME      ');
       dcl-s UsrLibL   char(11) dim(50);
       dcl-s UsrLibLen int(10) inz(0);
       dcl-s ApiErrMsg VarChar(16);

       // Set library list
       clear UsrLibL;
       UsrLibL(1) = 'MYLIB      ';
       UsrLibLen  = 1;

       CallP(e) QliChgLL( SameLib : SameLib   : SameLib
                        : UsrLibL : UsrLibLen : ApiErrMsg );

       if %error;
         *inLR = *on;
         return;
       endif;