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

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.