Re: cl structure check

Cool Vern.  How does one turn on auto indenting?  I pulled up the help and 
find:
To activate automatic indenting, select Automatic indenting from Language 
editing in the Options menu in the Editor window. 
But, where is this Options menu?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Vernon Hamberg <vhamberg@xxxxxxxxxxx> 
Sent by: wdsci-l-bounces@xxxxxxxxxxxx
05/09/2005 10:31 PM
Please respond to
Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>


To
Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>
cc

Subject
Re: [WDSCI-L] cl structure check






Rob

Not for CL, AFAIK. But you can turn on auto-indent. I actually like the 
results very much, but have had to go back to 5.1.2.3 in order to be able 
to use auto-format. But maybe the earlier release knows nothing about the 
v5r3 goodies?

Vern

At 03:45 PM 5/9/2005, you wrote:

>I guess what I was asking was is there any Source, Show indentation?
>
>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: wdsci-l-bounces@xxxxxxxxxxxx
>05/09/2005 03:29 PM
>Please respond to
>Websphere Development Studio Client for iSeries <wdsci-l@xxxxxxxxxxxx>
>
>
>To
>wdsci-l@xxxxxxxxxxxx
>cc
>
>Subject
>[WDSCI-L] cl structure check
>
>
>
>
>
>
>How do I get WDSC to help pinpoint the "CPD0877: WHEN, OTHERWISE, or
>ENDSELECT command expected." error in the following:
>   DoUntil (&TapChkLoop='1')
>     CHKTAP   DEV(&TapeDrive) ENDOPT(*REWIND)
>     MONMSG   MSGID(CPF0000)
>     RCVMSG   MSGQ(*PGMQ) MSG(&Msg) MSGDTA(&MsgDta) MSGID(&MsgId) +
>              MSGTYPE(*LAST)
>     Select
>     When (&MsgId = 'CPC6778') Then(DO)
>        /* Volume &2 found on device &1.  CHKTAP found a volume id loaded
>*/
>        /* Is it the one we want?    */
>       CHGVAR   VAR(&VolId) VALUE(%SST(&MsgDta 11 6))
>       Select
>       When COND(%SST(&VolId 1 1) *EQ &Prefix) THEN(DO)
>           /* We got our tape, let's go on */
>           ChgVar &TapChkLoop '1'
>         EndDo
>       Otherwise (DO)
>         /* Not the right tape for this backup.  Kick it out and hope the
>right one loads. */
>         CHKTAP   DEV(&TapeDrive) ENDOPT(*UNLOAD)
>         EndDo  /* Volid was NOT the right one for this backup */
>       EndSelect /* Checking the volumne id prefix */
>       EndDo  /* CHKTAP found a tape.  CPC6778 */
>     When (&MsgId = 'ROB0000') Then(DO)
>       /* We've ejected every tape in the drive and have not yet found 
one
>- abort */
>       ChkTapPgm TapeDrive(&TapeDrive) /* Alert the team */
>       ChgVar &TapChkLoop '1'
>       GoTo END
>       EndDo
>     EndSelect /* Checking messages as a result of the CHKTAP */
>
>   EndDo  /* Loop until &TapChkLoop = '1' */
>
>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 Websphere Development Studio Client for iSeries  (WDSCI-L)
>mailing list
>To post a message email: WDSCI-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
>or email: WDSCI-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/wdsci-l.
>
>--
>This is the Websphere Development Studio Client for iSeries  (WDSCI-L) 
>mailing list
>To post a message email: WDSCI-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
>or email: WDSCI-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/wdsci-l.

-- 
This is the Websphere Development Studio Client for iSeries  (WDSCI-L) 
mailing list
To post a message email: WDSCI-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/wdsci-l.