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 / anand

WS-I should be initialized before calling the para PARA-X

Is This Answer Correct ?    4 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is cobol?

736


What type of SDLC u followed? Why?

1512


how to refer the data field?

1793


how do you reference the rrds file formats from cobol programs

786


input= ,,,, mainframe training ,,, hyderabad .... location.... output1=$ mainframe training in hyderabad location$ output2=**** mainframe training in hyderabad location ****. In this pgn when we give input considering the spaces the output is displayed in this format.Like in the place of ,,,, $ should be displayed likewise.So please helpmeout.

1772






i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

883


What is the difference between a binary search and a sequential search what are the pertinent cobol?

725


What is the difference between PIC 9.99 and PIC9v99?

769


How do you differentiate between cobol and cobol-ii?

646


Why would you use find and get rather than to obtain?

673


How to remove the spaces at the end of each record in the output file of variable length, via cobol program?

666


can you please let me know if there is any walkins for COBOL/PLI/DB2/IMS/JCL in pune other than IBM and ITC infotech

1947


what is the use of outrecord?

1765


A table has two indexes defined. Which one will be used by the SEARCH?

748


if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.

5663