AS/400 CL控制语言基础（2）
【AS400教程】◆第二章 CL 编程
提要：
* CL 程序的作用
* CL 程序的结构
* CL 程序中的命令
2.1 CL 程序的作用
CL 程序是由 CL 命令组成，这些命令被编译成可供随时调用的程序。使用 CL 程序的优点包括：
* CL 程序比单独输入和运行命令快，因为命令被编译成能够立即运行的形式。
* 有些功能需要多条 CL 命令一起完成。
* 参数可以传递给CL 程序，CL程序内部也接收变量的定义，以适应非凡需要的程序操作。
* CL 程序能够像其它高级语言程序一样被测试和监控。
CL 程序可以应用到许多方面，包括：
* 通过 CL 程序完成单独输入 CL 命令所不能完成的功能，例如，人工或者定时提交批作用完成一项工作，如启动子系统，进行文件备份，整顿系统资源。
* 给交互式或批处理的应用程序提供一个接口，使得在应用程序中直接进行系统操作或者获取系统参数。
* 在网络通信方面，CL 程序往往承担应用主控程序的角色。
2.2 CL 程序的结构
CL 程序是借助于 ADT 工具中的 SEU 输入的，在输入过程中，键入一条命令并按 F4 键，就会显示出这条命令的提示画面，方便用户输入相应的参数值。CL 源程序主要分为以下几个部分：
* 程序的开始和结束：
PGM PARM（&A &B） 开始 CL 程序
END PGM 结束程序
* 变量定义：
DCL 定义变量
DCLF 定义文件
* CL 处理命令：
CHGVAR 变量赋值
MONMSG 监控错误信息
SNDPGMMSG 传送程序信息
RTVJOBA 获取作业属性值
* 逻辑控制命令：
IF THEN ELSE
DO ENDDO
GOTO
* 内部函数：
% SST 取子串
* CAT 连接字符
* 程序控制命令：
CALL 调用子程序
RETURN 返回调用程序
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 变量。