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
9178 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

Can we change the password using ALTER? anyone tried and changed?

1986

how do you reference the variable block file formats from cobol programs

1226

Whats the difference between search & search ALL?

6486

How many sections are there in data division in COBOL?

1112

What is the difference between comp and comp-3?

1169

What is length is cobol?

1083

Explain about different table spaces.

1079

what are decleratives in cobol?

2239

System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..

2047

What are different data types in cobol?

1287

Are you comfortable in cobol or jcl?

1026

What is the local-storage section?

1130

) what is the difference between AID and HANDLE AID?

2136

I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?

2259

What the difference is between continue and next sentence?

1140