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 

Underline

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
lacoe1
Beginner


Joined: 24 Feb 2005
Posts: 33
Topics: 17

PostPosted: Mon Jun 20, 2005 1:09 pm    Post subject: Underline Reply with quote

In COBOL what do I have to code to get an under-line. Do I have to move any values in column 0 or 1.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jun 20, 2005 1:32 pm    Post subject: Reply with quote

Lacoe1,

Simply define a working storage variable as shown below. And use the variable in the write statement.

Code:

01 P-RPT-UNDERLINE-REC         PIC X(133) VALUE ALL '_'.

WRITE OUTPUT-REC   FROM P-RPT-UNDERLINE-REC



Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
lacoe1
Beginner


Joined: 24 Feb 2005
Posts: 33
Topics: 17

PostPosted: Mon Jun 20, 2005 3:25 pm    Post subject: Reply with quote

Kolusu,
The underline has to happen on the same line where data has been written, NOT ON THE NEXT LINE.

Since the data created by the cobol pgm goes is printed on a form with Boxes, if the underline is on the next line, it will go outside the box. The pre-printed boxes are not so spaceous.

That's the problem.

Some one suggested
with + in column 1 will print on the same line as data causing underline. Do I move '+' in the first column?
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jun 20, 2005 3:35 pm    Post subject: Reply with quote

lacoe1,

Yes you can use the carriage control character '+' in the first byte which causes the printer to over-type on the same line.

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming 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