|
View previous topic :: View next topic
|
| Author |
Message |
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
Hi..
I read somewhere in the previous post that table scrolling is implicit. It will automatically work.
When i am executing my code after allocating my rexx code to SYSEXEC the scrolling is not working.
But if i run from ISPF 7.1 option then the scrolling is working by using UP and DOWN.
Let me tell u what this 7 and 1 option in my ISPF is:
7- DIALOG TEST - Perform Dialog testing
1 Functions Invoke dialog functions/selection panel
I don't know why its happening like this.
IF scrolling does not work in both cases then i can say that yes, there can be problem in my code.
But here in one case(from 7.1 option) it is working & in other case it is not working.
Does anyone have any idea about this ? |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| You're displaying your table and showing the results in a panel using the TBDISPL Service, correct? |
|
| Back to top |
|
|
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
| superk wrote: |
| You're displaying your table and showing the results in a panel using the TBDISPL Service, correct? |
Yes right. i m displaying using TBDISPL only |
|
| Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006
Posts: 2547
Location: Silicon Valley
|
|
|
|
How big is your table (number of rows)?
Tell us about the panel. What PFkey definitions are used? |
|
| Back to top |
|
|
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
| Pedro wrote: |
How big is your table (number of rows)?
Tell us about the panel. What PFkey definitions are used? |
My requirment is that table can contain 20 to 25 rows.
PF key definitions still i havn't coded. That i have to to.
In the panel first few lines contain some fields.
From the mid of the panel i m displaying my table.And i am inserting the values in the table thru the panel only as in the following code.
| Code: |
/*****************************************************/
/* TABLE DISPLAY FUNCTION DEFNIATION */
/*****************************************************/
TableDisplay:
/* Position the CRP at the top of the table. */
pnl = "PANEL(VCODEPNL)"
"TBTOP VCDTBL"
csr = 'vcpgmid'
row = 1
rcc = 0
/*if abbrev('DEBUG',ARG(1),3) then
trace R */
/*****************************************************/
/* Display the table until the user exits or an */
/* occurs. Initial TBDISPL specifies a panel name. */
/* Subsequent TBDISPLs do not specify a panel name */
/* allowing the processing of the rows selected by */
/* the user. */
/*****************************************************/
"ISPEXEC addpop"
DO WHILE rcc < 8
"TBDISPL VCDTBL" pnl " CURSOR("csr") CSRROW("row") POSITION(crp)
AUTOSEL(NO)"
rcc = RC
IF rcc < 8 THEN DO
pnl = ""
SELECT
/***********************************************/
/* Process a user request to insert a new, */
/* empty row in the table. */
/***********************************************/
WHEN vcsel = "I" THEN DO
"TBVCLEAR VCDTBL"
"TBADD VCDTBL"
ADDRESS ISPEXEC "SETMSG MSG(VCMSG103)"
csr = 'vcfl'
row = crp+1
END
/***********************************************/
/* Process a user request to insert a new, */
/* empty row in the table with the prvious row values*/
/***********************************************/
WHEN vcsel = "R" THEN DO
"TBADD VCDTBL"
ADDRESS ISPEXEC "SETMSG MSG(VCMSG103)"
csr = 'vcfl'
row = crp+1
END
/***********************************************/
/* Process a user request to delete a row */
/* from the table. */
/***********************************************/
WHEN vcsel = "D" THEN DO
"TBDELETE VCDTBL"
csr = 'vcsel'
IF crp < ztdrows THEN
row = crp
ELSE
row = crp-1
END
/***********************************************/
/* Process a user's update of a row in the */
/* table. */
/***********************************************/
OTHERWISE DO
vcd2len = LENGTH(vcd2)
vcflsub2 = SUBSTR(vcfl,3,2)
vcflsub1 = SUBSTR(vcfl,1,1)
IF ztdsels > 0 THEN DO
"TBPUT VCDTBL"
csr = 'vcsel'
row = crp
END
ELSE
csr = 'zcmd'
END
END
END
END
/*****************************************************/
/* SAVE & CLOSE THE TABLE from virtual storage. */
/*****************************************************/
"TBSAVE VCDTBL"
RETURN 0 |
|
|
| Back to top |
|
|
ermanjitsingh
New User
Joined: 08 Jun 2009
Posts: 19
Location: Banglore
|
|
|
|
| ermanjitsingh wrote: |
| superk wrote: |
| You're displaying your table and showing the results in a panel using the TBDISPL Service, correct? |
Yes right. i m displaying using TBDISPL only |
Scrolling issue solved.
Actually the problem was when i was executing my rexx code normally then the up & down was not defined for PF7 & PF8 in the KEYS.
After defining the same in KEYS scrolling is working fine.
Thanks to all for your help. |
|
| Back to top |
|
|
|
|
