Ü   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 © Go4as400.com, 2013-2016. Copyright notice