COMPUTE参考=expression;参考 有效的 z/OS® Debugger COBOL 数字引用。 表达式 有效的 z/OS Debugger COBOL 数字表达式。使用说明如果要调试优化的 COBOL 程序,那么仅当您首先输入 SET WARNING OFF 命令时,才能使用 COMPUTE 命令将值指定给程序变量。 如果要调试优化的 COBOL 程序并指定 表达
括号> ** > * / > + - 9.算术统计运算 COMPUTE 统计运算:总和,中位数,平均数 计算总和:COMPUTE sum-name = FUNCTION SUM(name1 name2 name3) 计算中位数:COMPUTE midle-name = FUNCTION MEDIAN(name1 name2 name3) 计算平均数:COMPUTE average-name = FUNCTION MEAN(name1 name2 name3) 1.关系运算...
COMPUTE 1900 - (1900 / 400) * 400 对于整数来说 这样一条语句就可以求余了 除的运算尽量不要用 DIVIDE DIVIDE求余要用remainder 01 R PIC 9(4).01 T1 PIC 9(4) VALUE 1900.01 X PIC Z,ZZ9.注意定义X的时候别出现数据溢出,不然就会出现你说的这种情况.如果你定义 X PIC 9(2) ...
COMPUTE Z=X-Y. END PROGRAM SUB. GLOBAL & EXTERNAL通常,数据和文件都是局部的,但也可以定义全局数据和文件— —GLOBAL子句GLOBAL只能用于01层,其所有下层数据均具有全局特性, 可以被任何子程序引用。 但是子程序中定义同名的数据项会将父程序中GLOBAL数据项覆盖,可以使用EXTERNAL子句EXTERNAL...
cobol中有个random 函数。但是它只返回0~1之间的小数（就是说0<= 随机值<1）。所以假如你想要0到51之间的数，可以这么做：COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52.现对的，如果要1到52的话，就要加1了：COMPUTE RANDOM-VALUE = FUNCTION RANDOM (1) * 52 + 1.没...
Compute 语句用于在 COBOL 中编写算术表达式。这是加、减、乘和除的替代品。 Example IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM1 PIC 9(9) VALUE 10 . 01 WS-NUM2 PIC 9(9) VALUE 10. 01 WS-NUM3 PIC 9(9) VALUE 10. 01 WS-NUMA PIC ...
COMPUTE A ROUNDED = B*C +D l 长度益处处理(ON SIZE ERROR子句): MULTIPLY A BY B GIVING C ON SIZE ERROR DISPLAY ‘SIZE ERROR’ STOP RUN。 DISPLAY C。 l 当ROUNDED与ON SIZE ERROR一起使用时,先按ROUNDED做四舍五入再判断是否益出。 l 除法语句中的余数语句(REMAINDER子句): DIVIDE A INTO B ...
COMPUTE (Reserved Words) 100 (No Alphabet) 100+B (+ is not allowed) 等级数 级别数是用来指定数据的记录中的级别。它们被用于基本事项和基件之间进行区分。基本项目可以分组以创建组的项目。 级别数 描述 01 记录描述项 02 to 49 分组初级项目
01 D1 PIC S99V9.01 D2 PIC S99V9.01 S1 PIC S99.01 Y1 PIC S99V9.01 R1 PIC S99V9.DIVIDE D1 INTO D2 GIVING S1 R1 COMPUTE Y1 = R1 - S1 * D2 Y1就是余数
There are five COBOL statements that perform arithmetic: add, subtract, multiply, divide, and compute. The procedure division is the division in which the programmer provides the executable statements that carry out the functions the program is to perform. It has no pre-assigned section or ...