如何在 COBOL 中创建空格和破折号

Question

我的 COBOL 作业遇到了一些麻烦。我必须编写一个程序来写出人们的姓名及其社会安全号码。基本上我有玩具让像 123456789 这样的数字显示为 123-45-6789，像 JSDOE 这样的名称显示为 JS DOE。有人可以帮我吗？

Answer 1

你应该做类似的事情。

01 toyNumber pic 9(9).

01 yourNumber.
   03 a pic x(3).
   03 b pic x(2).
   03 c pic x(4).

01 outNumber.
   03 a1     pic x(3).
   03 filler pic x    value "-".
   03 b1     pic x(2).
   03 filler pic x    value "-".
   03 c1     pic x(4).      

并在程序中：

   move 123456789 to toyNumber.
   ....
   move toyNumber to yourNumber.
   move a to a1.
   move b to b1.
   move c to c1.

   display outNumber.  

或者，如果您的作业允许，您可以使用“相应移动”。

希望这有帮助！

PS：名字的技巧是一样的......

Answer 2

科博尔！！

我是在很久之后才写这篇文章的。因此，请谨慎行事。像这样的事情可能会起作用：

01 SSN.
    03 SSN-FIRST         PIC X(03) VALUE SPACES.
    03 SSN-FDASH         PIC X     VALUE "-".
    03 SSN-MIDDLE        PIC X(02)   VALUE SPACES.
    03 SSN-MDASH         PIC X       VALUE "-".
    03 SSN-LAST          PIC X(04)   VALUE SPACES.

01 NAME.
    03 FNAME         PIC X(10)   VALUE SPACES.
    03 FDASH         PIC X     VALUE SPACES.
    03 FMIDDLE      PIC X(10)   VALUE SPACES.
    03 MDASH         PIC X     VALUE SPACES.
    03 FLAST      PIC X(10)   VALUE SPACES.

Answer 3

更现代（不那么古老？）的方法：-

STRING SSNUMBER(1:3) DELIMITED BY SIZE
       '-'           DELIMITED BY SIZE
       SSNUMBER(4:5) DELIMITED BY SIZE
       '-'           DELIMITED BY SIZE
       SSNUMBER(6:9) DELIMITED BY SIZE
 INTO PRINTFIELD.

Answer 4

接收数据项的PICTURE 中的B 将在MOVE 期间插入一个空格。对于名称，只需 MOVE 即可。对于数字，空格可以用连字符代替。

       data division.
       working-storage section.
       1 num-in pic 9(9) value 123456789.
       1 num-out pic 999B99B9999.
       1 name-in pic x(5) value "JSDOE".
       1 name-out pic XBXBXXX.
       procedure division.
           move num-in to num-out
           inspect num-out replacing all space by "-"
           move name-in to name-out
           display num-out
           display name-out
           stop run
           .

输出：

123-45-6789
J S DOE