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";
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?
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
.
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?