*****************************************************************
      *  Program: JAVAMAILTEST
      *  Date   : 02/25/2002
      *****************************************************************
     H DftActGrp(*NO) ActGrp(*CALLER)

     D from            S             50
     D to              S             50
     D replyTo         S             50
     D subject         S             50
     D filename        S            100
     D text            S           9999
     D rtnCode         S              3
     D rtnText         S             50

     C                   Eval      from    = 'karlg@ri-net.com'
     C                   Eval      to      = 'jamesz@ri-net.com'
     C                   Eval      replyTo = 'bobc@ri-net.com'
     C                   Eval      subject = 'JavaMail Attachment'
     C                   Eval      text    = 'james test send file ' 
     C                   Eval      filename= '/home/test/dataacj2.pdf'

     C                   call      'JAVAMAIL'
     C                   parm                    from
     C                   parm                    to
     C                   parm                    replyTo
     C                   parm                    subject
     C                   parm                    text
     C                   parm                    filename
     C                   PARM                    rtnCode
     C                   PARM                    rtnText

     C                   Eval      *InLr = *On