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
What is the difference between PIC 9.99 and PIC9v99?
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?
how to convert the recors form vsam file to db2 table tru file aid
How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?
what is the difference between COBOL2 AND COBOL390?
Difference between array and sub-script ?
what is s000 u4087 error? please give the all error codes in cobol,jcl.
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
What is the difference between goback, stop run and exit program in cobol?
) what is the difference between AID and HANDLE AID?
What do you understand by psb and acb?
how do you reference the fixed unblock file formats from cobol programs
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?
How many sections are there in data division in COBOL?
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.