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.