| View previous topic :: View next topic |
| Author |
Message |
Gary_Fsee
Beginner
Joined: 03 Jan 2005
Posts: 3
Topics: 2
|
 Posted: Thu Jan 13, 2005 12:06 am Post subject: PASSING DATA > 32 K |
 |
|
Hi,
I have this CICS COBOL program that LINKS to a program BY REFERENCE. I want to send and receive data from the Calling program. The called program currently receives the data in the DFHCOMMAREA and has a storage as
01 DFHCOMMAREA.
05 WS-PASS-TEXT PIC X(32765).
05 WS-PASS-LEN PIC S9(04) COMP.
The subprogram does some parse logic and passes data and length back the called program.
Is there a way to pass data > 32K in COMMAREA? I know this can be done another way by passing the ADDRESS of WS-PASS-TEXT (CALL BY CONTENT) to the DFHCOMMAREA; can anyone give a simple example to do this?
Thanks
Gary |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
|
| Posted: Thu Jan 13, 2005 6:36 am Post subject: |
|
|
Gary_fsee,
Here is an example of passing 40k to subprogram.
Main pgm:
| Code: |
WORKING-STORAGE SECTION.
01 WS-DATA.
05 WS-COMMAREA-REC.
10 WS-COMMAREA-LGTH PIC S9(09) BINARY.
10 WS-COMMAREA PIC X(40960).
05 WS-POINTER POINTER.
MOVE SPACES TO WS-COMMAREA-REC
SET WS-POINTER TO ADDRESS OF WS-COMMAREA-REC
MOVE LENGTH OF WS-COMMAREA TO WS-COMMAREA-LGTH
EXEC CICS LINK
PROGRAM ('PASSPGM')
COMMAREA(WS-POINTER)
END-EXEC.
|
PASSPGM
| Code: |
LINKAGE SECTION.
01 DFHCOMMAREA.
05 LS-POINTER POINTER.
01 LS-COMMAREA-REC.
05 LS-COMMAREA-LGTH PIC S9(09) BINARY.
05 LS-COMMAREA PIC X(16777215).
IF EIBCALEN NOT < LENGTH OF DFHCOMMAREA
SET ADDRESS OF LS-COMMAREA-REC TO LS-POINTER
ELSE
PERFORM CICS-RETURN
END-IF.
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
darapradeep
Beginner
Joined: 12 Feb 2005
Posts: 5
Topics: 2
|
| Posted: Wed Mar 23, 2005 4:25 am Post subject: commarea |
|
|
HI,
please tell me what is limit of COMMAREA length? |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
SureshKumar
Intermediate
Joined: 23 Jan 2003
Posts: 211
Topics: 21
|
| Posted: Wed Mar 23, 2005 11:45 am Post subject: |
|
|
kolusu,
A follow-up question on this subject. I came across a note that said CICS can have 32K as the upper limit in the Commarea request but can only respond back upto 24K. Basically, 32K is only one way into the system. Is this a valid statement. I came accross this on another board long time ago and not from MVS manuals. Thanks |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12372
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
