CTMTLB Example 3

Invoke the CTMTLB utility internally from another program.

...

LINK EP=CTMTLB,PARAM=(SCHAREA,#CARDS,TBLNM),VL=1

LTR R15,R15

BNZ error-routine

...

SCHAREA DS A

#CARDS DS F

TBLNM DS CL8

The parameters passed to CTMTLB are shown in Table 158.

Table 158 Parameters passed to CTMTLB when invoked from another program

Parameter	Description
SCHAREA	An address which points to an area containing a table
#CARDS	the number of 80-byte records contained in the area pointed to by SCHAREA
TBLNM	An 8-character table name

Note: When invoking CTMTLB as shown above, unless you want to make use of pass-through parameters, the DAINPRM file should be coded as DUMMY.

If you want to create the CTMTLB DASCHD output file as an in-memory internal table, you should modify the above example as follows:

...

LINK EP=CTMTLB,PARAM=(SCHAREA,#CARDS,TBLNM,OUTAREA,OUTLINE),VL=1

LTR R15,R15

BNZ error-routine

...

SCHAREA DS A

#CARDS DS F

TBLNM DS CL8

OUTAREA DS A

OUTLINE DS F

In this modification

the DASCHD DD statement allocated to the job should be removed
OUTAREA is an address that points to an area where CTMTLB will place the output that is normally written to the DASCHD file
OUTLINE is the maximum number of 80-byte records which the area pointed to by OUTAREA can contain