**free
/copy format_h
dcl-proc format export;
   dcl-pi *n varucs2(2000);
      template varucs2(2000) const;
      rep1 varucs2(200) const options(*nopass : *convert);
      rep2 varucs2(200) const options(*nopass : *convert);
      rep3 varucs2(200) const options(*nopass : *convert);
      rep4 varucs2(200) const options(*nopass : *convert);
      rep5 varucs2(200) const options(*nopass : *convert);
      rep6 varucs2(200) const options(*nopass : *convert);
      rep7 varucs2(200) const options(*nopass : *convert);
      rep8 varucs2(200) const options(*nopass : *convert);
      rep9 varucs2(200) const options(*nopass : *convert);
   end-pi;
   dcl-s result varucs2(2000);

   result = template;
   if %parms() >= %parmnum(rep1);
      result = %scanrpl(%ucs2('[REP1]') : rep1 : result);
   endif;
   if %parms() >= %parmnum(rep2);
      result = %scanrpl(%ucs2('[REP2]') : rep2 : result);
   endif;
   if %parms() >= %parmnum(rep3);
      result = %scanrpl(%ucs2('[REP3]') : rep3 : result);
   endif;
   if %parms() >= %parmnum(rep4);
      result = %scanrpl(%ucs2('[REP4]') : rep4 : result);
   endif;
   if %parms() >= %parmnum(rep5);
      result = %scanrpl(%ucs2('[REP5]') : rep5 : result);
   endif;
   if %parms() >= %parmnum(rep6);
      result = %scanrpl(%ucs2('[REP6]') : rep6 : result);
   endif;
   if %parms() >= %parmnum(rep7);
      result = %scanrpl(%ucs2('[REP7]') : rep7 : result);
   endif;
   if %parms() >= %parmnum(rep8);
      result = %scanrpl(%ucs2('[REP8]') : rep8 : result);
   endif;
   if %parms() >= %parmnum(rep9);
      result = %scanrpl(%ucs2('[REP9]') : rep9 : result);
   endif;
   return result;
end-proc format;