Re: SCAN in RPG

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Here's a code snipped where I use scan for a Mod 11 check sum program I wrote.
Value will return the position in the Digits string of the character ThisChar.

HTH.

D Digits          S             39A   Inz('0123456789A~BCDEFGHIJK~LMNOPQRS-  
D                                     TU~VWXYZ')                             
D I               S              2S 0 Inz(*Zero) 
D ThisChar        S              1A   Inz(*Blanks)        
D ContainerNumb   S             10A   

C                   Do        10            I   
C                   Eval      ThisChar = %SubSt(ContainerNumb: I: 1)      
C     ThisChar      Scan      Digits        Value                         

C                   If        Value > 0                                   
C                   Eval      Value = Value - 1                           
C                   Eval      WorkValue = WorkValue + (Value * (2 ** I))  
  ...


C     *InzSR        BegSR                                  
                                                            
C     *Entry        PList                                  
C                   Parm                    ContainerNumb  
                                                            
C                   EndSR                                  

Regards,

Jim Langston

Richard Reeve wrote:
> 
> All,
> 
>      I am having a problem using SCAN in an RPG
> program.  I am attempting to scan CL source members
> looking for certain library names and replacing those
> library names with a variable.  The library names are
> there but the SCAN isn't picking them up.  Can someone
> give me some pointers please?
> 
> Thanks.
> 
> =====
> 
> __________________________________________________
> Do You Yahoo!?
> Get email at your own domain with Yahoo! Mail.
> http://personal.mail.yahoo.com/
> +---
> | 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
> +---
+---
| 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
+---