COBOL statement 'ON 1'

senthilarumugam · New User Joined: 09 May 2006 Posts: 19 Location: chennai

Hi,

I have come across a COBOL code as like below. Could anyone please explain me what the 'ON 1' statement do?

ON 1
PERFORM XX-XX
ELSE
PERFORM YY-YY.

Anuj Dhawan · Posted: Mon Sep 22, 2008 12:14 pm

Senthil,

Please post a little more scrap from your code where you see this code, I'm not aware of "ON 1" usage in IBM Mainfrmae COBOL, do you have any idea what the program is doing ?

Arun Raj · Posted: Mon Sep 22, 2008 1:35 pm

Hello,

The below links might help.

See the description on "ON" at the bottom of the page.
docs.hp.com/cgi-bin/doc3k/BB243390047.15064/57

ibmmainframes.com/post-60005.html

Thanks,
Arun

Arun Raj · Posted: Mon Sep 22, 2008 1:43 pm

Senthil,

See this one too - ibmmainframes.com/about32786.html

Thanks,
Arun

sureshbabur · New User Joined: 11 Aug 2008 Posts: 8 Location: chennai

Okay i do accept it will executed only once in the program.....but i have one doubt in the coding

ON 1
PERFORM XX-XX
ELSE
PERFORM YY-YY.

in the above coding when it's first time processing the para XX-XX will be executed.Then while processing the second record where the control will go .please tell me know the result.

Thanks
Suresh

senthilarumugam · New User Joined: 09 May 2006 Posts: 19 Location: chennai

Thank you folks!

Suresh,

When you code ON 1 in your paragraph, ON first time execution XX-XX will be performed. When the same paragraph being executed next times, YY-YY will be performed.

dick scherrer · Posted: Mon Sep 22, 2008 7:18 pm

Hello,