2016-01-08 54 views

回答

0

我的最終目標是取一個數字,如數量; 12.43,轉換至:補齊剩下的零001243.

  • 6個字符長
  • 沒有特殊字符(小數點或千位分隔符)

最後,我只好先定義一個字段並做初始數字格式化:

/:DEFINE &myfield& = &qtyfield(.2CT)& 

以上

  • 設置
  • 移除數千分離器(T)

然後我調用我們的打印例程中的一個函數,以2個小數點(0.2)

  • 空間compreession(C)的數量做特殊字符剝離這樣:

    /:PERFORM get_unformatted_value IN PROGRAM zbc_rle_ean128_label 
    /:USING &myfield& 
    /:CHANGING &myfield& 
    /:ENDPERFORM 
    

    然後,我可以做最後的輸出,例如:

    / &myfield(K6RF0)& 
    

    其中:

    • 忽略任何轉換(K)
    • 集輸出長度爲6個和右對齊它(6R)
    • 和左墊用零(F0)

    這似乎適用於我。希望這可以幫助別人!