3028: IS
3029: pos PLS_INTEGER := 1;
3030: buffer RAW( 32767 );
3031: res BLOB;
3032: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
3033: BEGIN
3034: Hr_Utility.set_location('Entering: PAY_IE_NES_REPORT_PKG.c2b',1000);
3035: DBMS_LOB.createTemporary( res, TRUE );
3036: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
3031: res BLOB;
3032: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
3033: BEGIN
3034: Hr_Utility.set_location('Entering: PAY_IE_NES_REPORT_PKG.c2b',1000);
3035: DBMS_LOB.createTemporary( res, TRUE );
3036: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
3037:
3038:
3039: LOOP
3032: lob_len PLS_INTEGER := DBMS_LOB.getLength( c );
3033: BEGIN
3034: Hr_Utility.set_location('Entering: PAY_IE_NES_REPORT_PKG.c2b',1000);
3035: DBMS_LOB.createTemporary( res, TRUE );
3036: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
3037:
3038:
3039: LOOP
3040: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
3036: DBMS_LOB.OPEN( res, DBMS_LOB.LOB_ReadWrite );
3037:
3038:
3039: LOOP
3040: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
3041:
3042: IF UTL_RAW.LENGTH( buffer ) > 0 THEN
3043: DBMS_LOB.writeAppend( res, UTL_RAW.LENGTH( buffer ), buffer );
3044: END IF;
3039: LOOP
3040: buffer := UTL_RAW.cast_to_raw( DBMS_LOB.SUBSTR( c, 16000, pos ) );
3041:
3042: IF UTL_RAW.LENGTH( buffer ) > 0 THEN
3043: DBMS_LOB.writeAppend( res, UTL_RAW.LENGTH( buffer ), buffer );
3044: END IF;
3045:
3046: pos := pos + 16000;
3047: EXIT WHEN pos > lob_len;