Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
How to comment specified lines

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
Author Message
iknow

Senior Member


Joined: 22 Aug 2005
Posts: 582
Location: Colarado, US
PostPosted: Thu Dec 01, 2005 10:40 pm    Post subject: How to comment specified lines
 Reply with quote
Hi All,

I have program with 200 lines. Now I need to comment say 20 lines.
How can I comment these 20 lines.

Please help me.
Back to top
View user's profile Send private message
References
radhakrishnan82

Senior Member


Joined: 31 Mar 2005
Posts: 386
Location: chennai, India
PostPosted: Fri Dec 02, 2005 11:24 am    Post subject:
Reply with quote
Hi Iknow,

try this .

set the tag limit for commenting the lines and issue the CHANGE ALL command .

Code:
Command ===> C ' ' 7 '*' .A .B ALL
.A                SELECT S1G08                                                 
002500                ASSIGN TO S1G08                                         
002600                FILE STATUS S1G08-STATUS.                               
003300                                                                         
003400        DATA DIVISION.                                                   
003500        FILE SECTION.                                                   
003600                                                                         
003700        FD   S1G08                                                       
003800             RECORDING MODE F                                           
003900             BLOCK CONTAINS 0 CHARACTERS                                 
004000             LABEL RECORDS ARE OMITTED.                                 
004100        01   S1G08-R.                                                   
004200               10  FILLER                        PIC X(80).             
004201                                                                         
004210        WORKING-STORAGE SECTION.                                         
012900                                                                         
.B            01 WS-ALL.                                                       



Code:
Command ===>                                                  Scrol
==CHG>       *    SELECT S1G08                                     
==CHG>       *        ASSIGN TO S1G08                             
==CHG>       *        FILE STATUS S1G08-STATUS.                   
==CHG>       *                                                     
==CHG>       *DATA DIVISION.                                       
==CHG>       *FILE SECTION.                                       
==CHG>       *                                                     
==CHG>       *FD   S1G08                                           
==CHG>       *     RECORDING MODE F                               
==CHG>       *     BLOCK CONTAINS 0 CHARACTERS                     
==CHG>       *     LABEL RECORDS ARE OMITTED.                     
==CHG>       *01   S1G08-R.                                       
==CHG>       *       10  FILLER                        PIC X(80). 
==CHG>       *                                                     
==CHG>       *WORKING-STORAGE SECTION.                             
==CHG>       *                                                     
==CHG>       *01 WS-ALL.                                           



hope this helps.
Back to top
View user's profile Send private message
ritakaur

New User


Joined: 19 Sep 2005
Posts: 14
Location: Belgaum
PostPosted: Sat Dec 03, 2005 10:56 am    Post subject:
Reply with quote
great!
Its working fine for me and its very simple to comment out more lines.
thanks radhakrishnan.

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

Senior Member


Joined: 22 Aug 2005
Posts: 582
Location: Colarado, US
PostPosted: Sun Dec 04, 2005 11:49 am    Post subject: Re: How to comment specified lines
 Reply with quote
Hi there,

Thanks for your information. It works fine.

But is there any other way to achieve the same functionality.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1