Ü   CHECK

 

·         This keyword is used to validate the existence of a condition on a field. e.g. the field is right justified or it is a mandatory entry or it always a lowercase etc.

 

 

Example:

1.    CHECK(ME)

§  ME stand for mandatory entry which means the associated field must be filled with at least one entry (a blank is valid).

 

 

2.    CHECK(MF)

§  MF stand for mandatory fill which means the associated field’s each column must be filled (a blank is valid).

 

3.    CHECK(FE)

§  FE stand for field exit which means that the user cannot advance to the next input field until he press field exit key.

 

4.    CHECK(LC)

§  LC stand for lower case which means that the user have to enter the field in lowercase letter only.

 

 

5.       CHECK (RZ)                                              

§  Right-adjusts the field and fills with zeros if it is Both (input/output)

§  For output only there is no need of the keyword, the same will be displayed without any keyword. 

§  For output only  use EDTCDE(4) if u don’t want 0 but u want it right justified. 

 




 Columns . . . :    1  71           Browse                       AMIT/QRPGLESRC
  SEU==>                                                               EDTDSPCCC
  FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++
 0002.10      A          R EXPD_SFL                  SFL                        
 0002.11      A  56                                  SFLNXTCHG                  
 0002.30      A            S_OPT          1A  B  9  5                           
 0002.31      A  50                                  COLOR(YLW)                 
 0002.40      A            S_PNAME       12A  O  9 11                           
 0002.41      A  50                                  COLOR(YLW)                 
 0002.50      A            S_PNUM        12A  O  9 26                            
 0002.51      A  50                                  COLOR(YLW)                 
 0002.60      A            S_PADDR       10A  B  9 45                           
 0002.61      A  50                                  COLOR(YLW)                 
 0002.70      A  51                                  DSPATR(PR)                 
 0002.71      A N51                                  DSPATR(UL)                 
 0002.72      A            S_MODE        20  0B 10 11CHECK(RZ)   >>>>>>>>                
 0002.73      A  50                                  COLOR(YLW)                 
 0002.90       *                                                                
 0003.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)           
 0003.10      A  43                                  SFLDSP                     
                                                                                
  F3=Exit   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle   F12=Cancel     
  F16=Repeat find        F24=More keys

 

 


AMIT                   DISPLAY THE EDITABEL SUBFILE                   7/20/12  
                                                                      4/25/18  
                                                                               
                                                                               
    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        
                                                                               
                                                                               
    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      
          UPI            P00001       CHENNAI                            
          01              >>>>>>>>> The field is right justified padded with zeros
          SHRI           P00002       EMPHAL                             
          02                                                 
          SHMANT         P00003       CHENNAI                            
          03                                                  
          AJRIN          P00006       BAJIN ROAD                         
          04                                                 
          AFTAB          P00007       ADFDAFDA                           
          05                                                  
                                                                        More...
                                                                               
                                                                               
                                                                               
  F3 = EXIT  




 

 







User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy