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
Write a cobol program making use of the redefine clause.
INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?
If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly
What are the pertinent COBOL commands?
Explain how to differentiate call by context by comparing it to other calls?
If you are current on the owner of a set, what is the difference between obtain next and obtain first?
What do you understand by psb and acb?
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 ......
What is the difference between comp and comp-3?
How to print 10 to 1 if the input have only 10 digit number?
Explain how you can characterize tables in cobol?
Write the code to count the sum of n natural numbers.
here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?
What is the utilization of copybook in cobol?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?