RE: DSPOBJD in loop-continuation

Murali:

When writing a program like this, consider adding extra statements to help 
during testing. One possibility in this case would be:

   SNDPGMMSG  MSG('<' *bcat &FLD *bcat '>') +
              TOPGMQ( *EXT )

placed immediately before your CHGVAR for &LIBFILE. Or maybe a SNDPGMMSG after 
the CHGVAR to show what &LIBFILE contained. Some experimentation might help you 
see what values are being used inside the program while it runs.

Another useful statement is:

   DMPCLPGM

That one will create output that shows the values of your variables and a list 
of messages that happened while your program ran. It's often best not to have 
that statement in a loop, but it can be useful just before a loop starts or 
just after one ends.

Of course, the items that others mentioned, such as a MONMSG for CPF0864 after 
the RCVF statement to end the loop you need and changing "FLD" to "&FLD", still 
need to be done. It just seems you need some ideas on helping you test your 
work.

Tom Liotta



midrange-l-request@xxxxxxxxxxxx wrote:

>   6. DSPOBJD in loop-continuation- Attention needed fromVERN&BUCK
>      (Murali  dhar)
>2. i wrote a cl program as per the advise given here which is as 
>following....
>BEGIN
>
>
>    DCL &LIBFILE    *CHAR LEN(10)
>    DCLF    FILE1
>    BEGIN:
>
>        RCVF   FILE1
>        CHGVAR   &LIBFILE    VALUE(FLD)
>        MONMSG     EXEC(GO To CMDLBL(END))
>
>        DSPOBJD (&LIBFILE/*ALL)    *OUTFILE(*curlib/ATXFILEO)
>
>        GOTO CMDLBL(BEGIN)
>    END:
>    ENDPGM

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
McAfee VirusScan Online from the Netscape Network.
Comprehensive protection for your entire computer. Get your free trial today!
http://channels.netscape.com/ns/computing/mcafee/index.jsp?promo=393397

Get AOL Instant Messenger 5.1 free of charge.  Download Now!
http://aim.aol.com/aimnew/Aim/register.adp?promo=380455