Interested to Buy Any Domain ? << Click Here >> for more details...
I have a field with data type X(10). I want to perform
arithmetic operation on this field? I tried doing it by
moving the value into a numeric field. but it didn't work
out. I am getting a S0C7 abend. Pls let me know if there is
any way of getting this done?
- 2 Answers
- 5593 Views
- ADP, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Use REDEFINE.
Example:
01 NUMBER-X PIC X(10).
01 NUMBER-N REDEFINES NUMBER-X
PIC 9(10).
COMPUTE A = NUMBER-N + B
This will surely work.
| Is This Answer Correct ? | 6 Yes | 0 No |
Answer / anonymous
You cant perform any arithmetic operationon alphabetic and
alphanumeric data items . If u try to perform u ll get SOC7.
| Is This Answer Correct ? | 2 Yes | 0 No |
In COBOL "BEFORE" advancing is there or not ?
Name the sections present in data division.
In a COBOL II PERFORM statement, when is the conditional tested, before or after the perform execution?
01 WS-NAME PIC X(10) OCCURES 2. by this we can get ws-name 2 times. My qustion is how can we access the second name
i need the code for this program in cobol. 2 + 1 = 3 4+3=7 6+5=11 8+7=15 10+9=19
if i am reading a file with some 50000 records and moving to a DB2 table and suddenly the program abends in between, is there anyway i could restart from the exact record at which the job failed once the program restarts.
What is amode(31)
What is the difference between static call & Dynamic call?
Can the OCCURS clause be at the 01 level?
How will 128 be saved in s9 (3) comp-3 How will 12 be saved in s9 (2) comp
What is ASKTIME, SUSPEND
I hv ten records in ps file and i hv say some 15 records in vsam file .i hv empno and age in ps file n empno,empname,dept n desig in vsam file. i hv 2 read the ps file n check wid matching empno in vsam file and then insert all fields from ps and vsam into db2 table....plz help in writin the procedure division
COBOL 
