To execute the Translator in batch mode, use the following JCL procedure. This procedure can be found in member CTF30JCL of dataset prefix.CTF30.DATA. Simply add a valid job card and update the symbolic parameters as desired.
The descriptions of the parameters, as included on the Translator menu, appear in the JCL, along with the permissible values in capital letters. Note that some of the values here are slightly different than on the online menu. The parameter LONGPACK does not appear on the online menu; it is set automatically based on the software release that you are executing. Enter Y for LONGPACK if your software release supports long packed fields (packed fields with 16 or more digits). Enter N if your software release does not support long packed fields.
//* Insert job card here
//*====================================================================
//* COBOL FD Translator - Version 3.0
//* Copyright Information Builders Inc. 1994, 1997
//*====================================================================
//* 970303 RJF 22424 Initial Implementation - Version 3.0
//*=====================================================================
//* Enter the COBOL FD dataset name and member name (if not sequential)
//* using the format 'data.set.name' or 'data.set.name(member)' in FD.
//* Enter the Master File PDS name where the Master will be stored in MASTER.
//* Enter the Master File member name in MEMBER.
//* Change other options as desired, using capitalized values in right column.
//CTF30 PROC SYSOUT=*, SYSOUT Class
// FD=,
// MASTER=,
// MEMBER=,
// 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)
//* Do Not make changes below this point //*=====================================================================
//CTF10000 EXEC PGM=CTF10000,PARM=('NO','REPL','&MEMBER',
// '10','10','738','&MEMBER','&SUFFIX','&EDITOPT',
// '&SKPDASH','I','F','D','P','&ZONED',
// '&NAMELEN','&GROUPNM','&LEV88','&REDEF','&HYPHEN',
// '&LONGPACK','&OCCURS')
//STEPLIB DD DISP=SHR,DSN=prefix.CTF30.LOAD
//CTFIN DD DISP=SHR,DSN=&FD
//OUTPUT2 DD DISP=SHR,DSN=&MASTER(&MEMBER)
//PRINT1 DD SYSOUT=&SYSOUT
//PRINT2 DD SYSOUT=&SYSOUT
//PRINT3 DD SYSOUT=&SYSOUT
//PRINT4 DD SYSOUT=&SYSOUT
//SYSOUT DD SYSOUT=&SYSOUT
//SYSPRINT DD SYSOUT=&SYSOUT
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DCB=BLKSIZE=6138
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DCB=BLKSIZE=6210
//OUTPUT DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DCB=BLKSIZE=6156
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
// PEND
//CTF EXEC PROC=CTF30
| Information Builders |