; ************************************************************************************
; *                                                                                  *
; *                                                                                  *
; *      PROCOMM PLUS ASPECT script file for edi transmit - ray 06/02              *
; *                                                                                  *
; *                                                                                  *
; ************************************************************************************
;
; send a specific file passed into s0 to ge edi:
;
;
; * global variables
#define TRUE    1
		
string FileToSend = ""          ; File passed in to s0
string LPATH="Z:\edi\sendlogs\" ; log path
string LOG_NAME			; audit log
string TRACKING = ""            ; tracks dialing result:
string RESULT_LOG = "C:\EDI\LOGS\edisend.log"
string PDUMP  = "Z:\edi\pending\"	; network dump path
integer NEED2TXEDI=1		; success/failure flag
integer XFER_STAT=0		; to test xmit success
;******************************************************************************

proc main
strcat FileToSend S0  ; string passed in with file name:
LOG_NAME = FileToSend 

commandmode on ; very important!

process_edi()

endproc
;******************************************************************************

proc process_edi

  ; strip the dir and change tx? to lo?
  strreplace LOG_NAME PDUMP ""
  strreplace LOG_NAME ".00" ".LO"
  
  set capture Path LPATH              ; store on network for host retrieval
  set capture overwrite ON           
  set capture recordmode FILTERED     ; remove emulation characters
  SET CAPTURE File LOG_NAME
  CAPTURE ON
  sendit()					; actual xmit
endproc

proc sendit

   SET PORT BAUDRATE 9600
   SET PORT DATABITS 7
   SET PORT PARITY EVEN
   SET PORT STOPBITS 1
   CLEAR
   
       ; begin:
       ;
       LOCATE 4 50
       TERMWRITES "** Dialing GE **                   "
       LOCATE 5 50
       TERMWRITES "                                    "
       LOCATE 20 0
       PAUSE 1
       TRANSMIT "atdt1,2015551212^M"
      
       WAITFOR "CONNECT" 45

        IF SUCCESS
           WAITFOR "U" 45
           IF SUCCESS
              LOCATE 6 50
              TERMWRITES "^MWAITING FOR MAILBOX LOGIN^M"
              LOCATE 6 0
               PAUSE 1
               TRANSMIT "id,pw,acct^M"
        
               WAITFOR "ENTER SELECTION:" 45
               IF SUCCESS
                   TRANSMIT "DATA^M"  
                   WAITFOR "SELECTION" 45
                   IF SUCCESS
                        TRANSMIT "XMOD^M" 
                        WAITFOR "SELECTION" 45
                        IF SUCCESS
                           ; do the upload here
                           _upload()
                        ELSE
                           TERMWRITES "^MDID NOT ACCEPT XMOD^M"
                        ENDIF
                      
                 ELSE
                    TERMWRITES "^MDID NOT DISPLAY MAIN MENU^M"
                 ENDIF
               ELSE
                  TERMWRITES "^MLOGIN DENIED BY GE^M"
               ENDIF
           ELSE
              TERMWRITES "^MNO PROMPT PRESENTED AFTER ANSWER^M"
           ENDIF
      ELSE
          TERMWRITES "^MCOULD NOT CONNECT TO GE^M"
      ENDIF
            
    ;* we hang up 
    HANGUP
    commandmode on
   IF strcmp TRACKING ""
         TRACKING = "INCOMPLETE OP  "
   ENDIF
   
   CAPTURE OFF
   IF NEED2TXEDI == 1
       ; show them what happened
     _bad_report()				 
   ENDIF                
    
   ;* end of procedure

endproc

proc _upload

      TRANSMIT "L^M"
      IF SUCCESS
      WAITFOR "Input SEND or RECV?" 45
      IF SUCCESS
         TRANSMIT "SEND^M"
         WAITFOR "Input MARK III filename ?" 45
         IF SUCCESS
            TRANSMIT "MAILBOX^M"
              ;
              PAUSE 2
              TRANSMIT "APP^M" ; * append if file(s) already there
                    
               SENDFILE XMODEM FileToSend
               XFER_STAT = $XFERSTATUS
               WHILE XFER_STAT < 2
                 XFER_STAT = $XFERSTATUS
               ENDWHILE
               IF XFER_STAT == 2
                  ; file xfr complete
                  ;               
                  TERMWRITES "^MFILE TRANSMIT COMPLETED, WAITING FOR OK^M"
                  WAITFOR "Execute XMODEM SEND function again(Y/N)?" 45
                  TRANSMIT "N^M"
                  WAITFOR "Continue XMODEM(Y/N)" 45
                  TRANSMIT "N^M"
                  WAITFOR "ENTER SELECTION:" 45
                  TRANSMIT "SEND MAILBOX^M"
                  WAITFOR "LOG NUMBER" 45
                  IF SUCCESS 
                     NEED2TXEDI = 0		; we are done
                     PAUSE 2
                     TRACKING = "COMPLETE        "
                     LOCATE 5 50
                     TermWriteS "** Transmission Successful **"
                     LOCATE 5 0
                     _bye()
                     _good_report()		; spread the good news!
                  ELSE
                     TERMWRITES "^MFILE SEND MAILBOX FAILED!!!^M"
                  ENDIF
              
              WAITFOR "SELECTION:"   
              TRANSMIT "BYE^M"
                
              ELSE
                 TERMWRITES "^MFILE SEND VIA XMODEM FAILED!!!^M"
              ENDIF
          ELSE
             TERMWRITES "^MWOULD NOT ACCEPT FILENAME^M"
          ENDIF
       ELSE
         TERMWRITES "^MDID NOT PROMPT FOR DIRECTION^M"
      ENDIF
     ELSE
       TERMWRITES "^MNO CRC PROMPT^M"
     ENDIF
                
 endproc

proc _bye

   WAITFOR "SELECTION:"   
   TRANSMIT "BYE^M"

   ;* we hang up 
   HANGUP
   commandmode on

endproc


proc _good_report
  commandmode on
 CLEAR
 make_log()  
 LOCATE 4 3 
   TERMWRITES "-----------------------------------------------------------------------"
   LOCATE 5 3
   TERMWRITES "|                                                                     |"
   LOCATE 6 3
   TERMWRITES "|                 T O R A H  C O M P A N Y  I N C.                    |"
   LOCATE 7 3
   TERMWRITES "|                 - - - - -  - - - - - - -  - - -                     |"
   LOCATE 8 3
   TERMWRITES "|                             E D I                                   |"
   LOCATE 9 3
   TERMWRITES "-----------------------------------------------------------------------"
   LOCATE 12 5
   TERMWRITES "*** Status Report For "
   LOCATE 13 30
   TERMWRITES FileToSend
   LOCATE 14 5
   TERMWRITES "*** Transmission:  Successful"
   LOCATE 22 20
  TERMWRITES "Please wait for send cycle to resume: "
   LOCATE 22 56
   pause 30
  PWEXIT
endproc

;******************************************************************************
proc _bad_report

string y
y = "alert"
set terminal colors y 
commandmode on

CLEAR
make_log()
LOCATE 4 3 
   TERMWRITES "-----------------------------------------------------------------------"
   LOCATE 5 3
   TERMWRITES "|                                                                     |"
   LOCATE 6 3
   TERMWRITES "|                 E D I  T R A N S M I S S I O N                      |"
   LOCATE 7 3
   TERMWRITES "|                 - - - - -  - - - - - - -  - - -                     |"
   LOCATE 8 3
   TERMWRITES "|                             F O R                                   |"
   LOCATE 9 3
   TERMWRITES "|                                                                     |"
   LOCATE 10 27 
   TERMWRITES FileToSend
   LOCATE 11 3
   TERMWRITES "|                                                                     |"
   LOCATE 12 3
   TERMWRITES "-----------------------------------------------------------------------"
   LOCATE 13 3
   TERMWRITES "                                                                      " 
   LOCATE 14 3
   TERMWRITES "|          * * *      U N S U C C E S S F U L   * * *                 |"
   LOCATE 15 3
   TERMWRITES "                                                                      "
   LOCATE 16 5
   TERMWRITES "* * NOTE: **"
   LOCATE 17 3
   TERMWRITES "                                                                      " 
   LOCATE 18 5
   TERMWRITES "See the log file below:"
   LOCATE 19 5
   TERMWRITES "                                                                      "
   LOCATE 20 5
   TERMWRITES LPATH
   TERMWRITES LOG_NAME
  ; LOCATE 21 3
   TERMWRITES "                                                                      " 
   LOCATE 22 20
   TERMWRITES "Please wait for send cycle to resume: "
   LOCATE 22 56
   pause 30
   PWEXIT
endproc

proc make_log
; write out result of attempts:
;
IF fopen 0 RESULT_LOG CREATE
   fwrite 0 TRACKING 16
   fwrite 0 LOG_NAME 12
   fclose 0
ENDIF

endproc