Why is it necessary that file needs to be opened in I-O mode for REWRITE?
No Answer is Posted For this Question
Be the First to Post Answer
is it possible to declare index in cobol program? if it is not why its tell me pls
how to fetch the record before the last record in a cobol file( its a huge file and if the key field is not known)
what will happen if i give program name and member name as different? program runs successful or w'll abend?
Why we need to use redefine clause when we can define the variable seperately... what is actual need....
Can we MOVE X(9) to 9(9) OR 9(9) to X(9)? If yes what are the ways for doing this?
12 Answers T systems, Tech Mahindra,
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
what is internal sort and external sort ? which is preferable ?
Explain how to differentiate call by context by comparing it to other calls?
using redefine can you redefine lower variable size to higher variable size?
Q:what is the difference between the variable length and fixed lenght.how it varies in the cobol.
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.
How do you code Cobol to access a parameter that has been defined in JCL?