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 *
|
