LMCOMP—compresses a partitioned data set

The LMCOMP service compresses a data set. The installation-supplied compress exit is used, or, if there is no exit, IEBCOPY is used. Completion of the LMINIT service specifying ENQ(EXCLU) is required before you invoke LMCOMP.

Command invocation format


>>-ISPEXEC--LMCOMP--DATAID(data-id)----------------------------><

Call invocation format


>>-CALL--ISPLINK--('LMCOMPbb',data-id);------------------------><


>>-CALL--ISPEXEC--(buf-len,buffer);----------------------------><

Parameters

data-id: The data ID associated with the data set to be compressed. The data ID has been generated by the LMINIT service. The data ID must be associated with only one data set. Concatenations are not allowed. The maximum length of this parameter is 8 characters.
buf-len: A fullword fixed binary integer containing the length of the buffer parameter.
buffer: A buffer containing the name of the service and its parameters in the same form as they would appear in an ISPEXEC invocation for a command procedure.

Return codes

The compress request exit routine is responsible for handling all errors that occur while it is in control. The compress exit must pass the return codes to LMCOMP. See z/OS ISPF Planning and Customizing for information about the Compress Exit.

These return codes are possible:

0

Successful completion.

8

Library type is a PDSE and cannot be compressed

10

No data set associated with the given data ID.

12

One of these:

Data set not partitioned
Data set specified not allocated
Data set is open
Data set is not movable
Data set must be allocated exclusively. Use ENQ(EXCLU) in LMINIT service.
Concatenated libraries are not allowed for LMCOMP.

20

Severe error; unable to continue.

Example

This example invokes the LMCOMP service to compress the data set associated with the data ID in variable DDVAR.

Command invocation

ISPEXEC LMCOMP DATAID(&DDVAR)

Call invocation

CALL ISPLINK('LMCOMP  ',DDVAR);
OR

Set the program variable BUFFER to contain:

BUFFER = 'LMCOMP DATAID(&DDVAR)';

Set the program variable BUFLEN to the length of the variable BUFFER. Issue the command:

CALL ISPEXEC (BUFLEN, BUFFER);