Discussion:
Cann’t get CRP to 1 for TBGET
(too old to reply)
Joseph Reichman
2021-06-29 17:48:14 UTC
Permalink
Hi

I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1

Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Dave Salt
2021-06-29 18:01:12 UTC
Permalink
It's been a while but try TBVCLEAR



Sent from my Galaxy



-------- Original message --------
From: Joseph Reichman <***@GMAIL.COM>
Date: 2021-06-29 1:48 PM (GMT-05:00)
To: TSO-***@VM.MARIST.EDU
Subject: Cann’t get CRP to 1 for TBGET

Hi

I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1

Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Joseph Reichman
2021-06-29 18:05:04 UTC
Permalink
Thanks
Post by Dave Salt
It's been a while but try TBVCLEAR
Sent from my Galaxy
-------- Original message --------
Date: 2021-06-29 1:48 PM (GMT-05:00)
Subject: Cann’t get CRP to 1 for TBGET
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Willy Jensen
2021-06-29 18:11:30 UTC
Permalink
I usually do something like

TBTOP table
TBQUERY table ROWNUM(ROWN)
Do rown
TBSKIP table
End
TBEND table

-----Oprindelig meddelelse-----
Fra: TSO REXX Discussion List <TSO-***@VM.MARIST.EDU> På vegne af Joseph
Reichman
Sendt: 29. juni 2021 19:48
Til: TSO-***@VM.MARIST.EDU
Emne: [TSO-REXX] Cann’t get CRP to 1 for TBGET

Hi

I would like to read an ISPF table from the first entry to the last I have
tried bot TBTOP and TBSKIP With ROW(0) When I do a TBGET after wards with
POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1

Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
to ***@VM.MARIST.EDU with the message: INFO TSO-REXX


--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Joseph Reichman
2021-06-29 18:19:02 UTC
Permalink
ROWN will contain the number of rows in table ?
Post by Willy Jensen
I usually do something like
TBTOP table
TBQUERY table ROWNUM(ROWN)
Do rown
TBSKIP table
End
TBEND table
-----Oprindelig meddelelse-----
Reichman
Sendt: 29. juni 2021 19:48
Emne: [TSO-REXX] Cann’t get CRP to 1 for TBGET
Hi
I would like to read an ISPF table from the first entry to the last I have
tried bot TBTOP and TBSKIP With ROW(0) When I do a TBGET after wards with
POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email
--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Willy Jensen
2021-06-29 18:26:08 UTC
Permalink
Yes
ROWNUM('rownum') rownum name of the variable to contain the number of rows in the table.
And the combination TBTOP and TBSKIP with default options will position at the first row.

-----Oprindelig meddelelse-----
Fra: TSO REXX Discussion List <TSO-***@VM.MARIST.EDU> På vegne af Joseph Reichman
Sendt: 29. juni 2021 20:19
Til: TSO-***@VM.MARIST.EDU
Emne: Re: [TSO-REXX] SV: [TSO-REXX] Cann't get CRP to 1 for TBGET

ROWN will contain the number of rows in table ?
Post by Willy Jensen
I usually do something like
TBTOP table
TBQUERY table ROWNUM(ROWN)
Do rown
TBSKIP table
End
TBEND table
-----Oprindelig meddelelse-----
Joseph Reichman
Sendt: 29. juni 2021 19:48
Emne: [TSO-REXX] Cann’t get CRP to 1 for TBGET
Hi
I would like to read an ISPF table from the first entry to the last I
have tried bot TBTOP and TBSKIP With ROW(0) When I do a TBGET after
wards with
POSITION(CURRCRP) where ISPF will store the crp of the row being
accessed The value of CURRCRP is 8 ( I have 8 entries in my table )
should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send
--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX


--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Joseph Reichman
2021-06-29 18:33:40 UTC
Permalink
Thanks
Post by Willy Jensen
Yes
ROWNUM('rownum') rownum name of the variable to contain the number of rows in the table.
And the combination TBTOP and TBSKIP with default options will position at the first row.
-----Oprindelig meddelelse-----
Sendt: 29. juni 2021 20:19
Emne: Re: [TSO-REXX] SV: [TSO-REXX] Cann't get CRP to 1 for TBGET
ROWN will contain the number of rows in table ?
Post by Willy Jensen
I usually do something like
TBTOP table
TBQUERY table ROWNUM(ROWN)
Do rown
TBSKIP table
End
TBEND table
-----Oprindelig meddelelse-----
Sendt: 29. juni 2021 19:48
Emne: [TSO-REXX] Cann’t get CRP to 1 for TBGET
Hi
I would like to read an ISPF table from the first entry to the last I
have tried bot TBTOP and TBSKIP With ROW(0) When I do a TBGET after
wards with
POSITION(CURRCRP) where ISPF will store the crp of the row being
accessed The value of CURRCRP is 8 ( I have 8 entries in my table )
should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send
--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
--
Denne mail er kontrolleret for vira af AVG.
http://www.avg.com
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Paul Gilmartin
2021-06-29 19:14:07 UTC
Permalink
Post by Joseph Reichman
...
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
The ISPF Services API should be made Compound Symbol savvy, with
commands such as:
{TBGET|TBPUT} table-name SAVENAME(stem.)

to transfer between an entire table and a compound symbol.

Similar concerns for Edit transferring a range of lines
with no need for coding a loop.

-- gil

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Seymour J Metz
2021-06-29 19:20:14 UTC
Permalink
RFE time? I imagine people would concurr with both.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: TSO REXX Discussion List [TSO-***@VM.MARIST.EDU] on behalf of Paul Gilmartin [***@AIM.COM]
Sent: Tuesday, June 29, 2021 3:13 PM
To: TSO-***@VM.MARIST.EDU
Subject: Re: [TSO-REXX] Cann’t get CRP to 1 for TBGET
Post by Joseph Reichman
...
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
The ISPF Services API should be made Compound Symbol savvy, with
commands such as:
{TBGET|TBPUT} table-name SAVENAME(stem.)

to transfer between an entire table and a compound symbol.

Similar concerns for Edit transferring a range of lines
with no need for coding a loop.

-- gil

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
ITschak Mugzach
2021-06-29 19:52:20 UTC
Permalink
You need to perform a loop of tbskip after tbtop call until tbskip return
rc8. Tbskip moves crp to next row and loads the variables (unless you
specify NOREAD).

ITschak

בתאריך יום ג׳, 29 ביוני 2021 ב-20:48 מאת Joseph Reichman <
Post by Joseph Reichman
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store
the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Joseph Reichman
2021-06-29 19:56:27 UTC
Permalink
However ( I have a keyed table jobname is the key )

I need to initialize jobname to first entry in the table right before the first TBGET right ?
Post by ITschak Mugzach
You need to perform a loop of tbskip after tbtop call until tbskip return
rc8. Tbskip moves crp to next row and loads the variables (unless you
specify NOREAD).
ITschak
בתאריך יום ג׳, 29 ביוני 2021 ב-20:48 מאת Joseph Reichman <
Post by Joseph Reichman
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store
the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Itschak Mugzach
2021-06-29 20:00:14 UTC
Permalink
No. Table sequential read is done by TBTOP and loop of tbskip until tx >0.
No need to init any key value. When table is at top no raw read.

ITschak

בתאריך יום ג׳, 29 ביוני 2021 ב-22:56 מאת Joseph Reichman <
Post by Joseph Reichman
However ( I have a keyed table jobname is the key )
I need to initialize jobname to first entry in the table right before the
first TBGET right ?
Post by ITschak Mugzach
You need to perform a loop of tbskip after tbtop call until tbskip
return
Post by ITschak Mugzach
rc8. Tbskip moves crp to next row and loads the variables (unless you
specify NOREAD).
ITschak
בתאריך יום ג׳, 29 ביוני 2021 ב-20:48 מאת Joseph Reichman <
Post by Joseph Reichman
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will
store
Post by ITschak Mugzach
Post by Joseph Reichman
the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **| *

*|* *Email**: ***@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Joseph Reichman
2021-06-29 20:11:28 UTC
Permalink
I did the following did the tbtop did tbvclear before
Then at the first TBGET coded
TBGET JOBMONT POSITION(CURRCRP)

as i was wanted to see current crp which the documentation says ISPF will store got a RC 8 which the doc says that it didn’t find the row pointed by my key variable
Post by Itschak Mugzach
No. Table sequential read is done by TBTOP and loop of tbskip until tx >0.
No need to init any key value. When table is at top no raw read.
ITschak
בתאריך יום ג׳, 29 ביוני 2021 ב-22:56 מאת Joseph Reichman <
Post by Joseph Reichman
However ( I have a keyed table jobname is the key )
I need to initialize jobname to first entry in the table right before the
first TBGET right ?
Post by ITschak Mugzach
You need to perform a loop of tbskip after tbtop call until tbskip
return
Post by ITschak Mugzach
rc8. Tbskip moves crp to next row and loads the variables (unless you
specify NOREAD).
ITschak
בתאריך יום ג׳, 29 ביוני 2021 ב-20:48 מאת Joseph Reichman <
Post by Joseph Reichman
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will
store
Post by ITschak Mugzach
Post by Joseph Reichman
the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **| *
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Frank Clarke
2021-06-29 20:25:13 UTC
Permalink
No, you do not have to initialize anything if you TBTOP + TBSKIP until rc=8.   Each TBSKIP will load all the non-null KEYS and NAMES along with any extension variables row-by-row.
You are seriously over-thinking this.



On Tuesday, June 29, 2021, 03:56:41 PM EDT, Joseph Reichman <***@gmail.com> wrote:

However ( I have a keyed table jobname is the key )

I need to initialize jobname to first entry in the table right before the first TBGET right ?
Post by ITschak Mugzach
You need to perform a loop of tbskip after tbtop call until tbskip return
rc8. Tbskip moves crp to next row and loads the variables (unless you
specify NOREAD).
ITschak
בתאריך יום ג׳, 29 ביוני 2021 ב-20:48 מאת Joseph Reichman <
Post by Joseph Reichman
Hi
I would like to read an ISPF table from the first entry to the last
I have tried bot TBTOP and TBSKIP
With ROW(0)
When I do a TBGET after wards with POSITION(CURRCRP) where ISPF will store
the crp of the row being accessed
The value of CURRCRP is 8 ( I have 8 entries  in my table ) should be 1
Thanks
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon  *
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX


----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to ***@VM.MARIST.EDU with the message: INFO TSO-REXX
Loading...