Re: Do you see anything wrong with this code for RECORD_LOCK_INFO

[Darryl Freinkel <dhfreinkel@xxxxxxxxx>]

In this part of your code:

SELECT
    JOB_NAME AS jobname

remove the as Jobname. It will create a problem. The RPG will receive the
value from Job_Name into :jobname automagically.

Darryl.

On Mon, Nov 13, 2017 at 12:35 PM, Hiebert, Chris <
chris.hiebert@xxxxxxxxxxxxxx> wrote:

> How is the program compiled?
> Do you LR=ON between each run?
>
> What is the SQL code after you run the Open?
> When are you closing the cursor?
>
> Based on what you've included,
> it's possible that you are on the second run of the program but still
> using the cursor from the first run.
> The open fails, but the fetch runs over the last open cursor which is
> already at the End.
>
>
> Chris Hiebert
> Senior Programmer/Analyst
> Disclaimer: Any views or opinions presented are solely those of the author
> and do not necessarily represent those of the company.
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tom
> Deskevich
> Sent: Monday, November 13, 2017 7:41 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Do you see anything wrong with this code for RECORD_LOCK_INFO
>
> I am trying to capture the record locks for a file and relative record
> number(library is not passed in, should pick up from the library list).
> I know I have locks, I run the SQL independently and get results. Yet the
> embedded SQL in this code never returns anything.
> I never get past the first check of SQLCOD, skips to the enddo.
> I put the program in debug and checked the variables, and they are correct
> (File and Record#)
>    SELECT
>     JOB_NAME AS jobname
>     FROM QSYS2.RECORD_LOCK_INFO
>    WHERE SYS_TNAME= :File
>     AND RRN= :Record#;
>   EXEC sql
>    OPEN C1;
>   EXEC sql
>    FETCH C1 INTO :jobname;
>   dow sqlcod<>100 and sqlcod>=0;       <<== sqlcod is 100 first pass.
>   Exsr loadrtn;
>   EXEC sql
>    FETCH C1 INTO :jobname;
>   enddo;
>   Exfmt schctl1;        <== give user ability to cancel jobs.
>   If *in12=*off;
>   exsr killjobs;
>
> Tom Deskevich TIA
>
>
> Harriscomputer
>
> Tom Deskevich
> Programmer/Analyst
>
> P: 814-472-6066 x134
> F: 814-472-5019
> E: TDeskevich@xxxxxxxxxxxxxxxxxx
>
>
> [cid:HLG_logo_eccde356-f9d5-496b-9e38-e7802fb467a8.jpg]
>
>
> 172 Gateway Road PO Box 568
> Ebensburg, Pennsylvania
> 15931
> www.harrislocalgov.com<file:///C:/Users/jk80512-admin/
> AppData/Local/Temp/3/b4357967-469d-46e6-96e1-8cc4b2032841/ww
> w.harrislocalgov.com>
>
>
> This message has been sent on behalf of a company that is part of the
> Harris Operating Group of Constellation Software Inc. These companies are
> listed at the following link:https://urldefense.
> proofpoint.com/v2/url?u=http-3A__subscribe.harriscomputer.
> com&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=
> GYVfe7k5MogwSsRr94zbPeTDRJYpFK3WOG9BKFEwK1s&m=d7va1zPuFuTGuE1TrdLP_
> AqwWkhORXAESqJ4cbyePx8&s=VHD_r7Zj4RJuqiaFDsBNSLdbtjNZvcagD-gv8meN6iE&e=
>
> Unsubscribe Option: If you do not wish to receive any future email, please
> unsubscribe by clicking on the following link:https://urldefense.
> proofpoint.com/v2/url?u=http-3A__subscribe.harriscomputer.
> com&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=
> GYVfe7k5MogwSsRr94zbPeTDRJYpFK3WOG9BKFEwK1s&m=d7va1zPuFuTGuE1TrdLP_
> AqwWkhORXAESqJ4cbyePx8&s=VHD_r7Zj4RJuqiaFDsBNSLdbtjNZvcagD-gv8meN6iE&e=
>
>
>
> This message is intended exclusively for the individual or entity to which
> it is addressed. This communication may contain information that is
> proprietary, privileged or confidential or otherwise legally exempt from
> disclosure. If you are not the named addressee, you are not authorized to
> read, print, retain, copy or disseminate this message or any part of it. If
> you have received this message in error, please notify the sender
> immediately by e-mail and delete all copies of the message.
>
>
>
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
> unsubscribe, or change list options,
> visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.
> midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=2S-2xx8Cum_thMfWs-
> kOOHQTwolPvSZ4PFLhr1wDDGs&r=GYVfe7k5MogwSsRr94zbPeTDRJYpFK3WOG9BKFEwK1s&m=
> d7va1zPuFuTGuE1TrdLP_AqwWkhORXAESqJ4cbyePx8&s=5zxzHQSoJc6KiYP6pSkoYHdcJm_
> BvcpmcbGVgS7G298&e=
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> https://urldefense.proofpoint.com/v2/url?u=https-3A__
> archive.midrange.com_rpg400-2Dl&d=DwICAg&c=2S-2xx8Cum_thMfWs-
> kOOHQTwolPvSZ4PFLhr1wDDGs&r=GYVfe7k5MogwSsRr94zbPeTDRJYpFK3WOG9BKFEwK1s&m=
> d7va1zPuFuTGuE1TrdLP_AqwWkhORXAESqJ4cbyePx8&s=
> 13IWYJzz41ENtJz2JTXXNbfOVcAqeDagyll9J-cQUcY&e=.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://urldefense.proofpoint.com/v2/url?u=http-3A__amzn.to_
> 2dEadiD&d=DwICAg&c=2S-2xx8Cum_thMfWs-kOOHQTwolPvSZ4PFLhr1wDDGs&r=
> GYVfe7k5MogwSsRr94zbPeTDRJYpFK3WOG9BKFEwK1s&m=d7va1zPuFuTGuE1TrdLP_
> AqwWkhORXAESqJ4cbyePx8&s=6KWp7OaFlOFtUjFYiyVbc59USmXYKV02gS6RKXWR05A&e=
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD