TexAS400 Tutorial


TUTR010NC in QRPGSRC in USER000



FCUST    UF  E           K        DISK                            
FTUTD010 CF  E                    WORKSTN                         
 *----------------------------------------------------------------
I              'You must enter A, C,-C         ERR1               
I              ' or D'                                            
I              'Customer # is not fo-C         ERR2               
I              'und'                                              
I              'Name cannot be blank'C         ERR3               
I              'Addr cannot be blank'C         ERR4               
I              'City cannot be blank'C         ERR5               
I              'State cannot be blan-C         ERR6               
I              'k'                                                
I              'Zip is invalid'      C         ERR7               
 *----------------------------------------------------------------
C           *IN03     DOWEQ*OFF                                   
C                     EXFMTSCRN1                                  
C                     EXFMTSCRN1                                  
C*                                                                
C           *IN03     IFEQ *OFF                                   
C                     EXSR MAIN                                   
C                     ENDIF                                       
C*                                                                
C                     ENDDO                                       
C*                                                                
C                     MOVE *ON       *INLR                        
C                     RETRN                                       
C*----------------------------------------------------------------
C           MAIN      BEGSR                                       
C*                                                                
C           DSPCST    CHAINCUST                 95                
C*                                                                
C                     MOVE *BLANKS   DSPMSG                       
C                     MOVE *OFF      *IN90                        
C*                                                                
C                     SELEC                                       
C           DSPACT    WHEQ 'C'                                    
C           *IN95     IFEQ *ON                                    
C                     MOVELERR2      DSPMSG                       
C                     MOVE *ON       *IN90                        
C                     ELSE                                        
C                     EXSR CHG                                    
C                     ENDIF                                       
C*                                                                
C                     OTHER                                       
C                     MOVELERR1      DSPMSG                       
C                     MOVE *ON       *IN90                        
C                     ENDSL                                       
C*                                                                
C                     ENDSR                                       
C*----------------------------------------------------------------
C           CHG       BEGSR                                    
C*                                                             
C           DSPMSG    DOUNE*BLANKS                             
C           *IN12     OREQ *ON                                 
C                     EXFMTSCRN2                               
C           *IN12     IFEQ *OFF                                
C                     EXSR EDTVAL                              
C           DSPMSG    IFEQ *BLANK                              
C                     UPDATCSREC                               
C                     LEAVE                                    
C                     ENDIF                                    
C                     ENDIF                                    
C*                                                             
C                     ENDDO                                    
C*                                                                
C                     ENDSR                                       
C*----------------------------------------------------------------
C           EDTVAL    BEGSR                                       
C* Make sure the values on the screen are OK                      
C           CSNAME    IFEQ *BLANKS                                
C                     MOVELERR3      DSPMSG                       
C                     MOVE *ON       *IN90                        
C                     ENDIF                                       
C*                                                                
C           CSADR1    IFEQ *BLANKS                                
C                     MOVELERR4      DSPMSG                       
C                     MOVE *ON       *IN90                        
C                     ENDIF                                       
C*                                                                
C           CSCTY     IFEQ *BLANKS                                
C                     MOVELERR5      DSPMSG                       
C                     MOVE *ON       *IN90                  
C                     ENDIF                                 
C*                                                          
C           CSSTE     IFEQ *BLANKS                          
C                     MOVELERR6      DSPMSG                 
C                     MOVE *ON       *IN90                  
C                     ENDIF                                 
C*                                                          
C           CSZIP     IFLT 10000000                         
C                     MOVELERR7      DSPMSG                 
C                     MOVE *ON       *IN90                  
C                     ENDIF                                 
C*                                                          
C                     ENDSR     

 

 

Back to Table of Contents   |   Main Page