MVSFORUMS.com

[hisabarish]

I have a Main program which it is calling other sub-program. In the main program I am using occurs clause with Indexes. Now how to I pass the Indexes to the called program ie., sub-program.

In other words,

01 Tableitem.
02 eno pic 99 occurs 20 times indexed by I .

Now How to pass the data item eno and the index variable to the sub program
Pls. Revert me.
_________________
Sabari
Madras

[kolusu]

Hisabarish,

Is this what you are looking for?

Mainpgm :

[hisabarish]

Dear Kolusu,

Thankx for your answer. But i am expecting,

IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.

01 TABLEITEM.
02 ENO PIC 99 OCCURS 20 TIMES INDEXED BY I.

01 W-VALUE PIC 99 VALUE 01.
01 W-PGM PIC X( 08 ) VALUE 'PASSINDX'.

PROCEDURE DIVISION.

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
MOVE W-VALUE TO ENO(I)
ADD +1 TO W-VALUE
END-PERFORM
DISPLAY
_________________
Sabari
Madras

[nadh]

Hi

you can code CALL W-PGM USING TABLEITEM INDEX-ITEM in main program.
In subprogram in linkage section you code

01 SUB-INDEX-ITEM USAGE IS INDEX.

this variable can receive the index value from the main program.

Hope this helps.

--------------------------
nadh

[dtf]

Nadh,

I really do not understand what you are saying. An INDEX cannot be passed. There are a couple of ways that you could pass the value of the index, however this is not going to allow you to manipulate an index that is defined in a main program from a sub program.

You can set the index to a data item, and pass this as a parameter. But again, this will not manipulate the index back in the main program.
________
iphone games

[kolusu]

[dtf]

Kolusu,

I read the link, and this is what I think........

I can define a variable and say "USAGE IS INDEX". I can pass this to a subroutine. However, this is not the same as