View previous topic :: View next topic
|
Author |
Message |
Vivek_Vasudevamurthy
New User
Joined: 19 Sep 2008 Posts: 9 Location: Bangalore,Karnataka
|
|
|
|
hi,
i am very new to ispf panels. i have requirement where i need to fetch the record for the ispf table and need to display all the records in the panel.
Panel design look like this
Code: |
)ATTR
^ TYPE(INPUT) INTENS(HIGH)
$ TYPE(OUTPUT) INTENS(LOW) CAPS(OFF)
_ TYPE(INPUT) INTENS(LOW) CAPS(OFF)
~ TYPE(INPUT) INTENS(HIGH) CAPS(OFF)
)BODY EXPAND(//)
%/-/ APPSEC - Application Security /-/
%COMMAND ===>~ZCMD %SCROLL ===>_AMT
+ Input the userid:~z
%
+ A control access applications
+
% %I+Insert %D+Delete %R+Reset % S+Select % E+Edit %B+Browse
%
% S UID M END B yyy xxxxx TEO QA GA FOR FP ITY ISRFPA
% UTL PRCS REST JCL BKUP
)MODEL
^S $Z + $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+ $Z+
)INIT
.ZVARS = '(SID OID OVSAMM OMNTEND OGRIB OFPJCL OWEKBKP OFPMETEO OQA OAGA OFOR OFP OSECURTBL OISRFPA Msgline'
.CURSOR = S
)Init
.AUTOSEL = YES
)Reinit
.AUTOSEL = YES
)PROC
&ZSEL = TRANS( TRUNC (&ZCMD,'.')
B,'CMD(testing3)'
' ',' '
*,'?' )
)END
|
rexx program which is used to fetch the rec is given below
Code: |
/*REXX*/
ADDRESS ISPEXEC 'TBOPEN TBLSEC6 WRITE'
DRC = 0
COUNT = 0
DO WHILE DRC=0
ADDRESS ISPEXEC 'TBTOP TBLSEC6'
COUNT = COUNT + 1
ADDRESS ISPEXEC 'TBSKIP TBLSEC6 NUMBER('COUNT')'
zcmd=' '
S = ' '
OID = UID
OVSAMM = VSAM
OMNTEND = MNTEND
OGRIB = GRIB
OFPJCL = FPJCL
OWEKBKP = WEKBKP
OFPMETEO = FPMET
OQA = QA
OAGA = AGA
OFOR = FOR
OFP = FP
OSECURTBL = SEURTBL
OISRFPA = ISRFPA
DRC = RC
end
VPUT '(S SID OID OVSAMM OMNTEND OGRIB OFPJCL OWEKBKP OFPMETEO OQA OAGA OFOR OFP OSECURTBL OISRFPA Msgline'
ADDRESS ISPEXEC 'TBDISPL TBLSEC6 PANEL(testing3)'
ADDRESS ISPEXEC 'TBSAVE TBLSEC6'
ADDRESS ISPEXEC 'TBCLOSE TBLSEC6'
|
output what i am getting is
Code: |
UID M END B yyy xxxxx TEO QA GA FOR
aaaa y y y y y y y y y
aaaa y y y y y y y y y
aaaa y y y y y y y y y
aaaa y y y y y y y y y
aaaa y y y y y y y y y
aaaa y y y y y y y y y |
in all the rows its showing the same record
can any one please lets me no where i am going worng. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
Your post is .... unreadable, please learn how to use the BB tags
the code tag will keep the indentation and make things easier to understand
before hitting the submit button use the preview to see what Your post will look like |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
double posting the same question will not get you
two responses in the sime time or one response in half of the time
the duplicate post has been deleted |
|
Back to top |
|
|
Vivek_Vasudevamurthy
New User
Joined: 19 Sep 2008 Posts: 9 Location: Bangalore,Karnataka
|
|
|
|
i am not getting in which way i wanted to post my request.
is there any format? |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
look at the way I edited Your original post to use the BBtags |
|
Back to top |
|
|
Vivek_Vasudevamurthy
New User
Joined: 19 Sep 2008 Posts: 9 Location: Bangalore,Karnataka
|
|
|
|
ok thank you sir.
can u please help me out to resolve my problem. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
start by getting rid of the vput for the table variables
in interpreted rexx the exchange of the variable values
between different ISPF function is automatic |
|
Back to top |
|
|
Vivek_Vasudevamurthy
New User
Joined: 19 Sep 2008 Posts: 9 Location: Bangalore,Karnataka
|
|
|
|
thanks a lot. |
|
Back to top |
|
|
Vivek_Vasudevamurthy
New User
Joined: 19 Sep 2008 Posts: 9 Location: Bangalore,Karnataka
|
|
|
|
Thank you
I got what was the problem.
I was using different variable in the panel MODEL( section.
Now I made the changes. Now I am using table variables name in the MODEL(section to display the table contents.
Its working fine.
Thank for spending ur valuable time for me
[/quote][/list][/code] |
|
Back to top |
|
|
|