If you happen to have CMS/TSO Pipelines, you can try this:
a = 123456.789 /* Perhaps */
a2 = format(a,,2)
'PIPE()',
'VAR A2 |',
'SPECS A: 1-* .',
'SET #0:=A',
'PRINT #0 PICTURE ZZZ,ZZZ,ZZZ,ZZZ.99 1 |',
'STRIP LEADING |',
'VAR A2_WITH_COMMAS'
say a
say a2
say a2_with_commas
Mark Wheeler, 3M Company
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
