MS Word Letter Mail Merge Sample CL Program using FTP Remote Command Server

Enclosed in this document is a sample CL program for:

Sending an AS/400 file to a PC desktop.
Launching MS Word and running a letter mail merge using the "MERGELETTER" OLE command and the selected template file.

Using the mail merge CL sample:

Create a TEMP directory on the C: drive of your PC.
Detach the enclosed MERGE1.DOT template file to C:\TEMP
Enter and compile the CL program listed below
Make sure your PC has the "RJS FTP Server" component installed and running. V1.0.4 or above is required
Run the CL program to transfer AS/400 file QIWS/QCUSTCDT to C:\TEMP\MERGE1.TXT and then launch MS Word to automatically merge the data in C:\TEMP\MERGE1.TXT with the document template: C:\TEMP\MERGE1.DOT

Creating an ODBC Data Source for MS Word Access

From Windows desktop, select Start/Run and type: ODBCAD32.EXE
Click "OK" to start the ODBC Administrator
Click the "Add" button to create a new ODBC data source
Select "Microsoft Text Driver" for the driver type and click the "Finish" button
Enter "Text Files" for the data source name
Click "OK" to create the new data source

Please contact RJS Software Systems Inc. with any questions you may have.

    PGM                                                        
                                                                  
       DCL        VAR(&RTNIP) TYPE(*CHAR) LEN(15)                 
                                                                  
/*************************************************/                     
/* GET CURRENT WORKSTATION IP ADDRESS            */                     
/*************************************************/                     
       FTPIP      DEVD(*) IPADDR(&RTNIP)                          
                                                                  
/*************************************************/                     
/* CONVERT FILE QCUSTCDT TO CSV FORMAT FOR MERGE */                     
/* AND SEND TO THE SELECTED REMOTE DIRECTORY     */                     
/*                                               */                     
/* NOTE: FOR THIS DEMO WE USE *DSP FOR THE LOG   */                     
/* OPTION. THE LOG CAN BE DISABLED IN PRODUCTION */                     
/* NOTE: C: DRIVE IS THE PC DRIVE LOCATION FOR   */                     
/* /TEMP/MERGE1.TXT.                             */                     
/*************************************************/                     
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Sending +  
                    File to PC via FTP') TOPGMQ(*EXT) +           
                    MSGTYPE(*STATUS)                              
                                                                  
       FTPDBSND   RMTSYS(&RTNIP) FILE(QIWS/QCUSTCDT) +            
                    FLDDLM(*COMMA) COLHDG(*YES) +                 
                    RMTFIL('/TEMP/MERGE1.TXT') USR(TEST) +        
                    PWD(TEST) LOGOPT(*DSP)                        
                                                                  
       MONMSG     MSGID(CPF0000) EXEC(SNDPGMMSG MSGID(CPF9898) +  
                    MSGF(QCPFMSG) MSGDTA('Errors occurred +       
                    while sending AS/400 file to remote PC') +    
                    MSGTYPE(*ESCAPE))                             
                                                                  
/**********************************************/       
/* ATTEMPT TO RUN MAIL MERGE INTO A NEW       */                        
/* MS WORD DOCUMENT.                          */                        
/* PARAMETERS:                                */                        
/* 1.) MERGELETTER - THIS OPTION IS USED TO   */                        
/*     MERGE TO A NEW LETTER AND ALLOW THE    */                        
/*     USER TO REVIEW PRIOR TO PRINTING OR    */                        
/*     SAVING THE MS WORD DOCUMENT.           */                        
/* 2.) TEMPLATE PC FILE NAME.                 */                        
/* 3.) MAIL MERGE DATA FILE NAME IN CSV FMT.  */                        
/**********************************************/                        
       SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +                  
                    MSGDTA('Launching MS word Mail Merge') +      
                    TOPGMQ(*EXT) MSGTYPE(*STATUS)                 
                                                                  
       FTPRUNPC   RMTSYS(&RTNIP) +                                
                    CMD('MERGELETTER~C:\TEMP\MERGE1.DOT~C:\TEMP+  
                    \MERGE1.TXT') OPTION(*WORDOLE)                
                                                                  
       MONMSG     MSGID(CPF0000) EXEC(SNDPGMMSG MSGID(CPF9898) +  
                    MSGF(QCPFMSG) MSGDTA('Errors occurred +       
                    while running mail merge porocessing.') +     
                    MSGTYPE(*ESCAPE))                             
                                                                  
       ENDPGM

MS Word Letter Mail Merge Sample CL Program using FTP Remote Command Server

+1 800-328-1000

[email protected]

Cybersecurity

Compliance & Audit Reporting

IT Operations Management

IT Infrastructure Monitoring

Business Intelligence

Document & Forms Management