RE: DELETE opcode for file in QS36F

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Are you looking at the physical file itself?  or a logical file or view?

OVRDBF INHWRT(*YES)?

The error message doesn't sound like a commitment control/locking problem.

Only time I've seen that is when I'm trying to do something not supported by 
the object itself.

For instance, CRTDUPOBJ on a logical file object created via the CREATE EVI 
INDEX.

When you do a DSPFD what are the settings for:
Allow read operation  . . . . . . . . . . . :            Yes 
Allow write operation . . . . . . . . . . . :            Yes 
Allow update operation  . . . . . . . . . . : ALWUPD     *YES
Allow delete operation  . . . . . . . . . . : ALWDLT     *YES


HTH,

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Booth Martin
> Sent: Friday, May 06, 2005 2:04 PM
> To: RPG programming on the AS400 / iSeries
> Subject: DELETE opcode for file in QS36F
> 
> 
> This has me stumped.  I have *ALLOBJ authority on the system, at
> V4Rsomething.  I want to delete a record from a file in 
> QS36F.  I tried
> using UPDDTA and can see the record, but it will not display. 
>  I wrote a
> oneshot to delete the record.  It finds the record, but when 
> I try to do a
> delete it fails, saying the operation is not allowed.  The F-spec is
> Update/Full Program described, indexed.
> 
> Any ideas?
>  
> ---------------------------------
> Booth Martin
> http://www.martinvt.com
> ---------------------------------
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
>