HP3000-L Archives

February 1999, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol - Moving Alphanumeric to Numeric
From:
Michael Laurino <[log in to unmask]>
Reply To:
Michael Laurino <[log in to unmask]>
Date:
Tue, 2 Feb 1999 05:25:41 GMT
Content-Type:
text/plain
Parts/Attachments:
text/plain (11 lines) 
On Mon, 1 Feb 1999 14:56:42 -0600, "Brad Feazell"
<[log in to unmask]> wrote:

>I'm receiving a number, 55, into a pic x(8) field then moving the number to
>a pic 9(8) field which results in 55000000 received. I'm doing some division
>on the receiving field to get back to 55 but I feel certain there's a more
>direct way to do it. Maybe someone can enlighten me?

The blank spaces in the x(8) field are being converted to zeroes.
Right-justify the "55" before you move it to the 9(8) field.

ATOM RSS1 RSS2