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
 
Line Number formatting

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
RamsIBM

New User


Joined: 08 Jan 2007
Posts: 53
Location: Chennai

PostPosted: Wed Jul 16, 2008 10:27 pm    Post subject: Line Number formatting
Reply with quote

Hi There,

In TSO my coding look like below.

000300 000300 IDENTIFICATION DIVISION. 00030000
000400 000400 PROGRAM-ID. KML534. 00040000
000500 000500 DATE-WRITTEN. SEP 24, 2004.00050000
000600 000500 DATE-COMPILED. 00060000

Right hand side also its showing line number, can you please give me any formatting command to disappear line number which is in right hand side, but I need lefthand side line number as it is.

As well as can you please let me know any more formatting command for line nos like ‘renum cob’
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


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

PostPosted: Wed Jul 16, 2008 10:56 pm    Post subject:
Reply with quote

Assuming you're in ISPF edit mode, NUM ON COB will turn on COBOL line number using columns 1 to 6.

Code:
c 73 80 p'¬' '' all
will get rid of the line numbers in columns 73 to 80, but turn on COBOL line numbers first.
Back to top
View user's profile Send private message
sushmitha.prasad

New User


Joined: 08 Jul 2008
Posts: 2
Location: India

PostPosted: Thu Jul 17, 2008 3:56 pm    Post subject:
Reply with quote

Hi Robert,

Do you mean that the NUM ON should be typed for PROFILE and then is the command -> c all p'=' '' 73 80. How to get the character that you have shown in your command?

Regards
Sushmitha
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Thu Jul 17, 2008 4:24 pm    Post subject:
Reply with quote

After you bring up the file in ISPF edit, use NUM ON COBOL to turn on COBOL line numbering. This changes the profile to use columns 1-6 for line numbers. The character in the command is a shift-6, which usually is a ^ on PC keyboards; most emulators change the ^ to the IBM character. Or, copy the line I posted and paste in your emulator.
Back to top
View user's profile Send private message
ashimer

Active Member


Joined: 13 Feb 2004
Posts: 551
Location: Bangalore

PostPosted: Thu Jul 17, 2008 4:30 pm    Post subject:
Reply with quote

Press shift + 6 .... or it is same as symbol ^ which is the shift option in key 6 ..... use NUM ON COB ....
Back to top
View user's profile Send private message
ashimer

Active Member


Joined: 13 Feb 2004
Posts: 551
Location: Bangalore

PostPosted: Thu Jul 17, 2008 4:36 pm    Post subject:
Reply with quote

Sorry Robert ..didnt see your post ..
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: Thu Jul 17, 2008 9:01 pm    Post subject:
Reply with quote

ISPF has a very thorough HELP system. It is your friend.
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 -> COBOL Programming 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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Profile changed to NUMBER ON STD (fro... Martylin TSO/ISPF 1 Thu Aug 03, 2017 9:14 am
No new posts SMTP the current generation number of... Jyothi Kulunde JCL & VSAM 4 Thu May 04, 2017 4:08 pm
No new posts Edit large number of datasets (QSAM) zh_lad TSO/ISPF 3 Tue Apr 04, 2017 6:08 pm

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