what is the size of W-REC in the following
01 W-REC
05 A PIC 9(4)V99
05 B READLINES A
10 C PIC XX
10 D PIC S9(4)
05 E OCCURS 7 PIC ZZ.ZZ
05 F OCCURS 5
10 G PIC ZZ.ZZZ99
10 H OCCURS 3
15 J PIC 9(3)
15 K PIC V99
Answers were Sorted based on User's Feedback
Answer / vel
Let us come from bottom
K=2
J=3
so H = 3 * 5 =15
G = 8
SO F = 5 * ( 8 + 15) =115
E = 7 * 5 = 35
A=B= 6
SO TOTAL SIZE =156
| Is This Answer Correct ? | 17 Yes | 1 No |
Answer / rahul
Here B is redefining A so 6 will be added only once
| Is This Answer Correct ? | 0 Yes | 0 No |
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
What do you do to resolve SOC-7 error?
Can a REDEFINES clause be used along with an OCCURS clause? if yes, 01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES PIC X(1) VALUE 'A'. 03 WS-EX REDEFINES WS-TABLE-EL PIC X(5). What can you expect? if no,why?
when iam reading a flat file which has 100 records through cobol program when iam reading 50th records it gets abends .. so when i run the program again it should read from 50th record .where it got abened ? how it is possible
Consider the following: 77 A PIC 9(10) 77 B PIC 9(10) 77 C PIC 9(19) MULTIPLY AB BY B GIVING C Which of the following is true ? (a) The execution of the above may result in size error. (b) The execution of the above will result in size error. (c) The definition of C is invalid resulting in compilation error. (d) No error will be thee and the program would proceed correctly.
How do you set a return code to the JCL from a COBOL program?
01 WS-NAME PIC X(10) OCCURES 2. by this we can get ws-name 2 times. My qustion is how can we access the second name
What was removed from COBOL in the COBOL II implementation?
i have a sequencial file contains multiple records, i want to extract one row which contains various fields like order number,date,warehouse,.ect.. in to the another file by accepting the order number from jcl. how can i do it. pls help me..
how the control comes back from subprogram to mainprogram
what is difference between cobol and cobol/400
01 MOVE 10 TO N 05 PERFOM PARA1 TIMES STOP RUN WAT WILL HAPPEN?? WILL IT RUN INFINITELY OR AN ERROR WIL BE THER BECAUSE NO OF TIMES IS NOT GIVEN??