Re: Please help with arrays

I think you should change this line:
> c    MOVEA     S5            SS(8)
to this:
> c    MOVEA     S5            SS(9)




----- Original Message -----
From: "DB_Caloway Caloway" <db_caloway@hotmail.com>
To: <rpg400-l@midrange.com>
Sent: Tuesday, October 02, 2001 2:13 PM
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.