Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need to fetch the record for the ISPF table

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Need to fetch the record for the ISPF table
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Apr 20, 2009 11:57 am    Post subject: Reply to: ispf table diplay
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Apr 20, 2009 12:32 pm    Post subject: Reply to: ispf table diplay
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Apr 20, 2009 12:45 pm    Post subject: Reply to: ispf table diplay
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Mon Apr 20, 2009 12:59 pm    Post subject: Reply to: ispf table diplay
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    Post subject:
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    Post subject:
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    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
No new posts Update table without cursor Ron Klop DB2 3 Wed Oct 11, 2017 1:06 pm
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Table(Unicode(Graphic) table) loading... muralikrishnan_new DB2 0 Thu Oct 05, 2017 5:10 pm
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Fetch Previous month & year in MM... girishb2 DFSORT/ICETOOL 3 Thu Sep 21, 2017 9:54 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us