Andrew Cartledge writes:

-----Original Message-----
From: Andrew Cartledge [mailto:[log in to unmask]]
Sent: Tuesday, October 03, 2000 3:57 AM
To: [log in to unmask]
Subject: socket programming in cobol (was posting to url)


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!
-----------------------------------------------------------
I can't answer the problem with ipcgive problem, however the problem with
.loc. is that you must code it as .LOC.  Yes I mean you must capitalize it.

Mike Berkowitz
Guess? Inc.