In this sample CL source, the Retrieve Object Description (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(7)
DCL &USECNT TYPE(*DEC) LEN(5 0)
DCL &RESET TYPE(*CHAR) LEN(7)
.
.
.
RTVOBJD OBJ(MYLIB/MOBJ) OBJTYPE(*FILE) RTNLIB(&LIB)
CRTDATE(&CRTDATE) USEDATE(&USEDATE)
USECOUNT(&USECNT) RESETDATE(&RESET)
The following information is returned to the program: