How to search a string obtained from reading a file?

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Hi,
I read a file(ex:f1) using EXECIO and get a string (ex: adams1) from a file(f1). I searched the string using "ISREDIT F ALL 'STRING'". Since the i used F ALL 'STRING' the value for the string won't be searched. Please let me know how to search the value of the string obtained from file(f1) .

Regards,
Murali.

ofer71 · Posted: Wed Dec 31, 2008 1:34 pm

You question is not clear to me. You said you used EXECIO (whis is TSO) and then ISREDIT (which is ISPF Edit-Macro). Please elaborate or post your code.

O.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

This is the piece of the code

LIST=ADCFGQ3.PARM.LIST
OUTPS=ADCFGQ3.PARM.RESULT
ADDRESS ISPEXEC
"ISREDIT MACRO"
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
ADDRESS ISPEXEC
"ISREDIT X ALL"
"ISREDIT F ALL '-*'"
"ISREDIT DEL ALL NX"
ADDRESS TSO
"ALLOC DA('"LIST"') F(INDD) SHR"
IF RC = 0 THEN
DO
ADDRESS TSO
"EXECIO * DISKR INDD(FINIS STEM REC_STM."
END
ELSE
DO
SAY 'ERROR IN ALLOCATING FILE' LIST
END
DO I = 1 TO REC_STM.0
A1= REC_STM.I
SAY 'A1=' A1
PARSE VALUE A1 WITH L1 L2 L3 L4 L5 L6 L7 L8
ADDRESS ISPEXEC
"ISREDIT F ALL L2"
IF RC =0 THEN
.
.

I need to find the value of l2 not l2. Please suggest.

expat · Posted: Wed Dec 31, 2008 1:55 pm

ofer71 · Posted: Wed Dec 31, 2008 2:02 pm

Change it to "ISREDIT F ALL &l2"

O.

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Thanks O.

Pedro · Posted: Wed Dec 31, 2008 9:37 pm

I prefer using rexx syntax rather than the ampersand notation: