RE: PMTCTL question

How about using a VCP (Validity Checking Program)?

I found it in the V6R1 InfoCenter here:

http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/index.jsp

IBM i 6.1 Information Center > Programming > Control language > CL
programming > Defining and documenting commands > Defining commands

But the browser link at the top of the page doesn't change.

--
Jeff Crosby
UniPro FoodService/Dilgard
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531
www.dilgardfoods.com

The opinions expressed are my own and not necessarily the opinion of my
company.  Unless I say so.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of sjl
Sent: Tuesday, June 16, 2009 9:38 AM
To: midrange-l@xxxxxxxxxxxx
Subject: PMTCTL question

All -

IMO, IBM's documentation is severely lacking when it comes to Command
creation. I have created a command (see source below) that will be used

to

update the Date and Software Protection Code in the QJDF data area.

When prompting the command, and if ACTION is changed to *UPDATE, it

displays

the EXPDATE and BOMBCODE parms.


Question:
Is it possible to make EXPDATE and BOMBCODE mandatory if they are being
displayed?

- sjl

CMD PROMPT('Update QJDF Data Area')

/* Data Area Library */

PARM KWD(DTAARALIB) TYPE(*NAME) DFT(*LIBL) +
SPCVAL((*LIBL) (*ALLUSR)) MAX(1) +
PROMPT('Data Area Library name:')

/* *UPDATE = Show EXPDATE and BOMBCODE parms *

PARM KWD(ACTION) TYPE(*CHAR) LEN(7) RSTD(*YES) +
DFT(*PRINT) SPCVAL((*PRINT 0) (*UPDATE +
1)) PROMPT('Update Data Area?')

PARM KWD(EXPDATE) TYPE(*CHAR) LEN(6) +
PMTCTL(DATECODE) PROMPT('Software +
Expiration Date')

PARM KWD(BOMBCODE) TYPE(*CHAR) LEN(6) +
CASE(*MIXED) PMTCTL(DATECODE) +
PROMPT('Software Security Code')

DATECODE: PMTCTL CTL(ACTION) COND((*EQ 1))




--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.