LISTSERV - HP3000-L Archives

HP3000-L Archives

June 2001, Week 4

HP3000-L@RAVEN.UTC.EDU

	LISTSERV Archives
	HP3000-L Home
	HP3000-L June 2001, Week 4

	Log In
	Register

	Subscribe or Unsubscribe

	Search Archives

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 >>]

Subject:
From:	"Shahan, Ray" <[log in to unmask]>
Reply To:	Shahan, Ray
Date:	Fri, 22 Jun 2001 08:03:20 -0500
Content-Type:	text/plain
Parts/Attachments:	text/plain (30 lines)

Hi all,
 
Yesterday, I asked a question on VIEW/COBOL, and got a great answer from
across the "pond"...Switzerland to be exact.  It's really neat that our
little hp world spans the globe, and that a willingness to help seems to be
a universal trait (or is it just hp folks that are so willing to
help..naaawww).   :-)

Anyway FWIW, the answer to how to get a VIEW NUM3 to COBOL S9(06)V999 with a
minimal effort is...straight from Switzerland:

Hi Ray, 

why not simple use the COBOL85 Function NUMVAL ? 

Add $CONTROL POST85 

Define your field in the V/3000 buffer as X(12). 

COMPUTE num3-field ROUNDED = FUNCTION NUMVAL(char-filed) 

Regards, 

Günter Kuhn 
SSD IT Consulting GmbH 
Greppen, Switzerland

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2

RAVEN.UTC.EDU