home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HAPOLST.RXC < prev    next >
Text File  |  1992-03-17  |  1KB  |  27 lines
  1. /* HAPOLST demo version (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. PARSE UPPER ARG luname,outfile
  4. IF VALUE('HAPLOGON_'luname,'Y','OS2ENVIRONMENT') <> 'Y' THEN
  5.    CALL HAPLOGON luname
  6. SAY "HBP442I List request sent to" luname "*** SIMULATION ONLY ***"
  7. CALL STREAM outfile,'C','OPEN'
  8. CALL STREAM outfile,'C','SEEK 0'
  9. j.1="GATSBYG1 JOB06837 01/31 11:43  9 C XEQ IPO1              2C21 GRAHAM GATSBY"
  10. j.2="GATSBYGA JOB06874 01/31 12:10  9 A   1 IPO1              3W82 NCPGEN      "
  11. j.3="GATSBYGB JOB06878 01/31 12:11  9 A   3 IPO1              3W82 NCPGEN      "
  12. j.4="GATSBYGC JOB05993 01/29 16:42  1 R          46120        3W82 NCPGEN      "
  13. j.5="GATSBYG1 JOB06042 01/29 17:52  1 R CAN         67        2C21 GRAHAM GATSBY"
  14. j.6="GATSBYG2 JOB04504 01/30 12:18  1 R            174        2C21 GRAHAM GATSBY"
  15. j.7="GATSBYG2 JOB04571 01/30 13:18  1 R            172        2C21 GRAHAM GATSBY"
  16. j.8="GATSBYG1 JOB05080 01/31 10:02  1 R             69        2C21 GRAHAM GATSBY"
  17. j.9="GATSBYGX JOB05108 01/31 11:31  1 L          1331K        1C11 IMS TEAM    "
  18. DO k = 1 TO 9
  19.    PARSE VALUE j.k WITH jname jnum .
  20.    jobid = jname"("jnum")"
  21.    CALL LINEOUT outfile,jobid j.k
  22. END
  23. CALL CHAROUT outfile,'1A'X
  24. CALL STREAM outfile,'C','CLOSE'
  25. EXIT 0
  26.         /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  27.