Code128b Code Generation Program, code128b code generation
Invalid argument FUNCTION get_char (char_code IN PLS_INTEGER) RETURN VARCHAR2 is language java name 'xxfnd. XxfndBarcodeUtil. getChar (int) return string ';
FUNCTION code128b (bytes IN VARCHAR2) RETURN VARCHAR2 IS v_c128_start VARCHAR2 (3); v_c128_end VARCHAR2 (3); n_checksum PLS_INTEGER: = 104; n_data_length PLS_INTEGER; n_curr_char_code PLS_INTEGER; beg-- Save the length of the content to cache.N_data_length: = length (data_to_encode); values ('cux ', 'cux _ FND_BARCODE_001'); v_c128_start: = values; values ('cux ', 'cux _ FND_BARCODE_002 '); v_c128_end: = fnd_message.get; FOR I IN 1 .. n_data_length LOOP n_curr_char_code: = ascii (substr (data_to_encode, I, 1); IF n_curr_char_code> = 32 THEN n_checksum: = n_checksum + (I * (ascii (substr (data_to_encode, I, 1)-32); ELSE n_checksum: = n_checksum + (I * (ascii (substr (data_to_encode, I, 1) + 64); END IF; END LOOP; n_checksum: = MOD (n_checksum, 103); IF n_checksum <95 THEN n_checksum: = n_checksum + 32; ELSE n_checksum: = n_checksum + 100; end if; RETURN v_c128_start | data_to_encode | get_char (n_checksum) | v_c128_end; END code128b;