Re: Please help with arrays

C                EVAL        SS = %editw(SSNO:'   -   -   ')

should work too

----- Original Message -----
From: "Bill Meecham" <bmeecham@weichertrealtors.net>
To: <rpg400-l@midrange.com>
Sent: Tuesday, October 02, 2001 1:32 PM
Subject: 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.
>
> _______________________________________________
> 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.
>