CL Sample for Converting a Report to RTF Format using CPYSPLRTF

From Support

PGM                                                       
                                                                       
  DCL        VAR(&USER) TYPE(*CHAR) LEN(10) VALUE(TEST)     
                                                                       
  DCL        VAR(&RTFFILE) TYPE(*CHAR) LEN(20) +            
                 VALUE(REPORT.RTF)                            
                                                                       
  DCL        VAR(&IFSFILE) TYPE(*CHAR) LEN(255)             
                                                                      
/**********************************************/                       
/* SET UP IFS OUTPUT FILE NAME   */                                      
/**********************************************/                       
CHGVAR     VAR(&IFSFILE) VALUE('/REPORTS/' |< &USER |< +  
                    '/' |< &RTFFILE)                             
                                                                      
/**********************************************/      
/* CONVERT TEXT REPORT TO RTF */                                       
/**********************************************/                       
RJSCONVERT/CPYSPLRTF FILE(QPJOBLOG) JOB(*) +              
                SPLNBR(*LAST) CTLCHAR(*PRTCTL) +             
                FILNAM(&IFSFILE)                             
                                                                      
ENDPGM