Given that it's SORTED on EXPIRE-YYYYMM, you only ever need to check the
previous iteration, and previous iteration <> 0 also.
i.e. for the last one.
> ITEM PERIOD12 = EXPIRE-YYYYMM &
> IF PERIOD11 <> 0 &
> AND EXPIRE-YYYYMM <> PERIOD11
>
And all that precede it.
That's gotta speed it up!
Regards
Dave
> ----------
> From: Dave Knispel[SMTP:[log in to unmask]]
> Sent: Tuesday, April 18, 2000 12:00 PM
> To: [log in to unmask]; [log in to unmask]
> Subject: Re: QTP as a system hog
>
> I had a request for the problem code. Here it is...
> ============================================
> RUN FO06001T
>
> GLOBAL TEMPORARY TODAYS-DATE DATE INITIAL SYSDATE
>
> SET LOCK FILE REQUEST
>
> SET PROCESS LIMIT 5000000
> GLOBAL TEMP START-DATE ZONE*06 PARM
> GLOBAL TEMP STOP-DATE ZONE*06 PARM
> ;------------------------------------------------
> REQUEST EXTRACT-EXPIRING
> ACC EXPIRE-CREDITS
> SEL IF EXPIRE-YYYYMM >= START-DATE &
> AND EXPIRE-YYYYMM <= STOP-DATE
>
> SORT ON EXPIRE-YYYYMM
> TEMP PERIOD01 ZONE*6
> TEMP PERIOD02 ZONE*6
> TEMP PERIOD03 ZONE*6
> TEMP PERIOD04 ZONE*6
> TEMP PERIOD05 ZONE*6
> TEMP PERIOD06 ZONE*6
> TEMP PERIOD07 ZONE*6
> TEMP PERIOD08 ZONE*6
> TEMP PERIOD09 ZONE*6
> TEMP PERIOD10 ZONE*6
> TEMP PERIOD11 ZONE*6
> TEMP PERIOD12 ZONE*6
>
> ITEM PERIOD01 = EXPIRE-YYYYMM &
> IF PERIOD01 = 0
> ITEM PERIOD02 = EXPIRE-YYYYMM &
> IF PERIOD02 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01
> ITEM PERIOD03 = EXPIRE-YYYYMM &
> IF PERIOD03 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02
> ITEM PERIOD04 = EXPIRE-YYYYMM &
> IF PERIOD04 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03
> ITEM PERIOD05 = EXPIRE-YYYYMM &
> IF PERIOD05 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04
> ITEM PERIOD06 = EXPIRE-YYYYMM &
> IF PERIOD06 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05
> ITEM PERIOD07 = EXPIRE-YYYYMM &
> IF PERIOD07 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06
> ITEM PERIOD08 = EXPIRE-YYYYMM &
> IF PERIOD08 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06 &
> AND EXPIRE-YYYYMM <> PERIOD07
> ITEM PERIOD09 = EXPIRE-YYYYMM &
> IF PERIOD09 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06 &
> AND EXPIRE-YYYYMM <> PERIOD07 &
> AND EXPIRE-YYYYMM <> PERIOD08
> ITEM PERIOD10 = EXPIRE-YYYYMM &
> IF PERIOD10 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06 &
> AND EXPIRE-YYYYMM <> PERIOD07 &
> AND EXPIRE-YYYYMM <> PERIOD08 &
> AND EXPIRE-YYYYMM <> PERIOD09
> ITEM PERIOD11 = EXPIRE-YYYYMM &
> IF PERIOD11 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06 &
> AND EXPIRE-YYYYMM <> PERIOD07 &
> AND EXPIRE-YYYYMM <> PERIOD08 &
> AND EXPIRE-YYYYMM <> PERIOD09 &
> AND EXPIRE-YYYYMM <> PERIOD10
> ITEM PERIOD12 = EXPIRE-YYYYMM &
> IF PERIOD12 = 0 &
> AND EXPIRE-YYYYMM <> PERIOD01 &
> AND EXPIRE-YYYYMM <> PERIOD02 &
> AND EXPIRE-YYYYMM <> PERIOD03 &
> AND EXPIRE-YYYYMM <> PERIOD04 &
> AND EXPIRE-YYYYMM <> PERIOD05 &
> AND EXPIRE-YYYYMM <> PERIOD06 &
> AND EXPIRE-YYYYMM <> PERIOD07 &
> AND EXPIRE-YYYYMM <> PERIOD08 &
> AND EXPIRE-YYYYMM <> PERIOD09 &
> AND EXPIRE-YYYYMM <> PERIOD10 &
> AND EXPIRE-YYYYMM <> PERIOD11
>
> SUBFILE FO0600S1 INCLUDE EXPIRE-CREDITS
> SUBFILE FO0600S2 AT FINAL INCLUDE &
> PERIOD01, &
> PERIOD02, &
> PERIOD03, &
> PERIOD04, &
> PERIOD05, &
> PERIOD06, &
> PERIOD07, &
> PERIOD08, &
> PERIOD09, &
> PERIOD10, &
> PERIOD11, &
> PERIOD12
> ============================================
> David Knispel
> [log in to unmask]
> Phone: 513-248-5029
> Fax: 513-248-2672
> ----- Original Message -----
> From: Dave Knispel <[log in to unmask]>
> To: <[log in to unmask]>; <[log in to unmask]>
> Sent: Tuesday, April 18, 2000 12:39 PM
> Subject: QTP as a system hog
>
>
> > To all,
> >
> > I'm working on an HP3000 using QTP version 8.19.C2. I have a QTP
> process
> > that is reading a NM/KSAM file, doing a select, sorting, then writing
> out
> > two subfiles. This process keeps taking over my system. Even running
> in
> > the EQ it will take all available system resources so no one (even the
> folks
> > in a higher queue) can get any CPU time.
> >
> > Has anyone seen this before? Any help would be appreciated.
> >
> > I'm posting this to both the HP3000-L and the Powerhouse-L.
> >
> > David Knispel
> > [log in to unmask]
> > Phone: 513-248-5029
> > Fax: 513-248-2672
> >
> > = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> =
> > Subscribe: "subscribe powerh-l" in message body to
> [log in to unmask]
> > Unsubscribe: "unsubscribe powerh-l" in message to
> [log in to unmask]
> > This list is closed, thus to post to the list, you must be a subscriber.
>
> = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> =
> Subscribe: "subscribe powerh-l" in message body to
> [log in to unmask]
> Unsubscribe: "unsubscribe powerh-l" in message to [log in to unmask]
> This list is closed, thus to post to the list, you must be a subscriber.
>
|