U@STRINGNUM

U@STRINGNUM finds the beginning of an input string by ignoring leading zeros; adds parentheses, a percent sign, or both, based on switches set at call; and concatenates the processed string into E@FLDOUT. No error indication is given when the results are truncated.

Module STRRTNS
Input

E@FLDIN

E@FLDINLITLEN(optional)

E@FLDISALPHA (optional)

E@FLDPARENFLG

E@FLDPERCENTF

E@FLDPNTR

Output

E@FLDINGRP (all input control fields are reinitialized)

E@FLDOUT (always set)

Programming Example

     EVAL      E@FLDIN        = negative-amount
     EVAL      E@FLDINLITLEN  = 15
     EVAL      E@FLDPARENFLG  = 'TRUE'
     CALLP     U@STRINGNUM                
     EVAL      result-field   = E@FLDOUT