IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Line Number Problems Using P Option in DSLISTS


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Charles Wolters

New User


Joined: 30 Mar 2011
Posts: 48
Location: United States

PostPosted: Tue Jan 14, 2014 10:28 pm
Reply with quote

I have a SAS program and in the DSLISTS panel I typed P by the data set containing the SAS program. At the command line I typed LIST and that took me to another panel where I chose the PD option and specified a SYSOUT class and gave the printer name. The contents of the SAS program did print but there is a problem with the line numbers. Below I display 6 lines from the SAS program as they appear in EDIT mode followed by the 6 lines shown in the printed output. Rather than printing and deleting the LIST data set I suppose I could save it and try editing it but I don't really want to do that. This has me baffled.


000162 IF UNITCODE = 'RES' THEN SEPDATEC = LASTOUT ;
000163 SEPYR = SUBSTR(SEPDATEC,3,2) ;
000164 SEPMO = SUBSTR(SEPDATEC,5,2) ;
000165 SEPDA = SUBSTR(SEPDATEC,7,2) ;
000166 SEPYRNUM = INPUT(SEPYR,2.) ;


START _ _ _ _ + _ _ _ _ 1 _ _ _ _ + _ _ _ _ 2 _ _ _ _ + _ _ _ _ 3
COL

1 IF UNITCODE = 'RES' THEN SEPDATEC = LASTOUT ;
000162

1 SEPYR = SUBSTR(SEPDATEC,3,2) ;
000163
1 SEPMO = SUBSTR(SEPDATEC,5,2) ;

000164
1 SEPDA = SUBSTR(SEPDATEC,7,2) ;

000165
1 SEPYRNUM = INPUT(SEPYR,2.) ;

000165

CW
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Jan 14, 2014 10:36 pm
Reply with quote

Hello,

Those are line numbers. You need to ignore these on the printout.
Back to top
View user's profile Send private message
Charles Wolters

New User


Joined: 30 Mar 2011
Posts: 48
Location: United States

PostPosted: Tue Jan 14, 2014 10:53 pm
Reply with quote

Dick,

I am assuming you are a COBOL guy so if your COBOL program has line numbers do they typically show up like in my printed listing or do they show up at the beginning of the COBOL statement where I would expect them to. If this is the way it is, then I won't take this any further.

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

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Jan 15, 2014 12:06 am
Reply with quote

Line numbers, if stored using STANDARD in ISPF, will be placed in columns 73 to 80. This is why SAS generally recognizes only columns 1 through 72 for source code. If you are printing without allowing for 81 bytes per line, the output you show is expected and normal.
Back to top
View user's profile Send private message
Charles Wolters

New User


Joined: 30 Mar 2011
Posts: 48
Location: United States

PostPosted: Wed Jan 15, 2014 1:33 am
Reply with quote

Robert,

Yes, given your explanation what I am seeing is normal and expected. I never knew that the ISPF standard was to place the line numbers in columns 73 through 80. I am certain you are anticipating my next question. Can I change STANDARD so that I have the capability of printing more than 80 bytes per line? I did go to the ISPF Settings Panel but did not see anything that looked like it would allow me to alter the length of the print line.

CW
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Wed Jan 15, 2014 2:31 pm
Reply with quote

Just turn numbering off:
Code:
UNNUM if lines exist with numbering
NUM OFF to turn off numbering

I do not think you can change the LRECL of the default ISPF log and print files so, possibly, the simplest way is to run an IEBEGENR (or Sort or ICEGENER) with your dataset to be printed as SYSUT1 and SYSUT2 pointing to SYSOUT.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Wed Jan 15, 2014 9:02 pm
Reply with quote

You could just fold the paper, or use scissors, or avert your eyes from that final column.

What particular problem is this causing you?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts SCOPE PENDING option -check data DB2 2
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top