× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Using Peter's method, I think (I've never tried) you can say
  eval=Cycle_Cnt_Flg = (CCFLG = '1')   and Cycle_Cnt_Flg
will equal on or off based on results of CCFLG=1

Kevin Monahan
Sr Programmer/Analyst
JL Hammett Co
781-848-1000 x1114
www.hammett.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Peter_Vidal@pall.com
> Sent: Monday, March 18, 2002 9:58 AM
> To: rpg400-l@midrange.com
> Subject: Re: Treating a character as a logical
>
>
>
> Well, what I think that you can do is compare that field to a value and
> depending on the result, then you can turn a logical variable *on
> or *off.  What
> I have done in the past is like this example:
>
> On the Data Definition:
> DCycle_Cnt_Flg    S              1n
>
> On Calculations:
> eval=Cycle_Cnt_Flg = *Off
> If CCFLG = '1'
> eval=Cycle_Cnt_Flg = *On
> Endif
>
> And later in the calcs:
> If Cycle_Cnt_Flg
> Processing...
> Endif
>
> Peter Vidal
> Pall Aeropower Corp.
> Programmer Analyst
>
>
>
>                     rob@dekko.com
>                     Sent by:                 To:     rpg400-l@midrange.com
>                     rpg400-l-admin@mi        cc:
>                     drange.com               Subject:
> Treating a character as a logical
>
>
>                     03/18/2002 09:41
>                     AM
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
>
> Can I do the following with a variable defined as 1A?  The possible values
> of this variable are *blank and '1'.
> If found;
> ...
> EndIf;
>
> Or do I have to do:
> If (found=*on);
>
> SELECT MYVAR into :found FROM ROB/TESTSQL WHERE EXISTS (
> select DBNAME from qsys2/syscolumns
> where dbname=?
>  and TBNAME between ? and ?
>  and NAME between  ? and ?)
>
> 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@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.