在COBOL中,COMP是一种数据类型修饰符,用于定义变量的存储格式。COMP值为零表示使用二进制整数格式存储变量。 具体来说,当一个变量的数据类型为COMP时,它将以二进制整数的形式存储在内存中。...
(类似格式用于COBOL的ASCII版本,但不是标准化的。) COMP-3 是二进制编码的十进制,尾随符号为nybble。 PIC 9(3) COMP-3 VALUE 123 成为两个字节12 3F。 COMP 或 BINARY 是原生二进制格式,就像C中的 short , int 或 long 一样。
ADDRESS 专用寄存器可用于指针引用和指针值,而 LENGTH 专用寄存器可用于采用data-value的长度参数。 下表指示如何定义正确的数据类型。 数据类型COBOL 定义 半字二进制PIC S9(4) COMP 全字二进制 (包括 CVDA)PIC S9(8) COMP 双字二进制PIC S9(18) COMP ...
05 TRAN PIC X(7) VALUE SPACES. 05 NAME PIC X(30). 05 ACCNUM PIC X(6). 01 OUTPUT-AREA. 05 LLO PIC S9(4) COMP VALUE ZERO. 05 ZZO PIC S9(4) COMP VALUE ZERO. 05 ACCBAL PIC S9(7)V9(2) COMP-3. 01 IMS-VALUES. 02 END-OF-MSG PIC X(2) VALUE 'QD'. 02 QUEUE-EMPTY ...
在COMP-3 或 PACKED-DECIMAL 資料定義中使用奇數位數 使用此規則,為宣告為類型COMP-3或PACKED-DECIMAL且不包含奇數位數的任何資料定義加上旗標。 使用二進位下標 使用此規則來標示具有下列性質的任何資料項目: 它用來作為下標,以存取表格元素。 它不是以COMP、COMPUTATIONAL或BINARY的用法來宣告。
05 DEPOSITS-SUB PIC 99 USAGE IS COMP. 将下标定义语句加入到表的基本结构定义语句中就可定义一个下标表了。对于上节零存整取系统的例子而言,完整的下标表的定义语句如下。 01 ANNUAL-DEPOSIT-TABLE. 05 DEPOSITS PIC 9(5) OCCURES 12 TIMES. 05 DEPOSITS-SUB PIC 99 USAGE IS COMP. ...
首先，在COBOL程序WORKING－STORAGE SECTION.中定义如下内容：WORKING－STORAGE SECTION.01DATE－CASE.02DATE－FIRST PIC X(3).02DATE－SIGN PIC9(4)COMP VALUE12.；定点二进制数 01DATE－CHANGE REDEFINES DATE－CASE PIC9(9)COMP－3.；内部十进制数据 01DATE－HEX PIC X（3）.；转换前数据 01DATE－DEC PIC...
02 STATUS-CODE PIC X(5) VALUE SPACE. 02 FILLER PIC X(3). 02 FLAGS PIC S9(9) COMP VALUE ZERO. 02 FILLER PIC X(3). CALL 'CBLDCADM' USING ADM-ARG. 如果SUP常驻OPENTP1下,该函数向OPENTP1报告注册信息。(不常驻OPENTP1下的SUP程序不调用该函数) ···RPC CALL(遠隔サービスの要求) 01 ...
具体用法如:ACCEPT WS-DATE FROM SYSTEM-DATE. (2)DISPLAY 2.算数运算 (1)MOVE 一般搭配To使用 赋值语句 MOVE A TO B 把A的值赋给B (2)DIVIDE 除法运算 (3)COMPUETR X = A ?B 加减乘的运算都可以使用此语句。不同的运算只需要改变占位符中的类型。除法运算是不能使用这个语句的。 3...
02 DATE-SIGN PIC 9(4) COMP VALUE 12.;定点二进制数 01 DATE-CHANGE REDEFINES DATE-CASE PIC 9(9) COMP-3. ;内部十进制数据 01 DATE-HEX PIC X(3). ; 转换前数据 01 DATE-DEC PIC S9(7)COMP-3 . ; 转换后数据 然后,在过程部PROCEDURE DEVISION.中加入如下语句: ...