Thank you Ken. It worked for me.
Regards
Raja Nama, Senior Project Manager, Seneca Global
+91.80088.83258 (mobile)
+91.40. 23548718, 30481900 (main)
+91.40.30481909 (fax)
www.seneca-global.com
DISCLAIMER
The information contained in this eMail is confidential and intended for the
named recipient(s) only. If you are not an intended recipient of this eMail
you must not copy, distribute or take any further action in reliance on it.
You should delete it and notify the sender immediately.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rpg400-l-request@xxxxxxxxxxxx
Sent: Wednesday, March 10, 2010 10:26 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 9, Issue 217
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."
*** NOTE: When replying to this digest message, PLEASE remove all text
unrelated to your reply and change the subject line so it is meaningful.
Today's Topics:
1. SFLDROP, SFLFOLD and SFLDSPCTL (Raja Nama)
2. RE: SFLDROP, SFLFOLD and SFLDSPCTL (Wintermute, Sharon)
3. RE: SFLDROP, SFLFOLD and SFLDSPCTL
(McCully, Keith (Insurance, Technology Services))
4. RE: SFLDROP, SFLFOLD and SFLDSPCTL (Wintermute, Sharon)
5. Re: SFLDROP, SFLFOLD and SFLDSPCTL (Ken Sims)
6. SQLRPGLE Trigger and commitment control. (Charles Wilt)
7. SQLRPGLE problem (Stijn Peeters)
8. RE: SQLRPGLE problem (Hillier, Martin)
----------------------------------------------------------------------
message: 1
date: Wed, 10 Mar 2010 10:24:00 +0530
from: "Raja Nama" <raja.nama@xxxxxxxxxxxxxxxxx>
subject: SFLDROP, SFLFOLD and SFLDSPCTL
Dear All,
I have specified two rows of headings in SFLDSPCTL.
Here is how I have done the coding in DDS.
0193.00 A N58 SFLDROP(CF11)
0194.00 A 58 SFLFOLD(CF11)
Program is working fine.
Problem: 1. Always the two rows of headings from dspctl are displayed. 2.
When F11 is pressed, control is not coming back to the program (Checked this
in debug mode)
What I need: when using Drop option, system should not display the second
row of headings.
Need your inputs.
Regards
Raja Nama, Senior Project Manager, Seneca Global
+91.95000.03258 (mobile)
+91.40. 23548718, 30481900 (main)
+91.40.30481909 (fax)
<
http://www.seneca-global.com> www.seneca-global.com
DISCLAIMER
The information contained in this eMail is confidential and intended for the
named recipient(s) only. If you are not an intended recipient of this eMail
you must not copy, distribute or take any further action in reliance on it.
You should delete it and notify the sender immediately.
DISCLAIMER
The information contained in this eMail is confidential and intended for the
named recipient(s) only. If you are not an intended recipient of this eMail
you must not copy, distribute or take any further action in reliance on it.
You should delete it and notify the sender immediately.
------------------------------
message: 2
date: Wed, 10 Mar 2010 08:56:29 -0600
from: "Wintermute, Sharon" <Sharon.Wintermute@xxxxxxxxxxxxxxxx>
subject: RE: SFLDROP, SFLFOLD and SFLDSPCTL
Basically you have the SFLDROP and the SFLFOLD conditionally turned on
and off.
CF11 won't activate for sfldrop unless 58 is off.
CF11 won't activate for SFLFold unless 58 is on.
Are you sure this is what you wanted?
Sounds like you want the N58 and 58 removed from the display file.
Sharon Wintermute
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raja Nama
Sent: Tuesday, March 09, 2010 10:54 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: SFLDROP, SFLFOLD and SFLDSPCTL
Dear All,
I have specified two rows of headings in SFLDSPCTL.
Here is how I have done the coding in DDS.
0193.00 A N58 SFLDROP(CF11)
0194.00 A 58 SFLFOLD(CF11)
Program is working fine.
Problem: 1. Always the two rows of headings from dspctl are displayed.
2.
When F11 is pressed, control is not coming back to the program (Checked
this
in debug mode)
What I need: when using Drop option, system should not display the
second
row of headings.
Need your inputs.
Regards
Raja Nama, Senior Project Manager, Seneca Global
+91.95000.03258 (mobile)
+91.40. 23548718, 30481900 (main)
+91.40.30481909 (fax)
<
http://www.seneca-global.com> www.seneca-global.com
DISCLAIMER
The information contained in this eMail is confidential and intended for
the
named recipient(s) only. If you are not an intended recipient of this
eMail
you must not copy, distribute or take any further action in reliance on
it.
You should delete it and notify the sender immediately.
DISCLAIMER
The information contained in this eMail is confidential and intended for
the named recipient(s) only. If you are not an intended recipient of
this eMail you must not copy, distribute or take any further action in
reliance on it. You should delete it and notify the sender immediately.
--
This is the RPG programming on the IBM i / System i (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.
------------------------------
message: 3
date: Wed, 10 Mar 2010 15:13:10 -0000
from: "McCully, Keith \(Insurance, Technology Services\)"
<Keith.McCully@xxxxxxxxx>
subject: RE: SFLDROP, SFLFOLD and SFLDSPCTL
For prob1 below: SFLDROP & SFLFOLD work for the subfile record not for
the subfile headings.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raja Nama
Sent: 10 March 2010 04:54
To: rpg400-l@xxxxxxxxxxxx
Subject: SFLDROP, SFLFOLD and SFLDSPCTL
Dear All,
I have specified two rows of headings in SFLDSPCTL.
Here is how I have done the coding in DDS.
0193.00 A N58 SFLDROP(CF11)
0194.00 A 58 SFLFOLD(CF11)
Program is working fine.
Problem: 1. Always the two rows of headings from dspctl are displayed.
2.
When F11 is pressed, control is not coming back to the program (Checked
this in debug mode)
What I need: when using Drop option, system should not display the
second
row of headings.
Need your inputs.
Regards
Raja Nama, Senior Project Manager, Seneca Global
+91.95000.03258 (mobile)
+91.40. 23548718, 30481900 (main)
+91.40.30481909 (fax)
<
http://www.seneca-global.com> www.seneca-global.com
DISCLAIMER
The information contained in this eMail is confidential and intended for
the named recipient(s) only. If you are not an intended recipient of
this eMail you must not copy, distribute or take any further action in
reliance on it.
You should delete it and notify the sender immediately.
DISCLAIMER
The information contained in this eMail is confidential and intended for
the named recipient(s) only. If you are not an intended recipient of
this eMail you must not copy, distribute or take any further action in
reliance on it. You should delete it and notify the sender immediately.
--
This is the RPG programming on the IBM i / System i (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.
*** WARNING : This message originates from the Internet ***
The Royal Bank of Scotland plc, Registered in Scotland No. 90312. Registered
Office: 36 St Andrew Square, Edinburgh EH2 2YB
Authorised and regulated by the Financial Services Authority.
This e-mail message is confidential and for use by the addressee only. If
the message is received by anyone other than the addressee, please return
the message to the sender by replying to it and then delete the message from
your computer. Internet e-mails are not necessarily secure. The Royal Bank
of Scotland plc does not accept responsibility for changes made to this
message after it was sent.
Whilst all reasonable care has been taken to avoid the transmission of
viruses, it is the responsibility of the recipient to ensure that the onward
transmission, opening or use of this message and any attachments will not
adversely affect its systems or data. No responsibility is accepted by The
Royal Bank of Scotland plc in this regard and the recipient should carry out
such virus and other checks as it considers appropriate.
------------------------------
message: 4
date: Wed, 10 Mar 2010 09:19:45 -0600
from: "Wintermute, Sharon" <Sharon.Wintermute@xxxxxxxxxxxxxxxx>
subject: RE: SFLDROP, SFLFOLD and SFLDSPCTL
I missed the headings word!
Ouch,
Sharon Wintermute
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of McCully, Keith
(Insurance, Technology Services)
Sent: Wednesday, March 10, 2010 9:13 AM
To: RPG programming on the IBM i / System i
Subject: RE: SFLDROP, SFLFOLD and SFLDSPCTL
For prob1 below: SFLDROP & SFLFOLD work for the subfile record not for
the subfile headings.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raja Nama
Sent: 10 March 2010 04:54
To: rpg400-l@xxxxxxxxxxxx
Subject: SFLDROP, SFLFOLD and SFLDSPCTL
Dear All,
I have specified two rows of headings in SFLDSPCTL.
Here is how I have done the coding in DDS.
0193.00 A N58 SFLDROP(CF11)
0194.00 A 58 SFLFOLD(CF11)
Program is working fine.
Problem: 1. Always the two rows of headings from dspctl are displayed.
2.
When F11 is pressed, control is not coming back to the program (Checked
this in debug mode)
What I need: when using Drop option, system should not display the
second
row of headings.
Need your inputs.
Regards
Raja Nama, Senior Project Manager, Seneca Global
+91.95000.03258 (mobile)
+91.40. 23548718, 30481900 (main)
+91.40.30481909 (fax)
<
http://www.seneca-global.com> www.seneca-global.com
DISCLAIMER
The information contained in this eMail is confidential and intended for
the named recipient(s) only. If you are not an intended recipient of
this eMail you must not copy, distribute or take any further action in
reliance on it.
You should delete it and notify the sender immediately.
DISCLAIMER
The information contained in this eMail is confidential and intended for
the named recipient(s) only. If you are not an intended recipient of
this eMail you must not copy, distribute or take any further action in
reliance on it. You should delete it and notify the sender immediately.
--
This is the RPG programming on the IBM i / System i (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.
*** WARNING : This message originates from the Internet ***
The Royal Bank of Scotland plc, Registered in Scotland No. 90312.
Registered Office: 36 St Andrew Square, Edinburgh EH2 2YB
Authorised and regulated by the Financial Services Authority.
This e-mail message is confidential and for use by the addressee only.
If the message is received by anyone other than the addressee, please
return the message to the sender by replying to it and then delete the
message from your computer. Internet e-mails are not necessarily secure.
The Royal Bank of Scotland plc does not accept responsibility for
changes made to this message after it was sent.
Whilst all reasonable care has been taken to avoid the transmission of
viruses, it is the responsibility of the recipient to ensure that the
onward transmission, opening or use of this message and any attachments
will not adversely affect its systems or data. No responsibility is
accepted by The Royal Bank of Scotland plc in this regard and the
recipient should carry out such virus and other checks as it considers
appropriate.
--
This is the RPG programming on the IBM i / System i (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.
------------------------------
message: 5
date: Wed, 10 Mar 2010 07:39:32 -0800
from: Ken Sims <mdrg8066@xxxxxxxxxxx>
subject: Re: SFLDROP, SFLFOLD and SFLDSPCTL
Hi Raja -
On Wed, 10 Mar 2010 10:24:00 +0530, "Raja Nama"
<raja.nama@xxxxxxxxxxxxxxxxx> wrote:
2.
When F11 is pressed, control is not coming back to the program (Checked
this
in debug mode)
What I've done in this situation is to define the function key that I
wanted to be the toggle as just a regular CFxx function key so that
control would always be returned to the program.
I assigned some other unused function key on the SFLDROP and SFLFOLD
keywards (and did not put a legend for it on the screen because it's
not intended to actually be used).
Ken
Opinions expressed are my own and do not necessarily represent the views
of my employer or anyone in their right mind.
------------------------------
message: 6
date: Wed, 10 Mar 2010 11:03:57 -0500
from: Charles Wilt <charles.wilt@xxxxxxxxx>
subject: SQLRPGLE Trigger and commitment control.
All,
If I've got a SQL trigger, the system takes care of making sure the
trigger code runs under the same transaction level as the code calling
it.
If I've got a RPGLE trigger, I can check the value "Commit Lock Level"
field in the trigger buffer and USROPN any additional files under
commitment control as needed.
BUT, what if I've got an SQLRPGLE program that uses embedded SQL to
write to other files; can I check the "Commit Lock Level" and run the
appropriate SET TRANSACTION statement? Is there a better way?
Thanks!
Charles Wilt
------------------------------
message: 7
date: Wed, 10 Mar 2010 15:26:27 +0100
from: "Stijn Peeters" <Stijn.Peeters@xxxxxxxx>
subject: SQLRPGLE problem
Hello,
I am experiencing a problem when programming an SQLRPGLE program.
I have copy pasted the code from an existing working program.
Below you can see a part of the code. The problem I'm having is that my
sql doesn't find any data.
But when I execute the SQL statement itself in SQL I do find data.
What can be the problem? I hope someone is willing to help me.
This is the first SQLRPGLE I have programmed. And I just don't know
where to look for the error.
Thank you in advance.
Kind regards
stijn
callp FcClearPf('fcpckblt');
open fcpckblt;
Query='SELECT phfirm, phwknr, phkdnr, phpck, phrout, pptrmt,
PPKLTN,' +
' phshpd FROM fckbph, fckbpp WHERE PHFIRM =''1'' and' +
' PHWKNR =''000'' and pHkdnr in (66666, 50033) and ppfirm
=' +
' phfirm and ppwknr = phwknr and pppck = phpck and pppcks
= 0' +
' and phShpd > 100301 and PhShpd < 100310';
//Query1 = %replace(%char(SeFrDt):Query:%scan('STR':Query):3);
//Query2 = %replace(%char(SeToDT):Query1:%scan('TO':Query1):2);
exsr select_data;
w_count = 0;
dow sqlcod = 0;
exsr fetch_data;
if sqlcod = 0;
write FCPCK1;
w_count = w_count + 1;
endif;
enddo;
exsr close_downl;
close fcpckblt;
if W_count = 0;
S1ERROR = 'No data selected';
exfmt rfmat01;
$SUBR = 'S9999';
// exsr s01;
else;
callp FcDownload('fcpckblt');
S1ERROR=('File fcpckblt created in dir. AS400 on General.');
exfmt rfmat01;
endif;
------------------------------
message: 8
date: Wed, 10 Mar 2010 16:55:29 -0000
from: "Hillier, Martin" <Martin.Hillier@xxxxxxxxxx>
subject: RE: SQLRPGLE problem
Hi
Try compiling it with commit(*NONE)
Martin
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Stijn Peeters
Sent: 10 March 2010 14:26
To: rpg400-l@xxxxxxxxxxxx
Subject: SQLRPGLE problem
Hello,
I am experiencing a problem when programming an SQLRPGLE program.
I have copy pasted the code from an existing working program.
Below you can see a part of the code. The problem I'm having is that my
sql doesn't find any data.
But when I execute the SQL statement itself in SQL I do find data.
What can be the problem? I hope someone is willing to help me.
This is the first SQLRPGLE I have programmed. And I just don't know
where to look for the error.
Thank you in advance.
Kind regards
stijn
callp FcClearPf('fcpckblt');
open fcpckblt;
Query='SELECT phfirm, phwknr, phkdnr, phpck, phrout, pptrmt,
PPKLTN,' +
' phshpd FROM fckbph, fckbpp WHERE PHFIRM =''1'' and' +
' PHWKNR =''000'' and pHkdnr in (66666, 50033) and ppfirm
=' +
' phfirm and ppwknr = phwknr and pppck = phpck and pppcks
= 0' +
' and phShpd > 100301 and PhShpd < 100310';
//Query1 = %replace(%char(SeFrDt):Query:%scan('STR':Query):3);
//Query2 = %replace(%char(SeToDT):Query1:%scan('TO':Query1):2);
exsr select_data;
w_count = 0;
dow sqlcod = 0;
exsr fetch_data;
if sqlcod = 0;
write FCPCK1;
w_count = w_count + 1;
endif;
enddo;
exsr close_downl;
close fcpckblt;
if W_count = 0;
S1ERROR = 'No data selected';
exfmt rfmat01;
$SUBR = 'S9999';
// exsr s01;
else;
callp FcDownload('fcpckblt');
S1ERROR=('File fcpckblt created in dir. AS400 on General.');
exfmt rfmat01;
endif;
--
This is the RPG programming on the IBM i / System i (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.
--------------------------------------------------------
This message (including any attachments) is only for the use of the
person(s) for whom it is intended. It may contain Mattel confidential and/or
trade secret information. If you are not the intended recipient, you should
not copy, distribute or use this information for any purpose, and you should
delete this message and inform the sender immediately.
Mattel UK Limited is incorporated in England and Wales with its registered
office at Mattel House, Vanwall Business Park, Vanwall Road, Maidenhead,
Berkshire SL6 4UB. Company Registration Number 1471442.
------------------------------
--
This is the RPG programming on the IBM i / System i (RPG400-L) digest 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.
End of RPG400-L Digest, Vol 9, Issue 217
****************************************
DISCLAIMER
The information contained in this eMail is confidential and intended for the named recipient(s) only. If you are not an intended recipient of this eMail you must not copy, distribute or take any further action in reliance on it. You should delete it and notify the sender immediately.
midrange.com
