Printing Status in PO Document

Question

Dear expert,
How to give printing status "ORIGINAL" for the first print, "REPRINT 01" for secound print etc, in PO document if i have Z sapcript which assign in standard program (SAPFM06P) ?
Thanks before.
- ely -

Answer 1

Hi Anji...thanks for your replay, but i will clarify about my question before.
here the code that I used to give printing status :
FORM f_cetakan_ke TABLES in_tab STRUCTURE itcsy
                        out_tab STRUCTURE itcsy.
  DATA: ld_data LIKE zlog_print_po,
        ld_ebeln LIKE ekko-ebeln,
        ld_aedat LIKE ekko-aedat,
        ld_newdt LIKE sy-datum,
        ld_newtgl LIKE sy-datum, 
        ld_cetakan(11).
  DATA: ld_nast_sc LIKE nast.
  DATA: ld_nast LIKE nast.
  LOOP AT in_tab.
    CASE in_tab-name.
      WHEN 'EKKO-EBELN'.
        ld_ebeln = in_tab-value.
      WHEN 'EKKO-AEDAT'.
        CONCATENATE in_tab-value6(4) in_tab-value3(2) in_tab-value(2)
               INTO ld_aedat.
      WHEN 'NAST-KAPPL'.
        ld_nast_sc-kappl = in_tab-value.
      WHEN 'NAST-OBJKY'.
        ld_nast_sc-objky = in_tab-value.
      WHEN 'NAST-KSCHL'.
        ld_nast_sc-kschl = in_tab-value.
      WHEN 'NAST-ERDAT'.
        CONCATENATE in_tab-value6(4) in_tab-value3(2) in_tab-value(2)
               INTO ld_nast_sc-erdat.
      WHEN 'NAST-ERUHR'.
        ld_nast_sc-eruhr = in_tab-value.
    ENDCASE.
  ENDLOOP.
  SELECT SINGLE * FROM zlog_print_po INTO ld_data
      WHERE ebeln = ld_ebeln.
  IF sy-subrc = 0.
    ld_data-cetak = ld_data-cetak + 1.
    CONCATENATE 'Re-print' ld_data-cetak INTO ld_cetakan
               SEPARATED BY space.
  ELSE.
    ld_data-mandt = sy-mandt.
    ld_data-ebeln = ld_ebeln.
    ld_data-datum = sy-datum.
    ld_data-uzeit = sy-uzeit.
    ld_data-uname = sy-uname.
    ld_cetakan = 'Original'.
  ENDIF.
  IF ld_data-cetak GT 2 AND ( sy-ucomm NE 'PREVOUTPUT' AND
     sy-xcode NE '9ANZ' AND sy-xcode NE '9DPR' ).
    SELECT SINGLE * FROM nast INTO ld_nast
        WHERE kappl = ld_nast_sc-kappl
          AND objky = ld_nast_sc-objky
          AND kschl = ld_nast_sc-kschl
          AND erdat = ld_nast_sc-erdat
          AND eruhr = ld_nast_sc-eruhr.
    ld_nast-vstat = 2.
    MODIFY nast FROM ld_nast.
    MESSAGE e000 WITH 'Print PO form just allow 3 times.'.
  ENDIF.
IF sy-ucomm NE 'PREVOUTPUT' AND sy-xcode NE '9ANZ' AND
     sy-xcode NE '9DPR' .
    MODIFY zlog_print_po FROM ld_data.
  ENDIF.
  LOOP AT out_tab.
    CASE out_tab-name.
      WHEN 'D_CETAKAN'.
        out_tab-value = ld_cetakan.
    ENDCASE.
    MODIFY out_tab.
    CLEAR out_tab.
  ENDLOOP.
ENDFORM. 
and the problem occure when PO document which I printed more than one page where the program will count every page.
example :
there are 3 page of PO document will be printed for the first time, should be this document have status "ORIGINAL",
but with my program this document have an status "REPRINT 02" what wrong about my program ?
Note : I used standard program SAPFM06P and Z sapscript than this routin called from Z sapscript.
Thanks.
-ely-