View previous topic :: View next topic |
Author |
Message |
lacoe1 Beginner
Joined: 24 Feb 2005 Posts: 33 Topics: 17
|
Posted: Mon Jun 20, 2005 1:09 pm Post subject: Underline |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Mon Jun 20, 2005 1:32 pm Post subject: |
|
|
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 |
|
 |
lacoe1 Beginner
Joined: 24 Feb 2005 Posts: 33 Topics: 17
|
Posted: Mon Jun 20, 2005 3:25 pm Post subject: |
|
|
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 |
|
 |
kolusu Site Admin

Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
|
Posted: Mon Jun 20, 2005 3:35 pm Post subject: |
|
|
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 |
|
 |
|
|