RE: Please help with arrays

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

On your MOVEA '-'  you should really be using MOVE '-'  not MOVEA.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of DB_Caloway Caloway
> Sent: Tuesday, October 02, 2001 1:14 PM
> To: rpg400-l@midrange.com
> Subject: Please help with arrays
>
> I am trying to use a program that was writen by someone. I would like
to
> insert "-". E.g 111111111 would like to see 111-111-111. I run the
prgram
> but I get 111-111111. Can you please take a look at the code and let
me know
> what I am missing. Thanks in advance.
>
>   * Use this array to insert the '-' in the  id field.
>   *
> D SS              S              1    DIM(11)
>
>               D                 DS
> D  SSNO                   1     11
> D  S1                     1      3
> D  S3                     4      5
> D  S5                     6      9
>
> c    MOVEA     S1            SS(1)
> c    MOVEA     S3            SS(5)
> c    MOVEA     S5            SS(8)
>
> C     MOVEA     '-'           SS(4)
> C     MOVEA     '-'           SS(8)
>
>
>
>
>
>
>
> _________________________________________________________________
> Get your FREE download of MSN Explorer at
http://explorer.msn.com/intl.asp
>
> _______________________________________________
> 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.