Installing the COBOL FD Translator in MVS

The Translator is distributed on a separate tape or cartridge. The following chart shows the dataset attributes for the partitioned datasets (PDS), or libraries, needed to use the Translator:

Both of these files are partitioned datasets in IEBCOPY dump format:

• The CTF30.LOAD library contains the Translator load module.

• The CTF30.DATA library contains the online menu application and sample batch JCL.

Unloading the Distribution Tape in MVS

1. Allocate the required disk space for the CTF30.LOAD and CTF30.DATA libraries.
2. To unload the files from the tape, create an IEBCOPY procedure like this JCL sample and submit it for execution.

//UNLOAD    EXEC  PGM=IEBCOPY
//SYSPRINT  DD SYSOUT=*
//I1        DD  DSN=CTF30.LOAD,DISP=OLD,
//          UNIT=tape,LABEL=(1,SL,EXPDT=98000),VOL=SER=volser
//I2        DD  DSN=CTF30.DATA,DISP=OLD,
//          UNIT=tape,LABEL=(2,SL,EXPDT=98000),VOL=SER=volser
//O1        DD  DSN=prefix.CTF30.LOAD,DISP=OLD
//O2        DD  DSN=prefix.CTF30.DATA,DISP=OLD
//SYSIN     DD  *
  COPY      INDD=I1,OUTDD=O1
  COPY      INDD=I2,OUTDD=O2
/*

where:

tape

Is the distribution tape or cartridge device.

volser

Is the tape serial number.

prefix.CTF30.LOAD

Is the dataset name of the load library. The value of prefix is the high-level qualifier at your site.

prefix.CTF30.DATA

Is the dataset name of the source library.

Once you have successfully completed these steps, two new Translator libraries are loaded on your system.

Special MSO Considerations

If you are not installing the Translator for use in MSO or if your MSO region is executed non-authorized, you may skip this topic.

If your MSO region is configured to run authorized, you must do one of two things to allow execution of the Translator:

• Copy the member CTF10000 from prefix.CTF30.LOAD to the authorized dataset prefix.FOCLIB.LOAD (allocated to the ddname STEPLIB in the MSO start-up JCL).

or

• Add the following line to the MSO configuration file (allocated to ddname FOCMSO in the MSO start-up JCL) to allow execution from a non-authorized library:

APFAUTH = INTERNAL

Customizing the Translator Defaults in MVS

You may customize the values on the Translator menu by editing the source code in the member CTF30 in the dataset prefix.CTF30.DATA. Make changes only in the area labeled Customization area. When making changes, be sure to maintain the existing length of the preset variables and to include only acceptable values. Acceptable values are those originally displayed on the Translator menu (see Using the COBOL FD Translator).

Changing Optional Defaults

To customize the default values that appear on the Translator menu, locate the following lines in the member CTF30 in the dataset prefix.CTF30.DATA and change their values as desired:

-SET &COBFDMEM='        ';
-SET &MFDMEM='        ';
-SET &REPLACE='N';
-SET &SUFFIX='F';
-SET &NAMELEN='30';
-SET &SKIPDASH=0;
-SET &HYPHEN='R';
-SET &GROUPNM='A';
-SET &REDEF='C';
-SET &LEV88='Y';
-SET &OCCURS='Y';
-SET &ZONEUSE='P';
-SET &EDITOPT='     ';

Except for the entries for dataset names, each variable above appears in the same order as its corresponding entry on the Translator menu.

Changing Initial Dataset Defaults

To customize the initial dataset defaults for all users, locate the following lines in the member CTF30 in the dataset prefix.CTF30.DATA. Change the expression on the right-hand side of the equal sign as appropriate. The resulting expression must retain a length of 44 characters (&USERID accounts for eight characters). Change the first pair of entries for FOCUS users. Change the second pair of entries for EDA users.

-* Change this set of defaults for FOCUS access.
-SET &COBFDDSN='                                            ';
-SET &MFDDSN=&USERID ||'.MASTER.DATA                        ';
-* Change this set of defaults for EDA access.
-SET &COBFDDSN='                                            ';
-SET &MFDDSN=&USERID ||'.EDAMFD.DATA                        ';

where:

&COBFDDSN

Is the input COBOL FD dataset.

&MFDDSN

Is the Master File output dataset.

Allocating Translator Libraries for Run-time in MVS

The Translator requires three allocations (listed below) in an online session for successful execution. You may issue these allocations in the CLIST that invokes FOCUS, within your FOCUS session, in the MSO start-up JCL, or in the CLIST that invokes EDAAUTO.

• Allocate or concatenate prefix.CTF30.LOAD to ddname USERLIB.

• Allocate or concatenate prefix.CTF30.DATA to ddname FOCEXEC or EDARPC.

• Allocate or concatenate prefix.CTF30.DATA to ddname TRF.

In your CLIST that invokes FOCUS, the allocations may appear as shown below:

ALLOC F(USERLIB) DA('prefix.FUSELIB.LOAD' -  
                    'prefix.CTF30.LOAD')     SHR REUSE
ALLOC F(FOCEXEC) DA('prefix.FOCEXEC.DATA' -  
                    'prefix.CTF30.DATA')     SHR REUSE
ALLOC F(TRF)     DA('prefix.CTF30.DATA')     SHR REUSE

From within FOCUS, the allocations may appear as shown below:

DYNAM ALLOC FILE USERLIB  DA prefix.FUSELIB.LOAD SHR REUSE
DYNAM ALLOC FILE USERLIB1 DA prefix.CTF30.LOAD SHR REUSE
DYNAM CONCAT FILE USERLIB USERLIB1
DYNAM ALLOC FILE FOCEXEC  DA prefix.FOCEXEC.DATA SHR REUSE
DYNAM ALLOC FILE FOCEXEC1 DA prefix.CTF30.DATA SHR REUSE
DYNAM CONCAT FILE FOCEXEC FOCEXEC1
DYNAM ALLOC FILE TRF      DA prefix.CTF30.DATA SHR REUSE

In your MSO start-up JCL, the allocations may appear as shown below.

//USERLIB  DD DSN=prefix.FUSELIB.LOAD,DISP=SHR
//         DD DSN=prefix.CTF30.LOAD,DSP=SHR
//FOCEXEC  DD DSN=prefix.FOCEXEC.DATA,DISP=SHR
//         DD DSN=prefix.CTF30.DATA,DISP=SHR
//TRF      DD DSN=prefix.CTF30.DATA,DISP=SHR

The USERLIB allocation is not necessary when CTF10000 has been copied to prefix.FOCLIB.LOAD; otherwise, USERLIB must be allocated in the MSO start-up JCL. The FOCEXEC and TRF allocations can be made in the user session, using the previous FOCUS example, if they are not allocated globally or if the installation has activated private allocation (available in FOCUS Release 7.0.5).

In your CLIST that invokes EDAAUTO, the allocations may appear as shown below:

ALLOC F(USERLIB) DA('prefix.CTF30.LOAD')     SHR REUSE
ALLOC F(EDARPC)  DA('prefix.EDARPC.DATA' -
                    'prefix.CTF30.DATA')      SHR REUSE
ALLOC F(TRF)     DA('prefix.CTF30.DATA')     SHR REUSE