MVSFORUMS.com

psridhar · Beginner Joined: 16 May 2004 Posts: 68 Topics: 26

Hi

I need a help in an ISREDIT macro. I have a requirement where I have to open a member ( consisting of COBOL program) of a PDS and check for any uncommented DISPLAY statments in the program. For that I use the following code.

I assume that the return code of the command ( "f all nx " inp ) will be non zero if these is no DISPLAY in the non-excluded lines. But the above command returns zero even if the DISPLAY is not present in non-excluded lines and present in excluded lines. Can anybody help in identifying the word DISPLAY in the non-excluded lines.....

Thanks in advance

Phantom · Posted: Wed Jul 27, 2005 4:57 am Post subject:

psridhar,

When you use FIND ALL, the COUNT (number of occurrences) of the variable is stored in a special variable called FIND_COUNTS. Check for the value stored in this. If this is zero, then no DISPLAY statement is found in the non-excluded portion of the program.

Hope this helps,

cheers,
Phantom

psridhar · Beginner Joined: 16 May 2004 Posts: 68 Topics: 26

Hi Phantom,

Thanks for the help. I changed my macro code as follows but no use. No number is being assigned to find_counts. The variable is displayed as it is.

some more input.....??????????

Phantom · Posted: Wed Jul 27, 2005 6:22 am Post subject:

Psridhar,

FIND_COUNTS cannot be accessed directly. You need to use the ISREDIT command to get the value stored in it.

psridhar · Beginner Joined: 16 May 2004 Posts: 68 Topics: 26

Hi Phantom,

Thank you very much for the help. Now I could able to trap the number of occurances but still my purpose is not solved. The count includes the DISPLAY statments in the excluded lines also.

Is there any way other than below...

taltyman · Posted: Wed Jul 27, 2005 7:27 am Post subject:

This works for me, you'll need to adapt it to your pull/push

psridhar · Beginner Joined: 16 May 2004 Posts: 68 Topics: 26

anybody......... please help me.....

I could not able to limit my search only for non-excluded lines......

neither the return code (rc) nor finds help me.....

it is including the excluded lines also in its search.......

rc = 0 and finds = 7 for a cobol program in which i have 7 DISPLAYs in commented code ....

semigeezer · Posted: Wed Jul 27, 2005 11:49 pm Post subject:

If your file has valid sequence numbers in column 1 through 6, that is you are in NUM COBol mode, then physical column 7 is column 1 to the macro. In other words, the columns used in edit macros are relative to the data portion of the record, or put another way, the column numbers used by edit macros don't include sequence numbers.

Something like this will work

psridhar · Beginner Joined: 16 May 2004 Posts: 68 Topics: 26

Hi friend,

that is excallent..... the macro is serving my purpose now.... thank you very much for the help......

Thanks
Sridhar P

Phantom · Posted: Thu Jul 28, 2005 3:04 am Post subject:

tattva · Beginner Joined: 02 Feb 2005 Posts: 97 Topics: 36

Just want to know more about ISREDIT

an any one post any useful for the same?

Thanks,
tattva

kolusu · Posted: Tue Aug 02, 2005 11:56 am Post subject:

tattva,

ISREDIT is the environment in which ISPF/PDF EDIT commands execute. The ISPEXEC and ISREDIT host command environments are available only to REXX execs that run in ISPF. Use the environments to invoke ISPF commands and services, and ISPF edit macros.

When you invoke a REXX exec from ISPF, the default initial host command environment is TSO. You can use the ADDRESS instruction to use an ISPF service. The ISREDIT environment lets you issue ISPF edit macros. To use ISREDIT, you must be in an edit session.

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu