MOVEA opcode problem

2900 pts.
Tags:
AS/400
RPG
Hi all,
I have another problem in understanding following code block please help me.
 SCRFG     IFEQ ' '             
           MOVEA*ALL'0'   *IN   
           ELSE                 
           MOVEA'00000'   *IN,30
           MOVEA'00000'   *IN,35
           MOVEA'00000'   *IN,40
           MOVEA'00000'   *IN,45
           MOVEA'00000'   *IN,50
           MOVEA'00000'   *IN,55
           MOVEA'0000000' *IN,60
           MOVEA'000000'  *IN,81
           MOVE '0'       *IN98 
           MOVE '0'       *IN99 
           END               
1. What is *IN?
2. Are 30, 35 ... are indicators or what?
3. If they are indicators then why different number of *zeros are passed to them?
Thanks,
0

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Discuss This Question: 2  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • philpl1jb

    *in is the indicator array containing 99 elements *in01 through *in99

    MoveA moves data into an array as opposed to moving it to individual fields

    MOVEA*ALL'0'   *IN   puts zero in all positions of the *IN array          MOVEA'00000'   *IN,30 changes the values in 5 fields because '00000' is 5 long the updated set starts with *in30

    so it's the same as saying *in30 = 0 *in31=0 *in32=0 *in33=0 *in34=0


    54,090 pointsBadges:
    report
  • hunshabbir7
    Thank you philpl1jb I got it.
    2,900 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: