Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Microfocus COBOL run time error 211

Status
Not open for further replies.

webrabbit

MIS
Jan 31, 2003
1,059
US
Microfocus COBOL 3.2.46

I am having trouble with the following program. Most of my applications I compile to a GNT and RUN them.
This program needs to be standalone, so I compile it as follows:

Xm cobol today,today.exe /LINKLIB"LCOBOL+COBAPI";
Code:
 Identification Division.
 Program-ID.    TODAY.
 Author.        James C. Fairfield
 Installation.  Eurostar, Inc.
 Date-Written.  16 April 2003
     *>
     *> Creates a batch file to set the environment 
     *> variable TODAY to the current date in the form 
     *> mmddy.
     *>
 Environment Division.
 Input-Output Section.
 File-Control.
     Select BATCH-FILE Assign to 'TEMP.BAT'
         Organization is Record Sequential
         .

 Data Division.
 File Section.
 FD  BATCH-FILE.
 01  BATCH-RECORD        Pic X(15).

 Working-Storage Section.
 01  WORK-RECORD.
     05                  Pic X(10) Value 'SET TODAY='.
     05  WR-DATE         Pic 9(05).

 01  DATE-AREA.
     05  DATE-1          Pic 9(05).
     05  YEAR-2          Pic 9(01).
 01  redefines DATE-AREA.
     05  YEAR-1          Pic 9(01).
     05  DATE-2          Pic 9(05).

 Procedure Division.
     Accept DATE-1  from Date
     Move YEAR-1      to YEAR-2
     Move DATE-2      to WR-DATE
     Open Output BATCH-FILE
     Move WORK-RECORD to BATCH-RECORD
     Write BATCH-RECORD
     Close BATCH-FILE
     Stop Run
     .
The envronment is as follows:

PATH=R:\JR_DEV\UTIL;R:\JR_DEV\COBOL;R:\JR_DEV\COBOL\EXEDLL;R:\JR_DEV\COBOL\LBR;
C:\WINNT\SYSTEM32;C:\WINNT;C:\WINNT\SYSTEM32;U:.;Z:.;Y:.;W:.;
SET COBDIR=R:\JR_DEV\COBOL\EXEDLL;R:\JR_DEV\COBOL\LBR;R:\JR_DEV\COBOL\LIB;
SET LIB=R:\JR_DEV\COBOL\LIB;
SET COBCPY=R:\JR_DEV\JR\COPYLIB;

When I execute TODAY, I get error code 211 "Program not executable by run time system (fatal)".

If I compile the program to a GNT and RUN it, it works perfectly.

What do I need to do to fix this?
 
COBLIB.DLE and COBENV.DLE are the files the user did not want on his computer. But he has now agreed to have them.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top