1 package app_utils AUTHID CURRENT_USER as
2 /* $Header: AFUTILSS.pls 115.1 99/07/16 23:32:31 porting sh $ */
3
4 --
5 -- Package
6 -- app_utils
7 -- Purpose
8 -- General utilities
9 -- History
10 -- 00/00/00 K Brodersen Created
11 --
12
13 --
14 -- Name
15 -- set_char
16 -- Purpose
17 -- Sets a character in a string at position POSITION to a new character.
18 -- Primarily used to set characters in a string on and off to act as a bit
19 -- flag.
20 -- Arguments
21 -- string String to modify
22 -- position Position in string to modify
23 -- rchar Replacement character
24 -- Notes
25 -- 1. If STRING is null, STRING is initialized to ' '
26 -- 2. If POSITION > LENGTH(STRING), STRING is padded out
27
28 procedure set_char(string in out varchar2,
29 position number,
30 rchar varchar2);
31
32 end app_utils;