IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to fetch the record for the ISPF table


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Vivek_Vasudevamurthy

New User


Joined: 19 Sep 2008
Posts: 9
Location: Bangalore,Karnataka

PostPosted: Mon Apr 20, 2009 11:54 am
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Apr 20, 2009 11:57 am
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Apr 20, 2009 12:32 pm
Reply with quote

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
View user's profile Send private message
Vivek_Vasudevamurthy

New User


Joined: 19 Sep 2008
Posts: 9
Location: Bangalore,Karnataka

PostPosted: Mon Apr 20, 2009 12:37 pm
Reply with quote

i am not getting in which way i wanted to post my request.
is there any format?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Apr 20, 2009 12:45 pm
Reply with quote

look at the way I edited Your original post to use the BBtags
Back to top
View user's profile Send private message
Vivek_Vasudevamurthy

New User


Joined: 19 Sep 2008
Posts: 9
Location: Bangalore,Karnataka

PostPosted: Mon Apr 20, 2009 12:50 pm
Reply with quote

ok thank you sir.
can u please help me out to resolve my problem.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Apr 20, 2009 12:59 pm
Reply with quote

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
View user's profile Send private message
Vivek_Vasudevamurthy

New User


Joined: 19 Sep 2008
Posts: 9
Location: Bangalore,Karnataka

PostPosted: Mon Apr 20, 2009 1:04 pm
Reply with quote

thanks a lot.
Back to top
View user's profile Send private message
Vivek_Vasudevamurthy

New User


Joined: 19 Sep 2008
Posts: 9
Location: Bangalore,Karnataka

PostPosted: Mon Apr 20, 2009 1:11 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Load new table with Old unload - DB2 DB2 6
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Pulling a fixed number of records fro... DB2 2
Search our Forums:

Back to Top