home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HAPSEND.RXC < prev    next >
Text File  |  1992-03-17  |  954b  |  28 lines
  1. /* HAPSEND demo version (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. PARSE UPPER ARG luname,lfname,rfname,fclass,repopt
  4. IF VALUE('HAPLOGON_'luname,'Y','OS2ENVIRONMENT') <> 'Y' THEN
  5.    CALL HAPLOGON luname
  6. SAY "HDP021I Sending" lfname "to" luname "*** SIMULATION ONLY ***"
  7.  
  8. /* Query the file size and time */
  9. size = STREAM(lfname,'C','QUERY SIZE')
  10. dtim = STREAM(lfname,'C','QUERY DATETIME')
  11. IF size = '' THEN DO
  12.    SAY "HDP027I Open error, File=" lfname", Reason=No such file"
  13.    SAY "HDP004I File transfer unsuccessful"
  14.    EXIT 'HAPFAIL'; END
  15.  
  16. /* Emulate the file transfer */
  17. IF repopt = 'NOREPL' THEN DO
  18.    SAY "HDP035I File" rfname "not replaced"
  19.    EXIT 4; END
  20. delay = 10000
  21. IF size < delay THEN delay = size
  22. DO delay; m=0; END
  23. SAY "HDP002I" size "bytes sent"
  24. SAY "HDP003I File transfer complete"
  25. EXIT 0
  26.  
  27.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  28.