Ü %CHECK

It is used to check the position for non-occurrence of a character in a string.


Example –%check built-in function in rpgle


0001.00 D name            S             30A   inz ('       Amit Jaiswal')
0002.00 D pos             S              5U 0
0003.00
0004.00  /FREE
0005.00     pos = %check(' ' : name);
0006.00     name = %subst ( name: pos :9);
0007.00     DSPLY  name;
0008.00  /END-FREE
0009.00 C                   SETON                                        LR
****************** End of data ************************************************

 

 

OUTPUT

 

Amit Jais

 










User Comments:



Subscribe

  Email:



Copyright © Go4as400.com, 2013-2017. Copyright notice