MVSFORUMS.com

[srini_igsi]

Hi,

As an interface, our pgm(Cobol-CICS) receives data from the calling pgm (COBOL-CICS) into the DFHCOMMAREA. But the problem is with the OCCURS clause which is supposed to be in the DFHCOMMAREA.

01 REQ-DAT-BUF-ACN
05 REQ-DAT-BUF-ACN-TYP-ID PIC 9(04).
05 REQ-DAT-ACN-ADD-TBL OCCURS 4 TIMES INDEXED BY ACN-IDX.
10 REQ-DAT-ACN-CODE PIC S9(04)
SIGN LEADING SEPARATE.
88 REQ-DAT-ACN-NONE VALUE 0.
88 REQ-DAT-ACN-DELETE VALUE 1.
88 REQ-DAT-ACN-SAVE VALUE 2.
88 REQ-DAT-ACN-ADD VALUE 3.

10 REQ-DAT-ACN-ADD-TYP PIC S9(04)
SIGN LEADING SEPARATE.
88 REQ-DAT-ACN-NON-BUF VALUE 0.
88 REQ-DAT-ACN-BNA-BUF VALUE 1.
88 REQ-DAT-ACN-PRI-BUF VALUE 2.
88 REQ-DAT-ACN-ALT-BUF VALUE 3.

Here the question is, how the calling pgm may be sending the COMMAREA data and how to handle this OOCURS clause in the Linkage section of my pgm (called pgm).

Thx in advance.
_________________
Thanks,
-Srini

[dbzTHEdinosauer]

you should use copybooks.

the table is fixed length. after addressing the commarea in the CALLed module, treat it like a table.......
_________________
Dick Brenholtz
American living in Varel, Germany

[kolusu]

srini_igsi,

Did you ever post a feedback for your queries?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[srini_igsi]

Kolusu,

Pl dont mind for posting this Q in this section. Aactually that day I was in hurry and accedentally posted the same in this section. I will make sure to post the Q's in the right sections in future.

Could you pl tell me how the calling prog may be sending the values wrt this OCCURS caluse and how to handle the same in DFHCOMMAREA aswell in Procedure division. One more Q is if I call a sub-pgm using LINK in my pgm, how the response area which will be updated by the called pgm will be available to my pgm.
_________________
Thanks,
-Srini