Cann’t get CRP to 1 for TBGET

Joseph Reichman

unread,

Jun 29, 2021, 1:48:16 PM6/29/21

to

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 LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Dave Salt

unread,

Jun 29, 2021, 2:01:14 PM6/29/21

to

It's been a while but try TBVCLEAR

Sent from my Galaxy

Joseph Reichman

unread,

Jun 29, 2021, 2:05:05 PM6/29/21

to

Thanks

> On Jun 29, 2021, at 2:01 PM, Dave Salt <ds...@hotmail.com> wrote:
>
> It's been a while but try TBVCLEAR

Willy Jensen

unread,

Jun 29, 2021, 2:11:32 PM6/29/21

to

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

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

Joseph Reichman

unread,

Jun 29, 2021, 2:19:04 PM6/29/21

to

ROWN will contain the number of rows in table ?

> On Jun 29, 2021, at 2:11 PM, Willy Jensen <wi...@harders-jensen.com> wrote:
>
> I usually do something like

Willy Jensen

unread,

Jun 29, 2021, 2:26:10 PM6/29/21

to

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

Joseph Reichman

unread,

Jun 29, 2021, 2:33:43 PM6/29/21

to

Thanks

> On Jun 29, 2021, at 2:26 PM, Willy Jensen <wi...@harders-jensen.com> wrote:
>
> Yes

Paul Gilmartin

unread,

Jun 29, 2021, 3:14:09 PM6/29/21

to

On 2021-06-29, at 11:47:50, Joseph Reichman wrote:
> ...

> 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

Seymour J Metz

unread,

Jun 29, 2021, 3:20:16 PM6/29/21

to

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 [PaulGB...@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

ITschak Mugzach

unread,

Jun 29, 2021, 3:52:23 PM6/29/21

to

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 <
reich...@gmail.com>:

--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Continuous Monitoring
for z/OS, x/Linux & IBM I **| z/VM coming soon *

Joseph Reichman

unread,

Jun 29, 2021, 3:56:29 PM6/29/21

to

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 ?

> On Jun 29, 2021, at 3:52 PM, ITschak Mugzach <imug...@gmail.com> wrote:
>
> You need to perform a loop of tbskip after tbtop call until tbskip return

Itschak Mugzach

unread,

Jun 29, 2021, 4:00:16 PM6/29/21

to

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 <
reich...@gmail.com>:

Joseph Reichman

unread,

Jun 29, 2021, 4:11:32 PM6/29/21

to

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

> On Jun 29, 2021, at 4:00 PM, Itschak Mugzach <i_mu...@securiteam.co.il> wrote:
>
> No. Table sequential read is done by TBTOP and loop of tbskip until tx >0.

Frank Clarke

unread,

Jun 29, 2021, 4:25:15 PM6/29/21

to

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.