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

18 Technical Note
Sample Programs
Sample Program YRVADOR01 (Example 1)
FORM ENTRY USING RETURN_CODE US_SCREEN.
CLEAR RETCODE.
XSCREEN = US_SCREEN.
PERFORM PROCESSING.
IF RETCODE NE 0.
RETURN_CODE = 1.
ELSE.
RETURN_CODE = 0.
ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM PROCESSING *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM PROCESSING.
PERFORM GET_DATA.
CHECK RETCODE = 0.
PERFORM FORM_OPEN USING XSCREEN VBDKA-LAND1.
CHECK RETCODE = 0.
* PERFORM FORM_TITLE_PRINT.
CHECK RETCODE = 0.
PERFORM VALIDITY_PRINT.
CHECK RETCODE = 0.
PERFORM HEADER_DATA_PRINT.
CHECK RETCODE = 0.
PERFORM HEADER_SERV_PRINT.
CHECK RETCODE = 0.
PERFORM HEADER_NOTICE_PRINT.
CHECK RETCODE = 0.
PERFORM HEADER_INTER_PRINT.
CHECK RETCODE = 0.
PERFORM HEADER_TEXT_PRINT.
CHECK RETCODE = 0.
PERFORM ITEM_PRINT.
CHECK RETCODE = 0.
PERFORM END_PRINT.
CHECK RETCODE = 0.
PERFORM FORM_CLOSE.
CHECK RETCODE = 0.
ENDFORM.
***********************************************************************
* SUBROUTINES *
***********************************************************************
*---------------------------------------------------------------------*
* FORM ALTERNATIVE_ITEM *
*---------------------------------------------------------------------*