Re: Progress Bar & Prototypes

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Booth,

You wrote:
>If I understand what all of you are saying then any program could have PR 
>D-specs for the Progress Bar and one line of code inside a 
>record-reading-processing loop that would be:

>   C                    Call 
>ProgressBarPR(TotalRecords:RecordsCountedSoFar:RecordsChosenSoFar:MsgFlag)

>My questions:
>1 - Is this a reasonable usage of the Prototype?

Yes.  Except don't use PR in the procedure name and invoke it with CALLP rather 
than 
CALL.  Given the above you should have something like the following in a copy 
member:

         /if defined(progBar_h)
         /eof
         /else
         /define progBar_h
        D shwProgressBar...
        D               PR                      EXTPROC(shwProgressBar)
        D   totalRcds                   10U 0   CONST
        D   curRcdCnt                   10U 0   CONST
        D   rcdSltCnt                   10U 0   CONST
        D   msgFlag                       N     OPTIONS(*NOPASS)
         /endif

then invoke it with something like:

        C               CALLP   shwProgressBar(TotalRecords : 
                                                RecordsCountedSoFar : 
                                                RecordsChosenSoFar)

>2 - what are the implications for performance?  Will this hurt performance 
>as compared to doing the same process within the calling program?

If you package it as a service program then minimal overhead (more than inline 
code or a 
subroutine but the encapsulation benefits far outweigh the overhead).

If you package it as a program then much more overhead.

I'd probably create an inzProgressBar function that accepted the total records, 
colour of 
bar, message to display, location of window, etc.  Then the shwProgessBar 
function need 
only worry about the current state (and whatever msgFlag is for).

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---