Re: Validating a File Member Name

Rob,

What is the command definition of this call? .If you use a command
otherwise how do you call thos programme?

On systeeminetwork Rory Hewitt wrote a story on this. Better to use system
or QCAPCMD-API. See
http://systeminetwork.com/article/why-you-shouldnt-use-qcmdexc

Regards,

*********** REPLY SEPARATOR ***********

On 9-9-2011 at 10:48 rob@xxxxxxxxx wrote:

I can't get this to work and other issues are pressing:

PGM (&MBRNAME &CHECK)
DCL &MBRNAME *CHAR 10
DCL &CHECK *CHAR 1
DCL &CMD *CHAR 132
DCL &CMDLEN *DEC (15 5) VALUE(132)
/* Body of program here */
CHGVAR &CHECK '1'
CHGVAR &CMD ('RTVMBRD FILE(QADBIFLD) MBR(' *TCAT &MBRNAME *TCAT ')')
CALL QCMDCHK (&CMD &CMDLEN)
MONMSG MSGID(CPF0001 CPF0006 CPD0079) EXEC(CHGVAR VAR(&CHECK)
VALUE('0'))
END:
ENDPGM

Rob Berendt
--
Group Dekko
Dept 1600
Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: Vinay Gavankar <vinaygav@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 09/09/2011 10:01 AM
Subject: Validating a File Member Name
Sent by: midrange-l-bounces@xxxxxxxxxxxx



Hi,

What would be the most efficient way of validating that an input provided
on
Screen is a value that can be used to add as a Physical File Member later
in
the job stream (i.e. it starts with alphabet or specific special
characters,
no embedded blanks, etc.)

I feel that it should be possible using some system commands and MONSG
etc.
instead of writing RPG code to check, but cannot figure out what it should
be.

TIA.

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



-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1382 / Virusdatabase: 1520/3884 - datum van uitgifte:

09/08/11

-----
Geen virus gevonden in dit bericht.
Gecontroleerd door AVG - www.avg.com
Versie: 10.0.1382 / Virusdatabase: 1520/3884 - datum van uitgifte:

09/08/11