|
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 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.
midrange.com
