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

ON 2 AND EVERY 1 - Statement ???


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

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Jul 25, 2017 1:20 pm
Reply with quote

Hi everyone,

I have come across a COBOL code as like below. Could anyone please explain me what the 'EVERY' statement means in this context.

The on statement is familiar but i can't remember the every notation.

ON 2 AND EVERY 1

Thanks in advance, UmeySan
Back to top
View user's profile Send private message
prino
Warnings : 1

Senior Member


Joined: 07 Feb 2009
Posts: 1241
Location: Vilnius, Lithuania

PostPosted: Tue Jul 25, 2017 1:58 pm
Reply with quote

How about RTFM?
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Tue Jul 25, 2017 2:35 pm
Reply with quote

Superduper !!!

Before spending time in searching some old DOS/VS Cobol Manuals, i hoped
some of the older experts could easily explain it in one sentence.

By the way, and to enlighten you if you don't knew it yourself, i figured out how it works.

ON 2 AND EVERY 1

On the first iteration do nothing
From the second iteration and for every next, do something.

Greeetings from Cologne to Ostende
UmeySan
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 SKIP LOCKED DATA in UPDATE statement DB2 9
This topic is locked: you cannot edit posts or make replies. Splice JCL into one record for DD sta... SYNCSORT 2
No new posts Required Date Format in Include Sort ... DFSORT/ICETOOL 6
No new posts CALL statement in COBOL for VSE COBOL Programming 3
No new posts ISPF skeleton that has IF/THEN/DO sta... TSO/ISPF 15
Search our Forums:

Back to Top