REPORT z_barry_test NO STANDARD PAGE HEADING .
START-OF-SELECTION.
WRITE: / 'Time:', sy-uzeit USING EDIT MASK '__:__:__'.
SET CURSOR LINE 1.
CALL FUNCTION:
'CONTROL_INIT',
'CONTROL_SETFUNCTIONCODE' EXPORTING fcode = '=PICK',
'CONTROL_FLUSH'.
AT LINE-SELECTION.
READ LINE 1 OF CURRENT PAGE . "sy-lisel
IF sy-index EQ 7.
CLEAR sy-index.
ENDIF.
ADD 1 TO sy-index.
WRITE: sy-uzeit USING EDIT MASK '__:__:__' TO sy-lisel+6.
CASE sy-index.
WHEN 1. MODIFY CURRENT LINE LINE FORMAT COLOR 1.
WHEN 2. MODIFY CURRENT LINE LINE FORMAT COLOR 2.
WHEN 3. MODIFY CURRENT LINE LINE FORMAT COLOR 3.
WHEN 4. MODIFY CURRENT LINE LINE FORMAT COLOR 4.
WHEN 5. MODIFY CURRENT LINE LINE FORMAT COLOR 5.
WHEN 6. MODIFY CURRENT LINE LINE FORMAT COLOR 6.
WHEN 7. MODIFY CURRENT LINE LINE FORMAT COLOR 7.
ENDCASE.
WAIT UP TO 4 SECONDS.
CALL FUNCTION:
'CONTROL_INIT',
'CONTROL_SETFUNCTIONCODE' EXPORTING fcode = '=PICK',
'CONTROL_FLUSH'.
阅读(3739) | 评论(2) | 转发(0) |