Installing the COBOL FD Translator in VM/CMS

The Translator is distributed on a separate tape or cartridge. It requires 60 4K blocks of disk or SFS directory storage. It is recommended that you install the Translator to the FOCUS or EDA maintenance disk and then copy it to the production disk. This will provide easy access to the product.

Unloading the Distribution Tape in VM/CMS

The Translator distribution tape is an unlabeled 6250 BPI 9-track tape, or a 3480 cartridge,

created by the VMFPLC2 command. This step moves the contents of the tape or cartridge onto the maintenance disk.

1. Mount the tape on a 6250 BPI drive as virtual 181, or the cartridge on a 3480 drive as 181.
2. Access the maintenance disk as your A disk, in READ/WRITE mode.

3. Issue the VMFPLC2 command to unload the tape or cartridge to unload all files onto the maintenance disk:

   VMFPLC2 LOAD * * A

4. When the tape or cartridge is unloaded, detach virtual 181.

5. Optionally, change the Translator defaults as described in the next topic.

6. Access the production disk as your C disk, in READ/WRITE mode.

7. Copy the Translator files from the maintenance disk to the production disk:

   COPYFILE CTF30 FOCEXEC A = = C

   COPYFILE CTF30 LOADLIB A = = C

   COPYFILE CTF30E EXEC A = = C

   COPYFILE CTFTRF30 TRF A = = C

8. Release the maintenance disk and access the production disk as READ only.

Customizing the Translator Defaults in VM/CMS

You may customize the values on the Translator menu by editing the source code in the files CTF30 FOCEXEC and CTF30E EXEC. 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 in VM/CMS

To customize the default values that appear on the Translator menu, locate the following lines in the file CTF30 FOCEXEC and change their values as desired:

-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='     ';

Each variable above appears in the same order as its corresponding entry on the Translator menu.

To customize the default values for background execution, locate the following lines in the file CTF30E EXEC and change their values as desired:

suffix  =FIX  /* File Type (SUFFIX=)             (FIX,COM,VSAM,ISAM)        */
namelen =12   /* Field Name Length               (12,30)                    */
skpdash =0    /* Skip 'n' Hyphens in COBOL Name  (0,1,2,3)                  */
hyphen  =S    /* Remove HyphenS or Use UnderBars (removeS,underBars)        */
groupnm =A    /* Generate GROUP Fields           (All,None,Printable only)  */
redef   =C    /* Generate REDEFINE Fields        (Comments,None,Segments)   */
lev88   =Y    /* Generate LEVEL 88 as Comments   (Yes,No)                   */
occurs  =Y    /* Describe Occurs as Segments     (Yes,No)                   */
zoned   =P    /* Zoned Numeric Field Usage       (Packed,Alpha)             */
editopt =     /* Numeric Field Edit Options      (S,C,B,R,M,N,L combinations)*/
longpack=N    /* Long Packed Fields              (Yes,No)                   */
tempfm  =     /* File mode for temporary files   (A-Z, null)                */

Each variable above appears in the same order as its corresponding entry on the Translator menu. Leave the value for tempfn null to let the Translator automatically choose the largest READ/WRITE disk for temporary use.

Changing Initial File Name Defaults in VM/CMS

To customize the initial file name defaults for all users, locate the following lines in the file CTF30 FOCEXEC. Change the expression on the right-hand side of the equal sign as appropriate.

-* Change this set of defaults for VM/CMS FOCUS access.
-SET &COBFN='        ';
-SET &COBFT='COBOL   ';
-SET &COBFM='*';
-SET &MFDFM='A'; 

where:

&COBFFN

Is the input COBOL FD file name.

&COBFFT

Is the input COBOL FD file type.

&COBFFM

Is the input COBOL FD file mode.

&MFDFM

Is the Master File output file mode.