Thanks for the suggestion.
Actually, the problem seemed be that the Subfile had been created with some
bizarre format, somehow, so simply deleting it and re-compiling the program
worked.
Not sure how it happened, but a simple solution
Regards
Richard.
-----Original Message-----
From: Robert Mills [mailto:[log in to unmask]]
Sent: 28 August 2002 15:26
To: 'Richard Barker'; [log in to unmask]
Subject: RE: [HP3000-L] QTP Subfile question
Richard,
Enter the following command:
:LISTFTEMP tafdx.temp,2
If should return the message "Temporary file not found. (CIWARN 3289)". If
it does not then that is the file that Quiz is accessing instead of your QTP
created file.
regards,
Robert W.Mills
Systems Development Manager
Windsong Services
Richard Barker wrote:
> Strange one
>
> I'm creating a permanent subfile in the TEMP group:
>
> Code:
>
> ;--------------------------------------------------------------
>
> REQUEST UPDATE
>
> ACCESS *XFILE2.TEMP LINK REC-LOC TO REC-LOC OF &
> PNR-DETAIL
>
> DEFINE D-NEW-AMT NUM*9 = (T-FIN-VAL * -1) - T-OLD-VAL
>
> DEFINE D-SERVICE CHAR*18 = "CONTRACT-DISCOUNT" &
> IF D-NEW-AMT LT 0 &
> ELSE "CONTRACT PRICE ADJ"
>
> DEFINE D-DT CHAR*14 = (ASCII(SYSDATE) +ASCII(SYSTIME) +"00")
>
> DEFINE D-TEXT CHAR*40 = "DSC " +D-SERVICE+ " " &
> +ASCII(D-NEW-AMT * -1) +"-"
>
> DEFINE D-PNR-TOTAL NUM*9 = PNR-TOTAL + D-NEW-AMT
> DEFINE D-DUE NUM*9 = DUE + D-NEW-AMT
>
> SUBFILE TAFDX.TEMP KEEP INCLUDE &
> REC-LOC OF XFILE2, D-SERVICE, D-NEW-AMT, &
> D-TEXT, &
> D-DT, D-PNR-TOTAL, D-DUE
>
>
> SET PROCESS LIMIT 200000
> SET LOCK FILE UPDATE
>
>
> BUILD
>
> Results:
>
>
> Executing request UPDATE ...
>
>
----------------------------------------------------------------------------
> ---
>
> The permanent subfile will be overwritten.
> File: TAFDX.TEMP
>
>
----------------------------------------------------------------------------
> ---
>
>
> Records read:
> XFILE2 92
> PNR-DETAIL 92
>
> Transactions processed: 92
>
> Records processed: Added Updated Unchanged
> Deleted
> TAFDX 92 0 0
> 0
>
>
> Finished.
>
> Listf:
>
> 10:19 AM VIRGIN,TEMP:LISTF TAFDX.TEMP,3
> ********************
> FILE: TAFDX.TEMP.VIRGIN
>
> FILE CODE : 644 FOPTIONS: ASCII,FIXED,NOCCTL,STD
> BLK FACTOR: 32 CREATOR : **
> REC SIZE: 104(BYTES) LOCKWORD: **
> BLK SIZE: 3328(BYTES) SECURITY--READ : ANY
> EXT SIZE: 2548(SECT) WRITE : ANY
> NUM REC: 92 APPEND : ANY
> NUM SEC: 512 LOCK : ANY
> NUM EXT: 2 EXECUTE : ANY
> MAX REC: 200000 **SECURITY IS ON
> MAX EXT: 32 FLAGS : NO ACCESSORS
> NUM LABELS: 4 CREATED : TUE, AUG 27, 2002, 4:33 PM
> MAX LABELS: 4 MODIFIED: WED, AUG 28, 2002, 10:18 AM
> DISC DEV #: 35 ACCESSED: WED, AUG 28, 2002, 10:18 AM
> SEC OFFSET: 1024 LABEL ADDR: **
> VOLCLASS : VIRGIN_DATA:DISC
>
> I'm logged on as MGR with GODXL running, so no security problems, yet
> I am unable to access the subfile:
>
> Q U I Z (PowerHouse 8.39.C)
> Copyright 2001 COGNOS INCORPORATED
> VIRGIN EXPRESS NV
>
>> acc *tafdx.temp
> *W* PowerHouse name for TAFDX.TEMP is TAFDX.
>> go
> *E* Not a valid subfile or data file. Open failed (TAFDX).
>>
>
>
> Any ideas.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html
<http://raven.utc.edu/archives/hp3000-l.html> *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
