要使用COBOL读取输入数据并生成九九加法表，你可以使用以下语句将公式排列成金字塔形式：```cobolIDENTIFICATION DIVISION.PROGRAM-ID. NINE-NINE-ADDITION.DATA DIVISION.WORKING-STORAGE SECTION.01 ROWS PIC 9 VALUE 9.01 COUNTER PIC 9 VALUE 1.01 MULTIPLIER PIC 9 VALUE 1.01 MULTIPLICAND PIC 9 ...
那就要用MOVE ALL了,比如MOVE ALL SPACE TO WS-A,那么WS-A空间将会全被填充为空格。 MOVE ALL有几个特性: MOVE ALL后面的常量只能是一个字符。 MOVE ALL后面跟的只能是COBOL定义的常量(如SPACE,ZERO等等)和字面常量(就是单双引号中的字符,如'A','*')。MOVE ALL后面不能跟数据项,比如MOVE ALL WS-B TO...
· 主程序STOP RUN.· 子程序GO BACK.5 、变量类型COBOL 程序的基本变量类型分为两大类字符串型(X)、数值型(9) 。a 字符串型01 STRING-APIC X(100).100 个字符长的变量,程序可以局部操作一个变量( STRING-A(start: length) 如:MOVE ALL “ X” TO STRING-A(2:10)(将变量STRING-A 第 2 位开始...
1. Words in all capital letters indicate COBOL reserved words, such as statements, phrases, and clauses; acronyms; configuration keywords; environment variables; and RM/COBOL Compiler5, Runtime, and Recovery Command line options. 2. Bold lowercase letters represent names of files, directories, ...
MOVE语句用来实现内存中数据的传送(而不是内存和外设之间的传送)。 MOVE语句的一般格式为: MOVE标识符1 TO标识符2 [,标识符3]。。。 常量1 MOVE语句的传送规则: 1,如果接收项和发送项在数据部中描述的类型和长度相同,则按字节一一对应传送。 2,如果接收项和发送项长度不相同,而二者都是数值数据项,则按小数...
MOVE语句的一般格式为:MOVE 36、0; 标识符1 TO 标识符2 ,标识符3。常量1MOVE语句的传送规则:1,如果接收项和发送项在数据部中描述的类型和长度相同,则按字节一一对应传送。2,如果接收项和发送项长度不相同,而二者都是数值数据项,则按小数点对齐处理。3,对字母或字符数据(非数值型数据)的传送,按左对齐处理...
当然可以 为什么会这样你知道原因嘛？那是因为你PIC 9(9)的原因导致。至于该怎么定义 我忘记了， 脱离COBOL好多年了。。你可以再查查。、
、变量类型 COBOL 程序的基本变量类型分为两大类字符串型 (X) 、数值型 (9)。 a 字符串型 01 STRING-A PIC X(100). 100 个字符长的变量,程序可以局部操作一个变量 ( STRING-A(start: length) 如: MOVE ALL “X” TO STRING-A(2:10) (将变量STRING-A 第2位开始10长度的内容全赋为””字符) ...
COBOL程序的基本变量类型分为两大类字符串型(X)、数值型(9)。 a字符串型 01 STRING-A PIC X(100). 100个字符长的变量,程序可以局部操作一个变量( STRING-A(start: length)如: MOVE ALL “X” TO STRING-A(2:10) (将变量STRING-A第2位开始10长度的内容全赋为”X”字符) b数值型 种类 类型 说明...
MOVE '12ABC56DEF34GHI78JKL93MNO11PQR' TO WS-TABLE. SEARCH ALL WS-RECORD AT END DISPLAY 'RECORD NOT FOUND' WHEN WS-NUM(I) = 93 DISPLAY 'RECORD FOUND ' DISPLAY WS-NUM(I) DISPLAY WS-NAME(I) END-SEARCH. 复制 JCL执行上述 COBOL 程序 - //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MS...