spec a: 1.8 . print c2f(a) pic -9.99es99 j.
2009/5/5 Gregg <[email protected]>: > Greetings, > Is there a way short of two Spec stages (s/390 internal format to > scientific notation to decimal) or a REXX to convert from HFP to > decimal? > 'Pipe ( End \ ) ', > -------------------- 1 line(s) not dis > 'Specs 1-8 1.8 Left ', > -------------------- 5 line(s) not dis > ' 41-44 c2f nW ', > ' 45-48 c2f nW ', > -------------------- 2 line(s) not dis > 'Specs 1-40 01 ', > ' a: w5 . ', > 'Print #0:=a+.05 Picture zzzz9.9 nW', > ' a: w6 . ', > 'Print #0:=a+.05 Picture zzzz9.9 nW', > Regards > -- > Gregg Reed > "No Plan, survives execution" >
