home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / EASL2PRF.ZIP / PROFSEND.EAL < prev    next >
Text File  |  1991-04-01  |  6KB  |  190 lines
  1. # PROFSEND - Easel application to send files from PC to VM and optionally
  2. # store in PROFS Database.  If store option is invoked, the user is 
  3. # prompted for mailing the file.
  4. #
  5. # This program was developed by Mark Polly for Progressive Insurance.  Since
  6. # it is an EASEL application, it requires Easel Runtime for OS/2.
  7. #
  8. #                           Generated by Layout/CUA
  9. # (Layout/CUA COPYRIGHT (C) INTERACTIVE IMAGES, INC.1989. ALL RIGHTS
  10. #RESERVED)
  11. #            Code generated on TUESDAY JANUARY 23, 1990 at TIME 10:31:03
  12. #
  13. application DIRLIST
  14. application SENDFILE
  15. module m3270
  16.  
  17.            
  18. include fileio.inc
  19. fileid FileID
  20. string TermID TermPrefix LogMode
  21. string PassWord MockPW UserID PassWordHidden InitMsg
  22. string Access is "write"
  23. integer I Count
  24.  
  25.  
  26. include pmptr.inc
  27. include accel.inc
  28.  
  29.  
  30. #
  31. # Action Bar Template Definition(s)
  32. #
  33.  
  34. action bar PrimaryWindowABCUA is
  35.     pulldown File text "~Send or Receive Files"
  36.         choice Send text "~Send Files To PROFS..."
  37.         choice Receive text "~Receive Files From PROFS..."
  38.         separator
  39.         choice ExitCUA text "E~xit\tF3"
  40.             accelerator is KEY_F3
  41.     end pulldown
  42.     pulldown Log1 text "~Log on and off PROFS"
  43.         choice Logon text "~Logon to PROFS"
  44.         choice Logoff text "Log~off PROFS"
  45.     end pulldown
  46. end action bar
  47.  
  48. #
  49. # Primary Window Graphical Region Definition
  50. #
  51.  
  52. enabled visible color 26 primary graphical region PrimaryWindow
  53.     size 600 280
  54.     at position 27 45
  55.     color 27 foreground
  56.     size border
  57.     title bar "Transfer File To/From PROFS"
  58.     system menu
  59.     horizontal scroll bar scroll by 6
  60.     vertical scroll bar scroll by 16
  61. #   no scale
  62.     action bar PrimaryWindowABCUA
  63.     minimize button
  64.     maximize button
  65.  
  66. enabled visible color 26 image region ImageWindow
  67.     size 575 280
  68.     at position 20  60
  69.     color 27 foreground
  70.     cache viewport
  71.     file "progbw2.pcx"  
  72.  
  73.  
  74. include getdisk.inc
  75. include message.inc
  76. include profsend.inc
  77. #nclude logprofs.inc
  78. #
  79.  
  80. action HidePW is
  81.     copy text of PassWordEF to PassWord
  82.     copy length of PassWord to Count
  83.     copy " " to MockPW
  84.     for I = 1 to Count loop
  85.         append "*" to MockPW
  86.     end loop
  87.     change PassWordHiddenEF text to MockPW
  88.  
  89. action LogonToPROFS is 
  90.     action Init3270
  91.     add invisible textual region PROFSWindow
  92.         window size 80 columns 24 lines at 10 10 in PrimaryWindow
  93.     copy "PROFSWindow" to TextRegionName
  94.     action ReadScreen
  95.     find in TextRegionName from 1 1 "THE PROGRESSIVE COMPANIES"
  96.     if (not found) then 
  97.        # error message
  98.           copy "I could not find the screen 'THE PROGRESSIVE COMPANIES'\nSwitch to the emulator, correct the problem, and try again" to DocMsg
  99.           copy ReplyToMessage(" ",DocMsg,MessageOK,1,MessageIconExclamation) to TempX
  100.     else             # on the main menu
  101.         extract from textual line ycursor of TextRegionName from TextRegionName
  102.            skip by "TERMID = "
  103.            take word TermID
  104.         extract from TermID
  105.            take 2 TermPrefix
  106.         if (TermPrefix = "LN") then
  107.             copy "M2BSCQ" to LogMode
  108.         else 
  109.             copy "MSDLCQ" to LogMode
  110.         end if
  111.         # now start logon sequence
  112.         copy "HI '" UserID " " PassWord "'," LogMode to Keystrokes
  113.         action EnterString
  114.         change InitializeST text to "Logging on to PROFS..."
  115.         make InitializeDB visible
  116.         action DefineWatch
  117.            copy "EPQP00" to WatchChar
  118.            copy 1 to WatchRow     
  119.            copy 2 to WatchCol
  120.            copy 80 to SettleTime
  121.            action WatchForNoX
  122.            action WatchForChar
  123.        action WatchAndWait
  124.        if (WatchGaveUp) then
  125.            # error message
  126.           copy "The Logon to PROFS Failed\nSwitch to the emulator, get to the screen 'THE PROGRESSIVE COMPANIES' and try again" to DocMsg
  127.           copy ReplyToMessage(" ",DocMsg,MessageOK,1,MessageIconExclamation) to TempX
  128.        else
  129.         make InitializeDB invisible
  130.           enable item Logoff from PrimaryWindowABCUA in PrimaryWindow
  131.           disable item Logon from PrimaryWindowABCUA in PrimaryWindow
  132.           check item Logon from PrimaryWindowABCUA in PrimaryWindow
  133.             copy "Y" to LoggedViaMe            # indicate user logged on via easel
  134.        end if 
  135.     end if
  136.     action Stop3270
  137.  
  138. action LogOffPROFS is 
  139.     change InitializeST text to "Logging off of PROFS..."
  140.     make InitializeDB visible
  141.     action Init3270
  142.     copy "BYE" to Keystrokes
  143.     action EnterString
  144.     disable item Logoff from PrimaryWindowABCUA in PrimaryWindow
  145.     enable item Logon from PrimaryWindowABCUA in PrimaryWindow
  146.     uncheck item Logon from PrimaryWindowABCUA in PrimaryWindow
  147.      copy "N" to LoggedViaMe            # indicate user logged on via easel
  148.     action Stop3270
  149.     make InitializeDB invisible
  150.  
  151.            
  152. #
  153. # Response Definition(s)
  154. #
  155.  
  156. response to start
  157.  
  158.     if (BuiltDirListDB) then
  159.         make ChooseFileDB visible
  160.     else
  161.         change InitializeST text to "Loading, please wait..."
  162.         make InitializeDB visible
  163.         clear DiskDriveLB                 # set up the Choose file dialog box
  164.         copy 0 to NumDisks
  165.         call GetDrives(NumDisks)          # get list of valid drives 
  166.   
  167.        copy 1 to PCListName
  168.        call SetupChooseFileDB( PCListName )   # set up the dialog box
  169.     end if 
  170.     make InitializeDB invisible
  171.  
  172.     if (ReplyToMessage("", "Are you logged on to PROFS?",4,1,16) = "no" ) then
  173.         copy "" to UserID
  174.         copy "" to PassWord
  175.         copy "" to PassWordHidden
  176.         call SetupUserIDDB(UserID,PassWordHidden,PassWord)
  177.         make UserIDDB visible
  178.         copy false to DidOKCUA
  179.         call ProcessUserIDDB(DidOKCUA)
  180.         if (DidOKCUA) then
  181.              call QueryUserIDDB(UserID,PassWordHidden,PassWord)
  182.             action LogonToPROFS
  183.         end if 
  184.     end if
  185.  
  186. response to item ExitCUA from PrimaryWindowABCUA
  187.     exit
  188.  
  189. 
  190.