INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Tek-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...Within the first afternoon I found 2 of the 3 needed solutions, and the 3rd came to me over the weekend!..."

More...

Geography

Where in the world do Tek-Tips members come from?

Click Here To Find Out!

Tek-Tips Shirts!

Get your
Tek-Tips Forums
SWAG here!

Home > Forums > Programmers > Languages > RPG (Report Program Generator) Forum

Moving data area into an array

Read More Threads Like This One

Jaytib (Programmer)

7 Mar 11 9:28

I am trying to convert this piece of code to freeform, but I am not sure what to do, tried several different things from online forums, but not working , can you help? Not very good at working with arrays.

D ZXB             S              9  0 DIM(10)

D XITEM           DS                  DTAARA(INAXCLUD)
D WXCLUD                        90A
D  ZXA                           9A   OVERLAY(WXCLUD) DIM(10)

                IN        LDA
*                Retrieve data area, INAXCLUD:  items
*                to exclude from report.  Put in array, ZXB.

C                IN        XITEM
C                MOVE      ZXA           ZXB

Thanks!

Mercury2 (TechnicalUser)

8 Mar 11 7:17

ZXA should be defined as (9S 0). You don't need ZXB.

CODE

D XITEM           DS                  DTAARA(INAXCLUD)
D WXCLUD                        90A
D  ZXA                           9S 0 OVERLAY(WXCLUD) DIM(10)

/free
   // IN operation below retrieves the data area contents.
   // After the operation, the data are immediately
   // available in the ZXA array.
   IN XITEM;
   DSPLY ZXA(1);

Philippe

Jaytib (Programmer)

8 Mar 11 8:25

Thanks for the explanation in comments, being a newbee, I appreciate that. U R the best!!

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To RPG (Report Program Generator)