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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
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 JOIN STATEMENT PERFORMANCE. DFSORT/ICETOOL 12
No new posts Relate COBOL statements to EGL statement All Other Mainframe Topics 0
No new posts process statement for SUPREC, CMPCOLM... TSO/ISPF 4
No new posts SYNCSORT/ICETOOL JOINKEYS SORT Statem... DFSORT/ICETOOL 13
No new posts DFDSS COPY using Filter REFDT statement JCL & VSAM 2
Search our Forums:

Back to Top