home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dupoutf.arc / DUPOUTF.CMD < prev    next >
Encoding:
Text File  |  1991-12-04  |  2.9 KB  |  59 lines
  1.  DUPOUTFILE: CMD        PROMPT('Duplicate an OUTFILE')
  2.  
  3.              /*         Command processing program is CPP1740 */
  4.  
  5.              PARM       KWD(FILE) TYPE(FILE) MIN(1) FILE(*UNSPFD) +
  6.                           PROMPT('New OUTFILE name to create:')
  7.  FILE:       QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  8.              QUAL       TYPE(*NAME) MIN(1) EXPR(*YES) PROMPT('Library +
  9.                           name:')
  10.  
  11.              PARM       KWD(FORMAT) TYPE(FORMAT) SNGVAL( +
  12.                            (DSPFFD    QADSPFFD) +
  13.                            (DSPDBR    QADSPDBR) +
  14.                            (DSPJRN    QADSPJRN) +
  15.                            (DSPOBJD   QADSPOBJ) +
  16.                            (TRCJOB    QATRCJOB) +
  17.                            (DSPPGMREF QADSPPGM)) +
  18.                            MIN(1) PROMPT('OUTFILE command:')
  19.  FORMAT:     ELEM       TYPE(*NAME) LEN(10) RSTD(*YES) +
  20.                           SPCVAL((DSPFD)) MIN(1) EXPR(*YES) +
  21.                           PROMPT('Command name of outfile:')
  22.              ELEM       TYPE(*NAME) RSTD(*YES) SPCVAL( +
  23.                           (*ACCPTH  QAFDACCP) +
  24.                           (*BASATR  QAFDBASI) +
  25.                           (*BSC     QAFDBSC) +
  26.                           (*CMN     QAFDCMN) +
  27.                           (*CRD     QAFDCRD) +
  28.                           (*SEQ     QAFDCSEQ) +
  29.                           (*DKT     QAFDDKT) +
  30.                           (*DSP     QAFDDSP) +
  31.                           (*PHY     QAFDPHY) +
  32.                           (*LGL     QAFDLGL) +
  33.                           (*MBR     QAFDMBR) +
  34.                           (*MBRLIST QAFDMBRL) +
  35.                           (*PRT     QAFDPRT) +
  36.                           (*RCDFMT  QAFDRFMT) +
  37.                           (*SELECT  QAFDSELO) +
  38.                           (*SPL     QAFDSPOL) +
  39.                           (*TAP     QAFDTAP) +
  40.                           (*TAPE    QAFDTAP)) +
  41.                           EXPR(*YES) MIN(1) +
  42.                           PROMPT('Subtype if FORMAT(DSPFD):')
  43.  
  44.              PARM       KWD(SIZE) TYPE(SIZE) DFT(*SAME) +
  45.                            SNGVAL((*SAME) (*NOMAX)) +
  46.                            PROMPT('Data base file size extention:')
  47.  SIZE:       ELEM       TYPE(*CHAR) LEN(8) DFT(10000) REL(*GT 0) +
  48.                           EXPR(*YES) PROMPT('Initial file size:')
  49.              ELEM       TYPE(*CHAR) LEN(5) DFT(1000) REL(*GE 0) +
  50.                           EXPR(*YES) PROMPT('Increment number of +
  51.                           records:')
  52.              ELEM       TYPE(*CHAR) LEN(5) DFT(3) REL(*GE 0) +
  53.                           EXPR(*YES) PROMPT('Maximum number of +
  54.                           increments:')
  55.  
  56.              PARM       KWD(MAXMBRS) TYPE(*DEC) LEN(5) DFT(*SAME) +
  57.                           SPCVAL((*SAME -1) (*NOMAX 0)) +
  58.                           PROMPT('Maximum members: or *NOMAX:')
  59.