Subject: | |
From: | |
Reply To: | |
Date: | Tue, 18 Apr 2000 13:00:14 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
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.
|
|
|