IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Retreiving every 5000 records a message shuld be displayed


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
khamarutheen

Active Member


Joined: 23 Aug 2005
Posts: 677
Location: NJ

PostPosted: Thu Dec 01, 2005 12:46 pm
Reply with quote

hi frnd,
plz have a check point in every 5000 or at any point and display the message is one way. else using the app program itself u can count the records in a seperate variable and once it reaches 5000 record then display the message. Hope understood. let me know if any.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India

PostPosted: Thu Dec 01, 2005 1:01 pm
Reply with quote

Hi,

I believe putting checkpoint after 5000 record will be best option & put a display command .Because by it u are commiting till that time..& if some abend occour it will resatrt ur job from the recent checkpoint .So in other words it makes ur code more efficient
Back to top
View user's profile Send private message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Thu Dec 01, 2005 2:53 pm
Reply with quote

Hi Friends,

Can u please tell me How to put that CHECK POINT?

Thanks and Regards,
Suganthy.
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 435
Location: chennai, India

PostPosted: Sat Dec 03, 2005 1:08 pm
Reply with quote

jaganath,
Pls dont post the same query repeatedly.

ibmmainframes.com/viewtopic.php?t=7096&highlight=message+displayed
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Dec 04, 2005 3:07 am
Reply with quote

My ques is: displayed where?

If SYSOUT you can try this - just add 1 to cntr and t-cntr after every read of your I/P file then code an IF stmt:
Code:

IF CNTR = 5000
   DISPLAY t-cntr ' RECS READ'
   MOVE ZEROS TO CNTR
END-IF


Chkpt sounds like overkill to me.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 2
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
This topic is locked: you cannot edit posts or make replies. how can I proof that message was post... Java & MQSeries 1
Search our Forums:

Back to Top