Answer / santy

let consider,
First declear 2 count variables A,B.

first count all the records i.e. N and put it into A
varialbe.

compute statement B=A-100, i.e. B=N-100

now again use the read-para untill condition B=A

and in read para incrased the value of B=B+1 after each
read.

Answer / mobi and remya

PROCEDURE DIVISION.
PARA.
OPEN INPUT STUDFILE.
PERFORM PARA1 UNTIL EOF = 1.
DISPLAY 'TOTAL NO:OF RECORDS ' A.
COMPUTE B = A - 100.
MOVE 0 TO EOF.
CLOSE STUDFILE.
OPEN INPUT STUDFILE.
PERFORM PARA2 UNTIL EOF = 1.
CLOSE STUDFILE.
STOP RUN.
PARA1.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE A = A + 1.
PARA2.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE C = C + 1.
IF C >= B AND EOF NOT = 1
DISPLAY STUD-REC.

Answer / bibhuti swain

PROCEDURE DIVISION.
PARA.
OPEN INPUT STUDFILE.
PERFORM PARA1 UNTIL EOF = 1.
DISPLAY 'TOTAL NO:OF RECORDS ' A.
COMPUTE B = A - 100.
MOVE 0 TO EOF.
CLOSE STUDFILE.
OPEN INPUT STUDFILE.
PERFORM PARA2 UNTIL EOF = 1.
CLOSE STUDFILE.
STOP RUN.
PARA1.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE A = A + 1.
PARA2.
READ STUDFILE AT END MOVE 1 TO EOF.
COMPUTE C = C + 1.
IF C >= B AND EOF NOT = 1
DISPLAY STUD-REC.
If anybody doesn't understand this logic i can explain..
In PARA2 the file is read from the beginning and the moment
the value of C reaches the value of B i.e value of C = B
and then it will satisfy the condition IF C >= B and from
there it will start displaying the records till end.

Answer / m.rajasekaran

Hi Mobi and Remya,

logic is correct

But in PARA2 u have coded that COMPUTE C = C + 1, How it
will work?

You should have moved B to C after calculating the value
of B in PARA1.Then only this code will work.

Let me know if any mistake in my answer.

Answer / giri12

Hi Santy in ur answer u mentioned that..
read-para untill condition B=A

Can you please explain it. Coz B=900 and A=1000(assume)
then how will be 900=1000?

Answer / venkat

in my view if it is a ksds cluster file use organization as
dynamic and accept the related value start reading the file
and write it..i think this will display the last hundred
records..
correct me..
venkat

Answer / guest

First move HIGH-VALUES to the key field and then read the
file.It will read the last record then put READ PREV in
loop 100 times to get the last 100 records.

Answer / heeraj r

Pls post the correct question. I am not sure what you mean
by COBOL file, is it PS or VSAM or Tape etc etc? If you
want last 100 records of a file use below SORT JCL, and if
required that output file can be read in your COBOL.

//S1 EXEC
PGM=ICETOOL
//TOOLMSG DD
SYSOUT=*
//DFSMSG DD
SYSOUT=*
//IN DD DSN=... input
file
//OUT DD DSN=... output file
//TOOLIN DD
*
SUBSET FROM(IN) TO(OUT) KEEP INPUT LAST(100)
/*

Answer / kingmanish

question is ambiguous.
Could you please explain what do u mean by cobol file?

PLease specify what type of file??? Flat file? VSAM ??

Answer / kk

Hi,
u declare two count variable.first count all the
records.then using compute statement count - 100.now move
the count no to second one.now again use read at end.now
give the condition grater than count-2 display rec.

how to transfer the file from pc to mainframe??

3 Answers  

What will happen if a variable is declared as below.. Explain with an example? Working storage section:- 01 WS-VARX PIC X(10) VALUE 'ABCDEFGHIJ'. 01 WS-VARN REDEFINES WS-VARX PIC 9(5) VALUE '12345'. What will happen I am going to Display the WS-VARX and WS- VARN?

6 Answers   Xansa,

Difference between file status codes 02 and 22.... since both are for duplicate key detection.

1 Answers  

In an array processing what is the thing that can be done by using subscripts but not by using index

4 Answers   JPMorgan Chase,

here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?

2 Answers   IBM,

why we are using set in searchall?

4 Answers   IBM,

What is file status 39 ?

10 Answers   JPMorgan Chase,

we can use set true for condition names.. similarly can we code set to false in cobol pgm? will it work?

1 Answers  

what is the meaning of pic 9(09)v99-

4 Answers   HSBC,

COMP-3 field occupy ?

8 Answers  

How to replace the GOTO statement in COBOL without changing the structure of program. e.g. consider following code... I.D. E.D. D.D. P.D. compute C = A + B. GOTO para 100-display. compute D = C - D. GOTO 200-display. some other logic...... ........ GOTO 300-para. ...... ...... GOTO 400-para. Now I want to replacce all GOTO statements without changing the structure and otput of program.

6 Answers   Accenture,

how we rectify soc7 and soc4 errors in project?

1 Answers   Anaxis, TCS,