Olav Kappert wrote:

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

The INFO-PARM needs to be PIC S9(04) COMP.  Then it works fine for me.
      $CONTROL POST85
       IDENTIFICATION DIVISION.
       PROGRAM-ID. FOO.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
        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(04) COMP VALUE ZERO.
          02  INFO-STATUS PIC S9(09) COMP VALUE ZERO.

       PROCEDURE DIVISION.
       MAIN-SEC SECTION.
       MAIN-PARA.

          DISPLAY "START"
             CALL INTRINSIC "GETINFO" USING INFO-STR, INFO-LEN,
                            INFO-PARM
                        GIVING INFO-STATUS.
          DISPLAY "AFTER: INFO-LEN  =  ", INFO-LEN
          DISPLAY "       INFO-STR  = '", INFO-STR "'"
          DISPLAY "       INFO-PARM =  ", INFO-PARM
          DISPLAY "       INFO-STAT =  ", INFO-STATUS
          STOP RUN.

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