400上條碼打印

居士

關(guān)注中……

大家都很熱心，這就是我們論壇興旺的源泉。

Lantern

熱烈盼望中~~~~

同時(shí)衷心謝謝各位樓上的兄弟姐妹！


加油！加油！

看什么看

可以使用HP普通激光打印機(jī)打印條碼，OS：AS/400、Unix、Dos等，RMB5000左右。
Tel:010 8458 5012~5017-613
email:shiying@cgs.com.cn
Msn:bjshiying@21cn.com

qingzhou

針對(duì)基于OS400條形碼打印問(wèn)題，我今天下午研究了一下，現(xiàn)在將結(jié)果告訴大家：
1、首先條形碼的打印是借助QSYS2989(中文字庫(kù))下的ADDAPW命令來(lái)實(shí)現(xiàn)的，故在運(yùn)行ADDAPW命令之前，必須先運(yùn)行CHGSYSLIBL QSYS2989，否則運(yùn)行ADDAPW時(shí)系統(tǒng)會(huì)出現(xiàn)" Command ADDAPW in library *LIBL not found. "錯(cuò)誤信息；
2、我們?cè)赒APWSRC下可以創(chuàng)建ADDAPW的一系列CL代碼來(lái)實(shí)現(xiàn)，例如：

1. Columns . . . :    1  71           Browse                     R21AMLBE/QAPWSRC
   
2. SEU==>;                                                              MFR52AJ01B
   
3. FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7  
   
4.         *************** Beginning of data *************************************
   
5. 0001.00 ADDAPW LINE(12 12) MAGNIFY((59 07 3))                                   
   
6. 0002.00 ADDAPW LINE(15 15) MAGNIFY((12 18 3))                                   
   
7. 0003.00 ADDAPW LINE(18 18) MAGNIFY((90 06 3))                                   
   
8. 0004.00 ADDAPW LINE(21 21) MAGNIFY((90 02 3))                                   
   
9. 0005.00 ADDAPW LINE(21 21) MAGNIFY((105 02 3))                                 
   
10. 0006.00                                                                        
    
11. 0007.00                                                                        
    
12. 0008.00 ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)                    
    
13.         ****************** End of data ****************************************
    
14.                                                                        
    
15.                                                                                 
    
16.                                                                                 
    
17.                                                                                 
    
18. F3=Exit   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle   F12=Cancel      
    
19. F16=Repeat find        F24=More keys                                          
    
20.                                          (C) COPYRIGHT IBM CORP. 1981, 2002.   

復(fù)制代碼

3、其上面代碼中，真正實(shí)現(xiàn)“條形碼”機(jī)能的是：
ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)
如果代碼中沒(méi)有加"SYMBOL(20 15 CODE39 CODE39 IBMIR)"參數(shù)，將會(huì)出現(xiàn)用“*0028140480101*”形式來(lái)代替“條形碼”形式，所以大家可以根據(jù)企業(yè)實(shí)際情況來(lái)進(jìn)行選擇。

4、以上打印出的條形碼可以用“條形碼掃描儀”進(jìn)行掃描，得到的結(jié)果就是“*0028140480101*”。

5、以上程序在OS400 V5R2上測(cè)試通過(guò)。

Lantern

我這邊是V4R4，QSYS2989下找不到ADDAPW：（
有沒(méi)有V4R4支持的，可以通過(guò)普通針式打印機(jī)打印條碼？

紅像

只要打印機(jī)支持條碼, 針式或激光都不是問(wèn)題. 但是這個(gè)ADDAPW就不一定了----我的400是V4R5, 也沒(méi)有這個(gè)程序.

期待不使用第三方軟件的解決方案.

aeiou

1。編寫(xiě)程序 PGMA 按照正常情況把要打印的數(shù)據(jù)生成到O表。
2。編寫(xiě)如下CL程序：

1. 
   
2. PGM
   
3.    OVRPRTF    FILE(QPRINT)  OUTQ(OutqName)  HOLD(*YES)
   
4.    CALL          PGM(PGMA)
   
5.    OVRPRTF    FILE(QPAPWPRT) RPLUNPRT(*YES) OUTQ(OutqName) +
   
6.              FORMTYPE(FmtTypName) SCHEDULE(*IMMED) HOLD(*NO) +
   
7.              SAVE(*YES)
   
8. 
   
9.    MRGAPW     FORMD(CODEP) FILE(CODEP) SPLF(QPRINT) +
   
10.                       OUTQ(OutqName) OUTSPLF(CODEP1)
    
11. 
    
12.    DLTSPLF    FILE(QPRINT) SPLNBR(*LAST)
    
13. ENDPGM
    

復(fù)制代碼

使用這個(gè)CL的程序就能打印條碼了。

注：
1。CODEP 是個(gè)產(chǎn)生條碼的文件，內(nèi)容如下：
ADDAPW LINE(2) MAGNIFY( (03 10) )
ADDAPW LINE(3) SYMBOL(41 14 CODE39 CODE39 LIBNAME)
ADDAPW LINE(5) MAGNIFY( (03 10) )
ADDAPW LINE( SYMBOL(49 5 CODE39 CODE39 LIBNAME)
ADDAPW LINE( MAGNIFY( (03 17) )
ADDAPW LINE(11) MAGNIFY( (03 15) )
ADDAPW LINE(12) SYMBOL(45 9 CODE39 CODE39 LIBNAME)
ADDAPW LINE(14) MAGNIFY( (03 9) )
ADDAPW LINE(17) SYMBOL(4 11 CODE39 CODE39 LIBNAME)
ADDAPW LINE(23) MAGNIFY( (3 17) )

是個(gè)TXT的文件，然后用 CRTAPW 把該文件編譯一下，成為FILE類型的OBJ。
CODE39是個(gè)條碼數(shù)據(jù)映像文件，是個(gè)物理文件。LIBNAME 是CODE39所在的LIB。

2。CODEP：條碼數(shù)據(jù)映像文件。字段定義如下：

1. 
   
2. Field    /Text                     /Length
   
3. -------------------------------------------
   
4. KEYLEN   /SYMBOL ID ACTUAL LENGTH  /  2 0
   
5. KEYFLD   /SYMBOL ID                / 10
   
6. HEIGHT   /NO. LINES LONG           /  2 0
   
7. WIDTH    /NO. CHARACTERS WIDE      /  2 0
   
8. PRTROWS  /NO. PRT PIN ROWS         /  2 0
   
9. PRTCOLS  /NO. PRT PIN COLUMNS      /  2 0
   
10. SYMTXT   /USER TEXT FOR SYMBOL     / 50
    
11. RESERVED /                         / 20
    
12. MATRIX   /BIT ENCODED SYMBOL DEF   /648
    

復(fù)制代碼

各字段取值舉例如下：
KEYLEN  KEYFLD  HEIGHT   WIDTH   PRTROWS  PRTCOLS  SYMTXT  
1        Y        3        2        24        18        Y               
1        Z        3        2        24        18        Z               
1        0        3        2        24        18        0               
1        1        3        2        24        18        1               
1        2        3        2        24        18        2               
1        3        3        2        24        18        3               
1        4        3        2        24        18        4

以上ADDAPW 、 MRGAPW、CRTAPW命令及 QPAPWPRT 文件如果在QSYS等LIB里面找不到，可以在QAPS下找到。

ADDAPW應(yīng)該和語(yǔ)言庫(kù)相關(guān)的，在QAPS下的那個(gè)使用的時(shí)候，顯示有問(wèn)題，參數(shù)名字和解釋都看不到。在QSYS2987，QSYS2962，QSYS2989等系統(tǒng)語(yǔ)言庫(kù)里面的才好用。

以上是我原來(lái)公司一位朋友提供的。他們用的是O表，不知道打印文件是否可行。[/code]

yj2yq

各位，剛從DDS REFERENCE中看到
對(duì)要用條碼打印的FIELD加BARCODE關(guān)鍵字，
建一個(gè)PRTF，試試吧，不過(guò)要打印機(jī)支持才行。

layyf

ADDAPW 我的400里沒(méi)有這個(gè)命令哦，能告訴我這個(gè)命令需要裝那些特許程序嗎？