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