View previous topic :: View next topic |
Author |
Message |
tcurrier Intermediate
Joined: 10 Feb 2006 Posts: 188 Topics: 68
|
Posted: Thu Aug 12, 2010 10:51 am Post subject: Xpediter/TSO - search for literal within kept data item |
|
|
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 |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Thu Aug 12, 2010 11:03 am Post subject: |
|
|
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 |
|
|
tcurrier Intermediate
Joined: 10 Feb 2006 Posts: 188 Topics: 68
|
Posted: Thu Aug 12, 2010 11:20 am Post subject: |
|
|
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 |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
|
Posted: Thu Aug 12, 2010 11:49 am Post subject: |
|
|
tcurrier,
Did you try PEEK command?
Kolusu |
|
Back to top |
|
|
tcurrier Intermediate
Joined: 10 Feb 2006 Posts: 188 Topics: 68
|
Posted: Thu Aug 12, 2010 12:56 pm Post subject: |
|
|
Yes, but it only shows me field names, no data that's contained within the individual fields.... |
|
Back to top |
|
|
papadi Supermod
Joined: 20 Oct 2009 Posts: 594 Topics: 1
|
Posted: Thu Aug 12, 2010 2:16 pm Post subject: |
|
|
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 |
|
|
tcurrier Intermediate
Joined: 10 Feb 2006 Posts: 188 Topics: 68
|
Posted: Thu Aug 12, 2010 4:48 pm Post subject: |
|
|
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 |
|
|
dbzTHEdinosauer Supermod
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
|
Posted: Thu Aug 12, 2010 9:03 pm Post subject: |
|
|
place your cursor on the data and shift right _________________ Dick Brenholtz
American living in Varel, Germany |
|
Back to top |
|
|
tcurrier Intermediate
Joined: 10 Feb 2006 Posts: 188 Topics: 68
|
Posted: Fri Aug 13, 2010 6:14 am Post subject: |
|
|
Unless that was a sarcastic reply, that is exactly what I was trying NOT to have to do ... |
|
Back to top |
|
|
dbzTHEdinosauer Supermod
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
|
Posted: Fri Aug 13, 2010 6:52 am Post subject: |
|
|
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 |
|
|
dbzTHEdinosauer Supermod
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
|
Posted: Fri Aug 13, 2010 7:08 am Post subject: |
|
|
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 |
|
|
|
|