antelio
10/8/2019 - 7:21 PM

ZSENQOFF / ZSENQON

REPORT zbc_enq MESSAGE-ID mt.




PARAMETERS p_off RADIOBUTTON GROUP func DEFAULT 'X'.
PARAMETERS p_on RADIOBUTTON GROUP func.




IF p_off = 'X'.
  CALL 'C_ENQUEUE' ID 'OPCODE' FIELD 'F'.
  CALL 'C_WRITE_SYSLOG_ENTRY' ID 'TYP' FIELD 'C'
    ID 'KEY' FIELD 'GES'.
MESSAGE s900 WITH 'Enqueue mechanism switched off'.
ELSE.
CALL 'C_ENQUEUE' ID 'OPCODE' FIELD 'T'.
CALL 'C_WRITE_SYSLOG_ENTRY' ID 'TYP' FIELD 'C'
  ID 'KEY' FIELD 'GER'.
MESSAGE s900 WITH 'Enqueue mechanism switched on'. 
ENDIF.