KPG1_SLICE

Finds and removes any NDF slice specification from a name

Description:

A slice specification is taken to be anything between the first opening and the first closing parenthesis, so long as the closing parentheis is the last character in the name.

Invocation

CALL KPG1_SLICE( NAME, SLICE, START, STATUS )

Arguments

NAME = CHARACTER (Given and Returtned)
The name to be checked. On exit, any NDF slice specification contained in the name on entry, is removed.
SLICE = CHARACTER (Returned)
The slice specification including opening and closing parenthesise. If the input name contains no slice specification, then SLICE is returned blank.
START = INTEGER (Returned)
The position (within the original name) of the opening parethesis. If the name does not containa slice specification, then START is returned pointing to the first character beyond the end of the name.
STATUS = INTEGER (Given and Returned)
The global status.