Re: Moving char to numeric in free-format RPG

["Jade Richtsmeier" <jade.richtsmeier@xxxxxxxxxxxxxx>]

Thanks for the suggestion, but MOVE isn't supported in free-form RPG.  As
much as it pained me to do it, I used the following code:

 /end-free
c                   move      $entry_year   parm_year40
 /free

I think I'll have to look into my options using data structures.


Jade Richtsmeier, Programmer/Analyst
Minnesota Counties Information Systems
jade.richtsmeier@mcis.cog.mn.us


----- Original Message -----
From: "Juan Robledo" <Juan_Robledo@irco.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, December 13, 2001 2:40 PM
Subject: Re: Moving char to numeric in free-format RPG


>
> I would do a simply Move into the numeric field.
>
> Juan Robledo
> Programmer Analyst
>
>
>
>                                  "Jade
>                                  Richtsmeier"   To:
<RPG400-L@midrange.com>
>                                  <jade.richtsm  cc:
>                                  eier@mcis.cog  Subject: Moving char to
numeric in free-format RPG
>                                  .mn.us>
>                                  Sent by:
>                                  rpg400-l-admi
>                                  n@midrange.co
>                                  m
>
>
>                                  12/13/2001
>                                  03:17 PM
>                                  Please
>                                  respond to
>                                  rpg400-l
>
>
>
>
>
> Am I trying to do something that isn't do-able in free-format RPG?
>
> I have a four character year parameter (being passed from an old PL/I
> program) into my new RPGLE program.  I want to move it to a four numeric
> field for manipulation.  What is the best way to do this?
>
> Thanks!
>
> Jade Richtsmeier, Programmer/Analyst
> Minnesota Counties Information Systems
> jade.richtsmeier@mcis.cog.mn.us
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>