COBOL 5.1 and VISION:Results or VISION:Sixty
Article ID: 38210
Updated On:
Products
Issue/Introduction
Is VISION:Results 6.0 / VISION:Sixty 12.0 compatible with COBOL 5.1?
Resolution
VISION:Results 6.0 / VISION:Sixty 12.0 is compatible with COBOL 5.1.
Users do need to make sure they have DYLINSTL parameters set to COBENV=N and LE=Y which are the default delivered values.
COBOL 5.1 requires an LE environment which does not occur when COBENV=Y is used.
COBENV=Y will cause VISION:Results / VISION:Sixty to establish a COBOL II environment using IGZERRE which is not supported by COBOL 5.1.
If COBENV=Y is used with 5.1 customers may experience abends such as
COMPLETION CODE USER = 4094 REASON CODE = 0000002C
LOAD MODULE NAME=CEEPLPKA
COBOL 4.1 was the last release where you could compile as an object module, link-edit the object module as a load module, and execute with LE turned off. All that was eliminated with COBOL 5.1. So COBENV=Y and LE=N were allowed with all previous COBOLs, but will not work with 5.1, and presumably later releases.
If you currently have DYLINSTL site settings of COBENV=Y and LE=N you can force a change at run time by adding OPTION LE at the top of the program. Note that if the job is a RESTORE, the program must go through a fresh FREEZE with updated options as the parameter values were locked in with the original FREEZE.
You can see the settings at your site by reviewing the Default Options page which show the settings active at the time of execution. This section reflects the correct settings. The VISION:Sixty page would be the same except for the product name at the top:
VISION:RESULTS 6.0 * DATE 02/11/16
1--------------------VISION:RESULTS FREE FORM TEXT--------------------72
DEFAULT OPTIONS SPECIFIED ARE:
REFERENCE# IS nnnnnn
ENVIRONMENT IS MVS
CPUID nnnn nnnnn
ASALINE(N/), BATCHIQ(IIBATCH/), CBXSIGN(N/), CENTNEW(75/), CENTRY1(/), CENTRY
COBEDIT(A/), COBENV(N/), COMPERR(N/), COB2NR(N/), COMPWRK(1500K/), CURNCY($/
DECIML9(E/), DELIM(/), DLMFRST(N/), DUPCBNM(N/), DYLVARP(N/), DYL4YR(N/), EDA
EDP1ZERO(N/), EDSUPR(N/), EURODAT(N/), EURONUM(N/), EXCEL(N/), EXCLPAT(N/), E
FREEMEM(1000K/), FREEZDD(SYS280FZ/), GETMAX(2500K/), KWDLT(N/DA), LE(Y/), LI
Feedback
