| View previous topic :: View next topic |
| Author |
Message |
raja_here
Beginner
Joined: 23 May 2007
Posts: 7
Topics: 2
|
 Posted: Mon Jun 11, 2007 4:11 am Post subject: Paging Logic in CICS |
 |
|
Hi,
I have a scenario that I have 25 output values. Only 5 got diplayed in the CICS Screen. By pressing a function key,
1) I have to get the next 5 outputs.
2) We can be able to navigate back also i.e. previous 5 outputs
Can you please help to do this?
_________________
Thanks,
Raja P. |
|
| Back to top |
|
 |
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Mon Jun 11, 2007 4:38 am Post subject: |
|
|
raja_here,
Here is an example using TS-Queue logic
The only trouble with this approach is that the TS-Queue still exists unless your progam deletes it; this involves using code to trap the 'clear'.
If the data is not too large, you can use the DFHCommarea.
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
raja_here
Beginner
Joined: 23 May 2007
Posts: 7
Topics: 2
|
| Posted: Mon Jun 11, 2007 5:06 am Post subject: |
|
|
Thanks Dick Brenholtz.
I have a doubt. Once we get the first 10 values. In order to get the next 10, if we press say PF8. Will it not be a new task? Then how can we read from the TSQ with task being different? Please shed some lights.
_________________
Thanks,
Raja P. |
|
| Back to top |
|
|
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Mon Jun 11, 2007 5:19 am Post subject: |
|
|
raja_here,
yes, but task is not part of the QUE-ID
| Code: |
05 TSQ-QID.
10 TSQ-TRANS PIC X(04).
10 TSQ-TRMID PIC X(4).
|
You retrieve the Trans-ID from the eibtranid
you retrieve the terminal-id from the eibterrmid
if the eibtranid and eidtermid are different picture clauses than the example, then change the appropriate elementary data item picture clause in the TSQ-QID.
by using tran id and terminal id you can have 2 or more users invoking you program without worry of "who is who".
as I said, if the data is not too big,
and you have to tell me what size your item is, don't ask me what is too big! 
use a dfhcommarea instead of a TS-Queue. But the logic is the same, instead of doing TS-Q-READ's, you table thru a dfhcommarea definitiion.
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
raja_here
Beginner
Joined: 23 May 2007
Posts: 7
Topics: 2
|
| Posted: Mon Jun 11, 2007 5:50 am Post subject: |
|
|
Dick Brenholtz,
Data might be as long as 22 * 100 =2200 bytes. I will give a try with TSQ. Thanks a lot for your help.
_________________
Thanks,
Raja P. |
|
| Back to top |
|
|
CICS Guy
Intermediate
Joined: 30 Apr 2007
Posts: 292
Topics: 3
|
| Posted: Mon Jun 11, 2007 6:41 am Post subject: |
|
|
| Heck, only 2200 bytes, use the commarea and an array. Much simpler...... |
|
| Back to top |
|
|
dbzTHEdinosauer
Supermod
Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany
|
| Posted: Mon Jun 11, 2007 7:02 am Post subject: |
|
|
if your commarea is < 25K, and will never increase- don't use TS-queues.
you can delete the commarea by just doing a return without the commarea.
to delete the ts-queue you have to execute delete TS-queue commands, explicitly. just RETURN without commarea option will not delete a TS-Q. If you have a possibility of many users invoking your tran during the day - and you don't delete the queues your systems people will make a very unpleasant visit to you. you will tie up CICS resources without a means (other than manually thru CEDI/E/A) to delete them.
_________________
Dick Brenholtz
American living in Varel, Germany |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
