Olav,

        Define the INFO-PARM and INFO-STATUS as S9(4) COMP and that should
take care of it.

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



Olav Kappert <[log in to unmask]>
Sent by: HP-3000 Systems Discussion <[log in to unmask]>
05/01/2005 02:20 PM
Please respond to
Olav Kappert <[log in to unmask]>


To
[log in to unmask]
cc

Subject
[HP3000-L] Cobol and the GETINFO Intrinsics






Hi again:

Question.

I friend called me yesterday, asking me if I knew how to use the
intrinsic "GETINFO".

His wroking storage reads:
01  GETINFO-INTRINSIC.
     02  INFO-STR PIC X(26) VALUE SPACES.
     02  INFO-LEN PIC S9(04) COMP VALUE 26.
     02  INFO-PARM PIC S9(09) COMP VALUE ZERO.
     02  INFO-STATUS PIC S9(09) COMP VALUE ZERO.

The call reads:
    CALL INTRINSIC "GETINFO" USING INFO-STR, INFO-LEN, INFO-PARM
               GIVING INFO-STATUS.

And the run command looks like PARM=-123;
info="abcdefghijklmnopqrstuvwxyz"

As he explains it to me, the call as stated above produces an error of 1
for INFO-STATUS,
nothing for INFO-STR and zero for both INFO-LEN and INFO-PARM.

Furthermore, when INFO-STR and INFO-LEN are replaced with "\\" then the
value returned
in INFO-PARM is correct and INFO-STATUS is zero.

~~~~~~~~
Its been a while since I have retrieved info from the run command in my
COBOL programs.

Does anyone have the answer as to why he is getting the error when
coding for all three parameters
to be returned ?

If anybody is using this method for retrieving the required information,
do you have a sample which works,
so that I can pass it along.

~~~~~~~~

Olav.

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