RE: Free-format RPG

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.