RE: How to indent a block of code

Don Freeman has the gist of what I am trying to accomplish.  I was hoping 
for a more 'clicky' way to do it.

For example, I don't like the formatting that prompted CL has.  Instead I 
may have:

IF         COND(&MSGID = 'CPC6778') THEN(DO) /* Volume &2 found +
           on device &1.  CHKTAP worked. */
  CHGVAR     VAR(&VOLID) VALUE(%SST(&MSGDTA 11 6))
  SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
             MSGDTA('Initializing tape volume') +
             TOPGMQ(*EXT) MSGTYPE(*STATUS)
  INZTAP     DEV(&TAPEDRIVE) NEWVOL(&VOLID) +
             NEWOWNID(DEKKO) CHECK(*NO)
  MONMSG     MSGID(CPF0000) EXEC(DO) /* INZTAP failed */
    CHGVAR     VAR(&STATUSCODE) VALUE(200)
  ENDDO      /* INZTAP failed */
ENDDO      /* CHKTAP worked */

If I surround that with another condition I want to indent it.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 
_______________________________________________
This is the CODE/400 Discussion & Support (CODE400-L) mailing list
To post a message email: CODE400-L-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/code400-l
or email: CODE400-L-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/code400-l.

NOTE: WDSc for iSeries disucssion has it's own mailing list.
Information can be found at http://lists.midrange.com/cgi-bin/listinfo/wdsc-l