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
 

 

REXX screen and by pressing PF9 data getting delete onscreen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd

PostPosted: Wed Jun 06, 2012 10:35 pm    Post subject: REXX screen and by pressing PF9 data getting delete onscreen
Reply with quote

My requirement is that i coded a REXX screen and after opening the REXX screen and entering the data to switch to TSO PANEL i pressed PF9 and after coming back to REXX screen by pressing PF9 the data is getting deleted on the REXX screen on the first cursor position.

Kindly let me know on how to handle this.
Back to top
View user's profile Send private message

daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 662
Location: Pennsylvania

PostPosted: Wed Jun 06, 2012 11:19 pm    Post subject:
Reply with quote

Kalyan,

Your 'Rexx screen' is really an ISPF Panel.

You 'TSO PANEL' is really an ISPF Panel.

Terminology is important.

Anyway, I have faced this issue before. My solution is: your first panel either needs a command line (ZCMD), or a 'dummy' input field.

Eitherway it must be an input field. You can place your cursor where you really want it.

There may be other solutions, but this has worked for me.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jun 07, 2012 11:15 am    Post subject:
Reply with quote

I'm in agreement with Dave, however, it'd be nice if you show us the Panel-definition.
Back to top
View user's profile Send private message
kalyan.v

New User


Joined: 04 Feb 2008
Posts: 65
Location: Hyd

PostPosted: Thu Jun 07, 2012 4:13 pm    Post subject: Reply to: REXX screen and by pressing PF9 data getting delet
Reply with quote

Below is my code. As per above suggestion if i include a dummy input field each time i press PF9 and come back the cursor blinks at dummy input field and i dont want it that way. I want the cursor to blink at original input field.
Code:
-----------------------------------
)ATTR
% TYPE(TEXT)  INTENS(HIGH) COLOR(GREEN)  CAPS(ON) SKIP(ON)
# TYPE(TEXT)  INTENS(HIGH)  COLOR(RED) CAPS(ON) SKIP(ON)
{ TYPE(TEXT)  INTENS(HIGH)  COLOR(YELLOW) CAPS(ON) SKIP(ON)
@ TYPE(TEXT)  INTENS(HIGH) COLOR(WHITE)  CAPS(ON) SKIP(ON)
! TYPE(INPUT) INTENS(LOW)  COLOR(WHITE) CAPS(ON)  HILITE(USCORE)
+ TYPE(OUTPUT) INTENS(LOW)  COLOR(WHITE)   SKIP(ON)
} TYPE(OUTPUT)  INTENS(LOW) COLOR(WHITE) CAPS(ON)
)BODY
#%                      CONVERSIONS                     ID:- }USER
#---------------------------------------------------------------------
#%1) CLIENT CODE            :-!YY % (3 DIGIT CLIENT CODE)
#%2) STREAM FOR RUNNING JOB :-!SS % (EX:- FOR 'U' STREAM GIVE 'UUU')
#
#@ENTER DETAILS AND PRESS ENTER TO PROCEED
#@NOTE:- TO EXIT GIVE SPACES IN 1) 2) AND 3) I/P FIELDS AND PRESS ENTER
#---------------------------------------------------------------------
)INIT
  .ALARM = YES
  .CURSOR = &ZCMD
)PROC
  VPUT (YY,SS,USER)
)END

-------------------------------
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jun 07, 2012 4:35 pm    Post subject:
Reply with quote

Please learn to use BBcode tags, I've modified your post to add them.

Don't you want user to have access to "Command Line", once your panel is invoked?

With some guess, this should help. Red-text shows the modifications. And in
Quote:
%COMMAND ===>_ZCMD +
"+" sign is not properly alligned as I'm not using BBCode Tags to amke the modification rather visible, modify it as per your need.
Quote:
-----------------------------------
)ATTR
% TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) CAPS(ON) SKIP(ON)
# TYPE(TEXT) INTENS(HIGH) COLOR(RED) CAPS(ON) SKIP(ON)
{ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) CAPS(ON) SKIP(ON)
@ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) CAPS(ON) SKIP(ON)
! TYPE(INPUT) INTENS(LOW) COLOR(WHITE) CAPS(ON) HILITE(USCORE)
+ TYPE(OUTPUT) INTENS(LOW) COLOR(WHITE) SKIP(ON)
} TYPE(OUTPUT) INTENS(LOW) COLOR(WHITE) CAPS(ON)
)BODY
%COMMAND ===>_ZCMD +
#% CONVERSIONS ID:- }USER
#---------------------------------------------------------------------
#%1) CLIENT CODE :-!YY % (3 DIGIT CLIENT CODE)
#%2) STREAM FOR RUNNING JOB :-!SS % (EX:- FOR 'U' STREAM GIVE 'UUU')
#
#@ENTER DETAILS AND PRESS ENTER TO PROCEED
#@NOTE:- TO EXIT GIVE SPACES IN 1) 2) AND 3) I/P FIELDS AND PRESS ENTER
#---------------------------------------------------------------------
)INIT
&ZCMD = ' '
)REINIT
.CURSOR = &CURS
.ATTR(.CURSOR) = 'COLOR(RED) HILITE(BLINK)'

)PROC
VPUT (YY,SS,USER)
)END

-------------------------------
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 0 Sat Apr 22, 2017 1:32 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am


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