MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » September 2001

RE: QA testing: need to prove line by line



fixed

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.
************************************************************************************************************************************************************************************************************






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact