Comet Electronic Mail Test Program

Below is a sample program that demonstrates how easy it is to link your MTB applications to the Comet Electronic Mail system.

  !S CEMTESTS,CEM
  !O CEMTEST ,CEM
  !L LP1,E
  !R QMONITOR
  !
  !===============================================================!
  !
  ! COMET ELECTRONIC MAIL ENGINE EXAMPLE USAGE PROGRAM
  !
  ! THIS CODE SENDS A MESSAGE VIA THE COMET EMAIL ENGINE
  !
  !===============================================================!
  !
  !======= USE COMET ELECTRONIC MAIL ENGINE DECLARATIVES =========!
  !
  USE "UFCEMDEC"     ! INCLUDES THE FIRST USEFILE
  !
  !
  TESTID:_
     FORMAT (CS);@(0,10);(SB);"ENTER USER THE USER ID===>";_
     (SF);(TP);CEMTO$;(TP);(SB);(BF);@(2)
  !
  TESTOUT:_
     FORMAT      @(0,11);(SB);"ERRORNO=";CEMERRNO;"CEMSENT=";_
     CEMSENT;(SF);(TP);'  ';(TP);(SB);(BF);@(2)
  !
  !
      SET CEMMMF  = 1     ! SETS LOGICAL UNIT NUMBER 1
      SET CEMMDF  = 2     ! SETS LOGICAL UNIT NUMBER 2
      SET CEMMRF  = 3     ! SETS LOGICAL UNIT NUMBER 3
      SET CEMMGF  = 4     ! SETS LOGICAL UNIT NUMBER 4
      SET CEMMHF  = 5     ! SETS LOGICAL UNIT NUMBER 5
      SET CEMMLF  = 6     ! SETS LOGICAL UNIT NUMBER 6
      SET CEMMPF  = 7     ! SETS LOGICAL UNIT NUMBER 7
  !
  !======= SET UP TEST MESSAGES =================================!
    CLEAR
    CEMACTIONS$(1)='X'    ! SETS THE 'X' FLAGS FOR THE E-MAIL
    CEMACTIONS$(2)=' '    ! PROGRAM
    CEMACTIONS$(3)=' '
    CEMACTIONS$(4)=' '
    CEMACTIONS$(5)=' '
    CEMACTIONS$(6)=' '
    CEMACTIONS$(7)=' '
    CEMACTIONS$(8)=' '
    CEMACTIONS$(9)=' '
  !
    CEMETIME$=''          ! SETS THE TIME AND DATE TO DEFAULTS
    CEMEDATE$=''
  !
    CEMFROM$="JOHN"        ! FILLS THE PROGRAM VARIABLES WITH
    CEMWITH$="ACCOUNTING"  ! SPECIFIC VALUES
    CEMTAKENBY$=""
    CEMPHONE$="555-1212"
    CEMSUBJECT$="BUDGET REPORTS"
    CEMTEXT$(1)="TO ALL DEPARTMENT MANAGERS:"
    CEMTEXT$(2)=""
    CEMTEXT$(3)="THIS IS A REMINDER THAT YOUR"
    CEMTEXT$(4)="BUDGET REPORTS ARE DUE NEXT"
    CEMTEXT$(5)="FRIDAY. PLEASE CALL ME IF YOU"
    CEMTEXT$(6)="HAVE ANY QUESTIONS. THANKS."
    CEMTEXT$(8)=""
    CEMTEXT$(9)=""
    CEMTEXT$(10)="P.S. - THE BUDGET MEETING IS"
    CEMTEXT$(11)="STILL SET FOR TWO WEEKS FROM"
    CEMTEXT$(12)="TUESDAY. SEE YOU THERE."
  !
     PRINT(0,TESTID)     ! DISPLAYS PROMPT ON SCREEN
     INPUT(0) CEMTO$     ! ACCEPTS INPUT FROM SCREEN
     GOSUB CEMSEND       ! BRANCHES TO THE "ENGINE"
     PRINT(0,TESTOUT)    ! DISPLAYS ERROR VALUES (IF ANY)
                     ! FROM THE ENGINE
     INPUT(0)''          ! DUMMY INPUT STALL
  !
     RUN "QMONITOR"      ! RETURNS TO THE COMET MONITOR PROGRAM
  !
  !
  !========== USE COMET ELECTRONIC MAIL ENGINE CODE =============!
  !
  USE "UFCEMEXE"         ! INCLUDES THE SECOND USEFILE
!

Comet Electronic Mail