25 lines
544 B
ABAP
25 lines
544 B
ABAP
.REPORT Q NO STANDARD PAGE HEADING LINE-SIZE 72
|
|
.DATA QQ(69) OCCURS 0
|
|
.DATA Q LIKE QQ WITH HEADER LINE
|
|
.APPEND 'SYNTAX-TRACE ON.INCLUDE' TO QQ
|
|
.APPEND SY-REPID TO QQ
|
|
.APPEND '.' TO QQ
|
|
.SYNTAX-CHECK FOR QQ MESSAGE Q LINE Q WORD Q TRACE-TABLE Q
|
|
.LOOP AT Q
|
|
.CHECK Q(1) = '#'
|
|
.Q = Q+5
|
|
.IF Q < Q OR SY-SAPRL > '5'
|
|
.SPLIT Q AT '' INTO Q Q
|
|
.ENDIF
|
|
.IF Q < Q OR SY-LINNO < 22
|
|
.CHECK Q CA 'Q.' OR Q+4 = 'F'
|
|
.ENDIF
|
|
.IF Q < Q OR SY-LINNO > 23
|
|
.CHECK Q CA '.'
|
|
.ENDIF
|
|
.CHECK Q(1) NA 'IT+' OR Q+1(1) = 'F'
|
|
.WRITE / '.' NO-GAP
|
|
.WRITE Q
|
|
.ENDLOOP
|
|
.WRITE / '.'
|
|
.
|