HP3000-L Archives

April 2000, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Barry Lake <[log in to unmask]>
Reply To:
Barry Lake <[log in to unmask]>
Date:
Tue, 18 Apr 2000 11:31:32 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (76 lines)
At 12:52 PM -0400 4/18/00, [log in to unmask] wrote:
>The first unofficial rule of thumb for complex process is to do everything
>you can in Quiz,
>then save QTP for the updates and adds.


Actually, I go even further: The first unofficial rule of thumb is to do
everything you can in SUPRTOOL. Then pass the results to PowerHouse.

Use either Quiz or QTP to create an empty template subfile. Then use
SUPRTOOL to do your serial read selection, and dump the records into the
subfile. Then do your normal processing with the subfile, rather than with
the database or the KSAM file.


At 1:00 PM -0400 4/18/00, [log in to unmask] wrote:
...
>REQUEST EXTRACT-EXPIRING
>   ACC EXPIRE-CREDITS
>   SEL IF EXPIRE-YYYYMM >= START-DATE               &
>      AND EXPIRE-YYYYMM <= STOP-DATE
>
[...snip...]
>   SUBFILE FO0600S1 INCLUDE EXPIRE-CREDITS
>   SUBFILE FO0600S2 AT FINAL INCLUDE &
>           PERIOD01, &
>           PERIOD02, &
>           PERIOD03, &
>           PERIOD04, &
>           PERIOD05, &
>           PERIOD06, &
>           PERIOD07, &
>           PERIOD08, &
>           PERIOD09, &
>           PERIOD10, &
>           PERIOD11, &
>           PERIOD12


Instead do something like this:

  :qtp
   request make-template
   access expire-credits
   set input limit 0
   subfile tempdata include expire-credits
   go
   exit
  :
  :comment  Rather than use the PARM prompts in QTP, put the values ito
  :comment  CI variables...
  :
  :setvar start_date 200001
  :setvar stop_date  200002
  :echo if    expire-yyyymm >= !start_date &  > stuse
  :echo   and expire-yyyymm <= !stop_date    >> stuse
  :run suprtool.pub.robelle
   input expire-credits
   use stuse
   sort expire-yyyymm
   output tempdata,erase
   exit
  :qtp
   access *tempdata
   sorted on expire-yyyymm
   ...

Et Voila, you've used SUPRTOOL for selection and sorting, typically the
most CPU intensive parts of a PowerHouse pass, rather than using either QTP
or Quiz. I've used this method for years.


Barry Lake                                 [log in to unmask]
Allegro Consultants, Inc.                  www.allegro.com
(408)252-2330

ATOM RSS1 RSS2