Chapter 6: TSO Support

Mainframe Express supports the use of TSO commands, CLISTs and REXX execs. They can be run in a:

TSO interactive (or foreground) session
TSO batch (or background) session, using the IDAEFT01 (IKJEFF01) utility.

This chapter describes the differences that apply when using TSO in the Mainframe Express environment instead of the MVS mainframe environment.

6.1 CLISTs for Initialization and Termination

On a mainframe, the TSO, CICS and IMS allocation is controlled by JCL. There are usually DD statements that define data sets used by the subsystem and user programs. In Mainframe Express, this facility is emulated by means of CLISTs which contain ALLOCATE commands to define the data sets.

Three CLISTs are supplied. To execute, they must be placed in the folder mfuser\sysproc. Each CLIST has initialization phases which are run when the session starts and termination phases which are run when the session ends. The three CLISTs are:

USERTSO for a TSO session. A USERTSO CLIST is supplied in the folder mfuser\sysproc ready to run. The single initialization phase allocates the SYSIN, SYSOUT, SYSPRINT, and SYSTERM data sets to the terminal. The single termination phase is a no-op and allows the termination process to effectively free these data sets. The system administrator can modify or delete these commands, or add others, as required.
During the TSO session, a FREE ALL command does not free any data sets allocated by the initialization phase but frees all other data sets in the normal way. But you can issue explicit FREE commands for any of the data sets allocated in the initialization phase.
USERCICS for a CICS session. A skeleton USERCICS CLIST, with two phases for initialization and two phases for termination, is supplied in the folder mfe\mfcics\source. The system administrator needs to move this CLIST to mfuser\sysproc and change it as required.
USERIMS for an IMS session. A skeleton USERIMS CLIST, with one phase for initialization and one phase for termination, is supplied in the folder mfe\mfims\source. The system administrator needs to move this CLIST to mfuser\sysproc and change it as required.

Note that a FREE ALL command within a USERxxxx CLIST frees all allocated data sets.

6.2 TSO Commands and Micro Focus Extensions

The TSO commands and Micro Focus extensions that are supported by Mainframe Express are listed below. You can enter these commands individually, within a CLIST, or within a REXX exec. Please refer to the mainframe documentation for more information about the TSO commands.

ALLOCATE	Allocates an MVS data set to the current user and defines the data set's DD name.
	Example:	ALLOCATE FILE(SYSUT1) DATASET(TESTDATA.SORTED.DATA) OLD Allocates the existing data set TESTDATA.SORTED.DATA, with the DD name SYSUT1.
ATTRIB	Allows DCB parameters to be dynamically defined and named for use in subsequent ALLOCATE commands.
	Example:	ATTRIB DATA1 BLKSIZE(32720) LRECL(80) DSORG(PS) RECFM(FB) Sets up an attribute called DATA1 that can be used in conjunction with an ALLOCATE command to provide DCB information for a DD name
CALL	Invokes a program.
	Example:	CALL PROG1 Invokes program PROG1.
CLS	Micro Focus extension. Clears the screen.
DELETE	Deletes an MVS data set (and its related PC file).
	Example:	DELETE 'TESTDATA.UNSORTED.DATA' Deletes the data set TESTDATA.UNSORTED.DATA.
DSN	Invokes the DSN command processor, which is used to run DB2 programs. In Mainframe Express, the following rules apply to the DSN command and its subcommands: The subcommands ABEND, BIND, DCLGEN, FREE, REBIND and SPUFI are not supported and are ignored without syntax checking. The DSN command keywords SYSTEM, RETRY and TEST are syntax checked but otherwise ignored The RUN subcommand keyword PLAN is ignored for the SQL Option but is used as the plan name for DB2. This allows you to process multiple databases with the same program with DB2. The RUN subcommand keyword LIBRARY is syntax checked but otherwise ignored The RUN subcommand keyword CP is not supported The features in the not supported category could impact the logic of your program. You are advised to analyze the importance of these to your application. The features in the syntax checked but otherwise ignored category will probably have no impact on your application.
	Example:	DSN RUN PROGRAM(PROG1) PLAN(PLANX) PARMS('HELLO') END Invokes the DSN subcommand processor to execute the RUN subcommand, which invokes the program PROG1 with the parameter string "HELLO". The END subcommand terminates the DSN subcommand processor. For more information, see the DB2 manuals.
EXEC	Executes a TSO command, CLIST or REXX exec.
	Example:	EXEC 'MYPDS.CLIST(ABCD)' Executes the member ABCD from the partitioned data set MYPDS.CLIST.
FREE	Frees the allocation of a data set.
	Example:	FREE FILE(SYSUT1) Frees the allocation for the data set with DD name SYSUT1.
LISTALC	Displays the list of currently allocated DD names.
LISTCAT	Lists the entries in the catalog with the high-level data set qualifier equal to the user ID defined to Mainframe Express. If you invoke this command with the Micro Focus extension /F, it displays additional information.
LOGOFF	Terminates the current TSO session.
PROFILE	Allows you to specify different PREFIX and PROMPT settings.
	Example:	PROFILE PREFIX(TVDF) NOPROMPT Causes a dataset prefix of TVDF to be added to any data set name that is not enclosed in quotes. Turns off prompting for REXX execs during this TSO session.
RELATE	Micro Focus extension. Relates an MVS data set name in the catalog to a PC file name. It can be used in conjunction with an ALLOCATE command to set up tests in a TSO session.
	Example:	RELATE TESTDATA.SORTED.DATA C:\MYFILE.DAT Relates the MVS data set TESTDATA.SORTED.DATA to the PC file C:\MYFILE.DAT.
SUBMIT	Executes a file containing a set of JCL statements.
	Example:	SUBMIT 'TVDF.WORK.CNTL(IOCBL02)' Executes the JCL statements contained in IOCBL02.
TIME	Displays the current time and date and the CPU seconds used.