Fileaid中的字帖未对齐

时间:2018-12-31 17:44:34

标签: cobol mainframe zos

我正在尝试为我的数据文件创建一个抄写本结构。

部分数据如下所示

          C  0000.00                                                

由于它的抄写本为0000.00,因此我们将其声明为PIC 9(04)v9(02)。

但是当我使用fileaid映射它时,会出现此错误

15 EF-PURCH-FEE-AMT           6/AN   0000.0         
15 EF-FILLER4               975/AN   0    

小数点被视为另一个字节,最后一个零溢出到后续字段

我也尝试通过将值指定为PIC ZZZ9V99来将picture子句定义为带区小数。但是它仍然蔓延到下一个领域。

预期结果。 :

15 EF-PURCH-FEE-AMT           6/AN   0000.00        
15 EF-FILLER4               975/AN   0

实际结果:

15 EF-PURCH-FEE-AMT           6/AN   0000.0         
15 EF-FILLER4               975/AN   0 

到目前为止的PIC定义:

15  EF-PURCH-FEE-AMT       PIC  ZZZ9V99.   
15  EF-FILLER4                PIC  X(975).  

1 个答案:

答案 0 :(得分:8)

请参考数据定义的documentation for the PICTURE clause。在那里,您会发现V是假定的或虚拟的小数点,而不是物理的小数点。您可以通过...获得理想的结果

['hello', 'stackoverflow', 'world']

[[1 0 1]
 [2 1 0]]