---

**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;

---