Feldinhalt auf Alpha bzw. Blank prüfen

[Fuerchau]

@K_Tippi:
Die Aufgabe ist nicht gelöst, da das Voranstellen von Leerzeichen nur erfolgen soll, wenn insgesamt die Bedingung nicht erfüllt ist.

@Andreas:
Die Prüfung sollte wohl auf "Not True" gesetzt werden "...?!...".

[Andreas_Prouza]

@Andreas:
Die Prüfung sollte wohl auf "Not True" gesetzt werden "...?!...".

Ja vom logischen Aspekt müsste es so sein wie du geschrieben hast, das korrekte Ergebnis bekommst du jedoch mit dem von mir angegebenen Beispiel.

[hel400]

Ok, muss hier noch bis Mittags die Zeit totschlagen - daher
--> HIER DIE ULTIMATIVE LÖSUNG:

​
C                     MOVE INPUT     FELD24 24                 
C                     MOVE INPUT     FELD23 23                 
C                     MOVE INPUT     FELD22 22                 
C                     MOVE INPUT     FELD21 21                 
C                     MOVELINPUT     F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD24    F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD23    F1      1                 
C           F1        COMP 'A'                    30           
C  N30      F1        COMP 'Z'                  30             
C           F1        COMP ' '                      31         
C   30N31             GOTO MOVE$                               
C                     MOVELFELD22    F1      1                 
C           F1        COMP 'A'                    30    
C  N30      F1        COMP 'Z'                  30      
C           F1        COMP ' '                      31  
C   30N31             GOTO MOVE$                        
C                     MOVELFELD21    F1      1          
C           F1        COMP 'A'                    30    
C  N30      F1        COMP 'Z'                  30      
C           F1        COMP ' '                      31  
C   30N31             GOTO MOVE$                        
C                     GOTO ENDE                         
C           MOVE$     TAG                               
C                     MOVEL'     '   FELD30 30          
C                     MOVE INPUT     FELD30             
C                     MOVELFELD30    INPUT  25          
C           ENDE      TAG                               
C                     SETON                     LR

:-)))) wünsche allen noch ein frohes Fest und schöne Feiertage :-)))