|
Here's a command that does that with the PMTCTL keyword (SHOWPATH):CMD PROMPT('Process 835 Remittance Advice') PARM KWD(STATE) TYPE(*CHAR) LEN(2) MIN(1) + FULL(*YES) PROMPT('State ID . . . . . . . + . . . .') PARM KWD(UPDATE) TYPE(*CHAR) LEN(4) RSTD(*YES) + DFT(*YES) VALUES(*YES *NO) SPCVAL((*YES + 1) (*NO 0)) CHOICE('*YES, *NO') + PROMPT('Perform Database Updates . . .') PARM KWD(PATH) TYPE(*CHAR) LEN(256) DFT('') + VARY(*YES *INT2) CHOICE('File System and + UNC Path') PMTCTL(SHOWPATH) PROMPT('DHTML + Document Path and Name .') PARM KWD(PARSEDBLIB) TYPE(*CHAR) LEN(6) + RSTD(*YES) DFT(QTEMP) VALUES(QTEMP + *DBLIB) SPCVAL((QTEMP 1) (*DBLIB 0)) + CHOICE('QTEMP, *DBLIB') PMTCTL(*PMTRQS) + PROMPT('Parsing Database Library . . .') SHOWPATH: PMTCTL CTL(UPDATE) COND((*EQ '0')) DEP CTL(&UPDATE *EQ '1') PARM((&PATH *EQ ''))
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
