James

Why is there a "LOCK FILE" on the SCREEN statement?

For a screen with a single file there isn't much difference between
locking the file around the UPDATE procedure versus locking it around
the PUT verb. I'd get rid of this statement - but I doubt this is your
problem.

Does any other user have the file locked? Although I'd expect "can't
lock file at this time" as the message if this were the case.

Does your user have write access to the DATA group?

Try a LISTF ACCTK06D.DATA,-3 and look for anomalies.

Regards,
John

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of James B. Byrne
Sent: Thursday, March 20, 2014 4:43 PM
To: [log in to unmask]
Subject: [HP3000-L] How to lock a KSAMXL file in POWERHOUSE QUICK

I wish to browse through a KSAMXL file that is defined in our POWERHOUSE
PDD
dictionary.  As this is a casual requirement and the number of fields is
small
I tried to use the GENERATE statement in QDESIGN.  While the temporary
screen
created thereby appears to work, in other words it accepts the F action
and
prompts for data in the correct index fields, it complains that the file
must
be locked when it goes to fetch a record.

:QSHOW
2014 Mar 20                Harte & Lyne Limited                   Page
1
                         R E C O R D   R E P O R T
                     For DICTIONARY:  PDHARTLC.OBJ839
    Record:             REQUISITIONS
    of File:            REQUISITIONS
    Organization:       INDEXED
    Type:               KSAMXL   (ASCII,REUSE)
    Open:               ACCTK06D

:LISTEQ
 FILE ACCTK06D=ACCTK06D.DATA;SHR;BUF=6;GMULTI

:QDESIGN
Q D E S I G N   (PowerHouse  8.39.C)
Copyright 2001 COGNOS INCORPORATED
HARTE & LYNE LIMITED

> SCREEN QKRQTACC LOCK FILE
> FILE REQUISITIONS
> GENERATE
> FIELD FILLER OF REQUISITIONS
> FIELD TRANS-IDENT OF REQUISITIONS REQUIRED NOCHANGE
> FIELD LINE-NUMBER OF REQUISITIONS REQUIRED NOCHANGE
> FIELD ACCOUNT-NUMBER OF REQUISITIONS REQUIRED NOCHANGE
> FIELD VENDOR-REFERENCE OF REQUISITIONS REQUIRED NOCHANGE
> FIELD AMOUNT-DISBURSED OF REQUISITIONS
> FIELD AMOUNT OF REQUISITIONS
> FIELD CURRENCY-CODE OF REQUISITIONS
> FIELD EXCHANGE-RATE OF REQUISITIONS
> FIELD TRANS-IDENT-XREF OF REQUISITIONS REQUIRED NOCHANGE
> FIELD STATUS-CODE OF REQUISITIONS
> FIELD DATE-CREATED OF REQUISITIONS
> FIELD USER-ID OF REQUISITIONS
> GO
. . .
<DISPLAYS INPUT SCREEN AND ACCEPTS DATA>

Data access error. (REQUISITIONS*01)
THE FILE MUST BE LOCKED BEFORE ISSUING THIS INTRINSIC  (FSERR 179)

I am too far removed from working with QUICK to see what is wrong here.
Does
anyone else see the problem?  AND no, QUIZ will not suffice, I need to
make
changes to correct a small issue that Accounting has sent my way.


-- 
***          E-Mail is NOT a SECURE channel          ***
James B. Byrne                mailto:[log in to unmask]
Harte & Lyne Limited          http://www.harte-lyne.ca
9 Brockley Drive              vox: +1 905 561 1241
Hamilton, Ontario             fax: +1 905 561 0757
Canada  L8E 3C3

* To join/leave the list, search archives, change list settings, *
* etc., please visit 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 *