DSXchange

Posted: **Thu Sep 27, 2007 11:25 am**

My Mainframe guy gave a text file that had the COBOL FILE DEFINITION
and few columns are like this

10 XF-PRIM-REG-ID PIC +9(02)V9(06).
10 XF-PRIM-REM-ID PIC +9(03)V9(06).

It has a + sign in PIC 9. Is this a correct CFD anyway, because I am not able to import this CFD from Manager. I know I can keep that extra + sign by defining a new filler as PIC X(1), but my question is more from COBOL perspective if this is a correct generation. Any comments?

Posted: **Thu Sep 27, 2007 4:16 pm**

Not something I've seen. You could perhaps work around it by changing the FD.

Code: Select all

10 XF-PRIM-REG-ID-FLD.
    15 XF-PRIM-REG-ID-SIGN PIC X.
    15 XF_PRIM-REG-ID PIC 9(02)V9(06). 
10 XF-PRIM-REM-ID-FLD.
    15 XF-PRIM-REM-ID-SIGN PIC X.
    15 XF-PRIM-REM-ID PIC 9(03)V9(06).