TESTN

[D.BALE@xxxxxxxxxxxxx]

The problem with using CHECK is that there are situations when you want to
allow leading blanks to be valid.  But you don't want to add a blank to the
DIGITS constant, or else you'd be accepting imbedded blanks as well.

Dan Bale
IT - AS/400
Handleman Company
248-362-4400  Ext. 4952

-------------------------- Original Message --------------------------
How about the following:

I              '0123456789'       C             DIGITS

C                        MOVEL'12G'        SIN      3
C       DIGITS       CHECKSIN          POS    30
C       POS           IFGT 0
C                         EXSR INVNBR
C                         ENDIF
C                          ...

(Sorry about not being column-aligned.)
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---