REMOVE Statement

The functionality of the REMOVE statement can be configured to act as expected by the compatibility system by flags within the Compatibility Switch Matrix (set with the $OPTIONS statement).

FLAG

REMOVE.RESTART

Allows REMOVE to restart from the start of the string depending on the state and value of the setting-var variable.

If the setting-var variable has the value -1 or is unassigned when it is passed to the REMOVE statement, the internal REMOVE pointer is reset to the beginning of the array.

REMOVE.LAST

If set the REMOVE statement will return a zero instead of a one in the setting variable when returning the last field of a string.

REMOVE.PEOS

If set REMOVE will return a one instead of a zero in its setting variable when removing past end of string.

Example

The compatibility switch matrix values are as follows:

BCC Entry

Reality

D3

mvEnterprise

REMOVE.LAST

0

1

0

REMOVE.PEOS

0

0

1

Given the following three programs that only differ in name and first line:

Program Names = Reality.REM       D3.REM       MVE.REM
  First Lines = $OPTIONS REALITY  $OPTIONS D3  $OPTIONS MVENTERPRISE

The rest of the programs are the same as follows:

REMOVE VAR FROM A SETTING SET
CRT SQUOTE(VAR),SET
REMOVE VAR FROM A SETTING SET
CRT SQUOTE(VAR),SET

The expected output would be the following:

Reality.REM

D3.REM

MVE.REM

Comment

(VAR) - (SET)

(VAR) - (SET)

(VAR) - (SET)

 

("last") - (1)

 ("last") - (0)

("last") - (1)

REMOVE of last field

("") - (0)

("") - (0)

("") - (1)

REMOVE past end of string