AS/400 CL控制语言基础（2）

新客网 XKER.COM 2008-02-21 来源：新客网Unix系统佚名收藏本文

　　2.3 CL 程序的命令

　　 CL 程序中仅可包含 CL 命令，由系统提供的大多数 CL 命令可用于 CL 程序，而有些 CL 命令是专门用在 CL 程序中的。下面是一张用在 CL 程序中的部分命令清单，其中带有星号的表示该命令仅能用于 CL 程序内部。

　　2.3.1 变量的使用

　　 * 变量说明，使用 DCL 命令来定义变量及其属性、长度和初值。标准格式如下：

　　 * CHAR

　　 DCL VAR (变量名) TYPE * DEC LEN (长度) VALUE(初值)

　　 * LGL

　　

　　使用 DCL 命令时，必须遵循的规则如下：

　　#CL 变量名必须以 & 开始，后跟字符不多于 10 个，& 后的第一个字符必须是字母，其余的可以是字母或数字。

　　#CL 变量值必须是：字符型最长为 9999 个字符；数值型为压缩十进制数，最长为 15 位，其中小数位最长为 9 位；逻辑型为“0”或“1”，表示假或真。

　　#CL 变量的缺省初值为：字符型为空，数值型为 0，逻辑型为“0”。

　　#对于字符型和数值型，假如指定了初值而未指定长度，则缺省长度为初值长度。

　　 * 变量值中小写字符的限制

　　用作变量的保留值必须用大写字母表示，非凡是当它们用引号括起来的时候。例如：

　　 DCL VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE(''*LIBL'')

　　 DLTPGM &LIB/MY PROG

　　注重：假如 VALUE 参数不使用引号，则小写是正确的。因为使用 SEU 编辑会自动转换成大写。

　　 * 变量赋值，使用 CHGVAR 命令给变量赋值，其值可改变成：

　　#常量： CHGVAR VAR（&A） VALUE（0）

　　#变量： CHGVAR VAR（&A） VALUE（&B）

　　#计算量：CHGVAR VAR（&A） VALUE（&A 1）

　　#函数量：CHGVAR VAR（&A） VALUE(%SST(&B 1 5))

　　 CHGVAR VAR(%SST(&A 1 5)) VALUE(&B)

　　赋值时应注重以下几点：

　　#对逻辑变量，被改变的值必须是一个逻辑值。

　　#对数值变量，只能赋予十进制数，或者数字字符变量（包括小数点和正负号）。

　　#对字符变量，既可接受字符，也可接受十进制数。赋十进制数时，该字符变量的值是右对齐，前导补零，负号放在最左边。

　　 * CL 程序中注解的书写，在命令的头尾使用一对符号：/* 和*/。假如一行写不下一条命令，使用。

　　2.3.2 CL 程序内部的逻辑控制

　　 * 条件转移命令：

　　IF COND（条件） THEN（一条命令）

　　ELSE CMD（一条命令）

　　或者 IF COND（条件） THEN（DO）

　　 .

　　 ENDDO

　　 ELSE CMD （DO）

　　 .

　　 ENDDO

　　 * 无条件转移命令：GOTO LABEL

　　 * 操作符：

　　逻辑的 *AND *OR *NOT

　　算术的 - * /

　　字符的 *CAT *TCAT

　　关系的 *EQ *GT *LT *GE *LE *NE

　　 * 监视信息命令：MONMSG

　　 MONMSG MSGID（信息标识 1 … 信息标识 50）

　　 EXEC（CL命令）

　　系统对于CL命令执行错误所送出的信息都具有唯一的标识符，假如不进行监视，则系统会终断程序，自动显示错误信息。

　　2.3.3 系统资源的获取

　　 * 日期格式转换命令：CVTDAT

　　 CVTDAT DATE（被转换日期） TOVAR（转换后日期）

　　 FROMFMT（原格式） TOFMT（新格式） TOSEP（新分隔符）

　　其中：转换后日期的长度至少是：

　　#对儒略日期（如 YMD，DMY 或 JUL 格式），不使用分隔符为 5 个字符，使用分隔符为 6 个字符。

　　#对非儒略日期，不使用分隔符为 6 个字符，使用分隔符为8 个字符。

　　日期格式和分隔符可以通过按 F4 键选择。

　　 * 检索系统值命令：RTVSYSVAL

　　 RTVSYSVAL SYSVAL（系统值名）RTNVAR（CL变量名）

　　其中：系统值名可以通过按 F4 键选择，如：系统当前日期的系统值是 QDATE。变量名必须和系统值的类型匹配，对字符型和逻辑型系统值而言，变量名的长度必须相符，对数字型，则长度不小于系统值长度。

　　 * 检索配置源命令：RTVCFGSRC

　　用于将现有配置的描述存放到源文件成员中。

　　 * 配置状态检索命令：RTVCFGSTS

　　用于获取各类配置描述的现行状态，放入 CL 变量。

　　 * 检索网络属性的命令：RTVNETA

　　用于获取系统的网络属性，放入相应的 CL 变量。如：系统名SYSNAME，本地网络标识 LCLNETID。

　　 * 检索作业属性命令：RTVJOBA

　　用于获取当前运行作业的属性，放入相应的 CL 变量。如：作业名 JOB，用户名 USER。

　　 * 检索目标描述命令：RTVOBJD

　　用于获取指定目标的描述属性，放入相应的 CL 变量。

　　 * 检索用户档案命令：RTVUSRPRF

　　用于获取指定用户的档案资料，放入相应的 CL 变量。

上一篇：AS/400 CL控制语言基础（1）下一篇：AS/400 CL控制语言基础（3）

【收藏】【评论】【推荐】【投稿】【打印】【关闭】