|
View previous topic :: View next topic
|
| Author |
Message |
kalyan.v
New User
Joined: 04 Feb 2008
Posts: 65
Location: Hyd
|
|
|
|
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 |
|
 |
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| I'm in agreement with Dave, however, it'd be nice if you show us the Panel-definition. |
|
| Back to top |
|
|
kalyan.v
New User
Joined: 04 Feb 2008
Posts: 65
Location: Hyd
|
|
|
|
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 |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
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 |
|
|
|
|
