ABAP peculiar code in GENERATE SUBROUTINE POOL

61 Views

Dear ABAP Gurus,

When I was searching for SMARTFORM upload/download I got one very good program by name ZQUALITY. However the code was bit strange to me as I could not able to understand, part of it goes something like this ( this is used under GENERATE SUBROUTINE POOL), would like to understand what exactly it does. Request all of you to help me regarding..this is really fentastic.

Regards

venkatesh

' LOOP AT T_&1.',

' L_NO = 0.',

' SELECT * FROM DD03L WHERE TABNAME = &1 ORDER BY POSITION .',

' IF DD03L-INTTYPE <> SPACE.',

' IF DD03L-INTTYPE = P. DD03L-INTLEN = 10. ENDIF.',

' CONCATENATE t_&1- DD03L-FIELDNAME INTO L_CHAR.',

' ASSIGN (L_CHAR) TO <FS_PAR>.',

' %_%A@-NAME = &1.',

' %_%A@-DATA+L_NO(DD03L-INTLEN) = <FS_PAR>.',

' L_NO = L_NO + DD03L-INTLEN.',

' ENDIF.',

' ENDSELECT.',

' APPEND %_%A@.',

' CLEAR %_%A@.',

' ENDLOOP.',