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.
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
example for sub strings ? and refernce modifications whit output pls
What are the different data types in cobol?
Name the divisions, which are available in a cobol program?
Have you used comp and comp-3 in your project? And how?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
) what is the difference between AID and HANDLE AID?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
What is a scope terminator give example?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
how do you reference the fixed unblock file formats from cobol programs
What are literals?
Discuss about changing dataset name in proc.
What is length is cobol?
Write some characteristics of cobol as means of business language.
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......