4GL *** UPSHIFT Function for 4GL available *** 4GL 
Author Message
 4GL *** UPSHIFT Function for 4GL available *** 4GL

Somebody posted an article looking for a way to UPSHIFT ( toupper ) a
string, in 4GL.  I found the article on our news server at work, but can't
find it on {*filter*}gates', so I'll just post this here and hope the right
people catch it.

I had the need to UPSHIFT a string just last week, so I made one in C.
It's very simple, so anybody should be able to use it.

At my home page there's a C-language UPSHIFT function (as well as a few
other tools) to link in with a 4GL function.  A sample 4GL program is also
included to illustrate using it.  It is for strings.  You pass it a string
and it UPSHIFTS the whole string.  This is not a complicated artificial
intelligence engine, scanning the string and avoiding already UPSHIFTED
characters.  It just does the whole string no matter what.  It uses the
toupper()  C-language function.  You can copy this function and create
a tolower function as well.

Hope this can be of help!

goto http://www.***.com/ ~tschaefe  

Look on the NEWS and UPDATES page.

Enjoy!

Tim



Wed, 18 Jun 1902 08:00:00 GMT
 4GL *** UPSHIFT Function for 4GL available *** 4GL

why not just use the upshift function in 4GL.

BTW - I have a stored procedure to do an upshift in SQL,ACE, et al
if anyone wants a copy

Mike Aubury
Aubit Computing Ltd.

(Cuurently contracting - hence the e-mail address).



Wed, 18 Jun 1902 08:00:00 GMT
 4GL *** UPSHIFT Function for 4GL available *** 4GL

There is already an UPSHIFT and DOWNSHIFT function in 4GL, why would you write
another one?

Quote:
>Somebody posted an article looking for a way to UPSHIFT ( toupper ) a
>string, in 4GL.  I found the article on our news server at work, but can't
>find it on {*filter*}gates', so I'll just post this here and hope the right
>people catch it.

>I had the need to UPSHIFT a string just last week, so I made one in C.
>It's very simple, so anybody should be able to use it.

>At my home page there's a C-language UPSHIFT function (as well as a few
>other tools) to link in with a 4GL function.  A sample 4GL program is also
>included to illustrate using it.  It is for strings.  You pass it a string
>and it UPSHIFTS the whole string.  This is not a complicated artificial
>intelligence engine, scanning the string and avoiding already UPSHIFTED
>characters.  It just does the whole string no matter what.  It uses the
>toupper()  C-language function.  You can copy this function and create
>a tolower function as well.

>Hope this can be of help!

>goto http://www.***.com/ ~tschaefe  

>Look on the NEWS and UPDATES page.

>Enjoy!

>Tim

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
Gordon E. {*filter*} MACS PCP
25 Clarke Street Ripley Queensland Australia
Phone 61-7-32940555

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
It is far far better to remain silent and appear a fool
then to open ones mouth and remove all doubt.

Anon.



Wed, 18 Jun 1902 08:00:00 GMT
 4GL *** UPSHIFT Function for 4GL available *** 4GL

Quote:
}>>>>>>>>> Perry's response to Tim Schaefer <<<<<<<<<<

There is already a function built into 4GL called upshift().

let mycharvar = upshift("abc")

yields

mycharvar = "ABC"

Quote:

} Subject: 4GL   ***    UPSHIFT Function for 4GL available      ***    4GL
} Date: 6 Feb 1996 11:39:00 GMT

}
} Somebody posted an article looking for a way to UPSHIFT ( toupper ) a
} string, in 4GL.  I found the article on our news server at work, but can't
} find it on {*filter*}gates', so I'll just post this here and hope the right
} people catch it.
}
} I had the need to UPSHIFT a string just last week, so I made one in C.
} It's very simple, so anybody should be able to use it.
}
} At my home page there's a C-language UPSHIFT function (as well as a few
} other tools) to link in with a 4GL function.  A sample 4GL program is also
} included to illustrate using it.  It is for strings.  You pass it a string
} and it UPSHIFTS the whole string.  This is not a complicated artificial
} intelligence engine, scanning the string and avoiding already UPSHIFTED
} characters.  It just does the whole string no matter what.  It uses the
} toupper()  C-language function.  You can copy this function and create
} a tolower function as well.
}
} Hope this can be of help!
}
} goto http://www.***.com/ ~tschaefe  
}
} Look on the NEWS and UPDATES page.
}
} Enjoy!
}
} Tim
}
}

-perryd (Guru)

====================================================================
= Perry Dillard - Chief Architect       Direct Dial: (206)517-6430 =
= FourGen Software, Inc.                        FAX: (206)522-0054 =
= FourGen Building                    Tech. Support: (800)444-3398 =
= 115 NE 100th Street                         Sales: (800)333-4436 =
= Seattle, W.A.  98125-8098                                        =
=                                                                  =

=                                                                  =
= Home Page: http://www.***.com/ ;         =
====================================================================



Wed, 18 Jun 1902 08:00:00 GMT
 4GL *** UPSHIFT Function for 4GL available *** 4GL

Quote:


>  >why not just use the upshift function in 4GL.

>  >BTW - I have a stored procedure to do an upshift in SQL,ACE, et al
>  >if anyone wants a copy
>  Because Mike,

>  I'm a doodlehead!

>  I just didn't think to look!  I thought there was a PERform UPSHIFT, but not
>  one for 4GL...sigh...with so few 4GL functions, I just didn't think to RTFM...
>  Was a great exersize...

Well Tim, you might still have some use for it. The 4GL UPSHIFT function isn't
a great upshifter of our special european characters. Your's isn't either, but
it may at least be modified to do that.
I haven't tested the 4GL UPSHIFT function with NLS turned on yet, so may be
we don't need it. Anybody know if UPSHIFT in 4GL (and NewEra) supports 8 bit
character sets in any sensible way?


NM-data, Aasesvei 71, 1300 Sandvika, Norway
My opinions are those of my company



Wed, 18 Jun 1902 08:00:00 GMT
 4GL *** UPSHIFT Function for 4GL available *** 4GL

Quote:


>There is already an UPSHIFT and DOWNSHIFT function in 4GL, why would you
write
>another one?

>_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
>Gordon E. {*filter*} MACS PCP
>25 Clarke Street Ripley Queensland Australia
>Phone 61-7-32940555

>_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
>It is far far better to remain silent and appear a fool
>then to open ones mouth and remove all doubt.

>Anon.

Good Question Gordon!

I didn't read the right manual, and find the UPSHIFT FUNCTION.  As you
are probably aware, the UPSHIFT FUNCTION is in the appendix of the
manuals.  Of course, had I read the index at the back of the book it
would have been apparent.  So I'm guilty of not RTFM...  :-)  

At least I can go to the beach and wax philosophical about it.  :-)

Maybe one saving grace to my blunder is that you can set the string length
to any length you want with my version.  The INFORMIX function limits the
length to 512 characters--at least in the older version.  So it might not
be a total loss...They can even co-exist...

Better to have tried and failed than to have never tried at all. --whoever

:-)

Tim

http://www.***.com/ ~tschaefe  



Wed, 18 Jun 1902 08:00:00 GMT
 
 [ 6 post ] 

 Relevant Pages 

1. more on 4gl upshift function

2. || in 4GL and upshift in SQL

3. Aubit 4gl, Informix-4gl compatible OpenSource GNU compiler project

4. GA-Atlanta-100997--4GL-Progress-ORACLE-Programmer-Progress: 4GL Transaction Processing Systems

5. please revive project 4GL++, using 4gl for Windows and New Era

6. please revive project 4GL++, using 4gl for Windows and New Er

7. Informix 4GL and ProIV 4GL

8. Changing 4GL reports without changing 4GL source

9. informile to compile the 4gl and runx-4gl and linux

10. Diference between 4GL and 4GL-RDS

11. 4GL-Module/Modify doesn't list *.4gl's


 
Powered by phpBB® Forum Software