|
View previous topic :: View next topic
|
| Author |
Message |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Thanks for letting us know.
If you have not corrected where you identify non-numeric but still allow the field to be used later, you may have other problems with this. Test for numeric for user-entered data, excellent. Identify it as not numeric, then still use it, not so good. |
|
| Back to top |
|
 |
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
In your DISPLAYs, add delimiters, just like this:
| Code: |
| DISPLAY 'COST-CHG-PERCENT=<' COST-CHG-PERCENT '>' |
then when you see
| Code: |
| COST-CHG-PERCENT=<12 > |
you can immediately see that your number contains non-numeric characters (a.k.a. "junk")
It's as easy as it gets.
 |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
| sandeep kumar302 wrote: |
Hi Marso,
Oh i am sorry, actually later i changed it while testing. Anyways it is not working with both the formats.
The content of the ICCHGPCT file is -
| Code: |
Command ===>
=COLS> ----+----1
****** **********
000001 12 |
afte the 3 column, everything is empty and the Record length is 80( i have not pasted full LRECL here)
Code'd |
Most likely the editor filled with SPACES.
When you've tried the COMP-3 option, did you enter the hex code with the editor?
If yes, you would have seen that the last zeroes are important, the line starting with X'4001200F', as stated here:
| Code: |
01 IN-COST-CHG-FILE-RECORD.
05 FILLER PIC X(01).
05 COST-CHG-PERCENT PIC 9(3)V99 COMP-3.
05 FILLER PIC X(74).
|
All the rest should stay X'40' as in SPACES.
About that:
| sandeep kumar302 wrote: |
| the Record length is 80( i have not pasted full LRECL here) |
It takes less words to give the plain values:
| simply wrote: |
| LRECL(80) RECFM(FB) |
If the block size is relevant to the question, give it also: BLKSIZE(3120) for example, it's still shorter and it gives a better picture. |
|
| Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA
|
|
|
|
Marso,
IN-COST-CHG-FILE-RECORD is 78-Bytes.
The 74-Byte FILLER at the end needs to be PIC X(76) for an 80-Byte LRECL. |
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
My bad, added the COMP-3 word but forgot to recalculate the FILLER size.
It was late and I forgot my compiler at work.
 |
|
| Back to top |
|
|
|
|
