Problem:

When you run the AFP-to-PDF or AFP-to-TIF iSeries Report Converters on V5R1, some of the report data shrinks in size during conversion. 
 

Solution:

Create a workstation customization object that can handle a higher resolution image file:
 
  1. Create and edit a new workstation customization object:

    STRSEU SRCFILE(RJSCONVERT/SOURCE) SRCMBR(QFXDFINE) TYPE(WSCST) TEXT('300 DPI Workstation Cust Object')
  2. Add all of the following data to the new QFXDFINE source member, then exit and save the source member:

    :WSCST DEVCLASS=TRANSFORM.                                                                                                    
    :TRNSFRMTBL.                                                      
    :PRTDTASTRM                                                       
    DATASTREAM= TIFF_G4.                                             
                                                                 
    :PRTRSLTN                                                        
    RESOLUTION = 300.                                                
                                                                 
    :DWRPAGSIZ.                                                      
    :DWRPAGSIZE                                                   
    DRAWER = 1                                                  
    PAGWTH = 12240      /* 8.5" in 1440ths           @S2  */    
    PAGLEN = 15840.     /* 11"  in 1440ths           @S2  */    
    :DWRPAGSIZE                                                   
    DRAWER = 2                                                  
    PAGWTH = 12240      /* 8.5" in 1440ths           @S2  */    
    PAGLEN = 20160.     /* 14"  in 1440ths           @S2  */    
    :DWRPAGSIZE                                                   
    DRAWER = 3                                                  
    PAGWTH = 11952      /* A4                         @S2 */    
    PAGLEN = 16848.                                             
    :EDWRPAGSIZ.                                                      
                                                                 
    :INITPRT                                                         
    DATA = '4D4D002A'X.                                             
    :RESETPRT                                                        
    DATA = '00000000'X.                                              
                                                                
    :EWSCST.                                                           
  3. Create the new workstation customization object in RJSCONVERT:

    CRTWSCST WSCST(RJSCONVERT/QFXDFINE) SRCFILE(RJSCONVERT/SOURCE) REPLACE(*YES)
  4. Change the AFP-to-PDF and AFP-to-TIF commands to use the new workstation customization object.

    For example: To change CPYAFPTIF to use WSCST QFXDFINE in the library RJSCONVERT, use:

    CHGCMDDFT CMD(RJSCONVERT/CPYAFPTIF) NEWDFT('MFRTYPMDL(*WSCST)')

    CHGCMDDFT CMD(RJSCONVERT/CPYAFPTIF) NEWDFT('WSCSTNAME(QFXDFINE)') 

    CHGCMDDFT CMD(RJSCONVERT/CPYAFPTIF) NEWDFT('WSCSTLIB(RJSCONVERT)') 

Still have questions? We can help. Submit a case to Technical Support.

Last Modified On: December 10, 2016