home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / dsplstjb.lzh / DSPLSTJB.CMD < prev   
OS/2 REXX Batch file  |  1988-08-15  |  744b  |  13 lines
  1.              CMD        PROMPT('Display Last Job') /* Command +
  2.                           processing pgm is DSPLSTJOB - displays the +
  3.                           last job of a group of duplicate jobs */
  4.              PARM       KWD(JOB) TYPE(QUAL1) MIN(1) PROMPT('Job name:')
  5.              PARM       KWD(OUTPUT) TYPE(*CHAR) LEN(5) RSTD(*YES) +
  6.                           DFT(*) VALUES('*' '*LIST') PROMPT('Output +
  7.                           (* or *LIST):')
  8.  QUAL1:      QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
  9.              QUAL       TYPE(*NAME) LEN(10) EXPR(*YES) PROMPT('User +
  10.                           name:')
  11.              QUAL       TYPE(*CHAR) LEN(6) RANGE('000001' '999999') +
  12.                           PROMPT('Job number:')
  13.