|
midrange.com
Same story. You're right works fine from STRSQL but not embedded. Read
this:
DSPMSGD RANGE(SQL0109) MSGF(QSQLMSG)
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Walden H. Leverich III" <WaldenL@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/23/2003 05:05 PM
Please respond to RPG programming on the AS400 / iSeries
To: "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
cc:
Fax to:
Subject: RE: Unlocking a file
But what about FOR READ ONLY?? I know it works from the STRSQL line on a
select, didn't try it in a program.
I'm a firm believer in always telling the optimizer as much as possible
about what you're going to do with data, can't hurt, might help.
-Walden
------------
Walden H Leverich III
President
Tech Software
(516) 627-3800 x11
(208) 692-3308 eFax
WaldenL@xxxxxxxxxxxxxxx
http://www.TechSoftInc.com
Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)
-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Wednesday, April 23, 2003 5:55 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Unlocking a file
Did y'all know that embedded sql does not support 'for fetch only' -
SQL0109?
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Walden H. Leverich III" <WaldenL@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/23/2003 04:29 PM
Please respond to RPG programming on the AS400 / iSeries
To: "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
cc:
Fax to:
Subject: RE: Unlocking a file
PWRDWNSYS? <G>
Seriously, what kind of lock? If you're not planning on updating that
select
I'd do a FOR READ ONLY, if for no other reason than it makes it clear that
you're not updating.
-Walden
------------
Walden H Leverich III
President
Tech Software
(516) 627-3800 x11
(208) 692-3308 eFax
WaldenL@xxxxxxxxxxxxxxx
http://www.TechSoftInc.com
Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)
-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Wednesday, April 23, 2003 5:17 PM
To: RPG programming on the AS400 / iSeries
Subject: SQL: Unlocking a file
After executing the following the file is locked. How do I unlock the
file, from within the RPG? Service program. No suggestions of the
following please:
- seton LR
- RCLACTGRP
- ENDJOB
C/EXEC SQL
C+ Select data into :NameWork from zpal01
C+ where pkey = 'COMPANY '
C/END-EXEC
C If sqlcod=0
C Return NameWork
C Else
C Eval Cmd='SNDPPGMMSG MSGID(CPF9898) '+
C 'MSGDTA(' + apostrophe +
C 'Attempt to access ZPAL01 for ' +
C 'COMPANY record resulted in an ' +
C 'SQL code of ' +
C %trim(%editc(sqlcod:'Z')) +
C apostrophe +
C ') MSGTYPE(*ESCAPE) ' +
C 'MSGF(QCPFMSG)'
C Eval Status=ExecCmd(Cmd)
C Return *blanks
C EndIf
Isolation clause?
For read only clause?
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
_______________________________________________
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.cgi/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.
_______________________________________________
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.cgi/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.
_______________________________________________
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.cgi/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.
_______________________________________________
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.cgi/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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
