RE: MIR signature version 1

["Wilt, Charles" <WiltC@xxxxxxxxxx>]

Than Joe's code should have been...

   EVAL    MyVars = %char(ZBDATEN) + '/' + %char(CUSTNO)

We want to see the values in the host variables used in the where clause.

Charles
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Doug Palme
> Sent: Thursday, August 02, 2007 2:40 PM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: MIR signature version 1
>
> Btw,
> SLACCT and SLTDAT are the fields in the SLSTRNL5 file, they 
> are not the variables.
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Joe Pluta
> Sent: Thursday, August 02, 2007 11:01 AM
> To: 'RPG programming on the AS400 / iSeries'
> Subject: RE: MIR signature version 1
>
> Okay, now we're on to something.
>
> Add the following statement right before the SQL:
>
>    EVAL    MyVars = %char(SLTDAT) + '/' + %char(SLACCT)
>
> Then debug it and tell us what is in that variable.
>
> Joe
>
>
> > From: Doug Palme
> >
> > ZSUM has a value of 20.
>
>
> --
> 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.
>
>
>
>
>
>
> **************************************************************
> **************
> This transmission may contain information that is privileged,
> Confidential and/or exempt from disclosure under applicable law.
> If you are not the intended recipient, you are hereby notified that
> any disclosure, copying, distribution, or use of the information
> contained herein (including any reliance thereon) is STRICTLY
> PROHIBITED. If you received this transmission in error, please
> immediately contact the sender and destroy the material in its
> entirety, whether in electronic or hard copy format. Thank you.
> **************************************************************
> **************
>
> -- 
> 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.

This e-mail transmission contains information that is intended to be confidential and privileged.  If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful.  Please reply to the message immediately by informing the sender that the message was misdirected.  After replying, please delete and otherwise erase it and any attachments from your computer system.  Your assistance in correcting this error is appreciated.