Convert multiple spaces to a single space in any alpha:
0010 ************************************************************************
0020 * Copycode : Z1SPACE
0030 * Function : Will convert all multiple spaces to a single space
0040 * Usage :
0050 * INCLUDE Z1SPACE ‘#MY-STRING’
0060 ************************************************************************
0070 *
0080 EXAMINE &1& FOR ’ ’ WITH DELIMITER ’ ’ DELETE
0090 EXAMINE &1& FOR FULL ’ ’ REPLACE ’ ’
and:
Copycode ZCENTREC
0010 ***********************************************************************
0020 * Copycode : ZCENTREC
0030 *
0040 * Desc : This copycode will centre any alpha field contents
0050 *
0060 * Usage :
0070 *
0080 * DEFINE DATA LOCAL
0090 * 1 #MY-TEXT (A50)
0100 * END-DEFINE
0110 * #MY-TEXT := ‘THIS IS CENTRED’
0120 * INCLUDE ZCENTREC ‘#MY-TEXT’
0130 * WRITE #MY-TEXT
0140 * END
0150 ***********************************************************************
0160 *
0170 MOVE RIGHT &1& TO &1&
0180 EXAMINE &1& FOR FULL ’ ’ REPLACE ’ ’
NOTE: If your text has double spaces the centring will remove them