RE: QA testing: need to prove line by line

This may not be a lot of help, but it seems to me that you're the wrong
person to be doing this.  The QA group should be doing the testing without
your being involved.  One of the first principles of QA is that the QA
people should be totally independent from production.




> -----Original Message-----
> From: Bale, Dan [mailto:D.Bale@handleman.com]
> Sent: Thursday, September 13, 2001 9:30 AM
> To: MIDRANGE-L@midrange.com
> Subject: QA testing: need to prove line by line
>
>
> As part of our newfound drive to QA, among MANY other things,
> one thing
> I have an immediate need to do, but have no idea how, is to be able to
> prove that sections of code are working as designed.  The absolute
> immediate need is to prove the small (maximum 20 lines) modifications
> being made to 10 CL applications.  I immediately thought that job
> logging would suffice, but learned that our QA team is not happy with
> not seeing *everything* that happens in the CL program.  An example is
> an IF command execution, something that never shows up in a job log.
> Another example is showing where variables are changed and what their
> new values are.
>
> Hopefully, the trace function in STRDBG is my starting point.
>  If so, I
> haven't been able to find out where to proceed from there.
>
> 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.
>