Re: DoFor vs Leave

["Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>]

Hi Rob,

EXEC is the third parameter on the MONMSG command - CMPDTA is the second.

For "free form" you should have had

MONMSG CPFB94A *N DO

HTH

Paul

----- Original Message -----
From: <rob@xxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, July 26, 2005 11:29 PM
Subject: Re: DoFor vs Leave


> Problem was with loop of
>                MONMSG MSGID(CPFB94A) EXEC(DO)
> vs
>                MONMSG CPFB94A DO
> Didn't like the keywordless one at all.
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
>
>
>
>
> rob@xxxxxxxxx
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 07/26/2005 04:59 PM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
>
>
> To
> midrange-l@xxxxxxxxxxxx
> cc
>
> Subject
> DoFor vs Leave
>
>
>
>
>
>
> If I use WDSC and Ctrl-M on the first line of code it highlights down to
> the last line of this section.  However I get the error indicated.  Why?
>              DoFor &X FROM(1) TO(5)
>                CALL PGM(QYPSENDC) PARM('*PFR         '   X'00000000')
>                MONMSG CPFB94A Do
>                  dlyjob 120
>                  iterate
>                EndDo
>                Leave
> CPD0883: LEAVE command found outside of DO group.
>              EndDo  /* DoFor &x from 1 to 5 */
> According to the help for LEAVE it's supported in a DoFor group.
>
> Of course, V5R3.  Not possible on earlier releases.
>
> Rob Berendt
> --
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>