RE: codigo de barras EAN128

[Pinedo Pedro]

Title: Mensaje

Esto es lo que tengo, espero que te ayude 

 

 

Pedro Pinedo Hernandez
Analista-Programador
Grupo Amcor Flexibles Hispania S.L. 
Planta: Tobepal Logro�o
Departamento de Inform�tica / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logro�o
Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)

-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Segura Ruiz, Evaristo
Enviado el: martes, 29 de junio de 2004 07:10
Para: [EMAIL PROTECTED]
Asunto: codigo de barras EAN128

Hola a todos.

Un cliente nos demanda una etiqueta con codigo de barras EAN 128.

Este tipo de codigo no esa contemplado en las tablas del iSeries.

Tiene alguien algun ejemplo?

Nosotros ya hemos utilizado otros codigos en enteriores ocasiones.

 

GRACIAS ANTICIPADAS

 

Adelante, Adelante...     Vari

 

_______________________________________________________

AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
_______________________________________________________

CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.

     A* BARSMP: DDS for Bar Code Sample program                                        
        
     A*   Printer File Create Parameters:                              
     A*   - Printer Device Type (DEVTYPE)      *AFPDS
     A* Format of BARCODE keyword is as follows:  
     A*   BARCODE (Type Height + 6 parameters:                         
     A*           Horizontal/Vertical    *HRZ, *VRT                    
     A*           Human Readable         *HRI, *HRITOP, *NOHRI         
     A*           Asterist (for 3 of 9)  *AST, *NOAST                  
     A*           Check Digit            (type)                        
     A*           Unit Width             (width of narror bar/space)   
     A*           Wide/Narrow Ratio      (value from 2.00-3.00) 
     A          R TITLE                     LPI(8)                     
     A  11        TLE1          50        18SKIPB(4)                    
     A                                      SPACEA(4)      
     A          R BARCDE                    LPI(8)                      
     A            HEAD2         30        48                            
     A            HEAD1         30         9                            
     A                                      SPACEA(1)                   
     A  12        CD12X1        11S       11BARCODE(UPCA 4)             
     A  12        CD12X2        12S       50BARCODE(EAN13 4)            
     A  12                                  SPACEA(9)                   
      *                                                                 
     A  13        CD13X1        10S       11BARCODE(INTERL2OF5 4)       
     A  13        CD13X2        10S       50BARCODE(MATRIX2OF5 4)       
     A  13                                  SPACEA(9)                   
      *                                                                 
     A  14        CD14X2        10A       50BARCODE(CODEABAR 4)         
     A  14        CD14X1        10S       11BARCODE(INDUST2OF5 4) 
     A  14                                  SPACEA(9)                   
      *                                                                 
     A  15        CD15X1        11A       11BARCODE(CODE3OF9 4)         
     A  15        CD15X2        10S       50BARCODE(MSI 4)              
     A  15                                  SPACEA(9)                   
      *                                                                 
     A  16        CD16X1        11A       11BARCODE(CODE128 4)          
     A  16        CD16X2         8A       66BARCODE(CODE128 9 *VRT  +   
     A                                      (*WIDTH .03))               
     A  16                                  SPACEA(10)                  
      *                                                                 
     A  17        CD17X1         5S       11BARCODE(POSTNET)            
     A  17                                  SPACEA(4)                   
     A  18        CD18X1         9S       11BARCODE(POSTNET)            
     A  18                                  SPACEA(4)                   
     A  19        CD19X1        11S       11BARCODE(POSTNET)  
 
    100       * BARSMP - Prints samples of BCOCA bar codes   
    300      FBARSMP    O    E             PRINTER    
    400      D TLE             S             50    DIM(20) CTDATA PERRCD(1)            
 Table of data                  
    500      D VAL             S             10    DIM(20) ALT(TLE)                  
 
    700      C                   MOVEL     TLE(1)        TLE1             50           
         
    800      C                   SETON                                        11       
                               
    900      C                   WRITE     TITLE                                       
 Write Title                   
   1000      C                   SETOFF                                       11       
                            
   1100       *                                                                        
                            
   1200      C     2             DO        16            X                 2 0         
 Do Loop for Headings          
   1300      C     X             ADD       1             Y                 2 0         
                                 
   1400      C                   MOVEL     TLE(X)        HEAD1            30   
   1500      C                   MOVEL     TLE(Y)        HEAD2            30    
   1700      C     X             IFEQ      2                                           
                        
   1800      C                   MOVEL     VAL(X)        CD12X1           11 0         
 UPCA Barcode                    
   1900      C                   MOVEL     VAL(X)        CD12X2           12 0         
 EAN 13 Barcode                  
   2000      C                   SETON                                        12       
                                 
   2100      C                   WRITE     BARCDE                                      
                                 
   2200      C                   SETOFF                                       12       
                                 
   2300      C                   GOTO      LAST                                        
                                 
   2400      C                   END                                                   
                                                              
   2600      C     X             IFEQ      4                                           
                                 
   2700      C                   MOVEL     VAL(X)        CD13X1           10 0         
 Interleaved 2/5                 
   2800      C                   MOVEL     VAL(Y)        CD13X2           10 0         
 Matrix 2 OF 5                   
   2900      C                   SETON                                        13       
                                 
   3000      C                   WRITE     BARCDE                                      
                                 
   3100      C                   SETOFF                                       13       
                                 
   3200      C                   GOTO      LAST                                        
                                 
   3300      C                   END                                                   
                                 
   3400       *                                                                        
                                 
   3500      C     X             IFEQ      6                                           
                                 
   3600      C                   MOVEL     VAL(X)        CD14X1           10 0         
 Industrial 2/5  
   3700      C                   MOVEL     VAL(Y)        CD14X2           10           
 Codeabar 
   3800      C                   SETON                                        14 
   3900      C                   WRITE     BARCDE    
   4000      C                   SETOFF                                       1
   4100      C                   GOTO      LAST
   4200      C                   END  
   4400      C     X             IFEQ      8 
   4500      C                   MOVEL     VAL(X)        CD15X1           11           
 Code 3 OF 9 
   4600      C                   MOVEL     VAL(Y)        CD15X2           10 0         
 MSI/Plessy 
   4700      C                   SETON                                        15
   4800      C                   WRITE     BARCDE
   4900      C                   SETOFF                                       15  
   5000      C                   GOTO      LAST
   5100      C                   END 
   5300      C     X             IFEQ      10 
  
   5400      C                   MOVEL     VAL(X)        CD16X1           11           
 Code128 
   5500      C                   MOVEL     VAL(X)        CD16X2            8           
 Code128
   5600      C                   SETON                                        16
   5700      C                   WRITE     BARCDE 
   5800      C                   SETOFF                                       16  
   5900      C                   GOTO      LAST
   6000      C                   END 
   6200      C     X             IFEQ      12 
   6300      C                   MOVEL     VAL(X)        CD17X1            5 0 
   6400      C                   SETON                                        17       
 Postnet Zip
   6500      C                   WRITE     BARCDE 
   6600      C                   SETOFF                                       17 
   6700      C                   GOTO      LAST
   6800      C                   END 
7000      C     X             IFEQ      14    
   7100      C                   MOVEL     VAL(X)        CD18X1            9 0         
 Postnet Zip+4  
   7200      C                   SETON                                        18 
   7300      C                   WRITE     BARCDE 
   7400      C                   SETOFF                                       18 
   7500      C                   GOTO      LAST 
   7600      C                   END 
      7800      C     X             IFEQ      16
   7900      C                   MOVEL     VAL(X)        CD19X1           11 0         
 Postnet Zip+4+2 
   8000      C                   SETON                                        19
   8100      C                   WRITE     BARCDE 
   8200      C                   SETOFF                                       19
   8300      C                   GOTO      LAST 
   8400      C                   END 
8600      C     LAST          TAG
   8700      C                   ENDDO     2                                           
 Barcode Count
   8900      C                   SETON                                        LR       
                       
   9200 ** 
   9300 Sample Bar Codes Using AS/400 DDS Specifications 
   9400 UPC-A                                             1234567890 
   9500 EAN-13                                            1234567890 
   9600 Interleaved 2 of 5                                1234567890 
   9700 Matrix 2 of 5                                     1234567890
   9800 Industrial 2 of 5                                 1234567890 
   9900 CODE-A-BAR                                        A23456789C 
  10000 Code 3 of 9                                       123ABC789Z 
  10100 Modified Plessey                                  1234567890 
  10200 Code 128                                          123ABC7890  
  10300 Code 128 
  10400 POSTNET ZIP                                       12345    
10500           
  10600 POSTNET ZIP + 4                                   123456789  
  10700    
  10800 POSTNET ZIP + 4 + 2                               12345678901   
10900