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
 
How to comment 100 cobol line at one time.

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

New User


Joined: 04 Dec 2009
Posts: 15
Location: Shanghai China

PostPosted: Tue Jan 18, 2011 7:57 am    Post subject: How to comment 100 cobol line at one time.
Reply with quote

Hello, Everyone:
I don't want to type the '*' one by one. Can anybody tell me some smart way?

Regards.
Back to top
View user's profile Send private message

Guest







PostPosted: Tue Jan 18, 2011 8:37 am    Post subject:
Reply with quote

Hi,
You can use the "OVERLAY" command to put * in all lines.

Code:

000001        JKGLK     
0c0002       *         
 oo           LGLASVLV 
000004        KLSHDFO;SH
000005        KJFGLSDFL
000006        GBSDLABLA
oo            HVBASDKFKB


Code:

 JKGLK     
*           
*LGLASVLV   
*KLSHDFO;SH
*KJFGLSDFL 
*GBSDLABLA 
*HVBASDKFKB


devil13
There is always a better solution
Back to top
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8166
Location: East Dubuque, Illinois, USA

PostPosted: Tue Jan 18, 2011 9:05 am    Post subject:
Reply with quote

Set bounds and use the Change command in TSO/ISPF one time would be one way to do it.
Back to top
View user's profile Send private message
Rock Xu

New User


Joined: 04 Dec 2009
Posts: 15
Location: Shanghai China

PostPosted: Tue Jan 18, 2011 10:03 am    Post subject:
Reply with quote

Success!
Devil13 and Robert Sample,
Thank you for your help.
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Jan 18, 2011 4:49 pm    Post subject:
Reply with quote

also, you can add labels and use
Code:
C ALL ' ' '*' 7 7 .A .B


O.
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 line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm

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