type-conversion - COBOL 数据类型转换 : Convert date in DDMMYY to a packed decimal of 3-bytes

Question

我有一个要求，我想将数字格式的日期 (DDMMYY) 移动到 3 个字节的压缩十进制/comp-3 中。必须将日期移动到只为其分配 3 个字符/字节的文件中。这是我尝试过的。

 03  WD-DDMMYY-DT-NUMERIC         PIC 9(06).      
 03  WD-DDMMYY-DT-COMP3           PIC S9(06) COMP-3.
 03  WD-DDMMYY-REDF  REDEFINES WD-DDMMYY-DT-COMP3.
     05  WD-3CHARS-DT-COMP3       PIC X(03).      
     05  FILLER                   PIC X(01).    


Move WD-DDMMYY-DT-NUMERIC         to  WD-DDMMYY-DT-COMP3  
Move WD-3CHARS-DT-COMP3           to  file-variable -->  X(03)         

我没有在输出中获得所需的值。怎么做到的？

Answer 1

Bills 答案是正确的，但我会尝试使用日期 150131(2015 年 1 月 31 日)给出更直观的答案

如果您将字段声明为

  05  WD-DDMMYY-DT-NUMERIC             PIC 9(06) comp-3.  

然后 150131 在 WD-DDMMYY-DT-NUMERIC 中存储为 x'01 50 13 1c' 占用 4 个字节。但是如果你像这样声明字段

  05  WD-DDMMYY-DT-NUMERIC             PIC 9(06)V9 comp-3.  
  05  FILLER    REDEFINES      WD-DDMMYY-DT-PD.
      10  WD-BCD                       PIC X(03).

然后 150131 存储在 WD-DDMMYY-DT-NUMERIC 中作为 x'15 01 31 0c' 再次占用 4 个字节，但 WD-BCD 保存 x'15 01 31 ' 包含所有日期，长度为 3 个字节