RE: RPG Free - The end of the expression is expected

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

You can also use the ellipse in the C-specs when the name is too long to
fit.

Or just when you feel like splitting the name.

> From the manual:

      * Define a 10 character field with a long name.
      * The second definition is a pointer initialized to the address
      * of the variable with the long name.
     D QuiteLongFieldNameThatCannotAlwaysFitInOneLine...
     D                 S             10A
     D Ptr             S               *
inz(%addr(QuiteLongFieldName...
     D                                               ThatCannotAlways...
     D                                               FitInOneLine))
     D ShorterName     S              5A
      * Use the long name in an expression
      * Note that you can split the name wherever it is convenient.
     C                   EVAL      QuiteLongFieldName...
     C                             ThatCannotAlwaysFitInOneLine = 'abc'
      * You can split any name this way
     C                   EVAL      P...
     C                             tr = %addr(Shorter...
     C                             Name)
     C                   EVAL      *INLR = *ON



HTH,


Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
> Sent: Wednesday, September 13, 2006 2:22 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: RPG Free - The end of the expression is expected
>
> You use an ellipse to specify a name that's longer than the 
> area in the D
> specs:
>
> D GetMoreWCSRecords...
> D                               S               N
>
> On 9/13/06, Turnidge, Dave <DTurnidge@xxxxxxxxxxxxxxxxxxxx> wrote:
> > BOY! That's frustrating... I know I tried it that way. Must 
> have been
> > something else wrong with my line at the time.
> >
> > Ok, let's adjust the question just a bit... I have seen 
> code in messages
> > that is followed by the ellipse. What is actually happening 
> with that?
> > Thanks,
> >
> > Dave
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Holden Tommy
> > Sent: Wednesday, September 13, 2006 1:09 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: RPG Free - The end of the expression is expected
> >
> > You don't use any type of continuation marker...
> > It's simply
> > 0344.00          IF %Scan (Dsdest : 'BCM') > 0 and Metro = 'N'
> > 0345.00                or dsdest = 'Z';
> >
> >
> >
> > Thanks,
> > Tommy Holden
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Turnidge, Dave
> > Sent: Wednesday, September 13, 2006 1:06 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RPG Free - The end of the expression is expected
> >
> > Not a question I really WANT to ask...but, I want a two line IF
> > statement. I'm ok if I can get it all on one line, but when 
> I split it
> > there's no go.
> >
> > I have tried ending with a '+', and with blank, and with 
> '...'. Nuttin'
> > works.
> >
> > Here's the line I'm trying to work with:
> >
> > 0344.00          IF %Scan (Dsdest : 'BCM') > 0 and Metro = 'N'...
> > 0345.00                or dsdest = 'Z';
> >
> > This, showing my last attempt, with the ellipse...
> >
> > Please be gentle... :-(
> >
> > Dave
> >
> > --
> > 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.
> >
> >
> > --
> > 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.
> >
> >
> > --
> > 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.
> -- 
> 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.