MVSFORUMS.com

rajeshkoratti · Beginner Joined: 14 Feb 2006 Posts: 42 Topics: 22

Hi
I was analysing a piece of cobol code which was running in VM environment. I had to migrate the same code to MVS. when compiled the same code in MVS i got an error at a particular statement which looks liek this

ON 50 AND EVERY 50
Imperative Statements....

and..

ON 1
MOVE A TO B
ELSE
MOVE 2 TO B

and..

ON DB-ERROR
PERFROM Z100-PARA.

The third one i was able to understand as the DB-ERROR was a 88 level variable and upon it being true the PERFORM happens but the first two i am a confused..

when searched in net i found out that ON statement is used in COBOL OS/VS and IBM has removed the manual pertaining to it.

Can any of you experts help me out on some documentation of the ON clause or specifically explain me what the first two statement do? And what can i do to implement the same logic when migrating to mVs (Enterprise COBOL)
_________________
Thanks and Regards..
Rajesh

rajeshkoratti · Beginner Joined: 14 Feb 2006 Posts: 42 Topics: 22

Kolusu!!! Davey!!!
please help me boo hoo hooo Crying or Very sad

_________________
Thanks and Regards..
Rajesh

SureshKumar · Intermediate Joined: 23 Jan 2003 Posts: 211 Topics: 21

rajeshkoratti,
ON 1 specifies first time, ON 2 second time..I mean iterations. I have not used it, but its equivalent of a Evaluate statement, however the counter is maintained internally by the program. Refer to the OS/VS migration guide - not much information here but would help.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGYM1101/4.2.6?DT=19930312152044

rajeshkoratti · Beginner Joined: 14 Feb 2006 Posts: 42 Topics: 22

iterations as in?
does it mean that the program works like a pseudo conversation in CICS?
or does it mean that each time the paragraph or the ON Statement is executed the 'counter' is incremented?
_________________
Thanks and Regards..
Rajesh

Manas Biswal · Posted: Tue Mar 07, 2006 9:54 am Post subject:

rajeshkoratti,

When you don't find it anywhere else, you will find it in "google".
Never encountered "ON" statement, but this is what google gives me -

http://supportline.microfocus.com/documentation/books/mx30/lrpdfa.htm#s007

From what I understand about your question, this reference should be sufficient for your needs.

HTH...Regards,
Manas
_________________
There is no path to peace. Peace is the path.
- Mahatma Gandhi (1869-1948)