Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Use of function Key PF7 and PF8 on IMS DC screen
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
abhiyanta

New User


Joined: 18 Apr 2006
Posts: 11
Location: pune

PostPosted: Thu Sep 13, 2007 7:55 pm    Post subject: Use of function Key PF7 and PF8 on IMS DC screen
Reply with quote

Hi,

I need help from you guys...
my problem is as " I want to Design one IMS DC screen which would be used to browse the DB2 table and also having the functionality like Function keys(PF7) for PAGE UP and PF8 for PAGE DOWN"
Back to top
View user's profile Send private message

Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Fri Sep 14, 2007 12:08 am    Post subject:
Reply with quote

Yes we understood your design.

Is your problem designing this reqt? What is the problem with your design?

What kind of information you are seeking from this forum to help you.
Back to top
View user's profile Send private message
abhiyanta

New User


Joined: 18 Apr 2006
Posts: 11
Location: pune

PostPosted: Fri Sep 14, 2007 1:40 pm    Post subject:
Reply with quote

Devzee wrote:
Yes we understood your design.

Is your problem designing this reqt? What is the problem with your design?

What kind of information you are seeking from this forum to help you.


my problem is ' How can i implement the logic for PF7 and PF8 keys so that i can browse the table'
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Fri Sep 14, 2007 7:45 pm    Post subject:
Reply with quote

You can handle that logic within your program. I am not sure what your standards are, but if you give us a look at the first defined fields on your MFS, we can help. Then, you define your MSGIN in your program (in working storage) as message-length 9(04) comp - then IMS-ZZ 9(04) comp. What follows? After that you can define your PFK-ID as pic X(02) with the following 88 levels = enter-key value "00", PFK-01 value "01", etc, etc.

Then when you process the message in your procedure division, you determine your processing logic on which key was pressed.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Fri Sep 14, 2007 8:23 pm    Post subject:
Reply with quote

Here is an example of an MFS that matches the logic I gave you....

CQ103A FMT
DEV TYPE=(3270,2),FEAT=IGNORE,SYSMSG=OUTMSG2,
PFK=(PFKFLD,'01','02','03',ETC,ETC)
DSCA=X'0000'
DIV TYPE=INOUT
DPAGE CURSOR=((24,01))
DFLD 'CQ103A', POS=(01,02),ATTR=(PROT)
*****REST OF DFLD STUFF*******
FMTEND

*****MESSAGE INPUT DESCRIPTOR*******

CQ103A1 MSG TYPE=INPUT,SOR=CQ103A,NXT=CQ103A2,OPT=2
SEG
MFLD 'CQ103A '
MFLD SECUR1,LTH=09
MFLD SECUR2,LTH=05
MFLD SECUR3,LTH=11
MFLD SECUR4,LTH=08
MFLD FORCHK,LTH=01,FILL=X' 1A'
MFLD (SCREENID,'20')
MFLD (PFKFLD,'00')
*****REST OF MFLD STUFF*******
MSGEND

*****MESSAGE OUTPUT DESCRIPTOR*******

CQ103A2 MSG TYPE=OUTPUT,SOR=(CQ103A,IGNORE),OPT=2,NXT=CQ103A1
SEG
*****REST OF MFLD STUFF*******
MSGEND
Back to top
View user's profile Send private message
abhiyanta

New User


Joined: 18 Apr 2006
Posts: 11
Location: pune

PostPosted: Sat Sep 15, 2007 6:12 pm    Post subject:
Reply with quote

thanks this is really heiping ...
I don't have much EXP in IMS.....
plz tell me If I will used scrollable cursor(with HOLD option) for this application, will it be close in between process ( after pressing PF7 then PF8 so on).'

Thanks again.....
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Sat Sep 15, 2007 6:23 pm    Post subject:
Reply with quote

I am sorry, but I do not fully understand your question. The part that I understand is that you will be having multiple screens. Are you using a SPA or are you transaction only? Can you give us your complete requirements.
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Sun Sep 16, 2007 9:00 am    Post subject:
Reply with quote

Quote:
scrollable cursor(with HOLD option) for this application, will it be close

Yes the cursor will be closed, you will be required to store the key for each scrolling in a temporary area like SPA or some other technique can be used to store the keys.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Sep 17, 2007 4:04 am    Post subject:
Reply with quote

You will also need to know (and store) how many pages there are in order to tell the user it's no use pressing PFK-08 for the next screen because he already had it been shown. You also should inform the user about what screen he's on and how many are left; i.e. screen 7 of 15.
Back to top
View user's profile Send private message
MarkArnold

New User


Joined: 15 Sep 2007
Posts: 1
Location: Fort Worth, TX

PostPosted: Mon Sep 17, 2007 4:22 am    Post subject:
Reply with quote

If you are only browsing, and the table in not too big, you could retrieve all the rows and use MFS virtual paging to scroll through the data.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Sep 18, 2007 12:38 am    Post subject:
Reply with quote

If you are doing true transaction processing, you will need to save the database keys from each screen you present. If you are using a SPA, it will be easier, but not as fast and efficient. With no SPA, you would need to leave enough room in your message and on the screen for both the number of the screen you are on and the beginning key value from the database - you would of course need to protect them - hiding them is an option. Remember that working storage is not guaranteed. Your message is. This would allow for an infinite table size - you would not need to be concerned if the table has 20 rows or 20,000. It would not matter. May I suggest that you not use a backward key? How about a field on the screen allowing a beginning key number? You could then code a boolean search key. You need to make your procedure as user friendly as possible.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Sep 18, 2007 12:40 am    Post subject:
Reply with quote

Well, I always put out a message that indicated that I was at the end of the database. If they wanted to begin again - just press "enter".
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Sep 19, 2007 12:39 am    Post subject:
Reply with quote

@ Sandy:

I think there's nothing wrong with a SPA. The only thing is how you define it. Think of SPA as 'logical'; it might be in memory, message, disk or a database. The idea of a Scratch Pad Area is you keep information stored during a conversation in order to know how to proceed the dialog. The way you solve it is your own choise. The idea of SPA is nothing more than storing information in a conversation. I have developed systems using a 'logical' SPA without GU or ISRT from/to the message queue via IO-PCB.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Sep 19, 2007 12:45 am    Post subject:
Reply with quote

It depends on what the standards are - a slower paced environment would allow a spa - they used them when I first learned IMS. Fast forward to a fast paced high transaction processing environment and they said absolutely NOT! Certain vendors trying to sell the bank packages with SPAs and the bank said NO WAY! It is not always a choice. I think that it is important to keep in mind the standards along with speed and number of users accessing the system.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Sep 19, 2007 4:07 am    Post subject:
Reply with quote

Did you realy understand my message? SPA = logic not the way you store it.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Sep 19, 2007 4:16 am    Post subject:
Reply with quote

In addition to that............ keeping track of your position in the database is , like your said before, life guard. But one should also look at the benifits of good use of command codes. Straight forward calls and multiple PCS's could be costly and solved by intelligent DB-design like SI or defining a logical DB with bi-directional pointers. As far as I'm concerned it's all about data management (analysis and structuring).
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Sep 19, 2007 4:18 am    Post subject:
Reply with quote

Yes, I did indeed understand your message. My analysis is "why use a spa if you do not need to". Virtual and disk spa areas still bog down a fast paced system. Memory is a resource - as is virtual storage - as is disk space. Why use it if you do not need to? CICS is one reason many fast paced transaction processors went to DC.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Sep 19, 2007 4:34 am    Post subject:
Reply with quote

I'm not talking about virtual or disk SPA.......just the logic of a SPA. You can store you intermediate results wherever you lik (like a self defined SPA database). All I want to say is that a conversational program will allways need some kind of 'remember where I was and what to expect next'. My message is to not turn away from conversational but when you go conversational do what is best like in golf; play the ball as it lies and if you can't do what is fair.......... Messure your data and needs and after that make your decsison; saying one should alsway turn away from some kind of SPA is like jumping in a black hole. SPA is logic and not physical.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Wed Sep 19, 2007 4:37 am    Post subject:
Reply with quote

BTW: it's 1:06 in the night so I turn in. See you all tomorroy icon_wink.gif
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Sep 19, 2007 5:15 am    Post subject:
Reply with quote

OK - George - tomorrow! It is only 7:45pm here EST in the states. My last word is that you can store where you were in your message - non-display fields in your message on your screen - in your MGS - - the way I did it. You never need to worry about someone else getting your message - which I saw in instances of bringing in CICS people to do IMS DC work - oh dear! They thought that their working storage was a guarantee - imagine that! These people brought the system down.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
This topic is locked: you cannot edit posts or make replies. RANDOM Function in COBOL swapnil781 COBOL Programming 2 Tue Nov 15, 2016 6:17 pm
No new posts Check System time(Minute) Using TIME1... balaji81_k DFSORT/ICETOOL 5 Fri Nov 11, 2016 10:53 am
No new posts Strange EXEC function call in z/VM Willy Jensen CLIST & REXX 3 Wed Oct 05, 2016 2:07 pm
No new posts Replace function abdulrafi COBOL Programming 13 Mon Sep 12, 2016 10:12 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us