Microsoft KB Archive/40642

“Failed to Find ADISINIT”; Incomplete ADIS.DEF in COBOL 3.0

PSS ID Number: Q40642 Article last modified on 04-20-1993

3.00 3.00a 4.00 OS/2

Summary: The ADIS.DEF file supplied on the Microsoft COBOL versions 3.0 and 3.0a distribution disks is incomplete. The existing ADIS.DEF omits EXPORTS entries for ADISINIT and ADISKEY. An MS OS/2 protected mode program that accesses an ADIS.DLL created with this ADIS.DEF file generates the following error: Failed to find ADISINIT Runtime Error number 173 Microsoft has confirmed this to be a problem in COBOL versions 3.0 and 3.0a for MS OS/2 and also in Microsoft COBOL Professional Development System version 4.0 for MS OS/2. We are researching this problem and will post new information here as it becomes available.

More Information: The ADIS.DLL ACCEPT and DISPLAY Dynamic Link Library (DLL) for use in MS OS/2 protected mode is equivalent to the ADIS.EXE support file for use in MS-DOS and MS OS/2 real mode. To work around the problem, the following ADIS.DEF file can be used to create an ADIS.DLL: LIBRARY INITINSTANCE ; ADIS is a DLL. PROTMODE ; Needs to run in protected mode. DATA NONSHARED ; OS/2 to duplicate data areas for each task. CODE LOADONCALL ; Load when needed. EXPORTS ADIS @1 ; Assumes that the PROGRAM-ID is ADIS. EXPORTS ADISINIT @2 ; * This line has been added to the original. EXPORTS ADISKEY @3 ; * This line has been added to the original. The following is a LINK step: LINK ADIS+ADISINIT+ADISKEY/NOP/NOD,,,PCOBOL+DOSCALLS,ADIS.DEF

Additional reference words: 3.00 3.00a 4.00 Copyright Microsoft Corporation 1993.