URL: https://www.ibm.com/support/pages/system/files/inline-files/format_test.rpgle_.txt
**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;
