Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ISREDUT FIND Command not working when COB NUM is ON

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
hsk

New User


Joined: 28 Nov 2006
Posts: 69
Location: India

PostPosted: Tue Aug 04, 2009 12:36 pm    Post subject: ISREDUT FIND Command not working when COB NUM is ON
Reply with quote

I am having a rexx exec to find and jump to the para name in cobol pgm.

i am using : "ISREDIT FIND '"||PARA||"' 8 NEXT"

where PARA - is the para name, this command locates the starting of para and takes user to that line.

This works ok !!

But works only when i use 'NUM OFF' / 'NUM ON' ..... not sure why ?
If i try to use "NUM ON STD COB' it's not working !!!

Any thots ... or a work around may be ?
Back to top
View user's profile Send private message

hsk

New User


Joined: 28 Nov 2006
Posts: 69
Location: India

PostPosted: Tue Aug 04, 2009 12:42 pm    Post subject: Reply to: ISREDUT FIND Command not working when COB NUM is O
Reply with quote

ohhh , I get that ....
Code:

"ISREDIT FIND '"||PARA||"' 8 NEXT"
IF RC <> 0 THEN
  DO
    "ISREDIT FIND '"||PARA||"' 2 NEXT"
    IF RC <> 0 THEN
       DO
         ZEDSMSG = 'PARA NOT FOUND - ' PARA
         ADDRESS ISPEXEC "SETMSG MSG(ISRZ001)"
       END
  END


Still anybody have better solution .....
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Aug 04, 2009 12:48 pm    Post subject:
Reply with quote

You can retrieve the status of the NUM mode using the NUMBER command.

O.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Tue Aug 04, 2009 8:13 pm    Post subject:
Reply with quote

With NUM ON STD COBOL, maybe what used to be column position 1 is now column position 7? I remember that certain NUM options shift the ISPF screen to the right 7 positions.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts Failure after DIR command Hank Watson All Other Mainframe Topics 2 Tue Aug 29, 2017 3:14 am
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us