home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / HPTDEM.ZIP / HAPOREQ.RXC < prev    next >
Text File  |  1992-03-17  |  3KB  |  74 lines
  1. /* HAPOREQ demo version (c) Copyright HeteroGenius Systems Ltd 1992 */
  2.          /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  3. PARSE UPPER ARG luname,outfile,jobid
  4. PARSE ARG ,,,setup,reset
  5. IF VALUE('HAPLOGON_'luname,'Y','OS2ENVIRONMENT') <> 'Y' THEN
  6.    CALL HAPLOGON luname
  7. SAY "HBP452I Spool request for" jobid "sent to" luname "***SIMULATION***"
  8. PARSE VALUE jobid WITH jobname '(' jobno ')'
  9. IF SUBSTR(jobno,5,1) = '6' THEN DO
  10.    DO delay=1 TO 1000; m = 1; END
  11.    SAY "HBP404I No output for job" jobid; EXIT 4
  12. END
  13. SELECT
  14. WHEN ABBREV(outfile,'LPT') THEN device = 1
  15. WHEN outfile = 'PRN' THEN device = 1
  16. OTHERWISE device = 0
  17. END
  18. IF device THEN CALL CHAROUT outfile,setup
  19. ELSE DO
  20.    CALL STREAM outfile,'C','OPEN'
  21.    CALL STREAM outfile,'C','SEEK 0'
  22. END
  23. asa2='0d0a'x; asa3='0d0a0d0a'x; asap='0c'x
  24. l.1=COPIES(" ",23)"J E S 2  J O B  L O G  --  S Y S T E M  I P O 1  --  N O D E  I P O M V S 1"
  25. l.2=asa3"11.49.56" jobno " $HASP373" jobname "STARTED - INIT 10 - CLASS A - SYS IPO1"
  26. l.3="11.49.59" jobno " $HASP395" jobname "ENDED"
  27. l.4=asa2"------ JES2 JOB STATISTICS ------"
  28. l.5=asa3"    31 JAN 92 JOB EXECUTION DATE"
  29. l.6=asa3"           12 CARDS READ"
  30. l.7=asa3"           30 SYSOUT PRINT RECORDS"
  31. l.8=asa3"            0 SYSOUT PUNCH RECORDS"
  32. l.9=asa3"            2 SYSOUT SPOOL KBYTES"
  33. l.10=asa3"         0.00 MINUTES EXECUTION TIME"
  34. l.11=asap"1 //GATSBYG1 JOB (1,2C21),'GRAHAM GATSBY',CLASS=C,"
  35. l.11=OVERLAY(jobno,l.11,72)
  36. l.12="  //             MSGCLASS=T,MSGLEVEL=(1,1)"
  37. l.13="2 //S01     EXEC PGM=IERRCO00"
  38. l.14="3 //SYSPRINT DD  SYSOUT=*"
  39. l.15="4 //SYSUT1   DD  DSN=GATSBYG.SORT.INPUT,DISP=SHR"
  40. l.16="5 //SYSUT2   DD  DSN=GATSBYG.SORT.OUTPUT,DISP=SHR"
  41. l.17="6 //SYSIN    DD  *"
  42. l.18=asap"IEF236I ALLOC. FOR" jobname "S01"
  43. l.19="IEF237I JES2 ALLOCATED TO SYSPRINT"
  44. l.20="IEF237I 120  ALLOCATED TO SYSUT1"
  45. l.21="IEF237I A96  ALLOCATED TO SYSUT2"
  46. l.22="IEF237I JES2 ALLOCATED TO SYSIN"
  47. l.23="IEF142I" jobname "S01 - STEP WAS EXECUTED - COND CODE 0000"
  48. l.24="IEF285I   GATSBYG.SORT.INPUT                            KEPT"
  49. l.25="IEF285I   GATSBYG.SORT.OUTPUT                           KEPT"
  50. l.26="IEF373I STEP /S01     / START 92031.1149"
  51. l.27="IEF374I STEP /S01     / STOP  92031.1149 CPU    0MIN 00.08SEC SRB    0MIN 0.00SEC VIRT 976K SYS 184K EXT       4K SYS 9048K"
  52. l.28="IEF375I  JOB /"jobname"/ START 92031.1149"
  53. l.29="IEF376I  JOB /"jobname"/ STOP  92031.1149 CPU    0MIN 00.08SEC SRB    0MIN 0.00SEC"
  54. l.30=asap"ICE143I 0 BLOCKSET TECHNIQUE SELECTED"
  55. l.31="ICE000I 0 --- CONTROL STATEMENTS/MESSAGES ----"
  56. l.32=asa2||copies(' ',10)"OPTION COPY,MSGDDN=SYSPRINT,SORTIN=SYSUT1,SORTOUT=SYSUT2"
  57. l.33="ICE088I 0" jobname".S01     .        , INPUT LRECL = 80, BLKSIZE = 80, TYPE = F"
  58. l.34="ICE093I 0 MAIN STORAGE = (MAX,16465342,994308), NMAX = 0"
  59. l.35="ICE084I 0 BSAM ACCESS METHOD USED FOR SYSUT1"
  60. l.36="ICE084I 0 BSAM ACCESS METHOD USED FOR SYSUT2"
  61. l.37="ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 80, TYPE = F"
  62. l.38="ICE055I 0 INSERT 0, DELETE 0"
  63. l.39="ICE054I 0 RECORDS - IN: 52, OUT: 52"
  64. l.40="ICE052I 0 END OF SORT"
  65. DO n=1 TO 40
  66.    CALL LINEOUT outfile,l.n
  67. END
  68. IF device THEN CALL CHAROUT outfile,reset
  69. ELSE CALL CHAROUT outfile,'1A'X
  70. CALL STREAM outfile,'C','CLOSE'
  71. SAY "HBP454I 40 lines received"
  72. EXIT 0
  73.          /* DEMOCMD -*- DEMOCMD -*- DEMOCMD -*- DEMOCMD */
  74.