Data Interfaces

IF SY-SUBRC = 0.
* Text-002 E: Transaction successfully processed
WRITE: TEXT-002.
ELSE.
* Text-003 E: Error in processing
WRITE: TEXT-003.
ENDIF.
MESSAGE ID SY-MSGID
ENDDO.
TYPE SY-MSGTY
NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* Text-004 D: End of CALL TRANSACTION
WRITE: / TEXT-004, SY-UZEIT.
* Close the fully accessed sequential dataset
END-OF-SELECTION.
CLOSE DATASET FILE.
*-----------------------------------------------------------------
*