Write the code implementing the perform … varying.
No Answer is Posted For this Question
Be the First to Post Answer
What is the meaning of 'Eject' verb in cobol?
Can anybody give me example of subscript and index
Give some advantages of REDEFINES clause?
I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.
How to delete the records of a dataset through cobol programme?We should not use jcl utilitities like IDCAMS.
which is Best IBM Mainframe Training and Placement Institute in Ameerpet Hyderabad
What is a scope terminator? Give examples.
can any one help -s806
How do get the result of your program directly on your pc?
how will u pass dadta to cobol+db2 program...?
how can we get current dat and time thru cobol pgm
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that