Re: Two problems: qui$ external and procedure division using (external)

tutor_removespam__at_cfl.rr.com
Date: 03/08/04 

Date: Mon, 08 Mar 2004 14:33:33 GMT

As requested, here is the exact error message.
The "COPYLIB" in the linkage secion is actually only one variable
(element?)....

       01 FNCI-FUNCTION-INFO IS EXTERNAL.
             05 ......
.................................^
%COBOL-E-EXTERN, EXTERNAL clause ignored, valid only for named 01 or
77 items in Working-Storage Section without REDEFINES at line number 5
in file

>What problems? What follows are perfectly valid code samples. It's hard
>to help because you didn't tell us what problem you're having. Are you
>having trouble compiling, linking or running? Are you getting an error
>message or, unexpected results?
>I can't imagine what problem you're having calling lib$get_symbol.
>
>>
>> 1) Procedure division can no longer use an external variable.
>> (implicitly defined).
>>
>> LINKAGE SECTION.
>>
>> COPY "COM$CPY:FUNCTION-INFO-SP".
>>
>>
>> PROCEDURE DIVISION USING FUNCTION-INFO.
>>
>> P0000-MAINLINE.
>>
>> CALL "LIB$GET_SYMBOL" USING
>> BY DESCRIPTOR "COMPANY_CODE",
>> BY DESCRIPTOR FNCI-COMPANY-CODE,
>> OMITTED,
>> OMITTED,
>> GIVING WS-STATUS.
>>