Description

z/OS MVS Programming: Authorized Assembler Services Reference ALE-DYN

Description

z/OS MVS Programming: Authorized Assembler Services Reference ALE-DYN
SA23-1372-00

Use the COFSDONO macro to cause DLF to delete a DLF object that is no longer needed.

Environment

The requirements for the caller are:

Environmental factor	Requirement
Minimum authorization:	Supervisor state or with PKM allowing key 0-7
Dispatchable unit mode:	Task
Cross memory mode:	PASN=HASN
AMODE:	31-bit
ASC mode:	Primary
Interrupt status:	Enabled for I/O and external interrupts
Locks:	No locks held
Control parameters:	Must be in the primary address space

Programming requirements

Use of Hiperbatch requires real storage.

Restrictions

None.

Input register information

Upon invocation, general purpose registers (GPRs) must contain:

Register: Contents
1: Address of parameter list
13: Address of caller's save area

Output register information

When control returns to the caller, the GPRs contain:

Register: Contents
0: Reason code
1: Used as a work register by the system
2-14: Unchanged
15: Return code

When control returns to the caller, the access registers (ARs) contain:

Register: Contents
0-1: Used as work registers by the system
2-14: Unchanged
15: Used as a work register by the system

Some callers depend on register contents remaining the same before and after issuing a service. If the system changes the contents of registers on which the caller depends, the caller must save them before issuing the service, and restore them after the system returns control.

Performance implications

DLF objects that are no longer needed occupy system resources and should be deleted.

Syntax

The standard form of the COFSDONO macro is written as follows:

Syntax	Description

`name`	`name`: Symbol. Begin `name` in column 1.

␢	One or more blanks must precede COFSDONO.

COFSDONO

␢	One or more blanks must follow COFSDONO.

OBJNAME=`name addr`	`name addr`: RX-type address or register (2) - (12).

,RETCODE=`ret addr`	`ret addr`: RX-type address or register (2) - (12).

,RSNCODE=`rsn addr`	`rsn addr`: RX-type address or register (2) - (12).

,MF=S

Parameters

The parameters are explained as follows:

OBJNAME=name addr: The 64-character name of the DLF object. The name is a 6-character volume serial number followed by 1 to 44-character data set name, left-justified. Pad the 64-character field on the right with blanks (X'40').
,RETCODE=ret addr: Specifies the location where the system is to store the return code. The return code is also in general purpose register (GPR) 15. If you specify a storage location, it must be on a fullword boundary.
,RSNCODE=rsn addr: Specifies the location where the system is to store the reason code. The reason code is also in GPR 0. If you specify a storage location, it must be on a fullword boundary.
,MF=S: Specifies the standard form of the macro. The standard form generates code to put the parameters into an in-line parameter list and invoke the desired service.

ABEND codes

None.

Return and reason codes

When the COFSDONO macro returns control to your program, GPR 15 (and ret addr, if you coded RETCODE) contains one of the following hexadecimal return codes. GPR 0 (and rsn addr, if you coded RSNCODE) contains one of the following hexadecimal reason codes.

Table 1. Return and Reason Codes for the COFSDONO Macro
Hexadecimal Return Code	Hexadecimal Reason Code	Meaning and Action
00	00	Meaning: Successful completion. The DLF object has been deleted. Action: None.
02	00	Meaning: The object did not exist in DLF. Action: Check to see whether the object name is correct.
02	02	Meaning: The specified object does not exist in DLF. It has been logically deleted by another routine, or is in the process of being connected or deleted. Action: None required.
28	00	Meaning: Environmental error. DLF is not active. Action: Issue the START DLF command and rerun the job.
2C	nnnn	Meaning: System error. There was an unexpected error in DLF. nnnn is the reason code. Action: Record the return and reason codes and supply them to the appropriate IBM® support personnel.