Ü  CHECKR

·         It is used to check the position for non-occurrence of a character from right.

Factor 1

Op-code

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

String

CHECKR (E)  

Base string: start position

First non-occurrence position from right

 

Error

 

 

Example

 


Columns . . . :    6  80              Browse                                  AMINEM/QRPGLESRC
SEU==>                                                                               OP_CHECK
FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data*****************************************************
0001.00                                                                                 130128
0002.00 D name            S             30A   inz ('Amit Jaiswal')                      130128
0003.00 D len             S              5U 0                                           130128
0004.00                                                                                 130128
0005.00 C     ' '           CHECKR    name          len                                 130128
0006.00 C     len           DSPLY                                                       130128
0007.00 C                   SETON                                        LR             130128
0008.00                                                                                 130128
****************** End of data *******************************************************


 

OUTPUT

DSPLY  12                 











User Comments:



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