× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. COBOL400-L
  3. February 2000

RE: How do you call font settings in a WSCST

  • Subject: RE: How do you call font settings in a WSCST
  • From: "Stone, Joel" <StoneJ@xxxxxxxxxxxxxxxx>
  • Date: Tue, 1 Feb 2000 10:30:55 -0500
If you want to underline, there are two simple methods to try:
 
1)    Are you using a DDS printer file?  Simply use the UNDERLINE keyword.
 
2)    If using a program described printer format, simply write the dollar amount BEFORE ZERO LINES, then WRITE PRINT-LINE BEFORE 1 LINE, where the PRINT-LINE contains only the underscore character.
-----Original Message-----
From: Robert E. Burger [mailto:rburger@home.net]
Sent: Tuesday, February 01, 2000 1:37 AM
To: COBOL400-L@midrange.com
Subject: How do you call font settings in a WSCST

The default WSCST for an HP5Si contains the following entries:
 
   :STRBOLD                 
     DATA ='1B28733342'X.   
   :ENDBOLD                 
     DATA ='1B28733042'X.   
   :STRSUBS                 
     DATA ='1B26612B2E3352'X.
   :ENDSUBS                 
     DATA ='1B26612D2E3352'X.
   :STRSUPS                 
     DATA ='1B26612D2E3352'X.
   :ENDSUPS                 
     DATA ='1B26612B2E3352'X.
   :STRUS                   
     DATA ='1B26643044'X.   
   :ENDUS                   
     DATA ='1B266440'X.     
Is there a way to "call" these "commands" in a COBOL WRITE statement?  The objective is to to print something like "Your current account balance is _$x,xxx.xx_." where the dollar amount is underlined (as indicated by '_') and in bold.
 
As always, thanks in advance,
 
Robert E. Burger
Information Systems Coordinator
Tarrant County CSCD
Fort Worth, Texas, USA
=============================
AS/400 9406-620 running OS/400 V4R4
AS/400 9406-170 running OS/400 V4R4

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.