cleancut-fluent

(Answer) (Category) iSeries / AS400 FAQ : (Category) Operations : (Category) Configuration :
Configure Network Printers using HPT so COR matches PC's Landscape Printing.
The problem is that when you print a report to a Network Printer using HPT and it performs COR that rotates the output to landscape it is opposite of what a PC would print. If you are using letter head or other forms common to i5 output and PC output you have to switch for each file.

By using a *WSCST you can have OS/400 match other systems. The problem is caused by the IBM supplied transformation which has the landscape and 270 degree rotations switched.
First retrieve the IBM supplied transformation for the device model that you want to change.

    RTVWSCST DEVTYPE(*TRANSFORM)    
              MFRTYPMDL(*HP4000)     
              SRCMBR(HP4000)         
              SRCFILE(YOURLIB/QTXTSRC)
                                    
This example retrieves the transformation for the HP4000 series of printers and places the source in QTXTSRC member HP4000.
Then using the editor of your choice search the member for :PRTORIENT and you will find a block of code similar to:
   :PRTORIENT            
     ORIENT=PORTRAIT     
     DATA ='1B266C304F'X.
   :PRTORIENT            
     ORIENT=LANDSCAPE
     DATA ='1B266C334F'X.
   :PRTORIENT            
     ORIENT=RTT180       
     DATA ='1B266C324F'X.
   :PRTORIENT            
     ORIENT=RTT270    
     DATA ='1B266C314F'X.
Change the line ORIENT=PORTRAIT to ORIENT=RTT270 and ORIENT=RTT270 to ORIENT=PORTRAIT.
Save the source in another member. For this example HP4000M.
Create a new *WSCST by:
    CRTWSCST WSCST(YOURLIB/HP4000M)  
         SRCFILE(YOURLIB/QTXTSRC)
Then end the writer and vary off the device.
Apply the new *WSCST by:
    CHGDEVPRT DEVD(ZZZZ)          
          WSCST(YOURLIB/HP4000M)
Vary on the device and restart the writer.
You might also want to be aware that any CRTPRTF/CHGPRTF/OVRPRTF commands that use PAGRTT(180) or PAGRTT(270) will now have the opposite effect when printed to this printer.
ans-ins-part
Append to This Answer
rv-lists
Previous: (Answer) Setup Perl and Apache to use it on iSeries
Next: (Answer) New Item
This document is: http://faq.midrange.com/index.pl?file=485
[Search] [Appearance]
This is a Faq-O-Matic 2.721.