find a string in a ps file using macro w/o opening file

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

Hi

I am using the below mentioned code..
/*REXX*/
INDSN='F0091PSH.GV2L.PARG.AMEND.EXTRACT.RECS.N10331'
ADDRESS ISPEXEC "VIEW DATASET('"INDSN"') MACRO(TESTI)"

actually i don't want to view the file..i simply want to count w/o opening the file.

my macro testi is:

/*REXX*/
ADDRESS ISREDIT
"MACRO"
"SEEK ALL '0107130E'"
"(V1)=SEEK_COUNTS"
SAY V1

It gives result but it opens the file in view mode also..which i dont want

superk · Posted: Mon Mar 21, 2011 8:48 pm

You just need to finish your macro so that it ends the VIEW service when it's done.

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

just gave exit at the end..still it opens..could u suggest something else?

superk · Posted: Mon Mar 21, 2011 8:59 pm

An END statement would be helpful.

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

gave an END after macro ends..getting error

expat · Posted: Mon Mar 21, 2011 9:20 pm

How about posting the error. Like we can actually see your screen from where we are

Psychic day is Wednesday this week.

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

Hi

I gave a do and end
/*REXX*/
ADDRESS ISREDIT
DO
"MACRO"
"SEEK ALL '0107130E'"
"(V1)=SEEK_COUNTS"
CHAROUT(INDSN);
SAY V1
END

I am not getting error but still it opens the file in view mode..which i dont want

Ronald Burr · Posted: Mon Mar 21, 2011 9:29 pm

It seems that you also added a 'DO' before the "MACRO" statement - thus the 'END' signals the end of the DO loop, not the end of the view session.

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

gave
/*REXX*/
ADDRESS TSO
INPUT='F0091PSH.GV2L.PARG.AMEND.EXTRACT.RECS.N10331'
"ALLOC F(MYDDNAME) DA('"INPUT"') SHR REUSE"
"EXECIO * DISKR MYDDNAME (STEM REC. FINIS)"
"FREE F(MYDDNAME)"
DO
ADDRESS ISPEXEC "VIEW DATASET('"INPUT"') MACRO(TESTI)"
END

still file opens in view mode

prino · Posted: Mon Mar 21, 2011 10:02 pm

Can you please think about what you are doing in your last try, because it has nothing to do with your initial requirement...

abhikulsh · New User Joined: 17 Feb 2011 Posts: 12 Location: chennai

actually moderator suggested to use END so i gave this way..but no use..the file is still opening in view mode

prino · Posted: Mon Mar 21, 2011 10:16 pm

And if the moderator were to suggest that you stick your head in a bucket with ice-cold water, you would also do it?

Just my suggestion, but maybe reading a manual would help?

Ronald Burr · Posted: Mon Mar 21, 2011 10:16 pm

Actually, moderator did NOT say to use DO, so why did you do it that way?

enrico-sorichetti · Posted: Mon Mar 21, 2011 10:17 pm

( very good mood on )
the TS was too lazy to click on the END link and simply stuck an END statement somewhere...
but the he got the message for a <dangling> Rexx END
so he stuck a pairing DO ...
( nothing syntactically wrong from a Rexx point of view... but useless )

so repeat with me ( or rather by Yourself ) a few zillions times
to <end/terminate> an EDIT macro an "Address ISREDIT END" statement is needed

outer macro

Pedro · Posted: Tue Mar 22, 2011 1:45 am

superk · Posted: Tue Mar 22, 2011 2:13 am

Sigh. And I'm the one who's unemployed?