Re: Converting from %date() to numeric

:)
Yep.
That's all for today.  My brain just said good-bye till tomorrow.  Think 
I'll stare blankly at the screen for the next 35 minutes now.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/02/2005 03:46 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Converting from %date() to numeric







> Nvm the idiot that wrote this.  Sigh.  What I get for trying out the
> /free.  Apparently to do the DSPLY I have to code
> Dsply '' ' ' Result;

Heh..  incidentally, this is the way that DSPLY has always worked... the 
variable/literal in factor1 is just displayed on the screen.  Factor2 is 
pretty much always blank (Yeah, I know, it has a purpose -- but I never 
use it, so I don't remember what the purpose is) The result field is a 
variable that you can request input into, and will cause the program to 
stop and wait for you to type something.

The only difference in /FREE is that you specify factor1 after the 
op-code, and have to use '' as a placeholder for the fields that you 
aren't specifying.

I agree that the following code is really ugly and awkward:
    DSPLY '' '' myfield;

Since I only use DSPLY for proof-of-concept programs anyway, I usually use 

the factor1 only (DSPLY myField;) and then look at the joblog to see what 
it said...

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