RE: PMTCTL question

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Tuesday, June 16, 2009 1:40 PM
To: Midrange Systems Technical Discussion
Subject: RE: PMTCTL question

Jeff,

From IE when I am in the Infocenter whenever I have a blue hot link I can

right click on it and select Copy Shortcut. Then I can paste that into
the bar at the top of IE or in this email like this

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From:
"Jeff Crosby" <jlcrosby@xxxxxxxxxxxxxxxx>
To:
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
Date:
06/16/2009 10:14 AM
Subject:
RE: PMTCTL question
Sent by:
midrange-l-bounces@xxxxxxxxxxxx



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.

--
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.



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

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.