MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Xpediter/TSO - search for literal within kept data item

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68

PostPosted: Thu Aug 12, 2010 10:51 am    Post subject: Xpediter/TSO - search for literal within kept data item Reply with quote

In Xpediter... is there a 'find' command that will search for a specified string within a data item that has been 'kept' ?

Suppose I'm looking for a literal in a field that's 2,000 bytes in length, but I'm not sure what position it's in....

Thanks for any help...


Code:
A090 -------------------- XPEDITER/TSO - SOURCE ------------------------------
COMMAND ===>                                                  SCROLL ===> CSR
PROGRAM: H2545900   MODULE: H2545900 COMP DATE:  08/12/2010 COMP TIME:11:35:57
                                               ----+----1----+----2----+----3
MORE-> K 01 CURRENT-MASTER-SAVE             > ....20A0205248330090713100713C
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Thu Aug 12, 2010 11:03 am    Post subject: Reply with quote

tcurrier,

You can try this

Code:

Find 'String' IN CURRENT-MASTER-SAVE FIRST/ALL/LAST/NEXT/PREV


FIRST/ALL/LAST/NEXT/PREV are the options to find a string.

Also there is a PEEK command ,which lets u view the contents of program variables. Look it in the manual

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68

PostPosted: Thu Aug 12, 2010 11:20 am    Post subject: Reply with quote

Humm.. getting the following error :

Code:
===> FIND 'COHEN' IN CURRENT-MASTER-SAVE FIRST        SCR
          INVALID SEQUENCE OF QUALIFICATION PARAMETERS   
                                        ----+----1----+---
K 01 CURRENT-MASTER-SAVE             > ....20A02052483300
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Thu Aug 12, 2010 11:49 am    Post subject: Reply with quote

tcurrier,

Did you try PEEK command?

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68

PostPosted: Thu Aug 12, 2010 12:56 pm    Post subject: Reply with quote

Yes, but it only shows me field names, no data that's contained within the individual fields....
Back to top
View user's profile Send private message
papadi
Supermod


Joined: 20 Oct 2009
Posts: 594
Topics: 1

PostPosted: Thu Aug 12, 2010 2:16 pm    Post subject: Reply with quote

Is it possible that the PEEK was done before a READ (or whatever causes data to be placed in the fields) was issued?
_________________
All the best,

di
Back to top
View user's profile Send private message
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68

PostPosted: Thu Aug 12, 2010 4:48 pm    Post subject: Reply with quote

PEEK shows me basically the same thing that KEEP does.... I see the same amount of data, i.e. first 30 positions of the field.... It still doesn't allow me to do a search for a literal within the field.

I would think that there shouldn't be any reason the FIND 'string' field-name first/last/... command won't work ...
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Thu Aug 12, 2010 9:03 pm    Post subject: Reply with quote

place your cursor on the data and shift right
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68

PostPosted: Fri Aug 13, 2010 6:14 am    Post subject: Reply with quote

Unless that was a sarcastic reply, that is exactly what I was trying NOT to have to do ... Very Happy
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Fri Aug 13, 2010 6:52 am    Post subject: Reply with quote

not meant as sarcastic.

try using MEMORY command.
you still have to visual scan the screen (or the log - access it concurrently)
for your literal,
but MEMORY will display from an offset/field in dump format. no shifting.
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Fri Aug 13, 2010 7:08 am    Post subject: Reply with quote

you could also code an INSPECT statement
with D in 7 and use the DEBUGGING MODE clause in the OBJ/SRC (?) COMPUTER statement,
so when you are finished you can recompile without DEBUGGING, without changing any code.

The INSPECT 2000-byte-field FOR field-name-in-working-storage(ws-1:ws-2) Tallying ...

field-name-in-working-storage - you can load with your value during a break point
WS-1 and WS-2 can be numerics for reference mod that you would also load during break-point.

let the INSPECT rip and look at the Tally-field.
_________________
Dick Brenholtz
American living in Varel, Germany
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group