Changing Font of print file in Cobol

Hi,
i declared a print file inside a cobol program as:
select printer-file
   assign to printer
   organization is sequential.

now I wonder how can I change the printed font, to some thing like in an outside printer file, because I print the report in a regular printer (not a special as400 printer).
ams61Asked:
Who is Participating?
 
Computer101Connect With a Mentor Commented:
PAQed - no points refunded (of 150)

Computer101
E-E Admin
0
 
daveslaterCommented:
Hi
you can change the font by createing an external printer file, this needs to be compiled with the
Printer device type  . . . . . .   *AFPDS    

you can then use the Font keyword. These will print on most printers (not too sure on dot matrix but lasers are OK)

here are the fonts I know of that come as standard  - they may be more.

FGID      Font Global Identifier
Name      Name of Font
Font Type      
   U = Uniformly Spaced
   M = Mixed Pitch
   T = Typographic
Attributes      
   Blank = Roman
  b = Bold
   i = Italics
  s = Second Strike
   w = Double Wide

Point      
      Point size (Blank for uniformly spaced & mixed pitch fonts)
      S = Scalable
Pitch      
       Characters per inch (For example, 17)
      S = Scalable



FGID       Name       Type of Font       Attributes       Point       Pitch (CPI)
2      Delegate       U                   10
3      OCR-B       U                   10
5      Rhetoric/Orator       U                   
8      Scribe/Symbol       U                   10
10      Cyrillic 22       U                   10
11      Courier       U                   10
12      Prestige       U                   10
13      Artisan       U                   10
18      Courier Italic       U       I             10
19      OCR-A       U                   10
20      Pica       U                   10
21      Katakana       U                   10
25      Presentor       U                   10
26      Matrix Gothic       U                   10
30      Symbol       U                   10
31      Aviv       U                   10
36      Letter Gothic       U                   10
38      Orator Bold       U       b             10
39      Gothic Bold       U       b             10
40      Gothic       U                   10
41      Roman Text       U                   10
42      Serif       U                   10
43      Serif Italic       U       i             10
44      Katakana Gothic       U                   10
46      Courier Bold       U       b             10
49      Shalom       U                   10
50      Shalom Bold       U       b             10
51      Matrix Gothic       U                   10
52      Courier       U                   10
55      Aviv Bold       U       b             10
61      Nasseem       U                   10
62      Nasseem Italic       U       i             10
63      Nasseem Bold       U       b             10
64      Nasseem Italic Bold       U       bi             10
66      Gothic       U                   12
68      Gothic Italic       U       i             12
69      Gothic Bold       U       b             12
70      Serif       U                   12
71      Serif Italic       U       i             12
72      Serif Bold       U       b             12
74      Matrix Gothic       U                   12
75      Courier       U                   12
76      APL       U                   12
78      Katakana       U                   12
80      Symbol       U                   12
84      Script       U                   12
85      Courier       U                   12
86      Prestige       U                   12
87      Letter Gothic       U                   12
91      Light Italic       U       i             12
92      Courier Italic       U       i             12
95      Adjudant       U                   12
96      Old World       U                   12
98      Shalom       U                   12
99      Aviv       U                   12
101      Shalom Bold       U       b             12
102      Aviv Bold       U       b             12
103      Nasseem       U                   12
109      Letter Gothic Italic       U       i             12
110      Letter Gothic Bold       U       b             12
111      Prestige Bold       U       b             12
112      Prestige Italic       U       i             12
154      Essay       M                   12
155      Boldface Italic       M       bi             12
157      Title       M                   12
158      Modern       M                   12
159      Boldface       M       b             12
160      Essay       M                   12
162      Essay Italic       M       i             12
163      Essay Bold       M       b             12
164      Prestige       M                   12
167      Barak       M                   12
168      Barak Bold       M       b             12
173      Essay       M                   12
174      Gothic       M                   12
175      Document       M                   12
178      Barak       M                   18
179      Barak Bold       M       b             18
180      Barak       M                   15
181      Barak Mixed Bold       M       b             15
182      Barak       M                   5
183      Barak Bold       M       b             5
186      Press Roman       M                   12
187      Press Roman Bold       M       b             12
188      Press Roman Italic       M       i             12
189      Press Roman Italic Bold       M       bi             12
190      Foundry       M                   12
191      Foundry Bold       M       b             12
194      Foundry Italic       M       i             12
195      Foundry Italic Bold       M       bi             12
203      Data 1       U                   13
204      Matrix Gothic       U                   13
205      Matrix Gothic       U                   13
211      Shalom       U                   15
212      Shalom Bold       U       b             15
221      Prestige       U                   15
222      Gothic       U                   15
223      Courier       U                   15
225      Symbol       U                   15
226      Shalom       U                   15
229      Serif       U                   15
230      Gothic       U                   15
232      Matrix Gothic       U                   15
233      Matrix Courier       U                   15
234      Shalom Bold       U       b             15
244      Courier Double Wide       U       w             5
245      Courier Bold Double Wide       U       wb             5
247      Shalom Bold       U       b             17
248      Shalom       U                   17
249      Katakana       U                   17
252      Courier       U                   17
253      Courier Bold       U       b             17
254      Courier       U                   17
255      Matrix Gothic       U                   17
256      Prestige       U                   17
258      Matrix Gothic       U                   18
259      Matrix Gothic       U                   18
279      Nasseem       U                   17
281      Gothic Text       U                   20
282      Aviv       U                   20
283      Letter Gothic       U                   20
285      Letter Gothic       U                   25
290      Gothic Text       U                   27
300      Gothic       U             S       17, S
304      Gothic Text       U             S       S
305      OCR-A       U             S       S
306      OCR-B       U             S       S
307      APL       U             S       S
318      Prestige Bold       U       b       S       S
319      Prestige Italic       U       i       S       S
322      APL Bold       U       b       S       S
400      Gothic       U             S       17, S
404      Letter Gothic Bold       U       b       S       S
416      Courier Roman Medium       U             S       S
420      Courier Roman Bold       U       b       S       S
424      Courier Roman Italic       U       i       S       S
428      Courier Roman Italic Bold       U       bi       S       S
432      Prestige       U             S       S
434      Orator Bold       U       b             8
435      Orator Bold       U       b             6
751      Sonoran Serif       T             8P.       27
752      Nasseem       T             12P       18
753      Nasseem Bold       T       b       12P       18
754      Nasseem Bold       T       b       18P       12
755      Nasseem Bold       T       b       24P       9
756      Nasseem Italic       T       i       12P       18
757      Nasseem Bold Italic       T       bi       12P       18
758      Nasseem Bold Italic       T       bi       18P       12
759      Nasseem Bold Italic       T       bi       24P       9
760      Times Roman       T             6P       36
761      Times Roman Bold       T       b       12P       18
762      Times Roman Bold       T       b       10P       15
763      Times Roman Italic       T       i       12P       18
764      Times Roman Bold Italic       T       bi       10P       21
765      Times Roman Bold Italic       T       bi       12P       18
1051      Sonoran Serif       T             10P       21
1053      Sonoran Serif Bold       T       b       10P       21
1056      Sonoran Serif Italic       T       i       10P       21
1351      Sonoran Serif       T             12P       18
1653      Sonoran Serif Bold       T       b             13
1803      Sonoran Serif Bold       T       b       18P       12
2103      Sonoran Serif Bold       T       b       24P       9
2304      Helvetica Roman Medium       T             S       S
2305      Helvetica Roman Bold       T       b       S       S
2306      Helvetica Roman Italic       T       i       S       S
2307      Helvetica Roman Italic Bold       T       bi       S       S
2308      Times New Roman Medium       T             S       S
2309      Times New Roman Bold       T       b       S       S
2310      Times New Roman Italic       T       i       S       S
2311      Times New Roman Italic Bold       T       bi       S       S
4407      Sonoran Serif       T             8P       *27
4407      Sonoran Serif       T             10P       *21
4407      Sonoran Serif       T             12P       *18
4427      Sonoran Serif Bold       T       b       10P       *21
4427      Sonoran Serif Bold       T       b       16P       *13
4427      Sonoran Serif Bold       T       b       24P       *9
4535      Sonoran Serif Italic       T       i       10P       *21
4919      Goudy       T             6P       *36
4919      Goudy       T             8P       *27
4919      Goudy       T             10P       *21
4919      Goudy       T             12P       *18
4939      Goudy Bold       T       T       10P       *21
4939      Goudy Bold       T       b       14P       *15
4939      Goudy Bold       T       b       18P       *12
5047      Goudy Italic       T       i       10P       *21
5067      Goudy Bold Italic       T       bi       10P       *21
5687      Times Roman       T             6P       *36
5687      Times Roman       T             8P       *27
5687      Times Roman       T             10P       *21
5687      Times Roman       T             12P       *18
5707      Times Roman Bold       T       b       10P       *21
5707      Times Roman Bold       T       b       12P       *18
5707      Times Roman Bold       T       b       14P       *15
5707      Times Roman Bold       T       b       18P       *12
5707      Times Roman Bold       T       b       24P       *12
5815      Times Roman Italic       T       i       10P       *21
5815      Times Roman Italic       T       i       12P       *18
5835      Times Roman Italic Bold       T       bi       10P       *21
5835      Times Roman Italic Bold       T       bi       12P       *18
5943      University       T             12P       *18
5943      University       T             14P       *15
5943      University       T             18P       *12
6199      Palatino       T             6P       *36
6199      Palatino       T             8P       *27
6199      Palatino       T             10P       *21
6199      Palatino       T             12P       *18
6219      Palatino Bold       T       b       10P       *21
6219      Palatino Bold       T       b       14P       *15
6219      Palatino Bold       T       b       18P       *12
6327      Palatino Italic       T       i       10P       *21
6347      Palatino Italic Bold       T       bi       10P       *21
8503      Baskerville       T             6P       *36
8503      Baskerville       T             8P       *27
8503      Baskerville       T             10P       *21
8503      Baskerville       T             12P       *18
8523      Baskerville Bold       T       b       10P       *21
8523      Baskerville Bold       T       b       14P       *15
8523      Baskerville Bold       T       b       18P       *12
8631      Baskerville Italic       T       i       10P       *21
8651      Baskerville Italic Bold       T       bi       10P       *21
8759      Nasseem       T             12P       *18
8779      Nasseem Bold       T       b       12P       *18
8779      Nasseem Bold       T       b       18P       *12
8779      Nasseem Bold       T       b       24P       *9
8887      Nasseem Italic       T       i       12P       *18
8907      Nasseem Italic Bold       T       bi       12P       *18
8907      Nasseem Italic Bold       T       bi       18P       *12
8907      Nasseem Italic Bold       T       bi       24P       *9
12855      Narkisim       T             8P       *27
12855      Narkisim       T             10P       *21
12855      Narkisim       T             18P       *12
12855      Narkisim       T             24P       *9
12875      Narkisim Bold       T       b       8P       *27
12875      Narkisim Bold       T       b       10P       *21
12875      Narkisim Bold       T       b       12P       *18
16951      Century Schoolbook       T             6P       *36
16951      Century Schoolbook       T             8P       *27
16951      Century Schoolbook       T             10P       *21
16951      Century Schoolbook       T             12P       *18
16971      Century Schoolbook Bold       T       b       10P       *21
16971      Century Schoolbook Bold       T       b       14P       *15
16971      Century Schoolbook Bold       T       b       18P       *12
17079      Century Schoolbook Italic       T       i       10P       *21
17099      Century Schoolbook Italic Bold       T       bi       10P       *21
20224      Boldface       T       b       S       S
33335      Optima       T             6P       *36
33335      Optima       T             8P       *27
33335      Optima       T             10P       *21
33335      Optima       T             12P       *18
33355      Optima Bold       T       b       10P       *21
33355      Optima Bold       T       b       14P       *15
33355      Optima Bold       T       b       18P       *12
33463      Optima Italic       T       i       10P       *21
33483      Optima Italic Bold       T       bi       10P       *21
33591      Futura       T             6P       *36
33591      Futura       T             8P       *27
33591      Futura       T             10P       *21
33591      Futura       T             12P       *18
33601      Futura Bold       T       b       10P       *21
33601      Futura Bold       T       b       14P       *15
33601      Futura Bold       T       b       18P       *12
33719      Futura Italic       T       i       10P       *21
33729      Futura Italic Bold       T       bi       10P       *21
34103      Helvetica       T             6P       *36
34103      Helvetica       T             8P       *27
34103      Helvetica       T             10P       *21
34103      Helvetica       T             12P       *18
34123      Helvetica Bold       T       b       10P       *21
34123      Helvetica Bold       T       b       14P       *15
34123      Helvetica Bold       T       b       18P       *12
34231      Helvetica Italic       T       i       10P       *21
34251      Helvetica Italic Bold       T       bi       10P       *21
37431      Old English       T             12P       *18
37431      Old English       T             14P       *15
37431      Old English       T             18P       *12
41783      Coronet Cursive       T             12P       *18
41803      Coronet Cursive Bold       T       b       14P       *15
41803      Coronet Cursive Bold       T       b       18P       *12


Have Fun

Dave
0
 
ams61Author Commented:
Thanks.
but what I ment is if there any thing I can do inside the cobol program to change the attribute of the printed charcters (like different size for the letters...), I actually want a bigger letters then the defualt...

Thanks again.
0
Cloud Class® Course: Python 3 Fundamentals

This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.

 
daveslaterCommented:
Hi
not that I know of.
If you are using the standard  pre-sulpied printer files then these are *SCS data stream that only support CPI changes.

Dave
0
 
tliottaCommented:
Since it's not exactly clear what's needed, the only suggestion I can imagine is an OVRPRTF command before opening the file so that the attributes are set at that time.

Tom
0
 
daveslaterCommented:
No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

PAQ - do not refund points
 

Please leave any comments here within the next four days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!
daveslater
Page Editor
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.