$DelCh

Remove characters from string, compress and strip blanks

Most Sirius $functions have been deprecated in favor of Object Oriented methods. The OO equivalent for the $DelCh function is the Remove (String function).

This function removes specified characters from an input string and performs blank compression and stripping.

The $DelCh function accepts four arguments and returns a string result that is part of the first argument string.

The first argument is an arbitrary string.

The second argument is the set of characters to be removed from the first argument string.

The third argument is a starting position in the first argument string.

The fourth argument is a number indicating the type of blank compression or stripping to be performed. Valid numbers and their meanings are:

1. delete the specified characters
2. delete the specified characters and strip leading and trailing blanks
3. delete the specified characters, strip leading and trailing blanks and compress multiple blanks to a single blank.

This is an optional argument and defaults to 1.

Syntax

%STRING = $DelCh(string, chars, start_pos, [option])

%STRING is part of the first argument string.

Examples

1. The following statement sets %JUNK to CD:

   %JUNK = $DelCh('ABCDAAAABAB', 'AB')

2. This statement sets %JUNK to W HAV WAITD LONG NOUGH:

   %JUNK = $DelCh(' WE HAVE WAITED LONG ENOUGH ', 'E', , 3)

3. This statement sets %JUNK to WE HAV AITD ONG NOUGH:

   %JUNK = $DelCh(' WE HAVE WAITED LONG ENOUGH ', 'WEL', 5, 3)

Products authorizing $DelCh

• Sirius functions
• Fast/Unload User Language Interface
• Janus Open Client
• Janus Open Server
• Janus Sockets
• Janus Web Server
• Japanese functions
• Sir2000 Field Migration Facility