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 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'               

                                                        

**                                                          

OVRPRTF FILE(ABCPRN) TOFILE(SATYAM/ABCPRN) LPI(3) CPI(5)    

OVRPRTF FILE(ABCPRN) TOFILE(SATYAM/ABCPRN) LPI(6) CPI(10)   

OVRPRTF FILE(ABCPRN) TOFILE(SATYAM/ABCPRN) LPI(6) CPI(16.7)  

 

 

Thanks in Advance.

 

Regards,

Amit

 

 



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.