Как известно, 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);
Последние комментарии
6 года 10 недели назад
6 года 11 недели назад
6 года 12 недели назад
6 года 12 недели назад
6 года 13 недели назад
6 года 13 недели назад
6 года 13 недели назад
6 года 13 недели назад
6 года 14 недели назад
6 года 14 недели назад