小编Fal*_*com的帖子

文件中的字帖错位

我正在尝试为我的数据文件创建一个副本结构.

部分数据如下所示

          C  0000.00                                                
Run Code Online (Sandbox Code Playgroud)

因为它有0000.00,在我的字帖中,我们宣布它为PIC 9(04)v9(02).

但是当我使用fileaid映射它时,我收到此错误

15 EF-PURCH-FEE-AMT           6/AN   0000.0         
15 EF-FILLER4               975/AN   0    
Run Code Online (Sandbox Code Playgroud)

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

我试图通过给出值为PIC ZZZ9V99来将图片子句定义为分区十进制.但它仍然涌入下一个领域.

预期结果.:

15 EF-PURCH-FEE-AMT           6/AN   0000.00        
15 EF-FILLER4               975/AN   0
Run Code Online (Sandbox Code Playgroud)

实际结果:

15 EF-PURCH-FEE-AMT           6/AN   0000.0         
15 EF-FILLER4               975/AN   0 
Run Code Online (Sandbox Code Playgroud)

截至目前的PIC定义:

15  EF-PURCH-FEE-AMT       PIC  ZZZ9V99.   
15  EF-FILLER4                PIC  X(975).  
Run Code Online (Sandbox Code Playgroud)

cobol mainframe zos

4
推荐指数
1
解决办法
83
查看次数

标签 统计

cobol ×1

mainframe ×1

zos ×1