home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / SUB.SPF < prev    next >
Text File  |  1992-03-07  |  714b  |  20 lines
  1. /* SUBDEMO.SPF (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.     /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. 'ISREDIT MACRO'
  4. ARG luname .
  5. IF luname = '' THEN luname = 'LONDON00'
  6. /* Get the name of the file being edited */
  7. 'ISREDIT (editfile) = DATASET'
  8. /* Simulate submission of jobstream to the host */
  9. SAY "HBP221I Sending jobstream to" luname "*** SIMULATION ONLY ***"
  10. 'ISREDIT (jobcard) = LINE 1'
  11. IF LEFT(jobcard,2) = '//' THEN
  12.    PARSE VALUE jobcard WITH ss +2 jobname .
  13. ELSE
  14.    PARSE VALUE FILESPEC('N',editfile) WITH jobname '.'
  15. jobid = jobname"(JOB"TIME('S')")"
  16. DO 2000; delay = ' '; END
  17. SAY "HBP248I Job" jobid "submitted"
  18. EXIT 0
  19.     /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  20.