home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
3x400
/
dupoutf.lzh
/
DUPOUTF.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1985-11-14
|
3KB
|
59 lines
DUPOUTFILE: CMD PROMPT('Duplicate an OUTFILE')
/* Command processing program is CPP1740 */
PARM KWD(FILE) TYPE(FILE) MIN(1) FILE(*UNSPFD) +
PROMPT('New OUTFILE name to create:')
FILE: QUAL TYPE(*NAME) MIN(1) EXPR(*YES)
QUAL TYPE(*NAME) MIN(1) EXPR(*YES) PROMPT('Library +
name:')
PARM KWD(FORMAT) TYPE(FORMAT) SNGVAL( +
(DSPFFD QADSPFFD) +
(DSPDBR QADSPDBR) +
(DSPJRN QADSPJRN) +
(DSPOBJD QADSPOBJ) +
(TRCJOB QATRCJOB) +
(DSPPGMREF QADSPPGM)) +
MIN(1) PROMPT('OUTFILE command:')
FORMAT: ELEM TYPE(*NAME) LEN(10) RSTD(*YES) +
SPCVAL((DSPFD)) MIN(1) EXPR(*YES) +
PROMPT('Command name of outfile:')
ELEM TYPE(*NAME) RSTD(*YES) SPCVAL( +
(*ACCPTH QAFDACCP) +
(*BASATR QAFDBASI) +
(*BSC QAFDBSC) +
(*CMN QAFDCMN) +
(*CRD QAFDCRD) +
(*SEQ QAFDCSEQ) +
(*DKT QAFDDKT) +
(*DSP QAFDDSP) +
(*PHY QAFDPHY) +
(*LGL QAFDLGL) +
(*MBR QAFDMBR) +
(*MBRLIST QAFDMBRL) +
(*PRT QAFDPRT) +
(*RCDFMT QAFDRFMT) +
(*SELECT QAFDSELO) +
(*SPL QAFDSPOL) +
(*TAP QAFDTAP) +
(*TAPE QAFDTAP)) +
EXPR(*YES) MIN(1) +
PROMPT('Subtype if FORMAT(DSPFD):')
PARM KWD(SIZE) TYPE(SIZE) DFT(*SAME) +
SNGVAL((*SAME) (*NOMAX)) +
PROMPT('Data base file size extention:')
SIZE: ELEM TYPE(*CHAR) LEN(8) DFT(10000) REL(*GT 0) +
EXPR(*YES) PROMPT('Initial file size:')
ELEM TYPE(*CHAR) LEN(5) DFT(1000) REL(*GE 0) +
EXPR(*YES) PROMPT('Increment number of +
records:')
ELEM TYPE(*CHAR) LEN(5) DFT(3) REL(*GE 0) +
EXPR(*YES) PROMPT('Maximum number of +
increments:')
PARM KWD(MAXMBRS) TYPE(*DEC) LEN(5) DFT(*SAME) +
SPCVAL((*SAME -1) (*NOMAX 0)) +
PROMPT('Maximum members: or *NOMAX:')