Z-ADD:RESULT = 0 + FACTOR2 Z-SUB:RESULT = 0 - FACTOR2 MULT:RESULT = FACTOR1/RESULT * FACTOR2 DIV:RESULT = FACTOR1/RESULT / FACTOR2 MVR:RESULT =上一个DIV操作的余数 SQRT:RESULT = FACTOR2的平方根 XFOOT:RESULT = FACTOR2数组的和 赋值操作 MOVE:RESULT = FACTOR2(右靠齐,字符型变量和...
zero 假如要对数字型变量赋初值,使用*ZERO Z-ADD *ZERO FLD02 Z-SUB {(H)} (Zero and Subtract) 用0 减 Factory 1 Operation Factory 2 Result HI LO EQ Z-SUB FLD01 FLD02 等价于 0 SUB FLD01 FLD02 等价于 EVAL FLD02=FLD01*(-1) *ALL *ALL 是个很故意义旳变量,举例: EVAL FLD01=*ALL...
0005.00 C 1 DOWEQ1 0006.00 C READ FCUS 58 0007.00 C *IN58 IFEQ '1' 0008.00 C LEAVE 0009.00 C ENDIF 0010.00 C* 数据文件变量值赋给打印文件 0011.00 C MOVELCUNAME CSNAME 0012.00 C MOVE CUOPDT CSOPDT 0013.00 C Z-ADDCUACBL CSACBL 0014.00 C WRITEDETAIL 0015.00 C ENDDO 0016.00 C WRITE...
描述F中已说明文件的记录名及字段名，定义数据结构和变量 C仕样书 演算命令 O仕样书 描述印刷文件的格式 仕样书的排列顺序:H-F-E-L-I-C-O 注：不用的仕样书可省略 四则运算命令 ➢ADD（加运算）例:数字变量或定数 数字变量 ➢SUB（减运算）FACTOR1OPCDFACTOR2RESULT X ADD Y Z ➢MULT（乘运算）10...
0043.07 C Z-ADD 1 FACT(I) 0043.08 C GOTO ENDSR 0043.09 C ELSE 0043.10 *递归层数累加 0043.11 C ADD 1 CNT1 0043.12 *缩小规模 0043.13 C SUB 1 I 0044.00 C EXSR PROC2 0044.01 *逐个恢复递归层次 0044.02 C ADD 1 CNT2 0044.04 *递归处理 ...
(a) Z-ADD表明把 Factor2 处的变量值赋给 Result 处的变量,值得注意的是这 两个变量都是数值型的,例如,Z-ADD2 A 10 表示把 2 赋给变量 A,后面的10 中的“1”表示变量A 的长度是 1,“0”表示小数位长度是 0,即A 是一个长度为 1 整型变量; (b) MULT表示做乘法运算,“A MULT B TEM”表示 ...
Z-ADD(零加) Z-SUB(零减) 3.3 显示文件模版 打印文件模版 RPGLE程序模版 CLLE程序模版 3.4 按模版编写一组简单的程序。 4 本节介绍基本SQL语句和检索、修改、删除以及把数据插入表和视图中的子句。SQL语句中常用的是SELECT、UPDATE、DELETE和INSERT四个语句。 INSERT语句 INSERT INTO table-name (column1, colum...
25、设置低界)setoff(设指示器off)seton(设指示器on)sqrt(求平方根)sub(减)time (时间)unlock (解锁数据区或释放一个记录)update(修改存在的记录)when (当为真时选择)write (生成新记录)z-add (零加)z-sub(零减)3.3 模板学习显示文件模版打印文件模版rpgle 程序模版clle 程序模版as/400 基础培训作者:陈...
C Z-ADD0 TEM 30 C Z-ADD0 RST 30 C A MULT B TEM C C SUB D RST 2 C TEM DIV RST RST C MVR TEM2 30 C RST ADD E RST C RST DSPLY ...CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments+ +++ C SETON LR *** End of data *** 【注】 (a) Z-ADD表明把Fact...
C Z-ADD*ZERO B2 C MOVE X1 X2 在这例子中X1 = 16进位'A0' ,相当于10进位160,利用数据结构DS001定义同一位置,但不同属性(一为文字X2,一为二进制数B2 ),将X1搬至X2右侧,即可得B2 = 160.这个技巧在做字符转换时很好用, RPG并不提供字符值直接加减(但C语言可以),所以须透过转换,希望未来RPGIV能提供...