try by providing the input values as A=0012 and B=003400 through the JCL SY

How to solve SOC7. I have the cobol coded as below

01 A PIC 9(4).
01 AIN REDEFINES A.
05 AIN1 PIC S9(4)
01 B PIC 9(4)V99.
01 BIN REDEFINES B.
05 BIN1 PIC S9(4)V99.

PROCEDURE DIVISION.
START-PARA.
INITIALIZE A AIN B BIN.
ACCEPT A B.
DISPLAY 'VALUE OF A=' A.
DISPLAY 'VALUE OF B=' B.
DISPLAY 'VALUE OF BIN1=' BIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.
COMPUTE AIN1 = BIN1 - AIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.

When i'm executing this code i'm getting SOC7 for A = 12 &
B=34. Can someone explain

SDSF OUTPUT DISPLAY TCOM058R JOB05458 DSID 102 LINE
0 COLUMNS 02- 81
COMMAND INPUT
===> SCROLL ===>
CSR
********************************* TOP OF DATA
**********************************
VALUE OF
A=12

VALUE OF
B=34

VALUE OF
BIN1=34

VALUE OF
AIN1=12

CEE3207S The system detected a data exception (System
Completion Code=0C7).
From compile unit PROG1 at entry point PROG1 at
statement 29 at compile
+000004CE at address 00007ECE.

Please address how to solve this issue Thanks in
advance.

Question Posted / guest

1 Answers
9215 Views
I also Faced
E-Mail Answers

Answer Posted / guest

try by providing the input values as A=0012 and B=003400 through the JCL SYSIN.

Is This Answer Correct ?

1 Yes

0 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?

2011

INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?

868

how do you reference the rrds file formats from cobol programs

1587

Difference between array and sub-script ?

1669

How you can read the file from bottom?

1160

how do you reference the fixed unblock file formats from cobol programs

1248

What kind of error is trapped by on size error option?

1250

What is the difference between binary search and sequential search?

1096

Explain how will you differentiate between an internal and an external sort, the pros and cons, internal sort syntax etc

1261

how do you reference the printer file formats from cobol programs

1227

How do define dynamic array in cobol.

1145

what happens if parmparameter passes zero bytes to the program

2140

How do we get current date from system with century in COBOL?

1384

Discuss about changing dataset name in proc.

1242

What is the difference between PIC 9.99 and 9v99 in COBOL?

1337