HP3000-L Archives

March 2005, Week 5

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:
From:
"Robert J. Schlosser" <[log in to unmask]>
Reply To:
Robert J. Schlosser
Date:
Wed, 30 Mar 2005 14:15:09 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (67 lines)
Brian and Tom,

Remember that you also need to set the INFO-LENGTH before calling to the
maximum INFO string length, in this case 256.
The actual info string length will be returned.

Robert Schlosser
MPE-CSM
HP Certified Professional
Humana
(504) 219-8134



Brian Donaldson <[log in to unmask]>
Sent by: HP-3000 Systems Discussion <[log in to unmask]>
03/30/2005 02:01 PM
Please respond to
[log in to unmask]


To
[log in to unmask]
cc

Subject
Re: [HP3000-L] SIMPLE (?) cobol question






Hi Tom:

Your Cobol program should call the MPEiX intrinsic GETINFO  thus:

WORKING-STORAGE SECTION.
01  INFO-STRING  PIC X(256).
01  INFO-LENGTH PIC S9(04) COMP.
01   PARM             PIC  S9(04) COMP.
01  RESULT          PIC  S9(04) COMP.

PROCEDURE DIVISION.

...
...
CALL INTRINSIC "GETINFO"  USING INFO-STRING,
                                                        INFO-LENGTH,
                                                        PARM
                                            GIVING RESULT.


HTH,
Brian.

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




The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material.  If you receive this material/information in error, please contact the sender and delete or destroy the material/information.

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

ATOM RSS1 RSS2