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



You could simply use %CHAR() built-in function to do that for you.

-Bob Cozzi

> 
> 
> I want to create a procedure to return a varchar from a given
> number, len
> and dec positions, like this:
> 
> eval MsgData = Filename + Filelib + CharNum(size: 7: 0)
> 
> I want to use CharNum() primarily to set the messagedata for my
> message
> descriptions. Any ideas on how to accomplish this as elegantly as
> possible ?
> My original thought is to create a DS like this:
> 
> D  NUM_P_0                1     15P 0
> D  NUM_P_1                1     15P 1
> D  NUM_P_2                1     15P 2
> D  NUM_P_3                1     15P 3
> D  NUM_P_4                1     15P 4
> D  NUM_P_5                1     15P 5
> D  NUM_P_6                1     15P 6
> D  NUM_P_7                1     15P 7
> D  NUM_P_8                1     15P 8
> D  NUM_P_9                1     15P 9
> D  CHARNUM                1     15A
> 
> and then according to the parameters passed as LEN & DEC assign the
> numeric
> value to the corresponding field and return the data as a substr of
> CHARNUM.
> I know it will work, but I really dont like this approach, any
ideas
> would
> be greatly appreciated.
> 
> Thanks in advance,
> 
> Carlos Kozuszko.
> 
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> 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 ...

Follow-Ups:

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.