1132: IS
1133: pos PLS_INTEGER := 1;
1134: buffer RAW( 32767 );
1135: res BLOB;
1136: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
1137: BEGIN
1138: Hr_Utility.set_location('Entering: pay_ie_p45p3_p46_pkg.c2b',260);
1139: DBMS_LOB.createTemporary( res, TRUE );
1140: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
1135: res BLOB;
1136: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
1137: BEGIN
1138: Hr_Utility.set_location('Entering: pay_ie_p45p3_p46_pkg.c2b',260);
1139: DBMS_LOB.createTemporary( res, TRUE );
1140: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
1141:
1142:
1143: LOOP
1136: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
1137: BEGIN
1138: Hr_Utility.set_location('Entering: pay_ie_p45p3_p46_pkg.c2b',260);
1139: DBMS_LOB.createTemporary( res, TRUE );
1140: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
1141:
1142:
1143: LOOP
1144: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
1140: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
1141:
1142:
1143: LOOP
1144: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
1145:
1146: IF UTL_RAW.LENGTH( buffer ) > 0 THEN
1147: DBMS_LOB.writeAppend( res, UTL_RAW.LENGTH( buffer ), buffer );
1148: END IF;
1143: LOOP
1144: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
1145:
1146: IF UTL_RAW.LENGTH( buffer ) > 0 THEN
1147: DBMS_LOB.writeAppend( res, UTL_RAW.LENGTH( buffer ), buffer );
1148: END IF;
1149:
1150: pos := pos + 16000;
1151: EXIT WHEN pos > lob_len;