Using REXX EXECs

Initiates the JVER environment under the REXX environment.

Format:

I = CTJRXX("INIT")

Sets local variables, which can be used later in other DO REXX actions or even in any other DO action.

Formats:

S = CTJRXX("SETVAR","%%A = B")
ADDRESS JVER "SETVAR %%A = B"

Reads data from SYSIN statements (in-stream, PDS members, and sequential files).

Formats:

S = CTJRXX("SYSINREAD","varname lines start")

where

varname - is the name of the stem variable

               After the execution:

               %%varname.0 - holds the number of records read

               %%varname.1 - holds the first data record (80 chars)

lines - maximum number of lines to read

start - number indicating the first line to read

To read the entire SYSIN, “lines start” can be omitted and the following call can be used:

S = CTJRXX("SYSINREAD","varname")

The function returns the following return codes:

• 0 - Success

• 4 - Some of the data was read but one or more of the concatenated datasets were not available, did not exist, or the LRECL was different than 80

• 8 - No data was read (e.g. empty SYSIN, none of the concatenated datasets could be accessed)

• 16 - Error

 S = CTJRXX("SYSINREAD","DAT")
 If S >= 8 then
  CTJRXX("DOMSG","SYSIN READ FAILED")
 Else 
  DO I = 1 TO DAT.0
      Say DAT.I
   END

Issues a JVER message in the JVER report, similar to DO MSG in the site standards.

Formats:

M = CTJRXX("DOMSG","<severity>","<text>")
ADDRESS JVER "DOMSG <severity> <text>"

where:

• severity can be I (information), W (warning), or E (error)

• text is the message that is added to the output

Suppresses JVER messages or changes their severity in a dynamic manner.

Formats:

M = CTJRXX("ADJMSG","<msgid>","<suppress>","<severity>")
ADDRESS JVER "ADJMSG <msgid> <suppress> <severity>"

where:

• msgid is the 7-character message ID for the Control-M JCL Verify message that you want to adjust. The message ID must begin with CTJ*.

• suppress - whether to suppress the message, either Y (yes) or N (no)

• severity - adjusted level of severity for the message: E (error), W (warning), or I (information)

Sets the JVER return code (RC) and reason code (RS) of the JVER report, similar to DO RETURN in the site standards.

Formats:

R = CTJRXX("DORC","8","0")
ADDRESS JVER "DORC 8 A"

Resolves a local, system, or data variable, and gets its value.

Format:

A = CTJRXX("RESOLVE","%%A")

Assigns a value to a variable. Applicable only for enforcement rules and the enforcement process.

Format:

S = CTJRXX("ENFORCE","%%X=B")
ADDRESS JVER "ENFORCE %%X = B"

Where %%X is a user defined variable or global AutoEdit variable.

Insert a new record before the current statement. Applicable only for enforcement rules and the enforcement process.

Format:

S = CTJRXX("IBEFORE","rec")
ADDRESS JVER "IBEFORE rec"

Where rec is the new record to be inserted, limited to the first 72 characters.

Insert a new record after the current statement. Applicable only for enforcement rules and the enforcement process.

Format:

S = CTJRXX("IAFTER","rec")
ADDRESS JVER "IAFTER rec"

Where rec is the new record to be inserted, limited to the first 72 characters.