COBOL 5.1 and VISION:Results or VISION:Sixty

book

Article ID: 38210

calendar_today

Updated On:

Products

CA Vision:Results CA Vision:Sixty

Issue/Introduction

Question:  Is VISION:Results 6.0 / VISION:Sixty 12.0 compatible with COBOL 5.1?


Answer:  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:

COMPUTER ASSOCIATES       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

 

Environment

Release:
Component: V:RSLT