sample code for read a 2nd record from last in flatfile how
can do?
Answers were Sorted based on User's Feedback
Answer / nsingh
ADD SEQUENCE NUMBER
SORT FIELDS=COPY
OUTREC FIELDS = (1,80,SEQNUM,ZD,A)
NOW SORT SEQ NUM IN DESCENDING ORDER
SORT FIELDS=(81,4,ZD,D)
INCLUDE ONLY 2ND LAST REC
SORT FILEDS = COPY
INCLUDE COND = (81,4,ZD,EQ,0002')
REMOVE SEQ NUM FROM FILE & THIS REC IS SELECTED
SORT FIELDS =COPY
OUTREC FIELDS = (1,80)
| Is This Answer Correct ? | 1 Yes | 0 No |
Suppose file has 100 Record
1,2,3.........................100
a) Read the file and Count the number of records into a variable
Suppose CNT_VAR = 100
b) Suppose you want to read 2nd record from Last
So Set N = 2
c) Now to find the search variable compute the below
SRC_VAR = CNT_VAR - N i.e (100 - 2)
SRC_VAR = 98
d) Now Read the file to pick 98th record from top
| Is This Answer Correct ? | 1 Yes | 2 No |
Answer / sunilkumar
First open the file in reverse order using OPEN command
OPEN FILE file-name REVERSE
Then read twice to get the 2nd last record.
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / santhosh vayathuri
for this we need to do fallowing steps
1) read all the records and store into an array and count
value store into an var
2) from that array subtract count var by 1 we will get last
2nd record
ex :: array(count-1) == last 2nd rec
| Is This Answer Correct ? | 1 Yes | 6 No |
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
if you code move high-values to variable,can you move it into numeric variable or alphanumeric variable?
how many bytes does a s9(12)COMP-4 field occupy?? a.2 b.4 c.8 d.1 ans with reason please
Why do we use COMP-3 variables for computation, when we know that they are non displayable fields and require additional MOVE to numeric field before we populate it in output Reports?
In COBOL programming, what is PERFORM? What is VARYING?
what happens when a copybook variables are declared using include statement ?
can any one help -s806
For rewrite, why is it mandatory that file needs to be opened?
how will u pass dadta to cobol+db2 program...?
In CICS/VSAM every file that is accessed should be defined in FCT. we have CICS READ, WRITE, BROWSE commands for VSAM files. How does it work with DB2 tables. It know it has to do with the plan. Please expain with examples.
Can we access the a[0] in the array ?
how we separate the cobol cics statements from cobol&cics programming?