|
1) Can you really put an = right after an eval to change it's function? Normally I don't use eval. Rather redundant on free format code. 2) You're still doing a compare. If this, then turn the logical off or on. I was hoping to avoid the additional compare. Before we had *on or *off in the language we used '0' for off and '1' for on. Some of us created variables named ON and OFF to be more documenting. Then IBM added *ON and *OFF. Based on this remembrance of history, I should be able to set my logical variable based on the character variable. Now I just have to report yet another bug that the precompiler doesn't support logical variables in sql statements. Gee, if IBM added reserved words for *on and *off, what would it take to get reserved words for all the status codes? Or at least a nice /include? Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin Peter_Vidal@pall. com To: rpg400-l@midrange.com Sent by: cc: rpg400-l-admin@mi Fax to: drange.com Subject: Re: Treating a character as a logical 03/18/2002 09:58 AM Please respond to rpg400-l 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 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 copyright@midrange.com.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.