RDML Function SET179A
* =======================================================;
* Process ........: SET_166;
* Function .......: SET179A;
* Created on .....: 21/01/00 at 14:43:32;
* Description ....: Format Case;
* Version.........: 1;
*;
* Full Description: The purpose of this function is to;
* demonstrate built-in function OV_FORMAT_CASE;
*;
* Disclaimer: The following material is supplied as;
* sample material only. No warranty concerning the;
* material or its use in any way whatsoever is;
* expressed or implied.;
*;
* Minimum LANSA release: 8.0;
*;
* =======================================================;
* Function control options;
FUNCTION OPTIONS(*DIRECT);
*;
* Group and field definitions;
*;
DEFINE FIELD(#S_179TEXT) TYPE(*CHAR) LENGTH(256) DESC('Text to be formatted');
DEFINE FIELD(#S_179FMT) TYPE(*CHAR) LENGTH(009) DESC('Format of string') DEFAULT(TITLE);
DEFINE FIELD(#S_179UPAF) TYPE(*CHAR) LENGTH(020) DESC('Use uppercase after');
*;
* Mainline;
*;
BEGIN_LOOP;
REQUEST FIELDS(#S_179TEXT #S_179FMT #S_179UPAF) IDENTIFY(*DESC);
USE BUILTIN(OV_FORMAT_CASE) WITH_ARGS(#S_179TEXT #S_179FMT #S_179UPAF) TO_GET(#S_179TEXT);
END_LOOP;
* =======================================================;
* Process ........: SET_166;
* Function .......: SET179A;
* Created on .....: 21/01/00 at 14:43:32;
* Description ....: Format Case;
* Version.........: 1;
*;
* Full Description: The purpose of this function is to;
* demonstrate built-in function OV_FORMAT_CASE;
*;
* Disclaimer: The following material is supplied as;
* sample material only. No warranty concerning the;
* material or its use in any way whatsoever is;
* expressed or implied.;
*;
* Minimum LANSA release: 8.0;
*;
* =======================================================;
* Function control options;
FUNCTION OPTIONS(*DIRECT);
*;
* Group and field definitions;
*;
DEFINE FIELD(#S_179TEXT) TYPE(*CHAR) LENGTH(256) DESC('Text to be formatted');
DEFINE FIELD(#S_179FMT) TYPE(*CHAR) LENGTH(009) DESC('Format of string') DEFAULT(TITLE);
DEFINE FIELD(#S_179UPAF) TYPE(*CHAR) LENGTH(020) DESC('Use uppercase after');
*;
* Mainline;
*;
BEGIN_LOOP;
REQUEST FIELDS(#S_179TEXT #S_179FMT #S_179UPAF) IDENTIFY(*DESC);
USE BUILTIN(OV_FORMAT_CASE) WITH_ARGS(#S_179TEXT #S_179FMT #S_179UPAF) TO_GET(#S_179TEXT);
END_LOOP;