Interested to Buy Any Domain ? << Click Here >> for more details...
wirte a pgm in using files in which we hav 10 ,20,30 40...100
records in inputfile and i want them to be send to outputfile
in reverse order.
PLZ HELP ME OUT .........THIS IS A RECENT QUESTION IN IGATE..
- 5 Answers
- 9963 Views
- iGate, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / quasar chunawala
However, if there are a fixed no. of records, as you have
mentioned in the question - which may not always be the
case with Production Files(They may contain millions of
records), you may follow this approach.
1. Read all the records into a COBOL array(table) A
(1,2,...10).
PERFORM VARYING I FROM 1 BY 1 UNTIL I>10
READ INPUT-FILE
MOVE INPUT-RECORD TO WS-RECORD(I)
END-PERFORM.
2. Print the data from the COBOL Array into Output-file.
PERFORM VARYING I FROM 10 BY -1 UNTIL I<1
WRITE WS-RECORD(I)
END-PERFORM.
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / binary logics
*hival setgt pfrec
90 doueq *on 90 is a indicator for End of file
readp pfrec
write newpfrec
enddo
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / siris
//SYSIN DD *
SORT FIELDS = COPY
OUTREC=(10,100,SEQNUM,4,ZD)
/*
0R
//SYSIN DD *
SORT FIELDS=(100,4,ZD,DESC)
OUT REC=(10,100)
/*
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / quasar chunawala
There is no such facility on Mainframe COBOL to read a
Sequential File(PS), backwards. PS(Physical Sequential)
files are meant to be read in a straight-sequential fashion
record-by-record one at a time, till you reach the Desired
record.
| Is This Answer Correct ? | 1 Yes | 3 No |
what is index and how to use two tables using index?
77 I pic 99 value 5 Perorm para-A I times. Para -A. move 10 to I. How many times the para-A will be executed.?
Give some examples of command terminators?
How can you add a particular field/coloumn in copybook?
how can u pass the values into db2 values from cobol ?
Define in-line perform?
What is file status 39 ?
what is scope terminator
how to change picture class of copy book variable inside program?
where do u use low-value and high value in cobol
how will u pass dadta to cobol+db2 program...?
SSRange is used to do a range check on which of the Following. SUBSCRIPT,INDEX,REFERENCE MODIFICATION,Run-time option.
COBOL 
