View previous topic :: View next topic
|
Author |
Message |
zh_lad
Active User
Joined: 06 Jun 2009 Posts: 115 Location: UK
|
|
|
|
Hi all,
I tried to use Search facility but could not find exact answer/solution.
01 WS-A PIC X(5)
01 WS-B PIC 9(5)
MOVE WS-A TO WS-B
I want to keep a test on WS-A, if this has got non numeric field then I want to move zeroes to WS-B. I am doing this to avoid S0C7 if bad data arrives.
Can I use function NUMVAL to prepare my solution?
Or, it would require verifying each CHAR on WS-A?
Many thanks,
zh_lad |
|
Back to top |
|
|
rz061m
New User
Joined: 03 Mar 2006 Posts: 48 Location: Chennai
|
|
|
|
More simpler approcah would be to Move WS-A to WS-B and perform IS NUMERIC check for WS-B. If it fails move ZEROS to WS-B else continue with your processing.
Let us know if you are looking for anything more on this. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Why not
Code: |
IF WS-A NUMERIC
MOVE WS-A TO WS-B
ELSE
MOVE ZERO TO WS-B
END-IF. |
|
|
Back to top |
|
|
zh_lad
Active User
Joined: 06 Jun 2009 Posts: 115 Location: UK
|
|
|
|
Thanks for quick reply. I will use keyword NUMERIC to test content. Many thanks. Cheers! |
|
Back to top |
|
|
|