Using CA JCLCheck › Invoking from a CLIST

Invoking from a CLIST

CA JCLCheck provides a CLIST in member CAZ1TJCK in the CAZ2CLS0 library. This CLIST contains file allocation statements for the key CA JCLCheck files. If the CLIST is installed with the name CHECK, you can invoke it as a TSO command:

     %CHECK 'input.dataset.name' PARM('runtime-options')

These programs should only be used when the corresponding TSO/E commands do not run because of the environment; always use the standard ALLOCATE and FREE commands where possible.

When TSO/E commands are executed in the user REXX procedure, CA JCLCheck must be run in a TSO/E environment, for example, IKJEFT01.

To keep authorization, CA JCLCheck must be defined in the AUTHPGM entry of the IKJTSO00 PARMLIB member.

Note: For information about authorization, see Establish CA JCLCheck as APF Authorized in the Installation Guide.

Due to the authorized environment, ALLOCATE or FREE TSO/E commands executed in the user REXX procedure fail with RC=-3. Four programs can be used instead of the TSO/E ALLOCATE and FREE commands; contrary to the IBM commands, these programs do not require any specific environment to run with.

The CAZ1ALDS module is used to allocate data sets. The complete syntax including all the available parameters when called in a REXX environment is:

VAR = 'dd name,dataset name,member name,disp1,disp2,disp3,recfm,
        lrecl,blksize,space unit,primary alloc,secondary alloc,directory,
        unitname,volume serial,SMS storclas,SMS dataclas'
ADDRESS ATTCHMVS  'CAZ1ALDS  VAR'

Usage notes:

• SPACE UNIT can be "TRK" for Tracks or "CYL" for Cylinders. "BLK" is not supported.
• disp1 is the status sub-parameter.
• disp2 the normal termination disposition sub-parameter.
• disp3 the abnormal termination (conditional) disposition sub-parameter.
• The default value for disp1 is SHR.

Example 1: Allocate a Data Set with a DDname

This example shows how to allocate the data set PROD.JCK.CNTL with the ddname DD1 and status SHR:

VAR='DD1,PROD.JCK.CNTL'

Example 2: Allocate a Data Set

This example shows how to allocate data set PROD.JCK.TEST:

VAR='DD1,PROD.JCK.TEST,,NEW,CATLG,CATLG,FBA,133,,TRK,1,2,,SYSDA,TEST01'

This is the same as allocating with the following JCL statement:

//DD1 DD DISP=(NEW,CATLG,CATLG),RECFM=FBA,LRECL=133,SPACE=(TRK,(1,2)),
//     UNIT=SYSDA,VOL=SER=TEST01

Since the parameters are positional, commas are used for any omitted parameters.

The CAZ1ALSY module is used to allocate SYSOUT files. The complete syntax including all the available parameters when called in a REXX environment is:

VAR = 'dd name,class'
ADDRESS ATTCHMVS  'CAZ1ALSY  VAR'

Example 1: Allocate DD1

This example shows how to allocate DD1 to SYSOUT=A:

VAR='DD1,A'

Example 2: Allocate DD2

This example shows how to allocate DD2 to the default class (same as SYSOUT=*):

VAR='DD2,*'

The CAZ1CONC module is used to concatenate data sets. The complete syntax including all the available parameters when called in a REXX environment is:

VAR = 'dd name1,...dd name16'
ADDRESS ATTCHMVS  'CAZ1CONC  VAR'

Up to 16 DDs can be concatenated with one call to the program.

The CAZ1FREE module is used to unallocate data sets. The complete syntax including all the available parameters, when called in a REXX environment, is:

VAR = 'dd name1,...dd name16'
ADDRESS ATTCHMVS  'CAZ1FREE  VAR'

Up to 16 DDs can be unallocated with one call to the program.

Return Codes:

0

Function was successful.

4

Function not complete; reason could be an invalid parameter.

8

Function was not successful; internal (contact CA Support).

12

Function was not successful; invalid parameter list given.