**free
/copy format_h

dcl-s string char(50);

string = format('No parms');
dsply string;
string = format('All parms, rep 1,2,9 [REP1] [REP2] [REP9]'
              : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9);
dsply string;
string = format('2 parms, rep parm 2 twice [REP2] [REP1] [REP2]'
              : 1 : 'two');
dsply string;
return;