RE: Treating a character as a logical

["Kevin Monahan" <kevin.monahan@xxxxxxxxxxx>]

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.
>
>