Barcode in RPG-Ausgabebestimmungen

[dino]

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

[kitvb1]

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

      *
      * 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]

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