× 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.



Hi Tommy,

 

I have tried saving the printer file with *AFPDS and *IPDS but got the
same effect.

Is there any thing else that is needed ?

 

Thanks & Regards,

Amit 

 

subject: RE: Query - RLU 

 

oops...also the font attributes will NOT likely works on a SCS printer

file...I believe the printer file has to be *IPDS or *AFPDS for font

changes to work properly (could be faulty memory though LOL)

 

Thanks,

Tommy Holden

 

 

-----Original Message-----

From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On
<mailto:rpg400-l-bounces@xxxxxxxxxxxx%5dOn>  Behalf Of Holden Tommy

Sent: Thursday, July 21, 2005 10:54 AM

To: RPG programming on the AS400 / iSeries

Subject: RE: Query - RLU 

 

 

first off....

 

in order for the overrides to take effect they have to be executed prior

to the printer file open....

 

without USROPN on the F spec the printer file is opened on calling the

program not after.

 

The way you have this coded the overrides will do nothing...on any

machine.  Most likely you have executed the override interactively on

your session prior to the call which would give that appearance.

 

For what the code appears to be doing you just simply can't do with

overrides due to the printer file having to be closed then reopened.

 

If you inserted the opens & closes necessary for the overrides to work

you will have multiple spooled files, not a single spooled file with

multiple font sizes.

 

Best bet is since this is an external printer file you should manipulate

the font sizes IN the printer file.  Look up the proper keywords etc in

the DDS manual....

 

Thanks,

Tommy Holden

 

 

-----Original Message-----

From: rpg400-l-bounces@xxxxxxxxxxxx

[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On
<mailto:rpg400-l-bounces@xxxxxxxxxxxx%5dOn>  Behalf Of Amit_Pole

Sent: Thursday, July 21, 2005 8:03 AM

To: rpg400-l@xxxxxxxxxxxx

Subject: Query - RLU 

 

 

Hello,

 

 

 

Can any one help me out in changing the font size in RLU ?

 

I have tried almost all the options available with a constant ie. (

HIGHLIGHT : CHRSIZ : CPI ) but nothing worked out.

 

 

 

Then I tried changing the CPI at Runtime by overriding the CPI of

printer file once for Bold & Bigger Font Size &

 

Again for Normal font and it worked in my Machine ( V5R3 ) But the same

code is not working in one of my colleagues Machine

 

 ( V5R3 ). Can any one tell me what can be the reason that Its running

on one and not on the other.

 

 

 

The code is mentioned below :

 

 

 

FABCPRN    O    E             PRINTER                              

 

D Cmd             S            100    DIM(4) CTDATA PERRCD(1)      

 

                                                                   

 

C                   Z-ADD     80            lung             15 5  

 

C                   CALL      'QCMDEXC'                            

 

C                   PARM                    Cmd(1)                 

 

C                   PARM                    Lung                   

 

C                   WRITE     RCD001                               

 

 

 

C                   Z-ADD     80            lung                   

 

C                   CALL      'QCMDEXC'                            

 

C                   PARM                    Cmd(2)      

 

C                   PARM                    Lung        

 

C                   WRITE     RCD001                    

 

 

 

C                   Z-ADD     80            lung        

 

C                   CALL      'QCMDEXC'                 

 

C                   PARM                    Cmd(3)      

 

C                   PARM                    Lung        

 

C                   WRITE     RCD001                    

 

 

 

C                   EVAL      *INLR = '1'               

 

                                                        

 

 



DISCLAIMER:
This email (including any attachments) is intended for the sole use of the 
intended recipient/s and may contain material that is CONFIDENTIAL AND PRIVATE 
COMPANY INFORMATION. Any review or reliance by others or copying or 
distribution or forwarding of any or all of the contents in this message is 
STRICTLY PROHIBITED. If you are not the intended recipient, please contact the 
sender by email and delete all copies; your cooperation in this regard is 
appreciated.

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.