× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. July 2019

Re: Weirdness with * character

Yep, works exactly how one would expect. But I am using Standalone iACS to
run it.

Did you say that they were using the terminal built into RDi? Maybe
something is getting corrupted there? Maybe shutdown RDi, reopen, and try
again? I don't use that component, but this so smells like a CCSID issue
and with RDi's less than perfectly stable reputation, maybe something is
getting horked up there.

On Tue, Jul 30, 2019 at 4:30 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Absolutely - this is one that exhibited the issue.

And please remember it is a teaching exercise - they hadn't learnt SELECT
or ELSEIF when they wrote this~!

dcl-s a int(10);
dcl-s b int(5) inz(100);
dcl-s c int(5) inz(50);
dcl-s Operator Char(1);

Dsply 'Select Operator (+ - * /):' ' ' Operator;

If Operator = '+';
a = b + c;
EndIf;

If Operator = '-';
a = b - c;
EndIf;

If Operator = '*';
a = b * c;
EndIf;

If Operator = '/';
a = b / c;
EndIf;

Dsply a;

*inlr = *on;


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 30, 2019, at 2:24 PM, Mark Murphy <jmarkmurphy@xxxxxxxxx> wrote:

That is very odd. Are the programs simple enough to share?

On Tue, Jul 30, 2019 at 2:15 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

None of the above Mark.

Sequence was.

Write program, compile it, run it - * works
Write second version of program adding additional logic. * doesn't work.
Tried first program again * doesn't work.

Same RDi session, same 5250 session, same user - and it all happened
within 30 minutes!


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 30, 2019, at 1:25 PM, Mark Murphy <jmarkmurphy@xxxxxxxxx>
wrote:

Was the failing program compiled by a different workstation using a
different CCSID? When constants are compiled, are they converted to the
run-time CCSID, or do they stay in the CCSID from the compile? I
suspect
the latter.

On Tue, Jul 30, 2019 at 12:45 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx>
wrote:

That was my first thought David but the same 520 session produced
different results over a period of 30 minutes. No sign off/on - still
the
same session.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Jul 30, 2019, at 12:43 PM, David Gibbs via MIDRANGE-L <
midrange-l@xxxxxxxxxxxxxxxxxx> wrote:

On Tue, Jul 30, 2019 at 11:40 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx

wrote:

Shouldn't be. This is a tiny partition that we only use for
training.
It has had the same set up since first created.

One of the people who experienced the problem had a 5250 session
running and didn't sign off/on or change anything between runs and
still
experieinced the problem.

Are all the workstations using the same code page?

I once had a problem where a '$' was being interpreted by the system
as a cents sign because the host was running with CCSID 37 but the
workstation was running in a non US-English code page.

david

--
IBM i on Power Systems: For when you can't afford to be out of
business!

I'm riding 65 miles in the American Diabetes Association's Tour de
Cure to raise money for diabetes research, education, advocacy, and
awareness. You can make a tax-deductible donation to my ride by
visiting https://mideml.diabetessucks.net.

You can see where my donations come from by visiting my interactive
donation map ... https://mideml.diabetessucks.net/map (it's a geeky
thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.