Interested to Buy Any Domain ? << Click Here >> for more details...
IDENTIFICATION DIVISION.
PROGRAM-ID. MOVEPGM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-I PIC 9(2).
PROCEDURE DIVISION.
A1000-MAIN-PARA.
PERFORM PARA-X WITH TEST BEFORE UNTIL WS-I= 5
STOP RUN.
PARA-X.
DISPLAY "BEST2".
I m getting error s722,while executing the program, seems
getting in loop, can anybody tell me why
- 3 Answers
- 5872 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / anand
WS-I should be initialized before calling the para PARA-X
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / shekhar
initialize with a value and increase & decrease accordingly.
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / billyboyo
In IBM Cobol.
You need to give WS-I a starting value and increment it (or
decrement it, depending on the value) either in the perform
construct or in the paragraph.
You should consider the PICTURE and USAGE of WS-I. Much
better as PIC S9(4) and COMP.
You are also using a compile option, probably NUMPROC
(NOPFD) which is preventing your program abending by
doing "sign fixing". Only use NOPFD is all your data is
good, otherwise it makes errors harder to find.
| Is This Answer Correct ? | 0 Yes | 0 No |
write a program to eliminate duplicate records in a input file and send them to output file.
The following entries appear in the WORKING-STORAGE SECTION: 01 DATE-TODAY. 05 YY PIC XX VALUE "90". 05 MM PIC XX VALUE "12". 05 DD PIC XX VALUE :31". 01 DATE-EDIT PIC XX/XX/XX. MOVE DATE-TODAY TO DATE-EDIT. (a) 901231 (b) 90/12/31 (c) 31/12/90 (d) 311290
I have a source program compiled with Cobol-2. The output file has a record length of 100 defined in the program but a record of 60 bytes getting written into it. i.e. The rest of 40 bytes I am not Writing anything. But it by default puts some values into the last 40 bytes. However it does not impact anything. But when Compiled the module with Enterprise Cobol the last 40 bytes were spaces as fillers. Can anyone explain?
i Want All cobol ERROR codes?
study the following 01 A PIC 99V0 VALUE 5 01 B PIC 9V9 VALUE 6 01 C PIC 99V9 VALUE 2.5 01 D PIC 99 VALUE 3 COMPUTE A ROUNDED B C = A+B*C/D ON SIZE ERROR PERFORM PRINT-ERROR the comments of A.B.C after execution of the above statement are a.A=10 B=0 C=10 b.A=10 B=9.9 C=9.9 c.A=10 B=0 C=9.9 d.A=10 B=6 C=10
wht is the difference between goto and perform stmts
01rec1. 05 a pic 999v99 value 123.12 05 b pic 99v9 value 45.9 02 rec2. 05 x pic 999v99 05 y pic 99v99 05 z pic x(3) value 'abc' if rec1 is moved to rec2 then what is the value of rec2?
Read a flat file and write last but one (I have n records in a file I have to write n-1th) record in another flat file. Could you please provide me the code in COBOL?
Why we need to use redefine clause when we can define the variable seperately... what is actual need....
Write a program to enter and display the names of students in a class using the occurs clause.
if a dataset is already created with fixed length but after that i want to change fixed length to variable length then how is it possible
In EBCDIC, how would the number 1234 be stored?
COBOL 
