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 [email protected] with the message: INFO IBM-MAIN
