Re: aclfgl_substr ERROR
Mike Aubury <[email protected]>
| Newsgroups | gmane.comp.lang.4gl.aubit.general |
|---|---|
| Message-ID | <CAGAq4WGLAnPVrV6U98MuB3jRn7WbUTBE00GyfS-njNszQV1dzA@mail.gmail.com> |
To my knowledge - there is no builtin 4gl 'substr' function in Informix4GL or Aubit4GL... You normally use something like: let vc_ano=somecharvar[3,5] Perhaps the code you are converting had its own definition of a substr function ? (it would certainly be trivial to write on) Although - in your case - perhaps just vc_ano=TODAY USING "yy" would be simpler anyway ? On 21 December 2012 20:17, Horacio Villanueva <[email protected]> wrote: > Hi Guys, > > I'm trying to use 4gl SUBSTR() function on aubit4gl, but when I compile > the code get this error: > > captura_venta.ao: In function `aclfgl_captura_venta': > captura_venta.c:(.text+0x80d): undefined reference to `aclfgl_substr' > collect2: ld returned 1 exit status > > So... I'm using the wrong function or is something else? > > > > > Environment: DBDATE=DMY4 > > Note: I Need to keep DBDATE as is and not change it > > > > Code: > > DEFINE v_ano DATETIME YEAR TO YEAR > DEFINE vc_ano CHAR(4) > > LET v_ano = TODAY > LET vc_ano = SUBSTR(vc_ano,3,2) > DISPLAY vc_ano_fecha AT 2,2 ATTRIBUTE(REVERSE, BOLD) > > Thanks... > --regards-- > > -- > Salu2 > Un cerebro holgazán es la morada del demonio, y ese demonio se llama > Alzheimer > > > ------------------------------------------------------------------------------ > LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial > Remotely access PCs and mobile devices and provide instant support > Improve your efficiency, and focus on delivering more value-add services > Discover what IT Professionals Know. Rescue delivers > http://p.sf.net/sfu/logmein_12329d2d > _______________________________________________ > Aubit4gl-discuss mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss > > ------------------------------------------------------------------------------ LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial Remotely access PCs and mobile devices and provide instant support Improve your efficiency, and focus on delivering more value-add services Discover what IT Professionals Know. Rescue delivers http://p.sf.net/sfu/logmein_12329d2d _______________________________________________ Aubit4gl-discuss mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/aubit4gl-discuss