RPG indicators

1150 pts.
Tags:
RPG
RPG ILE
RPG indicators
Pls tell me how to pass values to a group of indicators at once in a single statement in RPG and RPGILE with example..thanks

Answer Wiki

Thanks. We'll let you know when a new response is added.

In RPG or RPGLE but not RPGLE-free you could use the MOVEA (move array command)

MOVEA ‘0000’ *in80

would move *zeros to *in80, *in81, *in82, *in83

But I find it’s better to do it in 4 discreate commands perhaps in a Subroutine.
Maintenance programmers might not catch the meaning as quickly as the four statements.

Phil

/////////////////////////////////

Hi,

In RPGLE-Free you can use it to turn off indicators 80 to 83.

%SubArr(*IN : 80 : 4) = *Off

Regards,
Wilson

Discuss This Question: 4  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.
  • WoodEngineer
    There is a good discussion and sample code on this topic at http://archive.midrange.com/rpg400-l/200402/msg00198.html The site requires membership which is free.
    6,955 pointsBadges:
    report
  • bbegault
    Actually that is incorrect the correct code would be
    MOVEA ‘0000’ *in(80)
    10 pointsBadges:
    report
  • ToddN2000
    The indicators are stored in an array, so any array function would change a range of indicators,
    The MOVEA '0000' *in(80)
    would set indicators 80,81,82 and 83 to 0.
    49,140 pointsBadges:
    report
  • philpl1jb

    Thanks bbegault        you are absolutely correct

    MOVEA '0000' *IN(80)


    53,910 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: