1 如果你的意思是 MOVE 123 TO A，变量A的类型是 PIC 9(5)，且 A= 45678的话，那么赋值后的A=00123，如果A的类型是 PIC X(5) 的话，赋值后的A=’123 ‘2 应该是先执行段落然后再判断条件的 3 这个是先判断 在执行循环体 4 当读到最后一条记录时执行操作 希望满意 ...
MOVE DATE－CHANGETO DATE－DEC.由内部十进制转换为X(3)型 在进行相反的转换时，要消除因COB OL语言数据类型标志“C”引起的原日期数据前多加的一个0，所以需要将转换数据乘以10，再取出前6位数据即可。首先，在COBOL程序WORKI NG－STORAGE SECTION. ...
MOVE 语句用来实现内存中数据的传送(而不是内存和外设之间的传送)。 MOVE语句的一般格式为: MOVE 标识符1 TO 标识符2 [,标识符3]。。。 常量1 MOVE语句的传送规则: 1,如果接收项和发送项在数据部中描述的类型和长度相同,则按字节一一对应传送。 2,如果接收项和发送项长度不相同,而二者都是数值数据项,则按...
1。ADD语句：格式1：ADD 标识符1 ，标识符2。。。 TO 标识符m [，标识符n]。。。常量1 ，常量2 格式2：ADD 标识符1 ，标识符2 ，标识符3 常量1 ，常量2 ，常量3 。。。GIVING 标识符m [，标识符n]。。。2。SUBTRACT语句：格式1：SUBTRACT 标识符1 ，标识符2 。。。 FROM...
PROCEDUREDIVISION.ASECTION.A1.MOVE1TOIMOVE2TOJ.A2.ADDITOJ.BSECTION.…（过程部头）（A节）（A1段）（A2段）（B节）二、过程部的语句都以一个动词(verb)开始，如MOVE，OPEN，READ，WRITE，IF（IF在COBOL中也作为动词对待)。它表示计算机应执行的操作。如：MOVE100TOX.ADDYTOZ.IFX>100DISPLAYX.IFX>100...
这样就可以直接display “A=” A.结果就是 : A=汉字 要注意的是一个汉字占2个byte。2.主机环境 01 CS-AREA.03 FILLER PIC X(1) VALUE X'0E'.03 CS-A PIC G(2) USAGE IS DISPLAY-1.03 FILLER PIC X(1) VALUE X'0F'.MOVE G'汉字' TO CS-A.DIS...
MOVE STR-1 OF A-AREA(1:4) TO STR-1 OF B-AREA(1:4). 2、显示语句DISPLAY a.向控制台打印显示的信息(如果程序基于opentp1环境,该信息将写到opentp1的log文件中). DISPLAY “DISPLAY RESULT:” STR-1 “@@”. b、输出一个环境变量名。 DISPLAY WK-ENV-NAME UPONCNS-ENV-NAME. 3、接受语句ACCEPT...
F0 F4 F8 40 第二题 X PIC 9(6) Comp-3 VALUE 112358.Y PIC 9(7) Comp-3.Z PIC X(4).MULTIPLY X BY 10 GIVING Y.MOVE Y TO Z.Z就是不带符号位的压缩十进制数据 第三题 ws-edit1：00 00 ws-edit2：00 00 0C ws-edit3：F0 F0 F0 C0 ...
1.相当于其他语言的变量eg.X (内存单元名) MOVE 2 TO X 2.数据名的定名规则(1)每个数据名的长度为1-30个字符之间。(2)只能由字母̖数字和连接符“-”组成,而且其中至少应有一个字母。连接符只能出现在数据名的中间。(3)数据名中不能出现空格。
MOVE ALL“X”TO STRING-A(2:10) (将变量STRING-A第2位开始10长度的内容全赋为”X”字符) b数值型 种类 类型 说明 备注 DISPLAY 9(m) 无符号整数,每位占用一个字节,显示或输出到文件时,为零的数位显示”0” (1<=m <=18) 例如: 01 I PIC 9(8). 变量I占用8个字节。 I = 1时,输出显示时为...