Subject: | |
From: | |
Reply To: | |
Date: | Tue, 3 Oct 2000 06:56:47 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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!
|
|
|