home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / copysavf.lzh / CPY2SAVF.CMD < prev    next >
OS/2 REXX Batch file  |  1986-06-26  |  1KB  |  19 lines
  1.  CPYTOSAVF:  CMD        PROMPT('Copy to a save file')
  2.              /*         Command processing program is CPP3422 */
  3.              PARM       KWD(SAVF) TYPE(QUAL) MIN(1) PROMPT('Save file +
  4.                           name:')
  5.              PARM       KWD(FILE) TYPE(QUAL) MIN(1) PROMPT('Database +
  6.                           file with SAVF data:')
  7.              PARM       KWD(MBR) TYPE(*NAME) DFT(*SAVF) +
  8.                           SPCVAL((*SAVF)) EXPR(*YES) PROMPT('Member +
  9.                           name:')
  10.              PARM       KWD(CRTFILE) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
  11.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  12.                           PROMPT('Create SAVF if not found:')
  13.              PARM       KWD(CLRDTA) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
  14.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  15.                           PROMPT('Clear SAVF data:')
  16.  QUAL:       QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  17.              QUAL       TYPE(*NAME) MIN(1) EXPR(*YES) PROMPT('Library +
  18.                           name:')
  19.