9 lines
500 B
Batchfile
9 lines
500 B
Batchfile
RC: CMD PROMPT('Display Record Count')
|
|
/* CPP is RCC. */
|
|
PARM KWD(FILE) TYPE(Q1) PROMPT('File Name')
|
|
PARM KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +
|
|
SPCVAL((*FIRST)) MIN(0) PROMPT('Member')
|
|
Q1: QUAL TYPE(*NAME) LEN(10) MIN(1)
|
|
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
|
|
SPCVAL((*LIBL) (*CURLIB)) PROMPT('Library')
|