In the following CL procedure, a RTVOBJD command retrieves the description of a specific object. Assume an object called MOBJ exists in the current library (MYLIB).
DCL &LIB TYPE(*CHAR) LEN(10)
DCL &CRTDATE TYPE(*CHAR) LEN(13)
DCL &USEDATE TYPE(*CHAR) LEN(13)
DCL &USECNT TYPE(*DEC) LEN(5 0)
DCL &RESET TYPE(*CHAR) LEN(13)
.
.
.
RTVOBJD OBJ(MYLIB/MOBJ) OBJTYPE(*FILE) RTNLIB(&LIB)
CRTDATE(&CRTDATE) USEDATE(&USEDATE)
USECOUNT(&USECNT) RESETDATE(&RESET)
The following information is returned to the program:
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.