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"
