Re: cl structure check -- WDSCI-L

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.