RPGLE konvertieren Alpha nach Dezimal

[weidenhammer]

Hallo Ihr beiden,

Danke für die Beiträge, hab es hinbekommen.
Manchmal steht man echt auf der Leitung oder der Tag is einfach zu lang.

Schönen Abend noch....

[Fuerchau]

@Birgitta
Ich habe das aber ausprobiert.
Wenn ich DECEDIT nicht korrekt angebe, gibts beim %DEC einen MCH-Fehler.

[B.Hauser]

Also beim mir läuft das folgende Programm ohne Probleme und soweit ich mich erinnern kann hat %DEC auch immer korrekt funktioniert.

H DEBUG   DECEDIT('0,')  DATEDIT(*DMY.) DATFMT(*ISO) 
 *****************************************************************
D Alpha           S             15A                               
D Numer           S             11P 2                             
D Index           S              3U 0                             

D PGMSDS         SDS                                              
D   SDSMsgTxt            91    120                                
*****************************************************************
 /Free                                                            
   For Index = 1 to 7;                                            
      Select;                                                     
      When Index = 1;                            
           Alpha = '11111';                      
      When Index = 2;                            
           Alpha = '22222,22';                   
      When Index = 3;                            
           Alpha = '3333.333';                   
      When Index = 4;                            
           Alpha = ' 4 4 4, 44';                 
      When Index = 5;                            
           Alpha = '   55 5.5 5';     
       When Index = 6;                
           Alpha = '-66 6.66';       
      When Index = 7;                
           Alpha = '77777, 77-';               
      EndSl;                                     
      Monitor;                                   
        Numer = %Dec(Alpha: 11: 2);              
        Dsply ('Numer: ' + %Char(Numer));        
      On-Error;                                  
        Dsply (%Trim(Alpha) + SDSMsgTxt);        
      EndMon;                                    
   EndFor;                                       
   *InLR = *On;                                
 /End-Free 

MCH-Fehler bedeuten, dass eigentlich ein Parameter/Wert fehlt und nicht, dass ein falscher Wert eingegeben wurde.

[BenderD]

heißt jetzt ohne Probleme, dass 1 und 2 funzt und der Rest auf den Hammer läuft, sprich durch den error Block des monitor läuft?
Alles andere verursacht ja im Zweifel Probleme!!!

D*B

Also beim mir läuft das folgende Programm ohne Probleme und soweit ich mich erinnern kann hat %DEC auch immer korrekt funktioniert.

H DEBUG   DECEDIT('0,')  DATEDIT(*DMY.) DATFMT(*ISO) 
 *****************************************************************
D Alpha           S             15A                               
D Numer           S             11P 2                             
D Index           S              3U 0                             

D PGMSDS         SDS                                              
D   SDSMsgTxt            91    120                                
*****************************************************************
 /Free                                                            
   For Index = 1 to 7;                                            
      Select;                                                     
      When Index = 1;                            
           Alpha = '11111';                      
      When Index = 2;                            
           Alpha = '22222,22';                   
      When Index = 3;                            
           Alpha = '3333.333';                   
      When Index = 4;                            
           Alpha = ' 4 4 4, 44';                 
      When Index = 5;                            
           Alpha = '   55 5.5 5';     
       When Index = 6;                
           Alpha = '-66 6.66';       
      When Index = 7;                
           Alpha = '77777, 77-';               
      EndSl;                                     
      Monitor;                                   
        Numer = %Dec(Alpha: 11: 2);              
        Dsply ('Numer: ' + %Char(Numer));        
      On-Error;                                  
        Dsply (%Trim(Alpha) + SDSMsgTxt);        
      EndMon;                                    
   EndFor;                                       
   *InLR = *On;                                
 /End-Free 

MCH-Fehler bedeuten, dass eigentlich ein Parameter/Wert fehlt und nicht, dass ein falscher Wert eingegeben wurde.

[B.Hauser]

heißt jetzt ohne Probleme, dass 1 und 2 funzt und der Rest auf den Hammer läuft, sprich durch den error Block des monitor läuft?
Alles andere verursacht ja im Zweifel Probleme!!!

D*B

Die alphanumerischen Werte werden auch dann, wenn der Monitor-Block fehlt konvertiert!

Job 029946/HAUSER/HS_S01A im Subsystem QINTER
DSPLY  Numer: 11111,00                       
DSPLY  Numer: 22222,22                       
DSPLY  Numer: 3333,33                        
DSPLY  Numer: 444,44                         
DSPLY  Numer: 555,55                         
DSPLY  Numer: -666,66                        
DSPLY  Numer: -77777,77