标签: netcobol

除了特定的平台和编译器之外，假设您使用报告编写器模块在 COBOL 程序中定义了这一点：

01 CF-MM TYPE CONTROL FOOTING WS-MM.
             02 LINE PLUS 1.
                03 COLUMN 1             VALUE "* CF MONTH: ".
                03 COLUMN PLUS 1        PIC 99 SOURCE WS-MM.
                03 S-MM COLUMN PLUS 5   PIC S9(4)V99 SUM WS-TUTION-PAY. 
                03 VAL-NN COLUMN PLUS 5 PIC S9(4)V99 SOURCE S-MM.
      <...>
       PROCEDURE DIVISION.
       DECLARATIVES.  
           
        SEC2 SECTION.
            USE BEFORE REPORTING 
            CF-MM.
            DISPLAY "SUM MM LEVEL:" S-MM   
           .

此外，假设程序报告了 3 行，其中 SUM WS-TUTION-PAY 结果为 126。

SEC2 SECTION 中显示 S-MM 值的语句产生的值是多少？我猜应该是 126，但我显示的是 0。这可能是因为值 126 尚未移动到 S-MM，但我不确定。 …

我正在寻找Visual Basic的MID功能的COBOL替代品.我需要做的是从前8个字母中取出8个字符串并将它们连接起来.

我正在使用富士通COBOL.

非常感谢,

伊凡

picture子句定义DISPLAY命令输出到控制台的格式.有没有办法将格式化的字符串"输出"到变量？像下面的东西,但有效的东西.以下是由图片转换并以货币格式存储在字符串中的数字的任意示例.

IDENTIFICATION DIVISION. 
 PROGRAM-ID.    Demo1234. 
 ENVIRONMENT DIVISION. 
 DATA DIVISION. 
 WORKING-STORAGE SECTION.
 01  Price           Pic     $$$,$$9.99.
 01  Formated-Output Pic     X(10).

 PROCEDURE DIVISION. 

     Move 10.50 to Price.
     Display Price Upon Formated-Output.
     *> Formated-Output would now contain "$10.50    "
     GOBACK.