Barcode in RPG-Ausgabebestimmungen

**dino** · 17-12-08, 09:56

Hallo *all,
ich habe ein (älteres) Ile-RPG-Programm ohne PRTF, also mit klassischen "O"-Ausgabebestimmungen im Programm.
Wie bekomme ich hier Barcode erzeugt?

**Fuerchau** · 17-12-08, 10:43

Überhaupt nicht.
Barcode geht nur mit AFPDS/IPDS-PRTF's.

O-Bestimmungen können nur simple SCS-Drucke erzeugen.

**dino** · 17-12-08, 10:45

Danke für die schnelle Antwort. Dann also PRTF erstellen (Grummel Grummel...)

**kitvb1** · 17-12-08, 15:44

Hier is ein altes Testprogram für SCS-definierte drucker mit O-spec nutzen. Die druckt auf ein Zebra Drucker.

Code:

      *
      * Sticky labels for attachment to boxes etc.
     FPM010PTB  O    F  264        PRINTER
     F                                     OFLIND(*IN57)
      *--------------------------------------------------------------------------------------------*
      *
     C                   Move      '111'         $labels           3
     c                   move      '222'         $x1               3
     c                   move      'TEstttt'     $grno09           7
     c                   move      '29.04.08'    $recdmy           8
     C                   Move      '20242222'    Vndr09            8
     C                   Movel     'advisenr1235'advn09           16
     C                   Movel     'tref09111111'trex09           15
     C                   Movel     'snam05353535'snam05           35
     C                   Move      '0136828 '    ordn09            8
     C                   Movel     '123456789123'trin09           15
     C                   move      '31.12.08'    $expd             8
     C                   movel     '4521583078'  item09           15
     C                   Movel     'description' PDESCC           36
     C                   movel     '009-01000-1-'vcat09           20
     C                   movel     '     108,000'$QTYR            12
     C                   move      'ST'          RUOM              2
     c                   move      '11'          whsep1            2
     c                   move      '123456'      bno160            6
     c                   move      '456789'      bno260            6
      *
     c                   eval      *in55 = *on
     c                   except    bclabel
     c                   eval      *inlr = *on
      *--------------------------------------------------------------------------------------------*
      *
      * Bar code printer file
     OPM010PTB  E            bclabel     1
      *
      * Define the print format
     o                                              '¬XA'
     O          E            bclabel     1
     o                                              '¬DFPM010¬FS'
     O          E            bclabel     1
     o                                              '¬PRC'
     O          E            bclabel     1
     o                                              '¬LH0,35¬FS'
     O          E            bclabel     1
     o                                              '¬LL1350¬PW900'
     O          E            bclabel     1
     o                                              '¬MD5'
     O          E            bclabel     1
     o                                              '¬MNN'
     O          E            bclabel     1
     o                                              '¬FWr'
     O          E            bclabel     1
     o                                              '¬CFr45,25¬FS'
     O          E            bclabel     1
     o                                              '¬FO665,0¬a0¬FN10¬FS'
     o                                              '¬FO665,75¬Fn20¬FS'
     o                                              '¬FO665,260¬FN30¬FS'
d004 o*                                             '¬FO665,360¬Fn40¬FS'
a004 o                                              '¬FO645,360¬Ar,130,80'
a004 o                                              '¬FN40¬FS'
c004 o                                              '¬FO665,680¬FN50¬FS'
c004 o                                              '¬FO665,740¬FN60¬FS'
c004 o                                              '¬FO665,790¬FN70¬FS'
c004 o                                              '¬FO665,825¬Fn80¬FS'
     O          E            bclabel     1
     o                                              '¬FO595,0¬FN90¬FS'
     o                                              '¬FO595,75¬Fn100¬FS'
     o                                              '¬FO595,260¬FN110¬FS'
     o                                              '¬FO595,310¬Fn120¬FS'
     o                                              '¬FO595,680¬FN130¬FS'
     o                                              '¬FO595,740¬Fn140¬FS'
     O          E            bclabel     1
     o                                              '¬FO525,0¬FN150¬FS'
     o                                              '¬FO525,680¬FN160¬FS'
     o                                              '¬FO525,740¬FN170¬FS'
     O          E            bclabel     1
     o                                              '¬FO455,0¬FN180¬FS'
     o                                              '¬FO455,160¬FN190¬FS'
     o                                              '¬FO455,680¬FN200¬FS'
     o                                              '¬FO455,800¬FN210¬FS'
     O          E            bclabel     1
     o                                              '¬FO315,0¬Ar,140,180'
     o                                              '¬FN230¬FS'
     O          E            bclabel     1
     o                                              '¬FO280,130¬FN250¬FS'
     O          E            bclabel     1
     o                                              '¬FO210,0¬FN240¬FS'
     o                                              '¬FO210,150¬FN260¬FS'
     O          E            bclabel     1
     o                                              '¬FO140,0¬FN270¬FS'
     o                                              '¬FO140,190¬FN280¬FS'
     o                                              '¬FO140,360¬FN290¬FS'
     O          E            bclabel     1
     o                                              '¬FO70,0¬FN300¬FS'
d004 o*                                             '¬FO70,90¬FN310¬FS'
a004 o                                              '¬FO10,90¬Ar,130,80'
a004 o                                              '¬FN310¬FS'
d004 o*                                             '¬FO70,150¬FN330¬FS'
a004 o                                              '¬FO10,220¬Ar,130,80'
a004 o                                              '¬FN330¬FS'
d004 o*                                             '¬FO70,240¬FN340¬FS'
a004 o                                              '¬FO10,500¬Ar,130,80'
a004 o                                              '¬FN340¬FS'
     o                                              '¬FO160,675¬A0'
     o                                              '¬BCR,150,N,N¬FN320¬FS'
     O          E            bclabel     1
     o                                              '¬XZ'
      *
      * Define the fields
     O          E            bclabel     1
     o                                              '¬XA'
     o                                              '¬XFPM010.ZPL¬FS'
      *
     O          E            bclabel     1
     o                                              '¬FN70¬FDv.¬FS'
     o                                              '¬FN10¬FDWes:¬FS'
     O                                              '¬FN20¬FD'
     o                       $grno09
     o                                              '¬FS'
     o                                              '¬FN30¬FDDatum:¬FS'
     O                                              '¬Fn40¬FD'
     o                       $RECDMY
     o                                              '¬FS'
     o                                              '¬FN50¬FDAnz:¬FS'
     O                                              '¬FN60¬FD'
     o                       $x1
     o                                              '¬FS'
     O                                              '¬FN80¬FD'
     o                       $LABELS
     o                                              '¬FS'
      *
     O          E            bclabel     1
     o                                              '¬FN90¬FDLief:¬FS'
     O                                              '¬FN100¬FV'
     o                       VNDR09
     o                                              '¬FS'
     o                                              '¬FN110¬FDLS:¬FS'
     O                                              '¬FN120¬FV'
     o                       ADVN09
     o                                              '¬FS'
     o                                              '¬FN130¬FDRef:¬FS'
     O                                              '¬FN140¬FV'
     o                       TREX09
     o                                              '¬FS'
      *
     O          E            bclabel     1
     O                                              '¬FN150¬FD'
     o                       SNAM05
     o                                              '¬FS'
     o                                              '¬FN160¬FDBN:¬FS'
     O                                              '¬FN170¬FD'
     o                       ORDN09
     o                                              '¬FS'
      *
     O          E            bclabel     1
     o                                              '¬FN180¬FDNachw. Ref:¬FS'
     O                                              '¬FN190¬FD'
     o                       TRIN09
     o                                              '¬FS'
     o                                              '¬FN200¬FDVerf. Dat:¬FS'
     O                                              '¬FN210¬FD'
     o                       $EXPD
     o                                              '¬FS'
      *
     O          E            bclabel     1
     O               55                             '¬FN230¬FD'
     o               55      ITEM09
     o               55                             '¬FS'
      *
     O          E            bclabel     1
     o                                              '¬FN240¬FDNr. LfrnKat:¬FS'
     o               55                             '¬FN250¬FD'
     o               55      PDESCC
     o               55                             '¬FS'
     o                                              '¬FN260¬FD'
     o                       VCAT09
     o                                              '¬FS'
      *
     O          E            bclabel     1
     o                                              '¬FN270¬FDGesamt Menge:¬FS'
     o                                              '¬FN280¬FD'
     o                       $QTYR
     o                                              '¬FS'
     o                                              '¬FN290¬FD'
     o                       RUOM
     o                                              '¬FS'
      *
     O          E            bclabel     1
     o               55                             '¬FN300¬FDLager:¬FS'
     o               55                             '¬FN310¬FD'
     o               55      WHSEP1
     o               55                             '¬FS'
     o                                              '¬FN330¬FD'
     o                       BNO160
     o                                              '¬FS'
     o                                              '¬FN340¬FD'
     o                       BNO260
     o                                              '¬FS'
     O                                              '¬FN320¬FD'
     o                       ITEM09
     o                                              '¬FS'
     O          E            bclabel     1
     o                                              '¬XZ'
      *
      * reset printer
     O          E            bclabel     1
     o                                              '¬XA'
     O          E            bclabel     1
     o                                              '¬LL100'
     O          E            bclabel     1
     o                                              '¬FWn¬FS'
     o                                              '¬CFr45,25¬FS'
     O          E            bclabel     1
     o                                              '¬XZ'
      *--------------------------------------------------------------------------------------------*

**Fuerchau** · 17-12-08, 17:24

Zebra hat eine eigene Druckersprache und benötigt daher keine PRTF.
Deshalb klappt das da ja auch.

**K_Tippi** · 18-12-08, 06:46

Ich habe vor vielen jahren mal mit Binärdaten/ESC Sequenzen (CVTDTA) Barcode erzeugt. Das ist dann aber Druckerabhänging bzw. wenn mann PCL nimmt einigermaßen Kompatibel. Ist aber nicht zu empfehlen. (Das geht glaube ich auch nur über PRinterfile aber ich bruche kein afpds/ipds)

Wenn man häufig Formulare mit besonderen Formatierungen und Barcode hat sollte man den Einsatz einer Druckmanagement Lösung in betracht ziehen. (Interform, CSW, ..) das ist dann auch flexiebel.

Klaus

Thema: Barcode in RPG-Ausgabebestimmungen

Thread Tools

Bewerten Sie diesen Thema

Display