**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/CSTDATA) SRCFILE(xxx/QRPGLESRC)
      *  2. CRTSRVPGM SRVPGM(XXX/CSTDATA) EXPORT(*ALL)
      *
      **********************************************************************
     H NoMain

      /copy *LibL/QRpgLeSrc,CstDataPR

      **********************************************************************
      * Format first and last names into one name.
      **********************************************************************

     P formatName      B                   Export
     D formatName      PI            32A
     D   first                       15A   Const
     D   last                        15A   Const

     D FullName        S             32A

      /free

           FullName = %TrimR(last) + ', ' + %TrimR(first);
           Return FullName;

      /end-free
     P formatName      E