BINGO!!!!
Validating the fields and not moving them if they failed ran the program to the end of the data.
I appreciate everyone's help!!!
Thanks ~ Saphyr
Rob~
No I am not certain that the data is numeric.
I will try validating the input fields.
This is a new toy to me, when the MCH1202 occurs (I am assuming it will still occur while I validate) I use G to continue, should this complete the run or just the next record?
I have had both happen...
I took baby steps. I used the read into with a detail-line defined as with a pic X(80). And it worked fine. This is the detail-line I need
FD CUSTOMER-DATA
LABEL RECORDS ARE STANDARD.
01 CUSTOMER-RECORD.
05...
I did try the implied decimal in the output, no go.
I want the output to be an edited field, it really should not be an issue because this is a simple read, write and count program. There are no calculations in the program other than counting records and occurances, so that decimal should not...
I WOULD APPRECIATE ANY HELP ON THIS.
FD
01 CUSTOMER-RECORD.
05 SALESPERSON-NO-IN PIC 999.
05 SALES-AMT-IN PIC 999V99.
WS
01 DETAIL-LINE.
05 SP-NO-OUT PIC 999.
05 SALES-AMT-OUT PIC 999.99.
IN THE PROCEDURE DIVISION THE LINES THAT SEEM TO
CAUSE THE MCH1202...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.