• Subject: RE: RPG-RISC Question
  • From: "Kahn, David" <KAHN@xxxxxxxxxxxxxxxxxx>
  • Date: Sun, 14 Sep 1997 11:09:00 +0600

Dean Asmussen (DAsmussen@aol.com) wrote:

>I just heard this from a friend upgrading from CISC to RISC.  Under CISC, you
>were allowed to perform a MOVEA '001X10' *IN,50 in order to set indicators
>50-55 with new values while ignoring *IN53.

It's a new one on me. I just tried compiling this code on my F35 at V3R2
and I got

        QRG5184 Severity:  30
        Message . . . . :   Factor 2 not valid for result-field entry
        of *IN, *INxx, or *IN,xx. Specification ignored.

I also tried an equivalent line in RPG/IV and got:

        RNF5184 30     Factor 2 is not 0 or 1 for Result-Field entry
        of *IN, *INxx or *IN(xx); specification is ignored. 


Is your friend possibly thinking of the CL command CHGJOB
SWS('001X10XX')?

Dave Kahn - TCO, Tengiz, Kazakstan
=========

e-mail:  kahn@tengizchevroil.com    (until September 30th)
         dkahn@cix.compulink.co.uk  (from  October 1st)
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].