I'm attempting to call the following COBOL procedure in an XL:

001000$CONTROL DYNAMIC,NOWARN,SOURCE,VERBS
...deletia...
005700 LINKAGE SECTION.
005800$CONTROL SYNC32
005900*
006000 01  LINK-AREA.
006100     05  LINK-ACTION             PIC X.
006200     05  LINK-SSN                PIC X(9).
006300     05  LINK-LAST-NAME          PIC X(20).
006400     05  LINK-FIRST-NAME         PIC X(15).
006500     05  LINK-MIDDLE-INITIAL     PIC X.
006600     05  LINK-SECURITY-FLAG      PIC X.
006700     05  LINK-RESULT             PIC 999.
006800*
006900 PROCEDURE DIVISION USING LINK-AREA.

From Pascal:

type
  t_pac3 = packed array [1..3] of char;
  t_pac9 = packed array [1..9] of char;
  t_pac15 = packed array [1..15] of char;
  t_pac20 = packed array [1..20] of char;

procedure USRSEC (
  var action : char;
  var ssn : t_pac9;
  var last : t_pac20;
  var first : t_pac15;
  var middle : char;
  var security : char;
  var result : t_pac3); external cobol;

But the :RUN is failing with:

PARMCHECK MISMATCH ARGUMENT COUNT, ARGUMENT NUMBER 0
PROCEDURE = usrsec, FILES = CATFORM.MARK.TSS, XL.COCCDUSR.TEST.  (LDRERR 205)
FAILED TO LOAD LIBRARY XL.COCCDUSR.TEST.  (LDRERR 467)

The Pascal code shouldn't be using any hidden parameters here, so I'm confused.
It would be nice if the above error message said something like "caller
specified x arguments, callee expected y arguments".

Any ideas?  I've been through two hours of permutations so far today without
evading LDRERR 205....
--
Mark Bixby                      E-mail: [log in to unmask]
Coast Community College Dist.   Web: http://www.cccd.edu/~markb/
District Information Services   1370 Adams Ave, Costa Mesa, CA, USA 92626-5429
Technical Support               +1 714 438-4647
"You can tune a file system, but you can't tune a fish." - tunefs(1M)