RE: RPG-RISC Question

["Kahn, David" <KAHN@xxxxxxxxxxxxxxxxxx>]

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
+---