As it was mentioned early, transaction lock is specified by the TSTC-CINFO field. This field is 1 byte flag set. Code below demonstarates technique of flags decoding:
TABLES: tstc.
DATA: x01 TYPE x VALUE '01',
x02 TYPE x VALUE '02',
x20 TYPE x VALUE '20',
x80 TYPE x VALUE '80'.
SELECT * FROM tstc.
IF tstc-cinfo O x80.
" Report transaction
ENDIF.
IF tstc-cinfo O x01.
" Menu transaction.
ENDIF.
IF tstc-cinfo O x02.
" Parameter transaction
ENDIF.
IF tstc-cinfo O x20.
" Locked.
NEW-LINE.
WRITE: 'Locked:', tstc-tcode.
ENDIF.
ENDSELECT.
As it was mentioned early, transaction lock is specified by the TSTC-CINFO field. This field is 1 byte flag set. Code below demonstarates technique of flags decoding: