RPGLE - CPYTOSTMF QCMDEXC example

    RPGLE  - CPYTOSTMF QCMDEXC example

C*
     C*
     C* CPYTOSTMF FROMMBR('/QSYS.LIB/CGI_BIN.LIB/DAILY.FILE/DAILY.MBR')
     C*           TOSTMF('/WEB/REPORTS/20020602/DailyReports.htm')
     C*          STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)
     C*
     C                   Eval      CmdString =%Trim('CPYTOSTMF FROMMBR(')  +
     C                                          %Trim('''')                +
     C                                          %Trim('/QSYS.LIB/CGI_BIN') +
     C                                          %Trim('.LIB/DAILY.FILE/D') +
     C                                          %Trim('AILY.MBR')          +
     C                                          %Trim('''')                +
     C                                          %Trim(') TOSTMF(')         +
     C                                          %Trim('''')                +
     C                                          %Trim('/WEB/REPORTS/')     +
     C                                          %Trim(Chr8)                +
     C                                          %Trim('/DailyReports.htm') +
     C                                          %Trim('''')                +
     C                                          %Trim(')')                 +
     C                                          %Trim('!STMFCODPAG(*PCAS') +
     C                                          %Trim('CII)')              +
     C                                          %Trim('!STMFOPT(*REPLACE)')
     C     '!':' '       Xlate     CmdString     CmdString
     C*
     C                   Eval      Len = %Len(%Trim(CmdString))
     C                   Call      'QCMDEXC'                            88
     C                   Parm                    CmdString
     C                   Parm      Len           CmdLength