U@STRINGFLD

U@STRINGFLD finds the beginning and ending of an input string by ignoring leading and trailing blanks; adds parentheses, a percent sign, or both, based on input parameter switches set at call; and concatenates the processed string from E@FLDIN into E@FLDOUT. If E@FLDISALPHA is set to Y, leading zeros are not removed. 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        = DOIDUOM   
      CALLP     U@STRINGFLD                
      EVAL      POIDUOM#STRING = E@FLDOUT