PL/SQL code for IDAutomation.com Barcode Fonts
Copyright © IDAutomation.com, Inc. 2002, All rights reserved.

The following is an example of PL/SQL code used in Oracle Reports 3.0
to create the proper string for the INTERLEAVED 2 OF 5 FONT.

We have several other functions available for other barcodes with 
our Oracle Reports Plug-in at:
http://www.bizfonts.com/oracle/

NOTE: The following code is only an example that was provided by a client.
IDAutomation.com, Inc. does not guarantee, support or troubleshoot
Oracle source code.

Our client created a formula column of datatype character,
then assigned this formula to the column, and assigned the 
formula column's name as the source for the report field that was
to contain the barcode. 

In this case, ":BARCODEFIELD" is the host variable (selected column) and has 8
characters to be barcoded (therefore the 1..8 LOOP). The output then would be:
1 start, 4 encoded chars, and 1 stop = 6 chars (therefore the FS VARCHAR(6) return) ...

function CF_1Formula return varChar is
  FS VARCHAR(6)  := CHR(203);
  I  NUMBER   := 1;
  IX NUMBER   := 1;
  CH VARCHAR(2) := '';
  BCFONT CHAR(100) := '!"#$%&' || CHR(39) ||
'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu
vwxyz{|}~' || CHR(197) || CHR(198) || CHR(199)
|| CHR(200) || CHR(201) || CHR (202);
begin
  FOR I IN 1..8 LOOP
      IX := 1;
      IF MOD(I, 2) = 1 THEN
          CH := SUBSTR(:BARCODEFIELD, I, 2);
          IF SUBSTR(CH, 1, 1) < '0' OR SUBSTR(CH, 1, 1) > '9' THEN
               CH := '0' || SUBSTR(CH, 2, 1);
          END IF;
          IF SUBSTR(CH, 2, 1) < '0' OR SUBSTR(CH, 2, 1) > '9' THEN
               CH := SUBSTR(CH, 1, 1) || '0';
          END IF;
          IX := TO_NUMBER(CH);
          FS := CONCAT(FS, SUBSTR(BCFONT, IX + 1, 1));
      END IF;
  END LOOP;
  FS := CONCAT(FS,CHR(204));
  Return FS;
end;