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

76 Technical Note
Sample Programs
Sample program YHP_POFORM (Example 3)
LOOP AT potab.
select single * from makt where matnr = potab-matnr.
potab-maktx = makt-maktx.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = 'ITEM'
WINDOW = 'MAIN'
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
OTHERS = 9.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endloop.
CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT = RESULT
TABLES
OTFDATA = OTFDATA
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC NE 0.
MESSAGE A634(SO) WITH 'CLOSE_FORM' SY-SUBRC.
ENDIF.
* Commit work
COMMIT WORK.
WRITE: /'Document successfully into the transmission queues posed.'.
WRITE: / 'If for kind of communication FAX or INTERNET a'.
write: ' transmission process is not '.
WRITE: / 'regularly taken into account,'.
write: 'please transmission process in'.
WRITE: / 'SAPconnect (TA SCOT) by hand start'.
ENDLOOP.