home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HAPSBMT.RXC < prev    next >
Text File  |  1992-03-17  |  628b  |  17 lines
  1. /* HAPSBMT demo version (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.          /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. PARSE UPPER ARG luname,jclfile
  4. IF VALUE('HAPLOGON_'luname,'Y','OS2ENVIRONMENT') <> 'Y' THEN
  5.    CALL HAPLOGON luname
  6. SAY "HBP221I Sending jobstream to" luname "*** SIMULATION ONLY ***"
  7. jobcard = LINEIN(jclfile)
  8. CALL STREAM jclfile,'C','CLOSE'
  9. IF LEFT(jobcard,2) = '//' THEN
  10.    PARSE VALUE jobcard WITH ss +2 jobname .
  11. ELSE
  12.    jobname = "JOBFAIL"
  13. jobid = jobname"(JOB"TIME('S')")"
  14. SAY "HBP248I Job" jobid "submitted"
  15. EXIT 0
  16.          /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  17.