REPORT zzm_down .
*table decleration
TABLES : tadir.
*data decleration
TYPES: codeline(255).
DATA: sourcecode TYPE STANDARD TABLE OF codeline WITH HEADER LINE.
DATA: prog(60) ,
codefile LIKE rlgrap-filename,
filename TYPE string,
func_tab TYPE TABLE OF rs38l_incl WITH HEADER LINE,
pname TYPE pname,
poolname TYPE tlibg-area,
fmcount(3) TYPE n ,
prgcount(3) TYPE n,
msg1(45).
*Internal table for prgram info
DATA: BEGIN OF pgminfo OCCURS 0,
pgmid TYPE tadir-pgmid,
object TYPE tadir-object,
obj_name TYPE tadir-obj_name,
devclass TYPE tadir-devclass,
END OF pgminfo.
*____________________________________________________________________
*Get Development class from User
PARAMETERS: pckg TYPE tadir-devclass.
*____________________________________________________________________
*Initialize variables
fmcount = '000'.
prgcount = '000'.
*____________________________________________________________________
*Proceed one by one
PERFORM cleardata.
PERFORM write_prgrms.
PERFORM cleardata.
PERFORM write_fms.
CONCATENATE prgcount ' Prgs Files & '
fmcount ' FM Files Written' INTO msg1.
MESSAGE s001(00) WITH msg1.
*____________________________________________________________________
*&------------------------------------------------------------------*
*& Form cleardata
*&------------------------------------------------------------------*
* text
*---------------------