Re: Zoned field validation

[bmorris@xxxxxxxxxx]

>From: Albino Sousa <ASousa@Auto-Sueco.PT>
>Date: Mon, 22 Oct 2001 17:57:24 +0100
>
>Can someome help me with this: I have a nine digits field (9,0 S), I must
>validate.
>The 3 first positions of that field must be diferent from 0. OTH the
remains
>6 positions can contain a zero, but not in all 6 positions.

Albino, here's an RPG III solution.  It sets on indicator 10 if it's valid.

C                     MOVE NUM       CHAR    9
 * Assume it's bad
C                     SETOF                         10
C           '0'       SCAN CHAR      POS     50
C                     SELEC
 * No zeros at all: ok
C           POS       WHEQ 0
C                     SETON                         10
C           POS       WHGT 3
 * Make sure there's at least one non-zero after position 3
C           '0'       CHECKCHAR:4    POS            10
C                     ENDSL

The RPG III
Constraints make a nice puzzle.
Like 8/6 sonnets.

Barbara Morris