home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / qryf.lzh / QRYF.CMD < prev    next >
OS/2 REXX Batch file  |  1987-09-04  |  2KB  |  32 lines
  1. /*PARMS PGM(QRYF.QGPL)                                             */
  2.              CMD        PROMPT('Query File')
  3.              PARM       KWD(FILE) TYPE(QUAL1) MIN(1) PROMPT('File +
  4.                           name')
  5.              PARM       KWD(FORMAT) TYPE(*NAME) LEN(10) MIN(1) +
  6.                           PROMPT('Record Format')
  7.              PARM       KWD(TITLE) TYPE(*CHAR) LEN(32) MIN(1) +
  8.                           EXPR(*YES) PROMPT('Report Title')
  9.              PARM       KWD(FIELDS) TYPE(FLDLST) MIN(1) MAX(10) +
  10.                           PROMPT('Fields to List')
  11.              PARM       KWD(MEMBER) TYPE(*CHAR) LEN(10) DFT(*FIRST) +
  12.                           SPCVAL((*FIRST) (*OPNQRYF)) MIN(0) +
  13.                           PROMPT('Member name')
  14.  QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1)
  15.              QUAL       TYPE(*CHAR) LEN(10) DFT(*LIBL) +
  16.                           PROMPT('Library')
  17.  FLDLST:     ELEM       TYPE(*NAME) LEN(10) MIN(1) PROMPT('Name')
  18.              ELEM       TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(*LIST) +
  19.                           VALUES(L S 1 2 3 4 5 6 7 8 9) SPCVAL((*LIST +
  20.                           L) (*SUM S) (*SBT1 1) (*SBT2 2) (*SBT3 3) +
  21.                           (*SBT4 4) (*SBT5 5) (*SBT6 6) (*SBT7 7) +
  22.                           (*SBT8 8) (*SBT9 9)) PROMPT('Use')
  23.              ELEM       TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(*DFT) +
  24.                           VALUES(1 2 3 4 A B C D J K L M X Y Z) +
  25.                           SPCVAL((*DFT *)) PROMPT('Edit Code')
  26.              ELEM       TYPE(*CHAR) LEN(1) RSTD(*YES) DFT(*DFT) +
  27.                           VALUES(1 2 3 4 5 6 7 8 9 0) SPCVAL((*DFT +
  28.                           *)) PROMPT('Space before field')
  29.              ELEM       TYPE(*CHAR) LEN(10) DFT(*DFT) SPCVAL((*BLANK +
  30.                           ' ')) SNGVAL((*DFT)) MAX(3) PROMPT('Field +
  31.                           Title')
  32.