TRIM

TRIM без Enterprise PL/I

Как известно, Enterprise PL/I содержит ббольшое количество весьма полезных втроенных функций. Однако, не всегда имеется возможность использовать именно этот компилятор. А необходимость получить такую же функционльность имеется.

Вот так и с BUILTIN функцией TRIM - она весьма полезна для решения большого количества задач.

Давайте напишем небольшую процедуру, которая сможет собой заменить встроенный TRIM из комплекта Enterprise PL/I.

Сложность написания данной функции крайне низка, но готовый код так или иначе сможет уменьшить суммарное время на разработку программы.

/*********************************************************************/
/* TRIM LEADING AND TRAILING BLANKS                                  */
/*********************************************************************/
TRIM: PROC(INSTR) RETURNS(CHAR(35));
  DCL INSTR          CHAR(35);
  DCL (M,START_IND)  BIN FIXED(31);
  START_IND = 0;
  DO M = 1 TO 35 WHILE(START_IND = 0);