CL400编程基础.pptVIP

CL/400编程基础(Control Language/400) 简介 编程 CL程序中文件的使用 信息处理 简介 CL/400 AS/400命令 非交互式命令 CL/400编程 CL/400文件操作 文件操作命令（一） 定义文件 DCLF 发送变量值到屏幕 SNDF 从屏幕接收变量值 RCVF 发送并接收 SNDRCVF （相当于SNDF + RCVF） 文件操作命令（二） 用法示例：显示文件INITMENU |...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 A R MENU A 1 2Operator Menu A 3 41. Accounts Payable A 5 42. Accounts Receivable A 5 490. Signoff A 7 2Option A OPTION 2Y 01 + 2VALUES(1 2 90) DSPATR(MDT) 文件操作命令（三） 用法示例：CL程序 PGM /* OPERATOR MENU */ DCLF INTMENU BEGIN: SNDRCVF RCDFMT(MENU) IF COND(OPTION *EQ 1) THEN(CALL ACTSPAYMNU) IF COND(OPTION *EQ 2) THEN(CALL ACTSRCVMNU) IF COND(OPTION *EQ 90) THEN(SIGNOFF) GOTO BEGIN ENDPGM 信息处理 信息类型及输出方式 信息处理命令 * liyuwei * 作用类似于UNIX中的shell,DOS中的BAT文件 源程序需要编译 用命令CRTCLPGM或在PDM中编译 在命令行用CALL调用 交互式命令 格式： 动词 + 对象 例： DSPLIB，WRKOBJ STR*,CRT*,DLT*,WRK*,DSP*, CHG*,EDT*,SND* 大部分交互式命令可用在CL程序中 非交互式命令 只能由CL程序调用 CL程序起始和结束命令 PGM，ENDPGM 定义命令 DCL，DCLF 处理命令 CHGVAR，MONMSG等 程序控制命令 IF，THEN，ELSE，GOTO， DO，ENDDO，CALL 定义语句 定义变量 DCL VAR(name) TYPE(*DEC | *CHAR | *LGL) LEN(len1 len2) VALUE（val1) 例：DCL VAR(AREA) TYPE(*CHAR) LEN(4) VALUE(BOOK) 定义文件 DCLF FILE(library-name/file-name) RCDFMT(record-format-names) 赋值语句 用法： CHGVAR A 0 CHGVAR A B CHGVAR VAR(A) VALUE(%SST(B 1 5)) 操作符 算术操作符 +，-，*，/ 逻辑操作符 *NOT,*AND(),*OR(|) 关系操作符 *EQ(=), *GT( ), *LT( ), *GE( =), *LE( =), *NE, ?, *NG, ?, *NL, ? 字符操作符 *CAT(||), *BCAT( |), *TCAT( |) 判断语句 单条语句语法： IF COND(......) THEN ...... ELSE ...... 多条语句语法（DO组的使用） IF COND(......) THEN (DO) command 1 ....... command n ENDDO 信息类型：预定义