MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ISPF help required

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
ravikumar_sri2001
Beginner


Joined: 06 Dec 2002
Posts: 117
Topics: 44
Location: Chennai,India

PostPosted: Thu Oct 20, 2005 7:06 am    Post subject: ISPF help required Reply with quote

Hi Gurus,

My requirement is,

Read a file and display some of the fields from the read record in one line and some of the fields in the next line, in the panel. All the records have to be displayed in this way in the panel. The LENGTH of each line is "133".
So there will be two lines in the panel for every single record. There will be a OPTION field in the every first line of two lines corresponds to a record. The user should be able to scroll using funtion keys (f7- backward, f8-forward). The user can logically delete a record the by putting "D" in the OPTION field. That is there is a STATUS field in the file which has to be updated value "DELETE". The panel will also have "command line". If the user enter command "UNDO" in the command line, then all the delete records, have to undeleted. That is STATUS field has to be updated with blank. Please let me know how to implement this.

Thanks,
Ravikumar.
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Thu Oct 20, 2005 7:44 am    Post subject: Reply with quote

It sounds to me like you need to use an ISPF Table and a Table Display ISPF Panel with a )MODEL section defined.

You will probably need to use most of these ISPF Services:

Table Services:
TBCREATE
TBOPEN
TBSAVE
TBCLOSE
TBEND

Table Row Services:
TBADD
TBDELETE
TBTOP
TBSKIP

as well as the usual ISPF services (VDEFINE, VGET, VPUT, TBDISPL, etc.).

You can use the ISPF MODELs from an EDIT session, or the ISPF manuals:

ISPF Services Guide: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZSG40/CCONTENTS?DT=20050713030339

ISPF Dialog Developer's Guide: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZDG40/CCONTENTS?DT=20050712212339

plus the appropriate language reference guides for whichever language you are developing this application in.


Last edited by superk on Thu Oct 20, 2005 9:34 am; edited 1 time in total
Back to top
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Thu Oct 20, 2005 7:48 am    Post subject: Reply with quote

This requires complex programming and some ISPF Dialog Manager knowledge. No one here can provide this application to you!

I you don't have ISPF Dialog experience, read the ISPF Examples manuals for a look at working examples. See how they Display data on panels.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
ravikumar_sri2001
Beginner


Joined: 06 Dec 2002
Posts: 117
Topics: 44
Location: Chennai,India

PostPosted: Fri Oct 21, 2005 6:49 am    Post subject: Reply with quote

Hi Gurus,

In requirement, a detail line consits of 132 characters. How to create a panel with 132 characters ?. Is it possible to continue a detail line in order to display 132 characters.

Thanks,
Ravikumar.
Back to top
View user's profile Send private message
superk
Advanced


Joined: 19 Dec 2002
Posts: 684
Topics: 5

PostPosted: Fri Oct 21, 2005 7:15 am    Post subject: Reply with quote

You can have 132-character panels only if your 3270 Terminal settings allow it. Otherwise, you have to split the data to fit into two rows of an 80-character width panel.
Back to top
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Fri Oct 21, 2005 9:57 am    Post subject: Reply with quote

ISPF panel fields need start/end attribute bytes, so the longest field would really be 130 bytes on a model 5 terminal.

You could look into panels with scrollable areas. Your pgm moves the current pointer into the data when the user enters RIGHT or LEFT command.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group