示例: 使用 "检索成员描述" 命令

在以下 CL 过程中， Retrieve User Profile Attributes (RTVUSRPRF) 命令检索特定成员的描述。 假定名为 MFILE 的数据库文件存在于当前库 (MYLIB) 中，并且包含 3 个成员 (AMEMBER ， BMEMBER 和 CMEMBER)。

DCL  &LIB      TYPE(*CHAR) LEN(10)
DCL  &MBR      TYPE(*CHAR) LEN(10)
DCL  &SYS      TYPE(*CHAR) LEN(4)
DCL  &MTYPE    TYPE(*CHAR) LEN(5)
DCL  &CRTDATE  TYPE(*CHAR) LEN(13)
DCL  &CHGDATE  TYPE(*CHAR) LEN(13)
DCL  &TEXT     TYPE(*CHAR) LEN(50)
DCL  &NBRRCD   TYPE(*DEC)  LEN(10 0)
DCL  &SIZE     TYPE(*DEC)  LEN(10 0)
DCL  &USEDATE  TYPE(*CHAR) LEN(13)
DCL  &USECNT   TYPE(*DEC)  LEN(5 0)
DCL  &RESET    TYPE(*CHAR) LEN(13)
.
.
.
RTVMBRD    FILE(*CWeb siteIB/MYFILE) MBR(AMEMBER *NEXT) +
           RTNLIB(&LIB) RTNSYSTEM(&SYS) RTNMBR(&MBR) +
           FILEATR(&MTYPE) CRTDATE(&CRTDATE) TEXT(&TEXT) +
           NBRCURRCD(&NBRRCD) DTASPCSIZ(&SIZE) USEDATE(&USEDATE) +
           USECOUNT(&USECNT) RESETDATE(&RESET)

以下信息将返回到该过程:

• 当前的库名 (MYLIB) 将被置入 CL 变量 &LIB 中。
• 找到 MYFILE 的系统会被放入 CL 变量名 &SYS 中（*LCL 表示在本地系统中找到文件，*RMT 表示在远程系统中找到文件）。
• 由于 BMEMBER 是名称排序的成员列表（*NEXT）中紧接在 AMEMBER 之后的成员，因此成员名称 (BMEMBER) 会被放入名为 &MBR 的 CL 变量中。
• MYFILE 的文件属性被置入名为 &MTYPE 的 CL 变量（*DATA 表示成员为数据成员，*SRC 表示文件为源成员）。
• BMEMBER 的创建日期被放入名为 &CRTDATE 的 CL 变量中。
• 用于描述 BMEMBER 的文本被放入名为 &TEXT 的 CL 变量中。
• BMEMBER 中的当前记录数被放入名为 &NBRRCD 的 CL 变量中。
• BMEMBER 数据空间的大小（以字节为单位）被放入名为 &SIZE 的 CL 变量中。
• BMEMBER 最后一次使用的日期被放入名为 &USEDATE 的 CL 变量中。
• BMEMBER 的使用天数将存入名为 &USECNT 的 CL 变量。