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
Still have questions? We can help. Submit a case to Technical Support.