Bolding and Italics in Powerhouse reports
Catherine Litten
catherine.litten@valleypres.org
Fri, 29 Jun 2001 13:13:05 -0700
This is a multi-part message in MIME format.
------=_NextPart_000_000D_01C1009D.3CA4E6F0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
Here is a little use file for "PCL" printers (eg. most laser and deskjet can
use this). The escape sequences from the printer command language are
defined as fields that can be inserted before and after items and lines.
You have to define the size or number of things before you use this use
file.
Both exported at ASCII(.txt) and LABEL(.lbl) format.
Catherine
============================================
Catherine Litten,
Senior Programmer/Analyst (catherine.litten@valleypres.org)
Valley Presbyterian Hospital (www.valleypres.org)
15107 Vanowen Street, Van Nuys, Ca 91405-4597
Phone (818) 782-6600 x 2140 Fax (818) 902-5202
============================================
The thoughts, comments, and opinions expressed herein are mine and do not
reflect those of my employer, or anyone else.
============================================
-----Original Message-----
From: powerh-l-admin@cube.swau.edu
[mailto:powerh-l-admin@cube.swau.edu]On Behalf Of Cunningham, John
Sent: Thursday, June 28, 2001 2:51 PM
To: 'powerh-l@lists.swau.edu'
Subject: Bolding and Italics in Powerhouse reports
Hi to all,
My name is John Cunningham and I am part of a project team using Powerhouse
8.20 for openvms on an Alpha machine. We need to
add Bolding and Italics to our reports and were wondering what approach
other developers have used to accomplish this. We have a
basic understanding of how to accomplish this from reading the manuals and
from talking to COGNOS. Any suggestions and/or examples would be greatly
appreciated!
Regards, John
John Cunningham
EDS I-Solutions NE Region
5 Clock Tower Place
Suite 300
Maynard Ma. 01754
* (781) 487-1357
Fax (781) 487-1626
* Jcunningham@eds.com
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
------=_NextPart_000_000D_01C1009D.3CA4E6F0
Content-Type: text/plain;
name="pcl5.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="pcl5.txt"
;############################################################ =
00001000
; VALLEY PRESBYTERIAN HOSPITAL =
00002000
; =
00003000
; SOURCE NAME : PCL5.Y2KU =
00004000
; =
00005000
; PROGRAM DESCRIPTION : COMMON ESCAPE SEQUENCES FOR PCL =
00006000
; =
00007000
; DATA SETS ACCESSED : NONE =
00008000
; =
00009000
; ELEMENTS NEEDED : P-TRAY / T-MARGIN / L-MARGIN / S-LINE / =
P-PITCH 00010000
; T-FACE / S-WEIGHT / GRAY =
00011000
; =
00012000
; PROGRAMMER : CATHERINE L. LITTEN =
00013000
; =
00014000
; DATE ENTERED PRODUCTION : 2000/09/27 =
00015000
; =
00016000
; NOTES : =
00017000
; =
00018000
; REVISED on BY VER DESCRIPTION =
00019000
; ---------- --- --- ----------- =
00020000
; =
00021000
;############################################################ =
00022000
=
00023000
; PAPER P-TRAY DEFINATIONS - must have define char element P-TRAY =
00024000
; 0=3Dprints; 1=3DTray-2; 2=3DManual Paper; 3=3DManual Envelope =
00025000
; 4=3DTray-1; 5=3DTray-3; 6=3DEnvelope Feeder; 7=3DAuto; =
8=3DTray-4 00026000
define TRAY char*5 =3D pack("=1B" + "&l" + P-TRAY + "H") =
00027000
=
00028000
; PAPER size DEFINATIONS =
00029000
define SIZE-LETTER char*5 =3D "=1B&l2A" =
00030000
define SIZE-LEGAL char*5 =3D "=1B&l3A" =
00031000
=
00032000
; PAPER ORIENTATION DEFINATIONS =
00033000
define O-PORTRAIT char*5 =3D "=1B&l0O" =
00034000
define O-LANDSCAPE char*5 =3D "=1B&l1O" =
00035000
=
00036000
; SIMPLEX/DUPLEX PRINT DEFINATIONS =
00037000
define SIMPLEX char*5 =3D "=1B&l0S" =
00038000
define DUPLEX-L char*5 =3D "=1B&l1S" =
00039000
define DUPLEX-S char*5 =3D "=1B&l2S" =
00040000
=
00041000
; PAPER TYPE DEFINATIONS =
00042000
define BOND char*10 =3D "=1B&n5WdBond" =
00043000
define CARD char*16 =3D "=1B&n10WdCardstock" =
00044000
define LABEL char*12 =3D "=1B&n7WdLabels" =
00045000
define LETTERHEAD char*17 =3D "=1B&n11WdLetterhead" =
00046000
define PLAIN char*11 =3D "=1B&n6WdPlain" =
00047000
define PREPRINTED char*17 =3D "=1B&n11WdPreprinted" =
00048000
define PREPUNCHED char*17 =3D "=1B&n11WdPrepunched" =
00049000
define TRANSPARENCY char*19 =3D "=1B&n13WdTransparency" =
00050000
define RECYCLED char*14 =3D "=1B&n9WdRecycled" =
00051000
=
00052000
; TOP MARGIN DEFINATION - define char element T-MARGIN for # of lines =
00053000
define TOP-MARGIN char*6 =3D pack("=1B&l" + T-MARGIN + "E") =
00054000
=
00055000
; LEFT MARGIN DEFINATION - define char element L-MARGIN for # of columns =
00056000
define LEFT-MARGIN char*6 =3D pack("=1B&a" + L-MARGIN + "L") =
00057000
=
00058000
; LINE SPACING DEFINATIONS - define char elem S-LINE (# of lines per =
inch) 00059000
define LINE-SPACING char*6 =3D pack("=1B&l" + S-LINE + "D") =
00060000
=
00061000
; SPACING DEFINATIONS =
00062000
define SPACING-FIXED char*5 =3D "=1B(s0P" =
00063000
define SPACING-PROP char*5 =3D "=1B(s1P" =
00064000
=
00065000
; PITCH DEFINATIONS - define char elem P-PITCH (# of chars per inch) =
00066000
; used for fixed sized ponts =
00067000
define PRIME-PITCH char*5 =3D pack("=1B(s" + P-PITCH + "H") =
00068000
=
00069000
; HEIGHT DEFINATIONS - define char elem P-PITCH (# of points) =
00070000
; only used for proporital sized fonts =
00071000
define PRIM-HEIGHT char*5=3D pack("=1B(s" + P-PITCH + "V") =
00072000
=
00073000
; PITCH MODE DEFINATIONS =
00074000
define PITCH-10 char*5 =3D pack("=1B&k0S") =
00075000
define PITCH-12 char*5 =3D pack("=1B&k4S") =
00076000
define PITCH-16 char*5 =3D pack("=1B&k2S") =
00077000
=
00078000
; STYLE DEFINATIONS =
00079000
define UPRIGHT char*5 =3D "=1B(s0S" =
00080000
define ITALIC char*5 =3D "=1B(s1S" =
00081000
define CONDENSED char*5 =3D "=1B(s4S" =
00082000
define COMPRESSED char*5 =3D "=1B(s8S" =
00083000
define EXPANDED char*6 =3D "=1B(s24S" =
00084000
define OUTLINE char*6 =3D "=1B(s32S" =
00085000
define INLINE char*6 =3D "=1B(s64S" =
00086000
define SHADOWED char*7 =3D "=1B(s128S" =
00087000
define OUTLINE-SHADOW char*7 =3D "=1B(s160S" =
00088000
=
00089000
; STROKE WEIGHT DEFINATIONS - define char elem S-WEIGHT =
00090000
; (-7 Ultra Thin to 0-Normal to 7 Ultra =
Black) 00091000
define STROKE-WEIGHT char*6 =3D pack("=1B(s" + S-WEIGHT + "B") =
00092000
define ULTRA-THIN char*6 =3D pack("=1B(s-7B") =
00093000
define THIN char*6 =3D pack("=1B(s-5B") =
00094000
define LIGHT char*6 =3D pack("=1B(s-3B") =
00095000
define MEDIUM char*5 =3D pack("=1B(s0B") =
00096000
define BOLD char*5 =3D pack("=1B(s3B") =
00097000
define BLACK char*5 =3D pack("=1B(s5B") =
00098000
define ULTRA-BLACK char*5 =3D pack("=1B(s7B") =
00099000
=
00100000
=
00101000
; TYPEFACE DEFINATIONS - define char elem T-FACE =
00102000
; 4099-Courier, 4101-CG Times, 4113-CG Omega, 4116-Coronet, =
4140-Clarendon 00103000
; 4148-Universal, 4168-Antique Olive, 4197-Garamond, 4297-Marigold =
00104000
; 4362-Albertus, 16602-Ariel, 16901-Times, 24580-Helvetica, =
24591-Palatino 00105000
; 24607-ITC, 24703-New century Schoolbook, 25093-Times Roman, 45099-ITC =
Zap 00106000
; 16686-Symbol, 45358-SymbolPS, 45101-ITC Zapf Dingbats, 31402-Wingdings =
00107000
; 4102 - Letter Gothic, 24579-CourierPS, 0-Line Printer =
00108000
define TYPE-FACE char*9 =3D pack("=1B(s" + T-FACE + "T") =
00109000
=
00110000
; SYMBOL SETS - only need for wing ding or symbols or language =
00111000
define SYMBOLS char*5 =3D "=1B(19M" =
00112000
define WINGDING char*6 =3D "=1B(579L" =
00113000
define HP-ROMAN char*4 =3D "=1B(8U" =
00114000
define IBM-LAYOUT char*5 =3D "=1B(10U" =
00115000
define MATH-8 char*4 =3D "=1B(8M" =
00116000
define DINGBATS char*5 =3D "=1B(14L" =
00117000
define SPANISH char*4 =3D "=1B(2S" =
00118000
=
00119000
; UNDERLINE =
00120000
define ENABLE-UNDERLINE char*5 =3D "" =
00121000
define ENABLE-UNDERLINE-F char*5 =3D "" =
00122000
define DISABLE-UNDERLINE char*5 =3D "" =
00123000
=
00124000
; SHADING - define char elem GRAY % of the shade of Gray you want =
00125000
define SHADING char*6 =3D pack("=1B*c" + GRAY + "G") =
00126000
=
00127000
define FIXED-FONT char*20 =3D & =
00128000
pack("=1B(s0p" + P-PITCH + "h0s" + S-WEIGHT + "b" + T-FACE + "T") =
00129000
=
00130000
; USED IN THE FOLLOWING PASSES: =
00131000
; %%%%%% =
00132000
------=_NextPart_000_000D_01C1009D.3CA4E6F0
Content-Type: application/octet-stream;
name="pcl5.lbl"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
filename="pcl5.lbl"
RECSIZE=3D88;BLOCKFACTOR=3D32;CODE=3D0;EXTENTS=3D1;FILESIZE=3D132;ASCII;F=
ORMAT=3DF=FF;############################################################=
00001000; VALLEY PRESBYTERIAN HOSPITAL =
00002000; =
00003000; SOURCE NAME =
: PCL5.Y2KU =
00004000; =
00005000; PROGRAM DESCRIPTION : COMMON ESCAPE =
SEQUENCES FOR PCL 00006000; =
00007000; DATA SETS =
ACCESSED : NONE =
00008000; =
00009000; ELEMENTS NEEDED : P-TRAY / T-MARGIN / =
L-MARGIN / S-LINE / P-PITCH 00010000; =
T-FACE / S-WEIGHT / GRAY 00011000; =
=
00012000; PROGRAMMER : CATHERINE L. LITTEN =
00013000; =
00014000; DATE ENTERED PRODUCTION : =
2000/09/27 00015000; =
=
00016000; NOTES : =
00017000; =
00018000; REVISED on BY VER =
DESCRIPTION 00019000; =
---------- --- --- ----------- =
00020000; =
=
00021000;############################################################ =
00022000 =
00023000 ; PAPER P-TRAY DEFINATIONS - must =
have define char element P-TRAY 00024000 ; 0=3Dprints; =
1=3DTray-2; 2=3DManual Paper; 3=3DManual Envelope =
00025000 ; 4=3DTray-1; 5=3DTray-3; 6=3DEnvelope Feeder; 7=3DAuto; =
8=3DTray-4 00026000define TRAY char*5 =3D pack("=1B" + =
"&l" + P-TRAY + "H") 00027000 =
00028000 =
; PAPER size DEFINATIONS =
00029000define SIZE-LETTER char*5 =3D "=1B&l2A" =
00030000define SIZE-LEGAL char*5 =3D "=1B&l3A" =
00031000 =
00032000 ; =
PAPER ORIENTATION DEFINATIONS =
00033000define O-PORTRAIT char*5 =3D "=1B&l0O" =
00034000define O-LANDSCAPE char*5 =3D "=1B&l1O" =
00035000 =
00036000; =
SIMPLEX/DUPLEX PRINT DEFINATIONS =
00037000define SIMPLEX char*5 =3D "=1B&l0S" =
00038000define DUPLEX-L char*5 =3D "=1B&l1S" =
00039000define DUPLEX-S char*5 =
=3D "=1B&l2S" 00040000 =
=
00041000; PAPER TYPE DEFINATIONS =
00042000define BOND char*10 =3D "=1B&n5WdBond" =
00043000define CARD char*16 =3D =
"=1B&n10WdCardstock" =
00044000define LABEL char*12 =3D "=1B&n7WdLabels" =
00045000define LETTERHEAD char*17 =3D =
"=1B&n11WdLetterhead" 00046000define =
PLAIN char*11 =3D "=1B&n6WdPlain" =
00047000define PREPRINTED char*17 =3D "=1B&n11WdPreprinted" =
00048000define PREPUNCHED char*17 =3D =
"=1B&n11WdPrepunched" 00049000define =
TRANSPARENCY char*19 =3D "=1B&n13WdTransparency" =
00050000define RECYCLED char*14 =3D "=1B&n9WdRecycled" =
00051000 =
00052000; TOP MARGIN DEFINATION - =
define char element T-MARGIN for # of lines 00053000define =
TOP-MARGIN char*6 =3D pack("=1B&l" + T-MARGIN + "E") =
00054000 =
00055000; LEFT MARGIN DEFINATION - define char =
element L-MARGIN for # of columns 00056000define LEFT-MARGIN =
char*6 =3D pack("=1B&a" + L-MARGIN + "L") =
00057000 =
00058000; LINE SPACING DEFINATIONS - define char elem =
S-LINE (# of lines per inch) 00059000define LINE-SPACING char*6 =3D =
pack("=1B&l" + S-LINE + "D") 00060000 =
=
00061000; SPACING DEFINATIONS =
00062000define SPACING-FIXED char*5 =3D "=1B(s0P" =
00063000define SPACING-PROP char*5 =3D =
"=1B(s1P" 00064000 =
=
00065000; PITCH DEFINATIONS - define char elem P-PITCH (# of chars per =
inch) 00066000; used for fixed sized =
ponts 00067000define PRIME-PITCH char*5 =
=3D pack("=1B(s" + P-PITCH + "H") 00068000 =
=
00069000; HEIGHT DEFINATIONS - define char elem P-PITCH (# of points) =
00070000; only used for proporital =
sized fonts 00071000define PRIM-HEIGHT char*5=3D =
pack("=1B(s" + P-PITCH + "V") 00072000 =
=
00073000; PITCH MODE DEFINATIONS =
00074000define PITCH-10 char*5 =3D pack("=1B&k0S") =
00075000define PITCH-12 char*5 =3D =
pack("=1B&k4S") 00076000define =
PITCH-16 char*5 =3D pack("=1B&k2S") =
00077000 =
00078000; STYLE DEFINATIONS =
00079000define UPRIGHT char*5 =3D =
"=1B(s0S" 00080000define =
ITALIC char*5 =3D "=1B(s1S" =
00081000define CONDENSED char*5 =3D "=1B(s4S" =
00082000define COMPRESSED char*5 =3D "=1B(s8S" =
00083000define EXPANDED char*6 =
=3D "=1B(s24S" =
00084000define OUTLINE char*6 =3D "=1B(s32S" =
00085000define INLINE char*6 =3D "=1B(s64S" =
00086000define SHADOWED char*7 =3D =
"=1B(s128S" 00087000define =
OUTLINE-SHADOW char*7 =3D "=1B(s160S" =
00088000 =
00089000; STROKE WEIGHT DEFINATIONS - define char =
elem S-WEIGHT 00090000; =
(-7 Ultra Thin to 0-Normal to 7 Ultra Black) 00091000define =
STROKE-WEIGHT char*6 =3D pack("=1B(s" + S-WEIGHT + "B") =
00092000define ULTRA-THIN char*6 =3D pack("=1B(s-7B") =
00093000define THIN char*6 =3D pack("=1B(s-5B") =
00094000define LIGHT char*6 =
=3D pack("=1B(s-3B") =
00095000define MEDIUM char*5 =3D pack("=1B(s0B") =
00096000define BOLD char*5 =3D pack("=1B(s3B") =
00097000define BLACK char*5 =3D =
pack("=1B(s5B") =
00098000define ULTRA-BLACK char*5 =3D pack("=1B(s7B") =
00099000 =
00100000 =
00101000; TYPEFACE =
DEFINATIONS - define char elem T-FACE =
00102000; 4099-Courier, 4101-CG Times, 4113-CG Omega, 4116-Coronet, =
4140-Clarendon 00103000; 4148-Universal, 4168-Antique Olive, =
4197-Garamond, 4297-Marigold 00104000; 4362-Albertus, =
16602-Ariel, 16901-Times, 24580-Helvetica, 24591-Palatino 00105000; =
24607-ITC, 24703-New century Schoolbook, 25093-Times Roman, 45099-ITC =
Zap 00106000; 16686-Symbol, 45358-SymbolPS, 45101-ITC Zapf Dingbats, =
31402-Wingdings 00107000; 4102 - Letter Gothic, 24579-CourierPS, =
0-Line Printer 00108000define TYPE-FACE char*9 =
=3D pack("=1B(s" + T-FACE + "T") 00109000 =
=
00110000; SYMBOL SETS - only need for wing ding or symbols or language =
00111000define SYMBOLS char*5 =3D "=1B(19M" =
00112000define WINGDING char*6 =3D =
"=1B(579L" 00113000define =
HP-ROMAN char*4 =3D "=1B(8U" =
00114000define IBM-LAYOUT char*5 =3D "=1B(10U" =
00115000define MATH-8 char*4 =3D "=1B(8M" =
00116000define DINGBATS char*5 =
=3D "=1B(14L" =
00117000define SPANISH char*4 =3D "=1B(2S" =
00118000 =
00119000; UNDERLINE =
00120000define =
ENABLE-UNDERLINE char*5 =3D "" =
00121000define ENABLE-UNDERLINE-F char*5 =3D "" =
00122000define DISABLE-UNDERLINE char*5 =3D "" =
00123000 =
00124000; SHADING - =
define char elem GRAY % of the shade of Gray you want =
00125000define SHADING char*6 =3D pack("=1B*c" + GRAY + "G") =
00126000 =
00127000define FIXED-FONT char*20 =3D =
& 00128000 =
pack("=1B(s0p" + P-PITCH + "h0s" + S-WEIGHT + "b" + T-FACE + "T") =
00129000 =
00130000; USED IN THE FOLLOWING PASSES: =
00131000; %%%%%% =
00132000
------=_NextPart_000_000D_01C1009D.3CA4E6F0--