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



But an entire procedure to do what one opcode used to do? I'm sorry, but I
don't have the patience to program down to the bare metal. I know some
people live for that stuff. I try to keep as current as I can, but I also
believe in the K.I.S.S. mantra. BTW, I do eat quiche. <g>

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                                    
                    "Mike Haston **                                             
                                                                    
                    Data"                      To:     "RPG programming on the 
AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>                             
                    <MHaston@xxxxxxx>          cc:                              
                                                                    
                    Sent by:                   Subject:     RE: Free-format RPG 
                                                                    
                    rpg400-l-bounces@xx                                         
                                                                    
                    drange.com                                                  
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    
                    04/25/2003 04:37 PM                                         
                                                                    
                    Please respond to                                           
                                                                    
                    RPG programming on                                          
                                                                    
                    the AS400 / iSeries                                         
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    




To me it _can be_ very forward thinking.  You then have a procedure to
replace your one line of code that gives you one option and it can give you
many options.  Yes you have to create a procedure once that you add to your
programs with a one line BNDDIR and you can use it all over.

I'm not as seasoned as most.  I'm one that thought these MOVE bugs were
enhancements!  But we are programmers after all.  If we need something we
create it.  I'll gladly take having to deal with having to do some
different conversion to enjoy the benefits of /free.




-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Friday, April 25, 2003 3:56 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Free-format RPG



So I have to code a procedure, put it in a service program, then code to
the service program in order to replace 1 line of code.  Sorry, that to me
is not very forward thinking.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com



                    "Mike Haston **

                    Data"                      To:     "RPG programming on
the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
                    <MHaston@xxxxxxx>          cc:

                    Sent by:                   Subject:     RE: Free-format
RPG
                    rpg400-l-bounces@xx

                    drange.com



                    04/25/2003 03:16 PM

                    Please respond to

                    RPG programming on

                    the AS400 / iSeries







I know it's more work, but if you do it that often why not create a
procedure/function?

#getNumericTime( *current );
#getAlphaTime( *job : *usa );

Haven't done it, but I suppose it would work.



-----Original Message-----
From: MWalter@xxxxxxxxxxxxxxx [mailto:MWalter@xxxxxxxxxxxxxxx]
Sent: Friday, April 25, 2003 2:55 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Free-format RPG



I like /free. BUT, there are a few things in /free that I've not been able
to duplicate. One, for example, is like quite a few iSeries shops, we use
numerics for dates and times. To get the current time into  a 6 byte
numeric field I just used the time opcode to the numeric field. How is this
accomplished in /free?

If I use the %time BIF the compiler tells me that right and left hands
aren't the same.
I tried %DEC(%TIME()). That tells me that the value for the first parameter
of %DEC is not valid.
OK, I tried %DEC(%CHAR(%TIME()):6:0). This compiled but when I tried to run
it, i got a RNQ0105 (a character representation of a numeric value is in
error)

What's the key here?

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com

_______________________________________________
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.cgi/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.


_______________________________________________
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.cgi/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.





_______________________________________________
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.cgi/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.


_______________________________________________
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.cgi/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 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.