AS400

01  WS-CMD-STRING       PIC X(2560).                          01  WS-CMD-LEN          PIC S9(10)V9(05) COMP-3 VALUE 2560. MOVE "OVRPRTF FILE(FileNM) SHARE(*YES) OPNSCOPE(*JOB)"                      TO WS-CMD-STRING.            CALL "QCMDEXC" USING WS-CMD-STRING, WS-CMD-LEN.          RPG:  * Run Command                                                    DRunCommand       PR                  extpgm('QCMDEXC')            D pCommand                   32702    const...

Email Spool as PDF Convert Spool to PDF (Need 5770TS1 option 01 installed in the machine/LPAR) CPYSPLF FILE(SPLFfilename) TOFILE(*TOSTMF) JOB(jobname/user/jobnumber) SPLNBR(*ONLY) TOSTMF('ifs or stream filename.pdf') WSCST(*PDF) STMFOPT(*REPLACE)                    QSYS/SNDSMTPEMM RCP((mail@domain.COM)) SUBJECT('test email') ATTACH(('ifs or stream filename.pdf'))                                                                                                                                                                  ...