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


Please Help Members By Posting Answers For Below Questions

What is the difference between PIC 9.99 and PIC9v99?

767


1.Is it possible to move the data from 99.99 to 99v99? 2.What is the CICS-vsam Compilation process? 3.In My GDG 5 generation will be there GDG3 got an abend what will happen? 4.In my GDG first generation is +1 And I want to add the new generation what will happen previous generation? 5.How can you give the PIC clause below conditions A). s9 (reddy), B). s9 (5) occurs 5 times? 6.How override the proc from a particular step? and what is symbolic and override Procs?

5353


how to convert the recors form vsam file to db2 table tru file aid

2747


How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

695


what is the difference between COBOL2 AND COBOL390?

2438






Difference between array and sub-script ?

1149


what is s000 u4087 error? please give the all error codes in cobol,jcl.

17012


How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?

1915


What is the difference between goback, stop run and exit program in cobol?

914


) what is the difference between AID and HANDLE AID?

1626


What do you understand by psb and acb?

659


how do you reference the fixed unblock file formats from cobol programs

698


How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2090


How many sections are there in data division in COBOL?

670


There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.

919