|
John, find enclosed the source of a RPG program and a printerfile I have created some time ago, where I did a test with all avialable font settings. You can print the spooled output on your different printers and see what they have done with that. The source shows not the latest style but works. Hope this helps. Regards, Werner Noll -----Ursprüngliche Nachricht----- Von: John Allen [mailto:jallen@xxxxxxxxxxx] Gesendet: Mittwoch, 26. Mai 2004 13:49 An: 'Midrange Systems Technical Discussion' Betreff: Printer Font List Is there a web site where I can get a list of internal fonts for various HP and IBM printer models? I have looked through the IBM and HP web sites without any luck. I am most interested in the HP 6L, 4000, 4050 and 4100 Thanks John jallen@xxxxxxxxxxx _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
midrange.com
*****************************************************************
* GEFIS GESELLSCHAFT FÜR INDIVIDUAL-SOFTWARE MBH *
*****************************************************************
* W-FILE : FONTS *
* FUNCTION: TEMPLATE FOR PROGRAM TESTFONTS *
*****************************************************************
A R FONTS01
A 1'TEST'
A R FONTS02
A 1'TEST'
? *****************************************************************
? * GEFIS GESELLSCHAFT FÜR INDIVIDUAL-SOFTWARE MBH *
? *****************************************************************
? * Program : TESTFONTS *
? * Function: Test Fonts (CPP for TESTFONTS command) *
? *****************************************************************
Fqddssrc o e disk
F rename(qddssrc:qddssrcr)
F usropn
Ffonts o e printer oflind(*in98)
F usropn
? *****************************************************************
* Fixed part of DDS-Source
D §line s 80a dim(6)
D ctdata
D perrcd(1)
* Array with fonts
D §font s 5a dim(999)
D ctdata
D perrcd(1)
? *
D #cmd1 c 'CRTSRCPF FILE(QTEMP/QDDSSRC)'
D #cmd2 c 'ADDPFM FILE(QTEMP/QDDSSRC) MBR(FONT-
D S)'
D #cmd3 c 'OVRDBF FILE(QDDSSRC) TOFILE(QTEMP/Q-
D DDSSRC)'
D #cmd4 c 'DLTOVR FILE(QDDSSRC)'
D #cmd5 c 'CRTPRTF FILE(QTEMP/FONTS) SRCFILE(Q-
D TEMP/QDDSSRC) DEVTYPE(*IPDS)'
D #cmd6 c 'OVRPRTF FILE(FONTS) TOFILE(QTEMP/FO-
D NTS)'
D #cmd8 c 'DLTF FILE(QTEMP/FONTS)'
D #cmd9 c 'DLTF FILE(QTEMP/QDDSSRC)'
D #cmd10 c 'DLTSPLF FILE(FONTS) SPLNBR(*LAST)'
D #cmd s 80a
D #jobstmp s 48a
D #char010 s 10a
D #char008 s 8a
D #end s 1a inz(*off)
D w$stmp s 48a
D #cll s 15p 5 inz(80,0)
D i1 s 5u 0 inz(*zeros)
D i2 s 5u 0 inz(*zeros)
? *
* Today-Date/Time
D #tmstmp s z
D #today_dat s d datfmt(*iso)
D #today_tim s t timfmt(*hms)
? *
? * Program status DS (PSDS)
D #psds sds
D #pgm *proc
D #job 244 253a
D #user 254 263a
D #jnbr 264 269a
? *
? *----------------------------------------------------------------
C time #tmstmp
C move #tmstmp #today_dat
C move #tmstmp #today_tim
? *
C move #today_dat #char010
C move #today_tim #char008
? *
C eval #jobstmp =
C %trimr(#user) + '/' + %trimr(#job) +
C '/' + %trimr(#jnbr) + '/' +
C #char010 + '/' + #char008
? *
C eval w$stmp=#jobstmp
? *
? * Do 10 times. Each time creates a separate spool file because
? * one spool file may use up to 42 different fonts.
C do 10
C if #end=*on
C leave
C endif
? *
? * Delete printerfile FONTS in library QTEMP, if exists
c eval #cmd=#cmd8
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Delete sourcefile QDDSSRC in library QTEMP, if exists
c eval #cmd=#cmd9
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Create sourcefile QDDSSRC in library QTEMP
c eval #cmd=#cmd1
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Add PF member FONTS to QDDSSRC
c eval #cmd=#cmd2
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Override QDDSSRC
c eval #cmd=#cmd3
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
C open qddssrc
? *
? * Write source for printerfile FONTS
C 1 do 6 i1
C eval srcseq=srcseq+1
C eval srcdta=§line(i1)
C write qddssrcr
C enddo
? *
C do 42
? *
C eval i2=i2+1
? *
C if §font(i2)=*blanks
C eval #end=*on
C leave
C endif
? *
C eval srcdta=*blanks
C eval %subst(srcdta:6:1)='A'
C eval %subst(srcdta:44:37)='8''FONT '+§font(i2)
C +':'+' 123ABCabc'''
C eval srcseq=srcseq+1
C write qddssrcr
C eval srcdta=*blanks
C eval %subst(srcdta:6:1)='A'
C eval %subst(srcdta:46:11)='FONT('
C +%trim(§font(i2))+')'
C eval srcseq=srcseq+1
C write qddssrcr
C eval srcdta=*blanks
C eval %subst(srcdta:6:1)='A'
C eval %subst(srcdta:46:9)='SPACEA(1)'
C eval srcseq=srcseq+1
C write qddssrcr
? *
C enddo
? *
? * Close QDDSSRC
C close qddssrc
? *
? * Delete override to QDDSSRC
c eval #cmd=#cmd4
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Create printerfile FONTS
c eval #cmd=#cmd5
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Delete spoolfile
c eval #cmd=#cmd10
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? *
? * Override printerfile FONTS
c eval #cmd=#cmd6
c call 'QCMDEXC' 99
c parm #cmd
c parm #cll
? *
? * Open printerfile
C open fonts
? *
? * Print fonts
C write fonts01
C write fonts02
? *
? * Close printerfile
C close fonts
? *
C enddo
? *
C eval *inlr=*on
C return
? *----------------------------------------------------------------
** Fixed part of DDS
A R FONTS01
A SKIPB(2)
A 2'FONT-Test'
A W$STMP 48A 12
A SPACEA(2)
A R FONTS02
** Fonts
002
003
005
008
010
011
012
013
018
019
020
021
025
026
030
031
036
038
039
040
041
042
043
044
046
049
050
051
052
055
061
062
063
064
066
068
069
070
071
072
074
075
076
078
080
084
085
086
087
091
092
095
096
098
099
101
102
103
109
110
111
112
154
155
157
158
159
160
162
163
164
167
168
173
174
175
178
179
180
181
182
183
186
187
188
189
190
191
194
195
204
205
211
212
221
222
223
225
226
229
230
232
233
234
244
245
247
248
249
252
253
254
255
256
258
259
279
281
282
285
290
300
304
305
306
307
318
319
400
404
416
420
424
428
432
434
435
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
1051
1053
1056
1351
1653
1803
2103
2304
2305
2306
2307
2308
2309
2310
2311
4407
4427
4535
4919
4939
5047
5067
5687
5707
5815
5835
5943
6199
6219
6327
6347
8503
8523
8631
8651
8759
8779
8887
8907
12855
12875
16951
16971
17079
17099
33335
33355
33463
33483
33591
33601
33719
33729
34103
34123
34231
34251
37431
41783
41803
As an Amazon Associate we earn from qualifying purchases.
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.
