|
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> try this <FONT = SIZE=2>C &n= bsp; = Eval A = ' ' it works fine Regards Umesh <FONT = SIZE=2>__________________________________________________ Disclaimer: This message and any attachment(s) contained here = are information that is confidential, proprietary to HCL Technologies = and its customers. Contents may be privileged or otherwise protected by = law. The information is solely intended for the individual or the = entity it is addressed to. If you are not the intended recipient of = this message, you are not authorized to read, forward, print, retain, = copy or disseminate this message or any part of it. If you have = received this e-mail in error, please notify the sender immediately by = return e-mail and delete it from your computer -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [<A HREF="mailto:rpg400-l-bounces@xxxxxxxxxxxx";>mailto:rpg400-l-bounces@mi drange.com]On Behalf Of rpg400-l-request@xxxxxxxxxxxx Sent: Thursday, February 17, 2005 2:17 AM To: rpg400-l@xxxxxxxxxxxx Subject: RPG400-L Digest, Vol 4, Issue 212 Send RPG400-L mailing list submissions to <FONT = SIZE=2>rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, = visit <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l"; TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A > or, via email, send a message with subject or body = 'help' to <FONT = SIZE=2>rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at <FONT = SIZE=2>rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is = more specific than "Re: Contents of RPG400-L = digest..." Today's Topics: 1. RE: RPG400-L Digest, Vol 4, Issue 208 = (Carel Teijgeler) 2. RE: comment window on a regular full = screen. (Carel Teijgeler) 3. *inzsr .. opposite. (Hatzenbeler, = Tim) 4. RE: *inzsr .. opposite. = (Rick.Chevalier@xxxxxxxxxxxxxxx) 5. Re: *inzsr .. opposite. (Scott = Klement) 6. Re: *inzsr .. opposite. = (rob@xxxxxxxxx) 7. Re: *inzsr .. opposite. = (rob@xxxxxxxxx) 8. Using LIKE Operator in SQLRPGLE ? = (Luqman) 9. AW: *inzsr .. opposite. = (HauserSSS) 10. PASS *BLANK TO VARIABLE ? (Luqman) 11. RE: Using LIKE Operator in SQLRPGLE ? = (Holden Tommy) <FONT SIZE=2>--------------------------------------------------------------- ------- message: 1 date: Wed, 16 Feb 2005 19:06:32 +0100 from: "Carel Teijgeler" = <coteijgeler@xxxxxxxxx> subject: RE: RPG400-L Digest, Vol 4, Issue = 208 Michael, For the DDS you use a field (SDS_PROC) which is an = SDS subfield With the API you pass the value '*' in the MSGQ = parm. Examples of using MSGSFL always use the same value = for the DDS field and the API parm. '*' is a special value. I do not know what value it = retrieves under the cover, even though it should be the (name of the) = MSGQ of the running programme. Regards, Carel Teijgeler. *********** REPLY SEPARATOR *********** On 15-2-05 at 17:53 Ala, Michael A wrote: >Why don't I want the Program Name in = SDS_PROC? >That is the program that is sending the message = to the Message Queue and contains the Display that should display the = error >Everything is in 1 program and 1 display file I = am not calling any procedures. ------------------------------ message: 2 date: Wed, 16 Feb 2005 19:22:16 +0100 from: "Carel Teijgeler" = <coteijgeler@xxxxxxxxx> subject: RE: comment window on a regular full = screen. I think you mean: Write main DSPF Write window Read main DSPF This might help (never tested it). If you define a WINDOW with DDS I think the use of = OVERLAY is not needed, just KEEP and RSTUSRDSP key words. Why are people always using OVERLAY in a WINDOW, when = it is not a SFLCTL in a window? Windows are a special kind of DSPF. = Just wondering. Regards, Carel Teijgeler *********** REPLY SEPARATOR *********** On 16-2-05 at 11:49 Mackie, Roger L. (Precision = Press) wrote: >Yes. Make sure the window format does not overlap = any content on the >main screen. Make sure both formats have the = OVERLAY keyword specified. >WRITE the window format first. EXFMT the main = screen. ------------------------------ message: 3 date: Wed, 16 Feb 2005 12:00:10 -0800 from: "Hatzenbeler, Tim" = <thatzenbeler@xxxxxxxxxxxxx> subject: *inzsr .. opposite. Is there a subroutine type, that can be ran = automatically when an RPG program (returns or *inlr=*on) similar to = the way *inzsr is utilized when a program starts... Tim This e-mail message, including any attachments, is = for the sole use of the intended recipient(s) and may contain confidential = or privileged information. Any unauthorized review, use, = disclosure or distribution is prohibited. If you are not the intended = recipient, please contact the sender by reply e-mail and destroy the = message. ------------------------------ message: 4 date: Wed, 16 Feb 2005 14:03:49 -0600 from: <Rick.Chevalier@xxxxxxxxxxxxxxx> subject: RE: *inzsr .. opposite. Not a built-in subroutine. Of course, you could get into LR total time = calculations built into the cycle but we won't go there. = <grin> Rick -----Original Message----- From: = rpg400-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx [<A HREF="mailto:rpg400-l-bounces+rick.chevalier=americredit.com@midrang e.com">mailto:rpg400-l-bounces+rick.chevalier=americredit.com@midrange .com]On Behalf Of Hatzenbeler, Tim Sent: Wednesday, February 16, 2005 2:00 PM To: 'RPG programming on the AS400 / iSeries' Subject: *inzsr .. opposite. Is there a subroutine type, that can be ran = automatically when an RPG program (returns or *inlr=*on) similar to = the way *inzsr is utilized when a program starts... Tim This e-mail message, including any attachments, is = for the sole use of the intended recipient(s) and may contain confidential = or privileged information. Any unauthorized review, use, = disclosure or distribution is prohibited. If you are not the intended = recipient, please contact the sender by reply e-mail and destroy the = message. Privileged and Confidential. This e-mail, and = any attachments there to, is intended only for use by the addressee(s) = named herein and may contain legally privileged or confidential = information. If you have received this e-mail in error, please = notify me immediately by a return e-mail and delete this e-mail. = You are hereby notified that any dissemination, distribution or copying = of this e-mail and/or any attachments thereto, is strictly = prohibited. ------------------------------ message: 5 date: Wed, 16 Feb 2005 14:10:31 -0600 (CST) from: Scott Klement = <rpg400-l@xxxxxxxxxxxxxxxx> subject: Re: *inzsr .. opposite. > Is there a subroutine type, that can be ran = automatically when an RPG > program (returns or *inlr=*on) similar = to the way *inzsr is utilized when a > program starts... In VARPG, there's *TERMSR, but not in ILE RPG. There are a variety of alternatives, such as = procedures that can be called when the activation group ends, procedures that are = called when a call level ends abnormally, etc. Try searching the archives for *TERMSR, CEE4RAGE, = CEERTX, this stuff has been discussed extensively in the past. ------------------------------ message: 6 date: Wed, 16 Feb 2005 15:13:01 -0500 from: rob@xxxxxxxxx subject: Re: *inzsr .. opposite. Don't believe so. I even looked at ILE = condition handlers and nothing jumped out at me. Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 <A HREF="http://www.dekko.com"; = TARGET="_blank">http://www.dekko.com "Hatzenbeler, Tim" = <thatzenbeler@xxxxxxxxxxxxx> Sent by: = rpg400-l-bounces+rob=dekko.com@xxxxxxxxxxxx 02/16/2005 03:00 PM Please respond to RPG programming on the AS400 / iSeries = <rpg400-l@xxxxxxxxxxxx> To "'RPG programming on the AS400 / iSeries'" = <rpg400-l@xxxxxxxxxxxx> cc Subject *inzsr .. opposite. Is there a subroutine type, that can be ran = automatically when an RPG program (returns or *inlr=*on) similar to = the way *inzsr is utilized when a program starts... Tim This e-mail message, including any attachments, is = for the sole use of the intended recipient(s) and may contain confidential = or privileged information. Any unauthorized review, use, = disclosure or distribution is prohibited. If you are not the intended = recipient, please contact the sender by reply e-mail and destroy the = message. -- 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: <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l"; TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A > or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the = archives at <A HREF="http://archive.midrange.com/rpg400-l"; TARGET="_blank">http://archive.midrange.com/rpg400-l. ------------------------------ message: 7 date: Wed, 16 Feb 2005 15:24:57 -0500 from: rob@xxxxxxxxx subject: Re: *inzsr .. opposite. <A HREF="http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/inf o/apis/ile2a1TOC.htm" TARGET="_blank">http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ ic2924/info/apis/ile2a1TOC.htm Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 <A HREF="http://www.dekko.com"; = TARGET="_blank">http://www.dekko.com ------------------------------ message: 8 date: Thu, 17 Feb 2005 01:30:09 +0500 from: "Luqman" = <pearlsoft@xxxxxxxxxxxx> subject: Using LIKE Operator in SQLRPGLE ? How can I use LIKE Operator in SQLRPGLE ? I tried following but its giving error. CID is a string variable. C/ EXEC SQL C+ SELECT * FROM INVOICE WHERE CUSTID LIKE :CID = ||'%' C/END EXEC Best Regards, Luqman ------------------------------ message: 9 date: Wed, 16 Feb 2005 21:40:55 +0100 from: "HauserSSS" = <Hauser@xxxxxxxxxxxxxxx> subject: AW: *inzsr .. opposite. Hi, you could call the QMHSNDSM-API (send scope = message). This API sends a scope message that allows a user to = specify a program to run when your program or job is = completed. Birgitta -----Ursprüngliche Nachricht----- Von: = rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx [<A HREF="mailto:rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx";>m ailto:rpg400-l-bounces+hauser=sss-software.de@xxxxxxxxxxxx]Im = Auftrag von Hatzenbeler, Tim Gesendet: Mittwoch, 16. Februar 2005 21:00 An: 'RPG programming on the AS400 / iSeries' Betreff: *inzsr .. opposite. Is there a subroutine type, that can be ran = automatically when an RPG program (returns or *inlr=*on) similar to = the way *inzsr is utilized when a program starts... Tim This e-mail message, including any attachments, is = for the sole use of the intended recipient(s) and may contain confidential = or privileged information. Any unauthorized review, use, = disclosure or distribution is prohibited. If you are not the intended = recipient, please contact the sender by reply e-mail and destroy the = message. -- 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: <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l"; TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A > or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the = archives at <A HREF="http://archive.midrange.com/rpg400-l"; TARGET="_blank">http://archive.midrange.com/rpg400-l. ------------------------------ message: 10 date: Thu, 17 Feb 2005 01:40:03 +0500 from: "Luqman" = <pearlsoft@xxxxxxxxxxxx> subject: PASS *BLANK TO VARIABLE ? How can I pass *BLANK to a Variable in SQLRPGLE, in = the middle of an SQLRPGLE ? I tried following but it did not work out. <FONT = SIZE=2>C &n= bsp; = EVAL A=*BLANK Any idea please ? Best Regards, Luqman ------------------------------ message: 11 date: Wed, 16 Feb 2005 14:46:37 -0600 from: Holden Tommy = <Tommy.Holden@xxxxxxxxxxxxxxxxx> subject: RE: Using LIKE Operator in SQLRPGLE = ? Eval CID=%Trim(CID)+'%' exec sql select * from invoice where custid like :cid end-exec Thanks, Tommy Holden -----Original Message----- From: Luqman [<A HREF="mailto:pearlsoft@xxxxxxxxxxxx";>mailto:pearlsoft@xxxxxxxxxxxx= ] Sent: Wednesday, February 16, 2005 2:30 PM To: rpg400-l@xxxxxxxxxxxx Subject: Using LIKE Operator in SQLRPGLE ? How can I use LIKE Operator in SQLRPGLE ? I tried following but its giving error. CID is a string variable. C/ EXEC SQL C+ SELECT * FROM INVOICE WHERE CUSTID LIKE :CID = ||'%' C/END EXEC Best Regards, Luqman -- 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: <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l"; TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A > or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the = archives at <A HREF="http://archive.midrange.com/rpg400-l"; TARGET="_blank">http://archive.midrange.com/rpg400-l. ------------------------------ -- This is the RPG programming on the AS400 / iSeries = (RPG400-L) digest list To post a message email: = RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list = options, visit: <A = HREF="http://lists.midrange.com/mailman/listinfo/rpg400-l"; TARGET="_blank">http://lists.midrange.com/mailman/listinfo/rpg400-l</A > or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the = archives at <A HREF="http://archive.midrange.com/rpg400-l"; TARGET="_blank">http://archive.midrange.com/rpg400-l. End of RPG400-L Digest, Vol 4, Issue 212 ****************************************
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.
midrange.com
