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
Answer Posted / shekhar
initialize with a value and increase & decrease accordingly.
| Is This Answer Correct ? | 1 Yes | 1 No |
Post New Answer View All Answers
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
What is the Purpose of POINTER Phrase in STRING command in COBOL?
What is length is cobol?
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 ......
how do you reference the variable unblock file formats from cobol programs
A table has two indexes defined. Which one will be used by the SEARCH?
How to read the 2nd last record of a VSAM file? (The file size is huge and we don't know the key)
What are the access modes of START statement?
write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc
how do you reference the rrds file formats from cobol programs
What is rmode(24)
how to access the file from prodution from changeman tool and to submit a file to production
What are 77 levels used for?
how do you reference the esds vsam file formats from cobol programs
How do u write test cases?