对于整数来说 这样一条语句就可以求余了 除的运算尽量不要用 DIVIDE DIVIDE求余要用remainder
A.PIC X(6) VALUE "'ABCD'".说明:VALUE后依次为空格双引号单引号ABCD单引号双引号 B.PIC X(6) VALUE''ABCD''.说明:VALUE后依次为空格单引号单引号ABCD单引号单引号 C.QUOTE ’ABCD’ QUOTE 11、COBOL对文件的操作以为单位的(B) A.整个文件B.记录C.字段 12、pic 9(3) comp-3在内存中占几BYTE?(A...
PIC即PICTURE的缩写。PIC子句用来描述每一个初等项。 它说明:(1)数据项是什么类型。(2)数据项占多大内存域。(3)是否需要按打印的要求准 备有关字符。PIC子句的主要作用在于描述一个初等项的一般特征和编辑要求。 1.数值型数据的描述: ‘9’描述符:表示该位置上可以放入一个0 ~ 9之间的数字。因此: 01 APIC...
要使用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 ...
COBOL常用操作
1. 用于顺序检索的SEARCH语句 a）01 WORKER-REC.02 WORKER-TABLE OCCURS 50 TIMES INDEXED BY N.04 NUMB PIC 9(4).04 NAME PIC X(20).04 AGE PIC 9(3).SET N TO 1. (N必须为位标)SEARCH WORKER-TABLE AT END DISPLAY ‘CANNOT FIND NAME’WHEN NAME(N) = ‘CHANG SAN’DISPLAY ...
PIC Axsd:string PIC Gxsd:string在視窗>喜好設定>匯入器>COBOL中,將編譯時期語言環境名稱設為 ja_JP 以處理此問題。 PIC Nxsd:string在視窗>喜好設定>匯入器>COBOL中,將編譯時期語言環境名稱設為 ja_JP 以處理此問題。 PIC Xxsd:string PIC 9 (n) n = 1-4xsd:shortDISPLAY、COMP 或 COMP-3 ...
//blog.sina.com.cn/s/blog_78d05bb10100pffv.html 1.FUNCTION 语句实现字符串中字母大小写的转换。其关键之处是在该语句后加上LOWER-CASE,或者UPPER-CASE选项。下面的代码使用LOWER-CASE选项，将字符串中的字母全部转换为小写格式。DATA DIVISION.WORKING-STORAGE SECTION.01 SOURCE-STR PIC X(5).
10 CUSTOMER-NAME PIC X(50). In this context, the “CUSTOMER-TABLE” represents an array or table with the capacity to hold up to 100 occurrences of “CUSTOMER-INFO.” Each “CUSTOMER-INFO” occurrence consists of two fields: “CUSTOMER-ID” and “CUSTOMER-NAME.” This setup offers an ef...
01 COUNTNUM PIC 9(02).01 NUM PIC X(36).01 NUMR REDEFINES NUM.03 NUMAREA OCCURS 9 05 NUMA PIC 9(02).05 NUMB PIC X(02).MOVE SPACE TO NUM.PERFORM VARYING IDX1 FROM 1 BY 1 UNTIL IDX1 > 9 PERFORM VARYING IDX2 FROM 1 BY...