home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / cpyform.lzh / CPYFORM.EXE / arc / CPYFORMC.CMD < prev    next >
OS/2 REXX Batch file  |  1987-07-13  |  3KB  |  43 lines
  1.  CPYFORM:    CMD        PROMPT('Copy Spool Files by FORMtype')
  2.  
  3. /* Written by:  Philip R. Widing                                     */
  4. /*              Jarl Extrusions, Inc.                                */
  5. /*              Elizabethton, TN 37644-0871                          */
  6. /*              615-543-3561                                         */
  7. /*                                                                   */
  8. /* Command Processing by "CPYFORM" (CLP) & "CPYFORMR" (RPG)          */
  9. /*                                                                   */
  10. /* Release 8                                                         */
  11. /* 02  PRW  87-02-17  Adjust prompt text;  add comments              */
  12. /* 03  PRW  87-02-23  Try to get default file name to display !      */
  13. /* 04  PRW  87-07-13  Use *JOB for OUTQ default.                     */
  14. /*                                                                   */
  15.              PARM       KWD(OUTQ) TYPE(QOUTQ) MIN(1) +
  16.                           PROMPT('OutQ containing Spool Files' 1)
  17.              PARM       KWD(FORMTYPE) TYPE(*CHAR) LEN(10) DFT(1185) +
  18.                           PROMPT('Form Type to copy' 2)
  19.              PARM       KWD(TOFILE) TYPE(QFILE) MIN(1) +
  20.                           PROMPT('Data Base File to receive copy' 3)
  21.              PARM       KWD(TOMBR) TYPE(*NAME) LEN(10) DFT(*FILE) +
  22.                           SPCVAL((*FILE *FILE)) PROMPT('Member Name +
  23.                           to use' 4)
  24.              PARM       KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
  25.                           DFT(*REPLACE) VALUES(*REPLACE *ADD) +
  26.                           PROMPT('*ADD to or *REPLACE Member ?' 5)
  27.              PARM       KWD(CNLSPLF) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  28.                           DFT(*NO) VALUES(*YES *NO) PROMPT('Cancel +
  29.                           Spool file after copy ?' 6)
  30.              PARM       KWD(PRTATR) TYPE(*CHAR) LEN(6) RSTD(*YES) +
  31.                           DFT(*NO) VALUES(*YES *NO *FIRST *LAST *ALL) +
  32.                           SPCVAL((*YES *FIRST)) PROMPT('Print Spool +
  33.                           file attributes ?' 7)
  34.  
  35.  QOUTQ:      QUAL       TYPE(*NAME) LEN(10) DFT(*JOB) +
  36.                           SPCVAL((*JOB))
  37.              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) SPCVAL((*LIBL +
  38.                           *LIBL)) MIN(0) PROMPT('Library')
  39.  
  40.  QFILE:      QUAL       TYPE(*NAME) LEN(10) DFT(SPOOL) SPCVAL((SPOOL))
  41.              QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
  42.                           SPCVAL((*LIBL)) MIN(0) PROMPT('Library')
  43.