ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Printing BarCodes on ZEBRA Printer using RPG

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • #31
    Re: Printing BarCodes on ZEBRA Printer using RPG

    how are you gonna scan a barcode thats 50 *char Long?

    here is code for a 15 *char

    DDS - printfile compile DEVTYPE > *AFPDS
    PHP Code:
         A*%%***********************************************************************
         
    A*%%TS  RD  20100105  125628  FLANARY     REL-V5R4M0  5722-WDS
         A
    *%%FI+10660100000000000000000000000000000000000000000000000000
         A
    *%%FI       0000000000000000000000000000000000000000000000000
         A
    *%%***********************************************************************
          *
          * 
    FONT GOUDY OLD STYLE (FONT(4919))
          * 
    FONT TYPECENTURY SCHOOLBOOK (16951)
          * 
    GOTHIC 15 (FONT(222))
          *
          **************************************************************************
         
    A          R HEADER
         A
    *%%***********************************************************************
         
    A*%%RI 00000
         A
    *%%***********************************************************************
         
    A                                      SPACEA(004)
         
    A                                    16
         A                                      
    'TEXT:'
         
    A                                      FONT(16951 (*POINTSIZE 11))
         
    A                                      SPACEB(007)
         
    A            P1TEXT         8A  O    +2
         A            P1BARCODE     15A  O    16
         A                                      BARCODE
    (CODE3OF9 2 *HRZ *NOHRI *NOA-
         
    A                                      ST)
         
    A                                      SPACEB(002)
         
    A*%%***********************************************************************
         
    A*%%SS
         A
    *%%CL 007
         A
    *%%SN P1TEXT     xxxxxxxx
         A
    *%%CL 005
         A
    *%%CL 004
         A
    *%%CP+999CRTPRTF
         A
    *%%CP+    FILE(JAMIELIB/BCAP)
         
    A*%%CP+    DEVTYPE(*SCS)
         
    A*%%CP     PAGESIZE(*N       140      *N     )
         
    A*%%*********************************************************************** 

    RPG

    PHP Code:
          *=======================================================================
          *
          *========================================================================
         
    FBCAP      o    e             printer          oflind(*in75)
          *
          *  
    Field Definitions.
          *
         
    d x               s             30
          
    *
          /
    free

                  p1text 
    'JAmie Test:';
                  
    p1barcode 'ABC12548IJ';
                  
    write header;

                  *
    inlr = *on
    All my answers were extracted from the "Big Dummy's Guide to the As400"
    and I take no responsibility for any of them.

    www.code400.com

    Comment


    • #32
      Re: Printing BarCodes on ZEBRA Printer using RPG

      The Barcode is not 50 long the first text string is. The code I supplied works just fine on a laser jet printer the issue is thrying to convert this to something like ZPL so that a Zebra Printer will process it.

      Comment


      • #33
        Re: Printing BarCodes on ZEBRA Printer using RPG

        oh... I may still be lost. Would this help? Kit did in a "post previous" give an example of this
        Attached Files
        All my answers were extracted from the "Big Dummy's Guide to the As400"
        and I take no responsibility for any of them.

        www.code400.com

        Comment


        • #34
          Re: Printing BarCodes on ZEBRA Printer using RPG

          This is the document I am trying to use currently. The Zebra is acting like it is going to print but the code deosnt seem to be correct becaus enothing is coming out.

          Comment

          Working...
          X