HPOMSAP 6.1 Delivering documents to SAPconnect nodes in SAP R/3

38 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
MOVE CHARX TO US_GANF.
MOVE SPACE TO US_LANF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'CORRECTION_TEXT_K'
EXCEPTIONS
ELEMENT = 1
WINDOW = 2.
IF SY-SUBRC NE 0.
PERFORM PROTOCOL_UPDATE.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ITEM_ADDIS_PRINT
*&---------------------------------------------------------------------*
* Printout of item additionals
*----------------------------------------------------------------------*
FORM ITEM_ADDIS_PRINT.
LOOP AT TADDI_PRINT.
MOVE-CORRESPONDING TADDI_PRINT TO WTAD_ADDIS_IN_SO_PRINT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_ADDI_SO_INFO'
EXCEPTIONS
OTHERS = 1.
LOOP AT TADDI_PRINT-ADDI_SO_EXTRA_TEXT_INFO
INTO WTAD_BUYING_PRINT_EXTRA_TEXT.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM_ADDI_EXTRA_TEXT'
EXCEPTIONS
OTHERS = 1.
ENDLOOP.
ENDLOOP.
ENDFORM. " ITEM_ADDIS_PRINT
*---------------------------------------------------------------------*
* FORM ITEM_CHARACERISTICS_PRINT *
*---------------------------------------------------------------------*
* Printout of the item characteristics -> configuration *
*---------------------------------------------------------------------*
FORM ITEM_CHARACTERISTICS_PRINT.
LOOP AT TKOMCON.
CONF_OUT = TKOMCON.
IF SY-TABIX = 1.
CALL FUNCTION 'WRITE_FORM'
EXPORTING