要使用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 ...
a) COBOL 变量定义需要加层号(表示层次关系),· 层号从 01 开始如 : 01IPIC X(10).· 组合项如 : 01 WORK-AREA.05 NUM-1 PIC 9(09).1705 STR-1PIC X(10).b) 层号依次排列顺序为:01 ,05,10,15,20,30 4、3; ···c. 连接节子程序的参数的定义。4 、 过程部 (PROCEDUREDIVISION...
首先，确定输入跟输出的变量，在这个例子中，是由画面输出，所以在MAP上就有变量对应。我们在DATA部定义输入输出的变量 01 test-area.03 input-area.05 PATIENT-NAME pic x(20).05 LUNG-INFECTION pic 9(01).05 TEMPERATURE pic 9(01).05 SNIFFLES pic 9(01).05 S...
01是层号，层号可以从01到49，数字越小，级别越高，像上面这段代码，01由下面的6个02层组合而成。002490 02 PIC 9(9) COMP-5 VALUE 6.elementary item，谭浩强老师把它翻译为初等项，你可以理解为结构体中的一个成员，这个成员是最基本的了，即这个成员不再由别的什么成员组合而成。这个成员不...
01 名称 PIC S9(4) COMP-5.16 位带符号整数 INTEGER (496 或 497) 01 名称 PIC S9(9) COMP-5.32 位带符号整数 BIGINT (492 或 493) 01 名称 PIC S9(18) COMP-5.64 位带符号整数 DECIMAL(p,s) (484 或 485) 01 名称 PIC S9(m)V9(n) COMP-3.压缩十进制 ...
这里是一个简单的 COBOL 代码示例,用于计算两个数字的和: ``` IDENTIFICATION DIVISION. PROGRAM-ID. AddNumbers. ENVIRONMENT DIVISION. INPUT-FILE. None. OUTPUT-FILE. None. DATA DIVISION. WORKING-STORAGE SECTION. 01 Num1 PIC 9(5). 01 Num2 PIC 9(5). 01 Sum PIC 9(5). PROCEDURE DIVISION. ...
DATA DIVISION中的FILE SECTION里定义文件的field时， 把相应的字段定义为数字型的就可以了。比如FILE SAMPFILE中一个RECORD的长度是40，你想把前五位读成数字型:DATA DIIVISION.FILE SECTION.FD SAMPFILE.01 SAMPFILE-REC.05 SAMPFILE-NUM PIC 9(8).05 FILLER PIC X(32)....
01 wa-area pic x(9).move trim(' HELLO ',leading) to wa-areawhen wa-area displayed it will be 'HELLO ' But what happens with TRAILING or BOTH Select all 01 wa-area pic x(9).move trim(' HELLO ',trailing) to wa-areawhen wa-area displayed it will be ' HELLO ' The only solutio...
01 TOTAL-STUDENTS PIC9(5) VALUE '125'. | | | | | | | | | | | | Level Number Data Name Picture Clause Value Clause 复制 数据名称 数据名称必须在数据部门中定义,然后才能在过程部门中使用。它们必须有一个用户定义的名称;不能使用保留字。数据名称引用存储实际数据的内存位置。它们可以是基本类型...
定义数组从后面往前看，第一个不为空格的数据停，所处的位置就是这条数据的长度 01 INDATA PIC X(200).01 WK-DATA.05 WK-DATA-B PIC X(001) OCCURS 200 01 I PIC 9(004).01 FLG PIC X(001) VALUE '0'MOVE INDATA TO WK-DATA MOVE 200 TO I PERF...