VSCode(WSL-Ubuntu)中GnuCOBOL的ACCEPT语句无法输入小数问题

问题说明 #

在VSCode的WSL-Ubuntu环境下使用GnuCOBOL编写程序时，遇到ACCEPT命令无法输入带小数点数值的问题：定义了PIC 9(5).99的数值型变量，尝试输入55.50时，程序不接受小数点输入。

原代码 #

identification division.
   program-id . "numeric".
   author.
   environment division.
   data division.
   working-storage section.
   77 WAITING PIC X.
 
   01 num1 pic 9(5).99 .
   screen section.
   01 CLEAR-SCREEN.
       02 BLANK SCREEN. 
   procedure division.
       perform proc-numeric.
       STOP RUN.
   proc-numeric.
       DISPLAY  "NUM 1 : " LINE 5 COL 1 
       ACCEPT NUM1 LINE 5 COL 20 background-color 2.

       display "num1: " line 9 col 1
       DISPLAY NUM1  LINE 9 COL 40.    
       accept waiting LINE 20 COL 4.

原因分析 #

GnuCOBOL中，使用带屏幕定位（LINE/COL参数）的ACCEPT语句接收数值型变量时，默认采用无格式数值输入模式：程序会根据变量的PIC子句自动划分整数和小数部分，不需要手动输入小数点。此时输入小数点会被视为非法字符，导致无法输入。

比如PIC 9(5).99定义的变量，需要输入7位数字（5位整数+2位小数），程序会自动将前5位作为整数部分，后2位作为小数部分，自动插入小数点。

解决方案 #

方案1：按默认规则输入 #

直接输入完整的数字序列，无需手动输入小数点：

• 要输入55.50，直接输入0005550（补前导零凑够7位），程序会自动解析为55.50；
• 若省略前导零，输入5550，程序会右对齐填充前导零，得到00055.50。

方案2：允许手动输入小数点 #

如果需要支持手动输入小数点，可以使用编辑型变量配合WITH EDITING子句，具体修改如下：

identification division.
   program-id . "numeric".
   environment division.
   data division.
   working-storage section.
   77 WAITING PIC X.
 
   01 num1 pic 9(5).99.
   01 num1-edited PIC 9(5).99.  // 定义编辑型变量，匹配显示格式
   screen section.
   01 CLEAR-SCREEN.
       02 BLANK SCREEN. 
   procedure division.
       perform proc-numeric.
       STOP RUN.
   proc-numeric.
       DISPLAY  "NUM 1 : " LINE 5 COL 1 
       // 使用WITH EDITING接受带格式的输入
       ACCEPT num1-edited LINE 5 COL 20 background-color 2 WITH EDITING.
       MOVE num1-edited TO num1.  // 将编辑型变量转换为数值型变量

       display "num1: " line 9 col 1
       DISPLAY num1 LINE 9 COL 40.    
       accept waiting LINE 20 COL 4.

修改后，即可手动输入带小数点的数值（如55.50），程序会正确解析到编辑型变量，再通过MOVE语句转换为数值型变量用于后续计算或处理。

内容的提问来源于stack exchange，提问作者joven