MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

sequence number using edit macro

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA

PostPosted: Wed Feb 12, 2003 2:31 am    Post subject: sequence number using edit macro Reply with quote

Hi,

Can anyone tell me how to get sequence numbers of lines of a file opened in edit mode. I tried various commands but all are returning line number (which starts from 1) instead of sequence number (which generally starts from 100).

Diba.
Back to top
View user's profile Send private message Send e-mail
bob_buxton
Beginner


Joined: 20 Dec 2002
Posts: 44
Topics: 0
Location: Hampshire, England

PostPosted: Wed Feb 12, 2003 4:40 am    Post subject: Reply with quote

ISREDIT NUMBER ON STD and/or COBOL turns on sequence numbering
_________________
Bob Buxton
Ex Websphere MQ for zOS development
Back to top
View user's profile Send private message
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA

PostPosted: Wed Feb 12, 2003 7:02 am    Post subject: Reply with quote

Bob,

My requirement is different. Suppose I search and find a string 'CCERR' then I want to return the sequence number corresponding to the line containing 'CCERR'. But at present I am only able to return line number and not the sequence number.

For example, in the current screen I would like to return 48, instead of 11.
Code:

VIEW      ,TSO.MDP.MDARNDS.COPYLIB(K40R02PC) - 01.07
Command ===>,                                       
******,***************************** Top of Data ****
000010,      ****************************************
000020,      *
000030,      *
000040,      *    DATE    NAME          DESCR
000041,      * ---------- ------------- -------------
000043,      * JUNE/2002  S.RAINA       INITIAL
000044,      ****************************************
000045,
000046,       COPY CCFEPIK4.
000047,
000048,       COPY CCERROPR.

Diba
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Wed Feb 12, 2003 9:52 am    Post subject: Reply with quote

NUM OFF will let you access the sequence numbers; LINE (var) = ... will capture all 80 bytes. If you are using ISPF to automatically update the line numbers and it sounds like you are, remember to turn NUM ON when you are done.
Back to top
View user's profile Send private message Visit poster's website
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA

PostPosted: Thu Feb 13, 2003 2:12 am    Post subject: Reply with quote

Thanks semigeezer,

It worked.

I don't want to update numbers but just tell user which line contains a particular string. So, to get rid of initial setting, I had to do NUM ON then NUM OFF then again NUM ON. This might change numbering but that is okay with my requirements.

Diba
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group