I am suspicious of the PIC S on ITEM-NUMB-OUT. X'C' is the zoned decimal positive sign.
On Thu, Oct 16, 2014 at 3:15 PM, Ron Thomas <ron5...@gmail.com> wrote: > Hi. > > We have the below layouts in the module > > AS-IS Version of the code > > 03 MIA-KEY. > 05 MIA-SUFFIX PIC X(2) VALUE 'IT'. > 05 MIA-ITEM-NUMBER. > 07 MIA-WPM-DEPT PIC 9(2). > 07 MIA-WM-DEPT PIC 9(2). > 07 MIA-ITEM-SEQ PIC X(5). > 05 MIA-KEY-FILLER PIC X(5) VALUE SPACES. > > TO-BE Version of the code > > > 03 MIA-KEY. > 05 MIA-SUFFIX PIC X(2) VALUE 'IT'. > 05 MIA-ITEM-NUMBER PIC 9(9). > 05 MIA-KEY-FILLER PIC X(5) VALUE SPACES. > > > 01 OUTFILE-REC. > 03 ITEM-NUMB-OUT PIC S9(9). > 03 MBM-CODE-OUT PIC X. > > This is how now we are seeing the data after moving to OUTFILE . Here we are > seeing the data not in the correct format. Please let me know do we need to > change any thing in the declaration ? > > > ITEM-NUMB-OUT MBM-CODE-OUT > 9/SNUM 1/AN > (1-9) (10-10) > 1------------ 2----------- > ********************************* > 00010091H P > FFFFFFFFC D > 000100918 7 > --------------------------------- > 00010192D M > FFFFFFFFC D > 000101924 4 > > Thanks > Ron T > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
