1133:
1134: hr_utility.trace('Entering : '||l_proc_name);
1135:
1136: IF p_node_type = 'CS' THEN
1137: pay_core_files.write_to_magtape_lob('<'||p_node||'>');
1138: ELSIF p_node_type = 'CE' THEN
1139: pay_core_files.write_to_magtape_lob('');
1140: ELSIF p_node_type = 'D' THEN
1141: /* Handle special charaters in data */
1135:
1136: IF p_node_type = 'CS' THEN
1137: pay_core_files.write_to_magtape_lob('<'||p_node||'>');
1138: ELSIF p_node_type = 'CE' THEN
1139: pay_core_files.write_to_magtape_lob('');
1140: ELSIF p_node_type = 'D' THEN
1141: /* Handle special charaters in data */
1142: l_data := REPLACE (p_data, '&', '&');
1143: l_data := REPLACE (l_data, '>', '>');
1143: l_data := REPLACE (l_data, '>', '>');
1144: l_data := REPLACE (l_data, '<', '<');
1145: l_data := REPLACE (l_data, '''', ''');
1146: l_data := REPLACE (l_data, '"', '"');
1147: pay_core_files.write_to_magtape_lob('<'||p_node||'>'||l_data||'');
1148: END IF;
1149:
1150: hr_utility.trace('Leaving : '||l_proc_name);
1151: