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
- 9791 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 |
How can you submit a job from COBOL programs?
what is s000 u4087 error? please give the all error codes in cobol,jcl.
How do you differentiate between cobol and cobol-ii?
Suppose i want to declare a binary comp fild of 7 byte .how to write?
)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
wht is load module and object module ?
Explain fixed length record in cobol? with suitable example
01 text-data pic x(100). move 'xyzdbfrjjg u' to text-data. how to find the value of last index of text-data?
Difference between next and continue clause
What do you understand by passing by reference and passing by content?
how do you reference the printer file formats from cobol programs
COBOL 
