RE: QA testing: need to prove line by line

I saw a demo at the last COMMON of a product that did something very similar
for RPG.  I don't know if it works on CL or not.  At any rate, after each
line of code, they inserted a line showing the values if each variable on
the line.  The product was called RTPA and it was from www.hasrtpa.com   I
haven't used it, and have no financial interest, but it looks
interesting....
>
> As an example, for the following code...
>
>   IF   (&BRANCH *EQ &DETROIT *OR &BRANCH *EQ '073') DO
>       OVRPRTF  FILE(QSYSPRT) OUTQ(&PRINTER)
>       CPYF     FROMFILE(PAXAR) TOFILE(QSYSPRT)
>   ENDDO
>   CALL       PGM(ASN762R) PARM(&MEMO &RELEAS &ASN)
>
> ... I would like to see:
>
>   IF   (&BRANCH *EQ &DETROIT *OR &BRANCH *EQ '073') DO
> * Variable &BRANCH     Ð'077'
> * Variable &DETROIT    Ð'077'
> * IF statement tested true
>       OVRPRTF  FILE(QSYSPRT) OUTQ(&PRINTER)
> * Variable &PRINTER    Ð'S0001P'
>       CPYF     FROMFILE(PAXAR) TOFILE(QSYSPRT)
>   ENDDO
>   CALL       PGM(ASN762R) PARM(&MEMO &RELEAS &ASN)
> * Variable &MEMO       Ð1255014
> * Variable &RELEAS     Ð2444108
> * Variable &ASN        Ð1200000000469
>
> ... or in the case that the IF tested false, I would like to see:
>
>   IF   (&BRANCH *EQ &DETROIT *OR &BRANCH *EQ '073') DO
> * Variable &BRANCH     Ð'079'
> * Variable &DETROIT    Ð'077'
> * IF statement tested false
>   CALL       PGM(ASN762R) PARM(&MEMO &RELEAS &ASN)
> * Variable &MEMO       Ð1255014
> * Variable &RELEAS     Ð2444108
> * Variable &ASN        Ð1200000000469
>
> Can this be done?  Or something similar?
>
> TIA.
>
> Dan Bale
> IT - AS/400
> Handleman Company
> 248-362-4400  Ext. 4952
> D.Bale@Handleman.com
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.


************************************************************************************************************************************************************************************************************
This message originates from Lincare Holdings Inc. It contains information 
which maybe confidential or privileged and is intended only for the individual 
or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the 
contents of this message.
All personal messages express views solely of the sender, which are not to be 
attributed to Lincare Holdings Inc., and may not be copied or distributed 
without this disclaimer.
If you received this message in error, please notify us immediately at 
MailAdmin@lincare.com or (800) 284-2006.
************************************************************************************************************************************************************************************************************