HP3000-L Archives

October 2000, 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:
From:
Andrew Cartledge <[log in to unmask]>
Reply To:
Andrew Cartledge <[log in to unmask]>
Date:
Tue, 3 Oct 2000 06:56:47 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (51 lines)
As part of my (slow) attempts to write a socket server via cobol I am
attempting to use the ipcgive/ipcget exchange between two programs.

To pass the assigned givename between two programs I am attempting to use
the .loc. pseudo intrinsic in the main program and in the program generated
via the createprocess do a getinfo.

However with the following bits and bobs

           03  ws-info-addr pic s9(9) comp.
       01  ws-info       pic x(8).

           move vc-givename to ws-info.
           call intrinsic ".loc."  using  ws-info,
                                   giving ws-info-addr.

following an earlier

           call intrinsic "ipcgive" using
             vc-desc,
             vc-givename,
             vc-nlen,
             \\,
             result.

I get a compile error on the main server source of

PAGE 0001  COBOL II/iX HP31500A.04.19  [85] Copyright Hewlett-Packard CO.
1987


LINE #   SEQ # COL ERROR SEV            TEXT
----------------------------------------------------------------------------
--
 00184          80  273  Q  INCOMPATIBLE NUMBER OF PARAMETERS FOR INTRINSIC
                            ipcgive.
 00194          80  371  Q  INTRINSIC .loc. NOT FOUND IN INTRINSIC FILE.
 00196          80  371  Q  INTRINSIC .loc. NOT FOUND IN INTRINSIC FILE.
 00198          80  371  Q  INTRINSIC .loc. NOT FOUND IN INTRINSIC FILE.

0 ERROR(s), 4 QUESTIONABLE, 0 WARNING(s)

    DATA AREA IS      138 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:00.

END OF PROGRAM
END OF COMPILE


HELP!

ATOM RSS1 RSS2