TUBATEST - Batch Interface Test Program

#### Search Results

Search

# TUBATEST - Batch Interface Test Program

The batch utility program TUBATEST allows the functions available via the Com-plete Batch interface to be tested individually.

- How to use TUBATEST

- Control Card Input

## How to use TUBATEST

Sample job control can be found in the Com-plete distribution source library in member JCLTUBAT, and looks as follows:

> z/OS:

>       //JOBTUBA  JOB.... JOB CARD INFORMATION ..
>       //*
>       //* THIS IS A SAMPLE JOB TO RUN THE TUBATEST UTILITY
>       //* TO PERFORM TEST FUNCTIONS FOR COMPLETE BATCH FUNCTIONS.
>       //*
>       //* THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB:-
>       //*
>       //* 1. INSERT A VALID JOBCARD.
>       //* 2. CHECK THE STEPLIB DATASET NAMES.
>       //*
>       //* NOTE:-
>       //* THE FOLLOWING ONLY REQUIRED IF YOU REQUIRE TO OVERRIDE ACSTAB
>       //* OR IF AN ACSTAB MODULE DOES NOT EXIST IN THE USER.LOAD DATASET.
>       //*
>       //* 3. CHANGE nnnn AND sss TO THE ACCESS NODE-ID AND ADABAS ROUTER SVC
>       //*    IDENTIFYING THE TARGET SYSTEM.
>       //*
>       //BATCH PROC
>       //BATCH EXEC PGM=TUBATEST
>       //STEPLIB  DD    DSN=COM.LOAD,DISP=SHR
>       //         DD    DSN=COM.USER.LOAD,DISP=SHR     <- FOR ACSTAB
>       //         DD    DSN=ADABAS.LOAD,DISP=SHR       <- FOR ADALNK
>       //SYSPRINT DD  SYSOUT=*
>       //SYSABEND DD  SYSOUT=*
>       //*COMBTCH  DD    DSN=NODEnnnn.SVCsss,DISP=(NEW,DELETE),UNIT=SYSDA,
>       //*            SPACE=(TRK,(1,0,0))
>       //     PEND
>       //T1   EXEC BATCH
>       //BATCH.SYSIN DD *
>        < control cards >
>       /*

> z/VSE:

>       * $$ JOB JNM=JOBTUBA,DISP=D,CLASS=0
>       * $$ LST DISP=D,CLASS=A
>       //JOB TUBATEST  JOB.... JOB CARD INFORMATION ..
>       /*
>       /* THIS IS A SAMPLE JOB TO RUN THE TUBATEST UTILITY
>       /* TO PERFORM TEST FUNCTIONS FOR COMPLETE BATCH FUNCTIONS.
>       /*
>       /* THE FOLLOWING CHANGES HAVE TO BE PERFORMED BEFORE RUNNING THIS JOB:-
>       /*
>       /* 1. INSERT A VALID JOBCARD.
>       /* 2. CHECK THE LIBDEF STATEMENTS.
>       /*
>       /* NOTE:-
>       /* THE FOLLOWING ONLY REQUIRED IF YOU REQUIRE TO OVERRIDE ACSTAB
>       /* OR IF AN ACSTAB MODULE DOES NOT EXIST IN THE USER.LOAD DATASET.
>       /*
>       /* 3. CHANGE nnnn AND sss TO THE ACCESS NODE-ID AND ADABAS ROUTER SVC
>       /*    IDENTIFYING THE TARGET SYSTEM.
>       /*
>       // ASSGN SYS003,SYSLST
>       // LIBDEF *,SEARCH=(SAGLIB.COMUSER,SAGLIB.COMvrs,SAGLIB.ADAvrs)
>       /* DLBL COMBTCH,'NODEnnnn.SVCsss'
>       // EXEC PGM=TUBATEST
>         GETCHR
>       /*
>       /&
>       * $$ EOJ

## Control Card Input

The control statements used as input from the SYSIN file determine which functions TUBATEST performs.

The control statement cards are free format . However, the whole of an individual statement must fit onto one 80 character input string.

The general format of the control cards is as follows:

     <function> <operand1> <operand2> .... <operandn>

The number of operands which can be supplied is dependent on the function to be performed. A description of the functions and operands supported is given below:

> ABEND

>   The batch job is terminated with a S007 abend, the online transaction in the target Com-plete is terminated normally.

> CAPTUR

> GETCHR

> EOJ

>   The online transaction in the target Com-plete is terminated normally, the batch job continues, and if other input cards are available, the requested functions are performed.

>   Note
>   If the TUBATEST is terminated without issuing an EOJ, the on-line transaction will remain in session in the target Com-plete until other action is taken (e.g. Autologoff or operator action).

> MESGSW <destination> <message text>

>   Default destination is VIRTP1. Only one destination can be specified. Text length is 80 bytes. Default text is blanks. Message class is always 1.

>   You can enter the U= notation if the destination is a userid, otherwise it is taken for a printer name.

> PSOPEN <destination>

>   Default destination is VIRTP1. Only one destination can be specified. Listname is always ZUBATEST Form is always blanks. Length is always 81.

> PSPUT <printout text>

>   Text length is 80 bytes. Carriage control is ' '.

> PSCLOS

> RJE <option> <jcl card text>

>   Use option H for hold, any other value will release the JCL to the internal reader.

> SDOPEN <SD file name>

>   Default SD filename is ZUBATEST Tibname is always SHR. Number of records is 100. Record length is always 6 Kbytes.

> SDCLOS

>   SD filename is ZUBATEST. Tibname is always SHR.

> SDDEL

>   SD filename is ZUBATEST. Tibname is always SHR.

> SDWRT <record text>

>   SD filename is ZUBATEST. Tibname is always SHR. The SD file is written sequentially.

> SDREAD

>   SD filename is ZUBATEST. Tibname is always SHR. The SD file is read sequentially from the beginning.

>   After calling the Batch function TUBATEST will, where appropriate, print a display of any relevant control blocks and/or data areas and also display the response code returned from the batch interface routine.

### On this page

- How to use TUBATEST
- Control Card Input