Re: Validating a File Member Name

["Carel Teijgeler" <coteijgeler@xxxxxxxxx>]

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