×
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.
On Thu, 18 Jun 2020 at 10:53, Alan Shore via RPG400-L
<rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:
Here is that line including the converted line before it
Qq = 30 + Hh;
C MOVE '1' *IN(QQ)
This is (I believe) switching on an indicator *in01 through *in99 inclusive
If I am wrong, by all means let me know
More importantly - how can this be converted to free
MOVE is a very sexy opcode. It can do a LOT of things.
It gets a lot simpler to understand when Factor 2 and Result are both
CHAR(1), as they are in this case.
Factor 2 is a CHAR(1) because there is only one character between the
delimiters.
Result is a CHAR(1) because *IN is an array of 1 character variables.
MOVE replaces the contents of the array element with the literal '1'.
MOVE doesn't affect any other elements, because the literal is only 1 character.
It often helps me to think of a single array element as a regular
field with a funny name.
--buck
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.
midrange.com
