|
View previous topic :: View next topic
|
| Author |
Message |
rajeshwarch
New User
Joined: 24 Mar 2008
Posts: 29
Location: mumbai
|
|
|
|
Hi,
I need clarification on below issue:
Program A is calling Program B using the group variable ws-group defined like below.
01 ws-group.
05 ws-part1 pic 9(7).
05 ws-part2 pic 9(7).
Assume that this is present in a copy book and due to some changes ws-part2 has changed to X(7). for this change only program B had recompiled.
so in program A the ws-part2 declaration is numeric and in program B it is Alphanumeric.
while calling the program B no data is present in the ws-part2 and in program B the ws-part2 is loaded with some Alphanumeric data like 'ABCD123'. once the control is back to programA, whether it give any abends or process normally since the ws-part2 declaration is numeric and it holding the Alpha numeric data.
Please clarify whether it give any abends or process normal. |
|
| Back to top |
|
 |
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
Your example will not abend.
This type of topic has been discussed many times in this forum, if you try to search the Cobol forum for NUMERIC, you should find a number of topics with answers for your question. If you still don't understand, ask again. |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
| Quote: |
| due to some changes ws-part2 has changed to X(7). for this change only program B had recompiled. |
even though using PIC 9 is the same as using PIC X,
you have idiots making decisions in your organization. |
|
| Back to top |
|
|
|
|
