Interested to Buy Any Domain ? << Click Here >> for more details...
soc-7 is a bad data,invalid data.
when ever we are moving the alphabets in the position of
numeric then we got this abend. so my question is if
o1 ws-data pic 9(1) value passing the alphabet some x. then
we got soc-7 or not? i want clarification ?
- 7 Answers
- 12897 Views
- CitiGroup, IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / manju
Hi,
Sruthi's answer is completely wrong.
Guys, If you are not clear with the answer then please dont
post it. This website is refered by many and you may lead
them to wrong direction. Even if you post when you are not
clear, then mention it clearly that you are not sure about
the answer and ask somebody else's suggestion to correct if
that is wrong. Dont post the wrong answer as such you are
sure.
The answer for the above question is:
Yes, S0C7 is data exception, However it is no where related
with move statement. Move statement (Alphanum or Alpha to
Num) and (Num to Alphanum or Alpha) never give you any
abend or error. The move happens either ways.
the simple answer for the above question is "No" you wont
get any abend for the above move statement.
S0C7 comes only when you use Alphabetic feild for
arithmatic operation OR a Numeric feild containing an
alphabet and used for arithmatic operation.
I dont think i am wrong here.. If anybody feels please
correct me.
Thanks,
Manju.
| Is This Answer Correct ? | 10 Yes | 3 No |
Answer / mridul
Hi all,
i think we will not get SOC 7, but we will get error while
moving alphabetic value to numeric field.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / jaganmohanreddy
hai manju u said for arthimatic expressions we will get
this abend not only for this when u trying to read file in
cobol it has alphanumeric data but the corresponding field
described in file description has 9(5) something numeric
pic clause we will get this abend just check it once u have
any doubt so soc7 is for invalid data , when u try with
move statemets with data exception u will get runtime error
check it also once, and u said numeric field containg
alphabet using for arthimatic exp then we will get this ,i
have one doubt how numeric filed will contail alphabetic
data just clear my doubt please
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / tania
So Manju u mean to say if we try to move spaces to Numeric
field (PIC 9(5) for ex) u wont get any abend ??
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sruthi
Hi,
we can pass numeric data to alphanumeric.bcz x accept
both numerica alphabets.
if we pass numerics to alphebets like 9 to a we will get
that kind of error.
| Is This Answer Correct ? | 4 Yes | 9 No |
period is missing in the cobol program which error we getting
we can use set true for condition names.. similarly can we code set to false in cobol pgm? will it work?
what if any ,is the syntex error in the following piece of code 01 B PIC A(7) 02 C PIC 9(4) ........ IF(B NUMERIC) ADD 10 TO C a.the condition in the if statement is wrong b.noting is wrong c.because C is initialised.ADD 10 TO C is wrong d.both B and C shoud have same size.
What are the different ways to run a COBOL DB2 program using JCL?
What is sqlca and why is it needed in any cobol-db2 program?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
Read a flat file and write last but one (I have n records in a file I have to write n-1th) record in another flat file. Could you please provide me the code in COBOL?
What is an index for tables?
what are the diferences b/w sub-script and index?
What is SSRANGE, NOSSRANGE ?
How to read the last 100 records from a COBOL file. The file contains N number of records.
In a COBOL program, 2 tables TABLE1 and TABLE2 are defined that are indexed by INDEX1 and INDEX2 respectively. Can we use INDEX1 with TABLE2 and INDEX2 with TABLE1?
COBOL 
