|
DB2 Example: Remove Remote Journal CL command source
CMD PROMPT('Remove Remote Journal')
PARM KWD(JRNNAME) TYPE(QJRNNAME) MIN(1) +
PROMPT('Journal Name')
PARM KWD(RDBDIRE) TYPE(*CHAR) LEN(18) MIN(1) +
PROMPT('Remote RDB Directory Entry')
PARM KWD(RMTJRNAME) TYPE(QRMTJRNNM) +
PMTCTL(*PMTRQS) PROMPT('Remote Journal Name')
QJRNNAME: QUAL TYPE(*NAME) LEN(10) MIN(1)
QUAL TYPE(*NAME) LEN(10) SPCVAL((*CURLIB) +
(*LIBL)) MIN(1) PROMPT('Library')
QRMTJRNNM: QUAL TYPE(*NAME) LEN(10) DFT(*JRN) SPCVAL((*JRN))
QUAL TYPE(*NAME) LEN(10) PROMPT('Library')
| 
