Z/OS JCL in the Batch Runtime Environment

This chapter contains the following topics:

•	Introduction to z/OS JCL in the Batch Runtime Environment

•	z/OS JCL Cards in the Batch Runtime Environment

•	Sort Utilities

•	DB2 Utilities

Introduction to z/OS JCL in the Batch Runtime Environment

This section describes how to find equivalents for z/OS JCL statements in the target environment. Some of these equivalents point to the Batch Runtime functions, other equivalents may rely directly on UNIX or Tuxedo features. In some cases, there may be no equivalent and a work-around solution may be necessary.

It is not the purpose of this document to describe z/OS JCL, for any explanation of JCL statements, please see the z/OS Internet Library.

z/OS JCL Cards in the Batch Runtime Environment

The following tables lists the JCL card parameters and the related command in the Batch Runtime:

In the column “status”, the following abbreviations are used:

N.R. means “not relevant”

N.S. means “not supported”

JCL Card Equivalence Table

 

Table 2‑1 JCL Card Equivalences

JCL Card	Parameter	Equivalent in Target Environment	Status
//*		Comments	supported
/*		In-stream data delimiter	supported
//		End of job	supported
COMMAND			N.S.
CNTL/ENDCNTL			N.R.
DD	*	m_FileAssign -i	supported
	ACCODE		N.R.
	AMP		N.R.
	AVGREC		N.R.
	BLKSIZE		N.R.
	BLKSZLIM		N.R.
	CCSID		N.R.
	CHKPT		N.S.
	CNTL		N.R.
	DATA	m_FileAssign	supported
	DATACLAS	see DATACLAS Parameter of DD Statement	supported
	DCB	see DCB Parameter of DD Statement	supported
	DISP	m_FileAssign -d <DISP option>	supported
	DLM	m_FileAssign -D <delimiter>	supported
	DSID		N.R.
	DSNAME	m_FileAssign	supported
DD (continued)	DSNTYPE		N.S.
	DUMMY	m_FileAssign with /dev/null	supported
	DYNAM	m_FileAssign with /dev/null	supported
	EXPDT	m_FileAssign -e	supported
	FILEDATA		N.R.
	FREE		N.R.
	KEYLEN	m_FileAssign -k	supported
	KEYOFF	m_FileAssign -k	supported
	LABEL		N.R.
	LGSTREAM		N.R.
	LIKE	m_FileAssign -s	supported
	LRECL	m_FileAssign -r	supported
	MGMTCLAS		N.R.
	MSVGP		N.R.
	PATH	m_FileAssign -U	N.R.
	PATHDISP		N.R.
	PATHMODE	m_FileAssign -M	N.R.
	PATHOPTS	m_FileAssign -O	N.R.
	PROTECT		N.R.
	QNAME		N.R.
	RECFM	m_FileAssign -r	supported
	RECORG	m_FileAssign -t	supported
DD (continued)	REFDD		N.S.
	RETPD	m_FileAssign -e	supported
	RLS		N.R.
	SECMODEL		N.R.
	SPACE		N.R.
	STORCLAS		N.R.
	SUBSYS		N.S.
	TERM		N.R.
	UNIT		N.R.
	VOLUME	m_FileAssgin -v	supported
DD : Printing parameters	BURST		N.S.
	CCSID		N.R.
	CHARS		N.S.
	COPIES	m_OutputAssign -c	supported
	DEST	m_OutputAssign -d	supported
	FCB		N.S.
	FLASH		N.S.
	HOLD	m_OutputAssign -H	supported
	MODIFY		N.S.
	OUTLIM		N.S.
	OUTPUT	m_OutputAssign -o	supported
	SEGMENT		N.R.
	SPIN		N.S.
	SYSOUT	see SYSOUT Parameter of DD Statement	supported
	UCS		N.S.
DD: Special statements	JOBLIB	m_JobLibset	supported
	STEPLIB	m_StepLibset	supported
	SYSABEND		N.S.
	SYSMDUMP		N.S.
	SYSUDUMP		N.S.
	SYSCHK		N.S.
	SYSIN	m_FileAssign	supported
	SYSCKEOV		N.S.
EXEC	ACCT		N.S.
	ADDRSPC		N.R.
	CCSID		N.R.
	COND	m_CondExec	supported
	DPRTY		N.R.
	DYNAMNBR		N.R.
	MEMLIMIT		N.R.
	PARM	m_ProgramExec	supported
	PERFORM		N.R.
	PGM	m_ProgramExec	supported
	PROC		supported
	RD		N.S.
	REGION		N.R.
	RLSTMOUT		N.R.
	TIME		N.S.
IF THEN ELSE END		m_CondIf   m_CondElse m_CondEndif	supported
INCLUDE	MEMBER	m_ShellInclude
JCLLIB	ORDER	m_JclLibSet
JOB	<jobname>	m_JobBegin	supported
	<accounting>		N.S.
	<prog. name>		N.S.
	ADDRSPC		N.R.
	BYTES		N.S.
	CARDS		N.R.
	CCSID		N.S.
	CLASS	m_JobBegin -c (with TuxJES).	supported
	COND	m_JobBegin -C	supported
	GROUP		N.R.
	JESLOG		N.S.
	LINES		N.S.
	MEMLIMIT		N.R.
	MSGCLASS		N.S.
	MSGLEVEL		N.S.
	NOTIFY		N.S.
	PAGES		N.S.
	PASSWORD		N.R.
	PERFORM		N.R.
	PRTY	m_JobBegin -p (with TuxJES).	supported
JOB	RD		N.S.
	REGION		N.R.
	RESTART	see RESTART Parameter of JOB Statement	Partially supported
	SECLABEL		N.R.
	SCHENV		N.R.
	TIME		N.S.
	TYPRUN	m_JobBegin -t (with TuxJES)	supported
	USER		N.S.
OUTPUT	ADDRESS		N.S.
	AFPSTATS		N.S.
	BUILDING		N.S.
	BURST		N.S.
	CHARS		N.S.
	CKPTLINE		N.S.
	CKPTPAGE		N.S.
	CKPTSEC		N.S.
	CLASS	m_OutputSet -c	supported
	COLORMAP		N.S.
	COMPACT		N.S.
	COMSETUP		N.S.
	CONTROL		N.S.
	COPIES	m_OutputSet -n	supported
	DATACK		N.S.
	DEFAULT	m_OutputSet -D	supported
	DEPT		N.S.
	DEST	m_OutputSet -d	supported
OUTPUT (continued)	DPAGELBL		N.S.
	DUPLEX		N.S.
	FCB		N.S.
	FLASH		N.S.
	FORMDEF		N.S.
	FORMLEN		N.S.
	FORMS	m_OutputSet -f	supported
	FSSDATA		N.S.
	GROUPID		N.S.
	INDEX		N.S.
	INTRAY		N.S.
	JESDS		N.S.
	LINDEX		N.S.
	LINECT		N.S.
	MAILBCC		N.S.
	MAILCC		N.S.
	MAILFILE		N.S.
	MAILFROM		N.S.
	MAILTO		N.S.
	MODIFY		N.S.
	NAME		N.S.
	NOTIFY		N.S.
	OFFSETXB		N.S.
OUTPUT (continued)	OFFSETXF		N.S.
	OFFSETYB		N.S.
	OFFSETYF		N.S.
	OUTBIN		N.S.
	OUTDISP		N.S.
	OVERLAYB		N.S.
	OVERLAYF		N.S.
	OVFL		N.S.
	PAGEDEF		N.S.
	PIMSG		N.S.
	PORTNO		N.S.
	PRMODE		N.S.
	PRTATTRS		N.S.
	PRTERROR		N.S.
	PRTOPTNS		N.S.
	PRTQUEUE		N.S.
	PRTY	m_OutputSet -p	supported
	REPLYTO		N.S.
	RESFMT		N.S.
	RETAINF		N.S.
	RETAINS		N.S.
	RETRYL		N.S.
	RETRYT		N.S.
OUTPUT (continued)	ROOM		N.S.
	SYSAREA		N.S.
	THRESHLD		N.S.
	TITLE		N.S.
	TRC		N.S.
	UCS		N.S.
	USERDATA		N.S.
	USERLIB		N.S.
	USERPATH		N.S.
	WRITER	m_OutputSet -w	supported
PROC		m_ProcInclude	supported
in-stream PROC		m_ProcBegin	supported
in-stream PEND		m_ProcEnd	supported
SET		m_SymbolSet	supported
XMIT (Records)			N.S.
XMIT (JOB)		m_SetJobExecLocation	supported
XEQ		m_SetJobExecLocation	supported
ROUTE	PRINT	Share with NFS	supported
	PUNCH	Share with NFS	supported
	XEQ	m_SetJobExecLocation	supported

DCB Parameter of DD Statement

 

Table 2‑2 DCB Parameter of DD Statement

DCB parameter	Equivalent in Target Environment	Status
BFANL		N.R.
BFTEK		N.R.
BLKSIZE		N.R.
BUFIN		N.R.
BUFL		N.R.
BUFMAX		N.R.
BUFNO		N.R.
BUFOFF		N.R.
BUFOUT		N.R.
BUFSIZE		N.R.
CPRI		N.R.
CYLOFL		N.R.
DEN		N.R.
DIAGNS		N.R.
DSORG	m_FileAssign -t	supported
EROPT		N.R.
FUNC		N.R.
GNCP		N.R.
INTVL		N.R.
IPLTXID		N.R.
KEYLEN	m_FileAssign -k	supported
LIMCT		N.R.
LRECL	m_FileAssign -r	supported
MODE		N.R.
NCP		N.R.
NTM		N.R.
OPTCD		N.R.
PCI		N.R.
PRTSP		N.R.
RECFM	m_FileAssign -r	supported
RESERVE		N.R.
RKP	m_FileAssign -t	supported
STACK		N.R.
TRESH		N.R.
TRTCH		N.R.

SYSOUT Parameter of DD Statement

 

Table 2‑3 SYSOUT Parameter of DD Statement

SYSOUT parameter	Usage	Equivalent in Target Environment	Status
First parameter	Class	m_OutputAssign -c	supported
Second parameter	INTRDR	m_OutputAssign -w	supported
	SMTP	m_OutputAssign -w	supported
	<writer>	m_OutputAssign -w	supported
Third parameter	Form name	m_OutputAssign -f	supported
	Code name		N.S.

DATACLAS Parameter of DD Statement

The DATACLAS parameter is taken into account at WB JCL level only.

Using the DATACLASS informations, extracted from z/OS, the WB JCL updates the m_FileAssign function (or m_FileBuild from DATACLAS parameter in IDCAMS DEFINE commands).

RESTART Parameter of JOB Statement

Only the Deferred Step Restart type is managed.

The other types, Automatic Restart (Step or Checkpoint) and Deferred Checkpoint Restart, are not managed.

A deferred step restart of a job is caused by coding the function m_JobBegin with the -r parameter containing a job step and by submiting the job again.

In-Stream File

The in-stream files are supported using the m_FileAssign function with the -i parameter.

Concatenation of Files

The concatenation of files (or in-stream files) is supported using the m_FileAssign function with the -C parameter.

Override of Files

The overriding feature is supported.

Use the m_FileOverride function for the files managed by the m_FileAssign function.

Use the m_OutputOverride function for the files managed by the m_OutputAssign function.

Execution of External Sysin

Use the m_UtilityExec function in order to execute commands stored in a file.

Network Job Entry (NJE)

The following table describes the supported JES2 control statements and parameters in Oracle Tuxedo Application Rehosting Workbench and Batch Runtime.

 

Table 2‑4 Supported Parameters

Statement	Supported Parameter
/*XEQ	/*XEQ nodename
/*ROUTE	/*ROUTE PRINT LOCAL /*ROUTE PRINT nodename /*ROUTE PUNCH nodename /*ROUTE XEQ nodename
/*XMIT	/*XMIT nodename

ABEND Routine

Captures terminations abnormally or normally from user program. It provides three COBOL programs, ILBOABN0, CEE3ABD and ART3ABD, which can be called in specific conditions to ABEND the program by itself. When the ABEND routine calls stop run, stop run terminates the process after Batch Runtime performs necessary cleanup.

•	ILBOABN0 abcode

abcode: the ABEND code.

•	CEE3ABD abcode, clean-up

abcode: the ABEND code.

•	clean-up(input)

The possible values are:

0: Issue the ABEND. Batch Runtime will capture ABEND and do clean-up work. Job failed.

1: Issue the ABEND. Batch Runtime will capture ABEND and store a system dump in a file, then do clean-up work. Job failed.

•	ART3ABD abcode

abcode: the ABEND code.

The ILBOABN0.cbl source is in the Batch_RT/ejr/SAMPLE directory.

Note:

For Micro Focus COBOL, Batch Runtime provides two ABEND-handling routines, ILBOABN0 and ART3ABD, that are called to force ABEND. Micro Focus COBOL provides its own ABEND-handling routine, CEE3ABD. It works as defined by Micro Focus COBOL.

For COBOL-IT COBOL, Batch Runtime provides two ABEND routines, ILBOABN0 and CEE3ABD.

General Utility Commands Equivalence Table

 

Table 2‑5 General Utility Commands Equivalences

Utility	Command	Equivalent in Target Environment	Status
IDCAMS (modal commands)	IF/THEN/ELSE		supported
	SET		supported
	CANCEL		N.S.
	DO/END		N.S.
	MAXCC		supported
	LASTCC		supported
IDCAMS	ALLOCATE (main parameters)	m_FileBuild	supported
	ALTER NEWNAME	m_FileRename	supported Note: Renaming for VSAM RDB files is not supported.
	ALTER LIBRARYENTRY		N.R.
	ALTER VOLUMEENTRY		N.R.
	BLDINDEX		N.R.
	CREATE LIBRARYENTRY		N.R.
	CREATE VOLUMEENTRY		N.R.
	DCOLLECT		N.S.
	DEFINE ALIAS		N.S.
	DEFINE AIX	m_FileBuild -K	supported
	DEFINE CLUSTER	m_FileBuild	supported
	DEFINE GDG	m_GenDefine	supported
	DEFINE NONVSAM		N.S.
	DEFINE PAGESPACE		N.R.
	DEFINE PATH		N.R.
	DEFINE USERCATALOG		N.R.
	DELETE ALAIS		N.S.
	DELETE AIX	m_FileBuild -R	supported
	DELETE CLUSTER	m_FileDelete	supported
	DELETE GDG	m_FileDelete	supported
	DELETE LIBRARYENTRY		N.R.
	DELETE NONVSAM	m_FileDelete	supported
IDCAMS (continued)	DELETE NVR		N.S.
	DELETE PAGESPACE		N.R.
	DELETE PATH		N.R.
	DELETE TRUENAME		N.S.
	DEL USERCATALOG		N.R.
	DELETE VOLUMEENTRY		N.R.
	DELETE VVR		N.R.
	DIAGNOSE		N.S.
	EXAMINE		N.S.
	EXPORT		N.S.
	EXPORT DISCONNECT		N.R.
	IMPORT		N.S.
	IMPORT CONNECT		N.R.
	LISTCAT	m_FileListcat	supported
	LISTDATA		N.S.
	PRINT	m_FilePrint	supported
	REPRO	m_FileRepro	supported
	SETCACHE		N.R.
	SHCDS		N.R.
	VERIFY		N.S.
IEBCOPY	ALTERMOD		N.R.
	COPY	m_DirCopy	supported
	COPYGRP		N.R.
	COPYMOD		N.R.
	EXCLUDE	m_DirCopy -e	supported
	SELECT	m_DirCopy -s	supported
IEBGENER	With SYSIN DUMMY	m_FileLoad	supported
	GENERATE MEMBER		N.S.
	GENERATE RECORD	m_FileSort	supported
IEFBR14		m_ProgramExec IEFBR14	supported
IEFBR15		m_ProgramExec IEFBR15	supported
PKZIP	Main parameters	m_Pkzip	supported
PKUNZIP	Main parameters	m_Pkunzip	supported
SMTP		m_Smtp	supported
XMITIP		m_SendMail	supported
ZIP390	ACTION : ZIP	m_Pkzip	supported
	ACTION : UNZIP	m_Pkunzip	supported
	ENCRYPT		N.S.
	IFILE		supported
	OFILE		supported
	ARCHIVE		supported
	OVERWRITE		supported

 

Sort Utilities

Sort Utilities Equivalence Tables

SORT, SORTD, DFSORT, ICEMAN, SYNCSORTT

 

Table 2‑6 Sort Utilities Equivalences

Sort Statement	Parameter	Equivalent in Target Environment	MFSORT	SyncSort
SORT		m_FileSort	Supported	Supported
MERGE		m_FileSort	Supported	Supported
OPTION		m_FileSort
	COPY		Supported	Supported
	SKIPREC		Supported	Supported
	STOPAFT		Supported	Supported
	INCLUDE		Supported	Supported
	OMIT		Supported	Supported
	OUTFILE		Supported	Supported
	OUTREC		Supported	Supported
	END		Supported	Supported
	RECORD		Supported	Supported
	SUM		Supported	Supported

ICETOOL

 

Table 2‑7 ICETOOL Equivalences

Sort Statement	Equivalent in Target Environment	MFSORT	SyncSort
SORT	m_FileSort	supported	supported
COPY	m_FileSort	supported	supported
MERGE	m_FileSort	supported	supported

Sort Limitations

when using syncsort utility, there are some limitations:

•	DFSORT (DATE3) format has no equivalent on syncsort.

•	DFSORT statements (outrec, inrec) are not fully suppported in the following situations:

•	If a key or a filed definition of an outrec field cut a field constant type, an error shows up (MT_ERROR in SYSIN translation) and :#PHX in ksh.

•	If a key or a field definition of an outrec field is not included in the inrec, an error shows up.

•	Cases with SUM are not handled.

DB2 Utilities

Only DB2 Connect 9.7 or above is supported.

 

Table 2‑8 DB2 Utilities

Command	Parameter	Equivalent in Target Environment	0racle	DB2LUW
DSNTEP2	SQL	m_ExecSQL	supported	supported
DSNTEP4	SQL	m_ExecSQL	supported	supported
DSNTIAD	SQL	m_ExecSQL	supported	supported
DSNTIAUL	SQL	m_ExecSQL	supported	supported
	“Unload”	m_DBTableUnload	supported	supported
DSNUTILB	EXEC SQL	m_ExecSQL	supported	supported
	LOAD	m_DBTableLoad	supported	supported
	UNLOAD	m_DBTableUnload	supported	supported

DSNTIAUL

On mainframe, DSNTIAUL program is used to unload data from DB2 tables into sequential data sets. The data is copied to the data sets and is not deleted from the table.

To unload data from Oracle Database tables, Batch runtime provides you DSNTIAUL utility, which has the same functionality as DSNTIAUL program on mainframe with DB2.

The following table shows the supported DB2 data types and their conversion to the Oracle Database target.

 

Table 2‑9 Supported Data Types

Data Type in DB2 on Mainframe	Mapped Data Type in Oracle Database
DECIMAL(p)	NUMBER(p)
DECIMAL(p,s)	NUMBER(p,s)
CHAR(n)	CHAR(n)
VARCHAR(n)	VARCHAR2(n)
TIMESTAMP Note: Only supports the default format "YYYY-MM-DD-HH24.MI.SS.FF6".	TIMESTAMP
TIME Note: Only supports the default format "HH24.MI.SS".	DATE
DATE Note: Only supports the default format "YYYY-MM-DD".	DATE
real	BINARY_DOUBLE
Float(n) (1<=n<=21)	BINARY_DOUBLE
Float(n) (22<=n<=53)	BINARY_DOUBLE
Double	BINARY_DOUBLE

DSNTIAUL Limitations

•	When applying equivalent SQL functions in select statement for the same database table column, the data type that Batch runtime DSNTIAUL outputs for Oracle Database may be different from the data type that mainframe DSNTIAUL outputs for DB2.

•

For real, Float(n) (1<=n<=21), Float(n) (22<=n<=53), and Double data types in DB2, they are converted to BINARY_DOUBLE data type (with eight bytes) in Oracle Database. You can retrieve the field in target file to COMP-2 variable in COBOL program by using Micro Focus COBOL (COBOL-IT COBOL may produce incorrect results).

•	The output file should be a fixed-width sequential file.

DSNTIAUL Configuration

Do the followings to configure Batch Runtime DSNTIAUL.

1.	Set up environment variables for your Batch Runtime.

For more information, see Setting Environment Variables in Oracle Tuxedo Application Runtime for Batch User Guide.

2.	Enable Batch Runtime built-in DB2-to-Oracle SQL Converter.

To enable it, you can either use export MT_DB_SQL_PREPROCESS="${JESDIR}/tools/sql/oracle/BatchSQLConverter.sh" or configure MT_DB_SQL_PREPROCESS in $JESDIR/ejr/CONF/BatchRT.conf.

3.	Configure MT_DSNTIAUL=Y.

The default value of MT_DSNTIAUL is "Y". For more information, see Table 3-3 Oracle Tuxedo Application Runtime for Batch Environment Variables (Optional) in Oracle Tuxedo Application Runtime for Batch User Guide.

4.	Set DATE, TIMESTAMP, TIMESTAMP WITH TIME ZONE and TIMESTAMP WITH LOCAL TIME ZONE format.

•	Environment "DSNTIAUL_DATE_FORMAT" defines date format. If it is not set, use the default value "YYYY-MM-dd HH24:MI:SS".

•	Environment "DSNTIAUL_TIMESTAMP_FORMAT" defines timestamp format. If it is not set, use the default value "YYYY-MM-DD-HH24.MI.SS.FF6".

•	Environment "DSNTIAUL_TIMESTAMP_TZ_FORMAT" defines timestamp with time zone format. If it is not set, use the default value "YYYY-MM-DD-HH24.MI.SS.FF6".

•	Environment "DSNTIAUL_TIMESTAMP_LTZ_FORMAT" defines timestamp with local time zone format. If it is not set, use the default value "YYYY-MM-DD-HH24.MI.SS.FF6".

5.	Set language and territory.

Environment variable "NLS_LANG" defines language and territory. If it is not set, use the default value "American".