Data Interfaces

Example: Transfer Program 3
© SAP AG
DO.
*E Read in data record
READ DATASET OLDFILE INTO OLDREC.
IF SY-SUBRC NE 0. EXIT. ENDIF.
*E Check: Transfer only certain data records
IF OLDREC-LIFNR(5) NE 'BC420'
OR OLDREC-LIFNR(6) EQ 'BC420B'
OR OLDREC-TELF1 EQ SPACE.
TRANSFER OLDREC TO ERRFILE.
*E TEXT-001:'Data not transferred for vendor:'
WRITE: / TEXT-001, OLDREC-LIFNR.
ELSE.
*E Convert: Other vendor numbers in SAP system
IF OLDREC-LIFNR+5(1) = 'A'.
OLDREC-LIFNR+5(1) = 'B'.
ENDIF.
*E Convert: Write out abbreviations in full
CASE OLDREC-ANRED.
WHEN 'Co'. BLFA1-ANRED = 'Company'.
WHEN OTHERS. BLFA1-ANRED = NODATA.
ENDCASE.
When a data record has been read, a check is made to see if the data record should in fact be
transferred. In general, extensive checks are run using a customer check table.
If the check proves negative, the data record is placed in a customer error file.
Some data is then converted. In general, a customer table is also used here.