// ======================================================================
     pFGETMSG          B                   EXPORT                               
     DFGETMSG          PI
     D prparm11                            like(parm11)                         
      //------------------------------------------------------------------------
      /Copy QCPYSRC,P_QMHRTVM
      //------------------------------------------------------------------------
      /FREE
       parm11 = prparm11;                                                       //  felder übergeben
       apiemi= p11MID;                                                            // Msg ID
       QMHRTVM(DSRTVM0100:%SIZE(DSRTVM0100):                //SystemAPI   QMHRTV
           'RTVM0100':apiemi:p11fillib:APIEMD:                             //MSGF-Name + Lib Name in p11fillib
           %SIZE(APIEMD):'*YES':'*NO':DSAPIE);                        //-
       clear p11msg1;                                  //  text der 1.ten ebene
       clear p11msg2;                                  //  text der 2.ten ebene
       if apiemi= p11MID;                             //  MSGholen war ok...
         %subst(parm11:30:rtvmmsgla)=
             %subst(rtvrmsg:1:rtvmmsgla);                    // MSG Ebene 1 abfuellen
         %subst(parm11:261:rtvmmsgha)=
             %subst(rtvrmsg:rtvmmsgla+1:rtvmmsgha);   // MSG Ebene 2 abfuellen
       else;                                          // MSGholen war fehlerhaft
         %subst(parm11:30:50) ='unbekannter fehler';
       endif;
       prparm11 = parm11;                             //  felder übergeben
       return ;
      /END-FREE
     P                 E
       // ======================================================================