Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
COBOL negative values
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2008 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01445813
Message ID:
01445828
Views:
41
>>Hi Gang!
>>
>>Anyone know a little Cobol?
>>
>>I have to send some data in a text file to another site, and they gave me a layout for the data they want. They use Cobol picture clauses to tell how they want the data items expressed.
>>
>>I have a problem in how to express negative currency amounts....
>>
>>Here is an example...
>>
>>PAYMENT AMOUNT PICT S9(07)V9(02)
>>
>>I can see an amount like $123.45 being 000012345 (the left seven being 0000123 and the right two being 45).
>>
>>But how do I express -$123.45 ?? Since I can't put the - in the string at all, since it wants only numeric values......
>>
>>Thanks!
>
>My COBOL is a little (a lot) rusty, but if it still works the same way it used to work on mainframes, the last 4 bits indicate the sign. C is positive, D is negative, and F is unsigned (and I think treated as positive).

Thanks, Mike.... we found some code here that will convert from the Decimal to the Cobol representation for negative numbers.
Tommy Tillman A+ NetWork+ MCP
Previous
Reply
Map
View

Click here to load this message in the networking platform