Autor Tema: Programa para saber qué programas Z no han sido utilizados recientemente??  (Leído 12631 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado oscar8133

  • Novato
  • *
  • Mensajes: 3
    • Ver Perfil
Hola a todos los abaperos... actualmente me estan solicitando un reporte donde muestre los programas que no han sido utilizados ultimamente a partir de alguna fecha en especial.

Alguién podría apoyarme?... tendrán por ahí algún código que me pueda ayudar?...

Gracias!

Desconectado Enrique.Borroni

  • Moderador_
  • Usuario Completo
  • *****
  • Mensajes: 89
    • Ver Perfil
Re: Programa para saber qué programas Z no han sido utilizados recientemente??
« Respuesta #1 en: 06 de Julio de 2008, 04:39:29 am »
Oscar,
  Hace un tiempo encontre este codigo en la red...Ojala te ayude en algo.

  Saludos.

REPORT  zestados
      NO STANDARD PAGE HEADING
      MESSAGE-ID s1
      LINE-COUNT 065
      LINE-SIZE 1000.
   
*------TABLAS/ESTRUCTURAS----------------------------------------------*
TABLES: STATS_CUML ,"ERGEBNISSTRUKTUR EINZELSATZ
        STA1 ,"STATISTIKANZEIGE SUMMENSATZ
        STA2 ,"STATISTIKANZEIGE EINZELSATZ
        STATL ,"SELECTION DATA SINGLE RECORD
*       statr,                         "Rohdaten Statistikeinzelsatz
        [[STATB,"ROHDA]] TEN TAB.STATISTIKEINZELSATZ
        tstct,"Text für Transaktionen
        d020t,"Text für Screens
        tadir,"Objekttabelle für Textbeschaf.
        tdevct,"Text für Entw.klassen
        trclt,"Text für Reportklassen
        trdir,"Reportinformationen
        eudb,"Enthält Text der Funktionskeys
        moni,"Performance Datenbank MONI
        moni_v01,"Streichview zu MONI
*       pfnorm,
        sapwlpfnrm."Version 2: Normal statistic rec.
   
INCLUDE RSSTATSU.
INCLUDE RSSTATDA.
INCLUDE RSSTATD2.
INCLUDE RSSTATX2.
INCLUDE RSSTATCS.
INCLUDE RSSTATMO.
   
*------TABLAS INTERNAS-------------------------------------------------*
data: begin of i_Datos occurs 1000,
        account    like stats-account,
        date       like stats-date,
        endti      like stats-endti,
        tcode      like stats-tcode,
        terminalid like stats-terminalid,
        report     like stats-report,
        jobname    like stats-jobname,
        jobstep    like stats-jobstep,
        tabload    like stats-tabload,
        dynpronr   like stats-dynpronr,
      end of i_datos.
   
data: begin of i_aux occurs 1000,
        account    like stats-account,
        report     like stats-report,
        tcode      like stats-tcode,
        date       like stats-date,
        endti      like stats-endti,
        terminalid like stats-terminalid,
        jobname    like stats-jobname,
      end of i_aux.
*------VARIABLES-------------------------------------------------------*
   
   
   
   
*------PARAMETER/SELECT-OPTIONS EN PANTALLA----------------------------*
SELECTION-SCREEN BEGIN OF BLOCK blk_par WITH FRAME.
PARAMETERS:      ruser      LIKE sapwlpfnrm-account,"User
                 rtcode     LIKE sapwlpfnrm-tcode,"Tcode
                 rprogram   LIKE sapwlpfnrm-report,"Report
                 tasktype,"Tasktyp
                 rscreen    LIKE sapwlpfnrm-dynpronr,"Dynpro
                rwpid(2)."Work Process
SELECTION-SCREEN ULINE.
PARAMETERS:      rrspti        LIKE sapwlpfidx-max_respti,"Resp. time
                 rdbti         LIKE sapwlpfidx-max_dbti,"DB time
                 rcputi        LIKE sapwlpfidx-max_cputi,"CPU time
                 rkbyte        TYPE i,"Bytes trans
               rchg          TYPE i."Phys.Aenderg.
SELECTION-SCREEN ULINE.
PARAMETERS:      rstartti      LIKE sy-uzeit,"ab Uhrzeit
                 rday          LIKE sy-datum,"ab Tag
                 rendti        LIKE sy-uzeit,
                 rendday       LIKE sy-datum.
SELECTION-SCREEN ULINE.
PARAMETERS:      rpath         LIKE sapwlpstrc-filename,"Stat.Dateinam
                   rmaxcnt       TYPE i DEFAULT 200.
SELECTION-SCREEN END OF BLOCK blk_par.
********************************** ALV *********************************
TYPE-POOLS: slis.
   
DATA: alv_fieldtab TYPE slis_t_fieldcat_alv,
      alv_heading  TYPE slis_t_listheader,
      alv_layout   TYPE slis_layout_alv,
      alv_events   TYPE slis_t_event,
      alv_sort     TYPE slis_t_sortinfo_alv,
      alv_filter   TYPE slis_t_filter_alv,
      alv_repname  LIKE sy-repid,
      alv_f2code   LIKE sy-ucomm VALUE  '&ETA',
      alv_g_save(1) TYPE c,
      alv_g_exit(1) TYPE c.
DATA: alv_fieldcat TYPE slis_fieldcat_alv.
   
   
   
************************************************************************
*
*                  LOGICA DEL PROGRAMA
*
************************************************************************
   
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
'
  CALL 'C_SAPGPARAM' ID 'NAME'  FIELD 'stat/file'
                     ID 'VALUE' FIELD pfad.
  CALL 'C_GET_SYSTEM_NUMBER' ID 'SYSTEM' FIELD systemid.
  initflag = 'Y'.
  PERFORM transfer_selection_data."Selektionsdaten uebernehmen
  SET TITLEBAR '001'.
*  BI_FLAG      = ' '.                  "Keine BI-Selektion
  headlinesize = 4."Vier Kopfzeilen bei Hitlisten
*  STA2-SORTNAME = 'time'.              "Sortierkriterium anfangs
  savecucol    = 15."Cursorposition fuer Columnsort
  status       = 'SING'."Status for single record displ.
  indexappend  = 'N'."Indexaufbau noch nicht noetig
*
*-Hole Profilparameter stat/tabrec--------------------------------------
*
  CALL 'C_SAPGPARAM' ID 'NAME'  FIELD 'stat/tabrec'
                     ID 'VALUE' FIELD parvalue.
  IF sy-subrc > 0.
    tabrec = 0.
  ELSE.
    tabrec = parvalue.
  ENDIF.
   
*----------------------------------------------------------------------
* START-OF-SELECTION.
*----------------------------------------------------------------------*
START-OF-SELECTION.
'
'
  output = 'N'.
  steuer = 'DISP'."Standardanzeige bei Pickup
  PERFORM prepare_selection."Seletionsdatenen aufbereiten
  PERFORM prepare_fill_stats USING code."Übergabeparameter setzen
  PERFORM fill-stats USING 'F'."Laden interne Statistik-Tabelle
   
   
  loop at stats.
    clear i_aux.
    move-corresponding stats to i_aux.
    append i_aux.
  endloop.
  sort i_aux.
  data: l_time like stats-endti,
        l_secs type i,
        l_new,
        l_aux like i_aux.
  loop at i_aux.
    l_aux = i_aux.
    at new date.
      l_time = l_aux-endti.
      l_new  = 'X'.
    endat.
    if l_new = 'X'.
      clear l_new.
    else.
      l_secs = i_aux-endti - l_time.
      if l_secs < 60.
        l_time = i_aux-endti.
        continue.
      endif.
    endif.
    move-corresponding i_aux to i_datos.
    append i_datos.
    l_time = i_aux-endti.
  endloop.
  sort i_datos.
   
  PERFORM alv_write_output TABLES i_datos USING 'I_DATOS'.
   
*---------------------------------------------------------------------*
*       FORM TRANSFER_SELECTION_DATA                                  *
*---------------------------------------------------------------------*
*       Transfer der Selektionsdaten                                  *
*---------------------------------------------------------------------*
FORM transfer_selection_data.
  rmaxcnt = statl-smaxcnt.
  IF rmaxcnt <= 0.
    rmaxcnt = 500.
  ENDIF.
   
  rday = statl-sdat.
  IF rday IS INITIAL.
    rday = sy-datum.
    IF statl-stime < sy-uzeit.
      rstartti = statl-stime.
    ELSE.
      CLEAR rstartti.
    ENDIF.
  ELSE.
    rstartti = statl-stime.
  ENDIF.
   
  rendday = statl-senddat.
  IF rendday IS INITIAL.
    rendday = sy-datum.
    rendti  = sy-uzeit.
  ELSE.
    rendti = statl-sendtime.
  ENDIF.
   
  IF rday > sy-datum                             OR
     ( rday = sy-datum AND rstartti > sy-uzeit ).
    rday = sy-datum.
    CLEAR rstartti.
  ENDIF.
  IF rendday < rday                              OR
     ( rendday = rday AND rendti < rstartti ).
    rendday = rday.
    rendti = '235959'.
  ENDIF.
   
  ruser = statl-sbenu.
  IF ruser IS INITIAL.
    ruser = '*'.
  ENDIF.
   
  rtcode = statl-stcod.
  IF rtcode IS INITIAL.
    rtcode = '*'.
  ENDIF.
   
  rprogram = statl-sprogram.
  IF rprogram IS INITIAL.
    rprogram = '*'.
  ENDIF.
   
  tasktype = statl-stask.
  IF tasktype IS INITIAL.
    tasktype = '*'.
  ENDIF.
   
  rwpid = statl-swpid.
  IF rwpid IS INITIAL.
    rwpid = '*'.
  ENDIF.
   
  rrspti = statl-sresptime.
  rcputi = statl-scputime.
  rdbti  = statl-sdbtime.
  rchg   = statl-schg.
  rkbyte = statl-sbytes.
   
  rscreen = statl-sscreen.
  IF rscreen IS INITIAL.
    rscreen = '*'.
  ENDIF.
   
  rpath = statl-spath.
  IF rpath IS INITIAL OR rpath = '*'.
    rpath     = pfad.
    rsystemid = systemid.
  ELSE.
    rsystemid = statl-ssystemid.
    IF rsystemid IS INITIAL OR rsystemid = '*'.
      rsystemid = systemid.
    ENDIF.
  ENDIF.
   
  IF statl-sseltime1 <> 'X'.           "Terminal ID statt Account nehmen
    TRANSLATE ruser TO UPPER CASE."Accountname in Grossbuchstaben
  ENDIF.
ENDFORM.
'
*---------------------------------------------------------------------*
*       FORM RETRANS_SELECTION_DATA                                   *
*---------------------------------------------------------------------*
*       STATL mit Selektionsdaten fuellen                             *
*---------------------------------------------------------------------*
FORM retrans_selection_data.
  TRANSLATE ruser TO UPPER CASE.
  IF rwpid IS INITIAL OR rwpid(1) = '!'.
    rwpid = '*'.
  ELSEIF rwpid CO ' 0123456789'.
    sy-tfill = rwpid.
    WRITE sy-tfill TO rwpid USING EDIT MASK  'RR__'.
  ENDIF.
  statl-swpid = rwpid.
  IF rmaxcnt <= 0.
    rmaxcnt = 500.
  ENDIF.
  statl-smaxcnt = rmaxcnt.
  statl-sbenu = ruser.
  statl-stcod = rtcode.
  statl-sprogram = rprogram.
  statl-stask = tasktype.
  statl-sresptime = rrspti.
  statl-scputime = rcputi.
  statl-sdbtime = rdbti.
  statl-schg = rchg.
  statl-sbytes = rkbyte.
  statl-sdat = rday.
  statl-stime = rstartti.
  statl-senddat = rendday.
  statl-sendtime = rendti.
  IF rscreen IS INITIAL.
    rscreen = '*'.
  ELSEIF rscreen CO ' 0123456789'.
    sy-tfill = rscreen.
    WRITE sy-tfill TO rscreen USING EDIT MASK 'RR____'.
    TRANSLATE rscreen USING ' 0'.
  ENDIF.
  statl-sscreen = rscreen.
  statl-spath = rpath.
  statl-ssystemid = rsystemid.
ENDFORM.
'
*----------------------------------------------------------------------*
*                    Macro ADD_REC_TO_STATS
*----------------------------------------------------------------------*
*                 Add a record to the stats table                      *
*----------------------------------------------------------------------*
*  --> &1   statistic record                                           *
*  --> &2   record number                                              *
*  --> &2   record number                                              *
*  --> &3   program/report name                                        *
*  --> &4   entry ID                                                   *
*  --> &5   subrecord index table (sorted by the record number)        *
*----------------------------------------------------------------------*
DEFINE add_rec_to_stats.
  divide: &1-respti     by 1000,"B30K012402
          &1-cputi      by 1000,
          &1-queueti    by 1000,
          &1-rollinti   by 1000,
          &1-rolloutti  by 1000,
          &1-lockti     by 1000,
          &1-txxxti     by 1000,
          &1-readdirti  by 1000,
          &1-readseqti  by 1000,
          &1-insti      by 1000,
          &1-updti      by 1000,
          &1-delti      by 1000,
          &1-committi   by 1000,
          &1-generateti by 1000,
          &1-reploadti  by 1000,
          &1-cualoadti  by 1000,
          &1-dynploadti by 1000,
          &1-queti      by 1000,
          &1-ddicti     by 1000,
          &1-mcti       by 1000.
  move-corresponding &1 to stats.
  stats-origin = &2.
  stats-report = &3.
  if &4+64(1) = 'T'.
    stats-tcode = &4(40).
  endif.
  stats-endti      = &1-endtime.
  stats-date       = &1-enddate.
  stats-dbcalls    = stats-readdircnt + stats-readseqcnt +
                     stats-inscnt     + stats-updcnt     + stats-delcnt.
  stats-tablepoint = 0.
  if &2 > 0.
    read table &5 with key recordno = &2 binary search.
    if sy-subrc = 0 and &5-tab_b > 0.
      stats-tablepoint = 1.
    endif.
  endif.
  append stats.
END-OF-DEFINITION.
'
'
*-----------------------------------------------------------------------
* FORM FILL-STATS:   Fuellen der internen Tabelle STATS mit Records
* ----------------------------------------------------------------------
* --> DIRECTION  read direction F)orward or B)ackwards
*-----------------------------------------------------------------------
*
'
FORM fill-stats USING direction TYPE c.
  DATA  records_read          LIKE sapwlsfidx-recordno.
  DATA  records               LIKE sapwlsfidx-recordno.
  DATA  file_error            LIKE sapwlpstrc-file_error.
  DATA  user                  LIKE sapwlpfnrm-account.
  DATA  tcode                 LIKE sapwlpfnrm-tcode.
  DATA  entry_id              LIKE sapwluenti-entry_id.
  DATA  program               LIKE sapwlpfnrm-report.
  DATA  screen                LIKE sapwlpfnrm-dynpronr.
  DATA  tasktype              TYPE c.
  DATA  wpid(2)               TYPE c.
  DATA  hex_wpid              LIKE sapwlpstrc-wp_number.
  DATA  rspti                 TYPE p.
  DATA  cputi                 TYPE p.
  DATA  dbti                  TYPE p.
  DATA  kbyte                 TYPE p.
  DATA  chg                   TYPE p.
  DATA  v2_normal_start       TYPE i.
  DATA  v2_btc_step_start     TYPE i.
  DATA  exit_loop.
  DATA  stats_wa              LIKE stats.
  DATA  cutindex              TYPE i.
  DATA  while_counter         TYPE i                    VALUE '0'.
   
  STATICS no_buffer_flush.
   
  FREE: v2_normal_records,
        v2_btc_step_records,
        v2_table_records,
        v2_rfc_client_records,
        v2_rfc_server_records,
        v2_rfc_client_dest_records,
        v2_rfc_server_dest_records,
        v2_spool_print_records,
        v2_spool_activity_records,
        v2_rfc_time_int_records,
        norm_subrecord_index,
        stats.
   
  CLEAR index.
   
  IF rwpid CO ' 0123456789'.
    sy-tfill = rwpid."Conversion to type I
    hex_wpid = sy-tfill."Conversion to type X
  ELSE.
    hex_wpid = 'FFFF'.
  ENDIF.
   
*--- New version of SAPWL_STATREC_READ (_FILE) - June 1997 - DH
* - check read dirction
  IF direction <> 'B'.
    read_direction = 'X'.
  ELSE.
    read_direction = ' '.
  ENDIF.
* - check wether start_read_recordno is given
  IF start_read_recordno IS INITIAL.
    start_read_recordno = -1.
  ENDIF.
   
* - read all data from statistic file
  WHILE records_read < rmaxcnt AND
        exit_loop    IS INITIAL.
* - set counter to get first/last record read
    ADD 1 TO while_counter.
* - who many records to read are left?
    records = rmaxcnt - records_read.
* - get start position for now read records
    DESCRIBE: TABLE v2_normal_records   LINES v2_normal_start,
              TABLE v2_btc_step_records LINES v2_btc_step_start.
* - read from statistic file 'records' records
    CALL FUNCTION 'SAPWL_STATREC_READ_FILE'
        EXPORTING
             no_of_records               = records
*            READ_CLIENT                 =
             read_end_date               = rendday
             read_end_time               = rendti
*            READ_EXCLUDE_USERNAME       =
             read_continue_recordno      = start_read_recordno
             read_start_date             = rday
             read_start_time             = rstartti
             read_username               = ruser
             read_workprocess            = hex_wpid
             read_forward                = read_direction
             statistic_file              = rpath
             no_buffer_flush             = no_buffer_flush
        IMPORTING
             file_error                  = file_error
             records_read                = records
             eof_reached                 = eof_reached
             continue_recordno_forward   = continue_recordno_forward
             continue_recordno_backward  = continue_recordno_backward
*            PROBLEMS                    =
        TABLES
             v2_normal_records           = v2_normal_records
             v2_btc_step_records         = v2_btc_step_records
             v2_table_records            = v2_table_records
             v2_rfc_client_records       = v2_rfc_client_records
             v2_rfc_server_records       = v2_rfc_server_records
             v2_rfc_client_dest_records  = v2_rfc_client_dest_records
             v2_rfc_server_dest_records  = v2_rfc_server_dest_records
             v2_spool_print_records      = v2_spool_print_records
             v2_spool_activity_records   = v2_spool_activity_records
             v2_rfc_time_int_records     = v2_rfc_time_int_records
             norm_subrecord_index        = norm_subrecord_index
         EXCEPTIONS
              wrong_parameter_combination = 1
              OTHERS                      = 2.
* - records found?
    IF records = 0.
      EXIT.
    ENDIF.
* - get first / last record read
    IF while_counter = 1.
      IF direction = 'B'.
        save_continue_recordno_forw  = continue_recordno_forward.
      ELSE.
        save_continue_recordno_backw = continue_recordno_backward.
      ENDIF.
    ELSE.
      IF direction = 'B'.
        save_continue_recordno_backw = continue_recordno_backward.
      ELSE.
        save_continue_recordno_forw  = continue_recordno_forward.
      ENDIF.
    ENDIF.
* - don't flush the buffer anymore
    no_buffer_flush = 'X'.
* - sort subrecord index by recordno - no more necessary!?!
    SORT norm_subrecord_index BY recordno.
* - get / overwork a number of parameters in v2_normal_records
    ADD 1 TO v2_normal_start.
    LOOP AT v2_normal_records FROM v2_normal_start.
      CALL FUNCTION 'SAPWL_STATREC_GET_ENTRY_ID'
           EXPORTING
                v2_record             = v2_normal_records
           IMPORTING
                entry_id              = entry_id
                converted_report_name = program.
      tcode    = v2_normal_records-tcode.
      PERFORM tt_convert_number_to_letter
              USING v2_normal_records-tasktype tasktype.
      user     = v2_normal_records-account.
      screen   = v2_normal_records-dynpronr.
      sy-tfill = v2_normal_records-wpid.
      WRITE sy-tfill TO wpid USING EDIT MASK 'RR__'.
      rspti    = v2_normal_records-respti / 1000.
      cputi    = v2_normal_records-cputi  / 1000.
      dbti     = ( v2_normal_records-delti +
                   v2_normal_records-insti +
                   v2_normal_records-updti +
                   v2_normal_records-readseqti +
                   v2_normal_records-readdirti ) / 1000.
      kbyte    = ( v2_normal_records-ntabcnt +
                   v2_normal_records-quecnt +
                   v2_normal_records-rfccnt +
                   v2_normal_records-ddiccnt +
                   v2_normal_records-dynpscnt +
                   v2_normal_records-dynplcnt +
                   v2_normal_records-abapscnt +
                   v2_normal_records-abaplcnt +
                   v2_normal_records-cualcnt +
                   v2_normal_records-dsqlcnt ) / 1024.
      chg      = v2_normal_records-phyupdcnt +
                 v2_normal_records-phyinscnt +
                 v2_normal_records-phydelcnt.
* - don't put record into stats if selection criteria don't match
      CHECK user     CP ruser
        AND tcode    CP rtcode
        AND program  CP rprogram
        AND screen   CP rscreen
        AND ( v2_normal_records-tasktype = rtasktype
                                    OR rtasktype = '00' )
        AND wpid     CP rwpid
        AND rspti    >= rrspti
        AND cputi    >= rcputi
        AND dbti     >= rdbti
        AND kbyte    >= rkbyte
        AND chg      >= rchg.
      CLEAR stats.
      stats-cpicti = v2_normal_records-rfcti.
* - put normal records into stats
      add_rec_to_stats v2_normal_records
                       sy-tabix
                       program
                       entry_id
                       norm_subrecord_index.
    ENDLOOP.
* - get / overwork a number of parameters of batches
    ADD 1 TO v2_btc_step_start.
    LOOP AT v2_btc_step_records FROM v2_btc_step_start.
      PERFORM tt_convert_number_to_letter
              USING v2_btc_step_records-tasktype tasktype.
      CALL FUNCTION 'SAPWL_STATREC_GET_ENTRY_ID'
           EXPORTING
                v2_btc_record           = v2_btc_step_records
           IMPORTING
                entry_id                = entry_id
                converted_report_name   = program
           EXCEPTIONS
                wrong_statistic_version = 1
                OTHERS                  = 2.
      tcode       = space." v2_btc_step_records-tcode.
      user        = v2_btc_step_records-account.
      screen      = v2_btc_step_records-dynpronr.
      sy-tfill    = v2_btc_step_records-wpid.
      WRITE sy-tfill TO wpid USING EDIT MASK 'RR__'.
      rspti       = v2_btc_step_records-respti / 1000.
      cputi       = v2_btc_step_records-cputi  / 1000.
      dbti        = ( v2_btc_step_records-delti +
                     v2_btc_step_records-insti +
                     v2_btc_step_records-updti +
                     v2_btc_step_records-readseqti +
                     v2_btc_step_records-readdirti ) / 1000.
      kbyte        = ( v2_btc_step_records-ntabcnt +
                     v2_btc_step_records-quecnt +
                     v2_btc_step_records-rfccnt +
                     v2_btc_step_records-ddiccnt +
                     v2_btc_step_records-dynpscnt +
                     v2_btc_step_records-dynplcnt +
                     v2_btc_step_records-abapscnt +
                     v2_btc_step_records-abaplcnt +
                     v2_btc_step_records-cualcnt +
                     v2_btc_step_records-dsqlcnt ) / 1024.
      chg          = v2_btc_step_records-phyupdcnt +
                     v2_btc_step_records-phyinscnt +
                     v2_btc_step_records-phydelcnt.
* - don't out record into stats if selection criteria don't match
      CHECK user     CP ruser
        AND tcode    CP rtcode
        AND program  CP rprogram
        AND screen   CP rscreen
        AND wpid     CP rwpid
        AND rspti    >= rrspti
        AND cputi    >= rcputi
        AND dbti     >= rdbti
        AND kbyte    >= rkbyte
        AND chg      >= rchg
        AND ( v2_btc_step_records-tasktype = rtasktype
                                    OR rtasktype = '00' ).
      CLEAR stats.
      stats-cpicti = v2_btc_step_records-rfcti.
* - put batch record into stats
      add_rec_to_stats v2_btc_step_records
                           -1
                           program
                           entry_id
                           norm_subrecord_index.
    ENDLOOP.
* - beginning/end of statistic file reached? or read problems?
    IF eof_reached = 'X' OR NOT ( file_error IS INITIAL ) .
      EXIT.
    ENDIF.
* - get number of records in stat
    DESCRIBE TABLE stats LINES records_read.
* - check wether rmaxcnt was reached and set new start_read_recordno
    IF records_read < rmaxcnt.
      IF direction = 'B'.
        start_read_recordno = continue_recordno_backward.
      ELSE.
        start_read_recordno = continue_recordno_forward.
      ENDIF.
    ENDIF.
  ENDWHILE.
* - end of read data from file
* - Satznummer vom zuerst bzw. zuletzt gelesenen Satz wiederherstellen
  IF direction = 'B'.
    continue_recordno_forward = save_continue_recordno_forw.
  ELSE.
    continue_recordno_backward = save_continue_recordno_backw.
  ENDIF.
* - get start time and day if it was reset before
  IF rstartti = space AND rday = space.
    SORT stats BY date ASCENDING endti ASCENDING.
    READ TABLE stats INDEX 1.
    rday = stats-date.
    rstartti = stats-endti.
  ENDIF.
   
  rdate   = statl-sdat  = rday.
  seltime = statl-stime = rstartti.
   
* - get number of records in stat - nochmals nötig, falls EOF erreicht
  DESCRIBE TABLE stats LINES records_read.
  IF records_read = 0.
    statl-senddat  = rendday.
    statl-sendtime = rendti.
    IF file_error IS INITIAL.
      MESSAGE s006 WITH myname."rsystem.
*    No statistical record for $ found with given criteria
    ELSE.
      MESSAGE s076 WITH file_error.
*    Read problems with statistic file (OS error: &)
    ENDIF.
  ELSE.
* - get end time and day
    SORT stats BY date ASCENDING endti ASCENDING.
    READ TABLE stats INDEX records_read.
    rendday = statl-senddat  = stats-date.
    rendti  = statl-sendtime = stats-endti.
  ENDIF.
   
*  index = records_read.            "for write-disp
*  PERFORM write-disp.
ENDFORM."FILL-STATS
'
*&---------------------------------------------------------------------*
*&      Form  PREPARE_FILL_STATS
*&---------------------------------------------------------------------*
*       Übergabeparameter für Form Fill-Stats bzw. Funktionsbaustein
*       SAPWL_STATREC_READ_FILE setzen.
*----------------------------------------------------------------------*
*  -->  code      Bearbeitungsmodus (-> Leserichtung, Leseergebnis)
*  <--  start_read_recordno  Startsatz, falls 'Weiter-'lesen
*       rday, rstartti       ggf. Lesestartzeitpunkt
*       rendday, rendti      ggf. Leseendzeitpunkt
*----------------------------------------------------------------------*
FORM prepare_fill_stats USING value(fall).
'
  CASE fall.
    WHEN 'INIT' OR 'MINS' OR 'MINM' OR 'NEWR' OR 'NEWT'.
      start_read_recordno = '1-'.
    WHEN 'RECM' OR 'SIZE'.
      start_read_recordno = continue_recordno_backward.
      rday = space. rstartti = space.
      rendday = '99991231'. rendti = '235959'.
    WHEN 'RECN'.
      start_read_recordno = continue_recordno_forward.
      rday = space. rstartti = space.
      rendday = '99991231'. rendti = '235959'.
    WHEN OTHERS.
      start_read_recordno = '1-'.
  ENDCASE.
   
ENDFORM." PREPARE_FILL_STATS
'
*---------------------------------------------------------------------*
*       FORM PREPARE_SELECTION                                        *
*---------------------------------------------------------------------*
*       Aufbereitung der Selektionskriterien                          *
*---------------------------------------------------------------------*
FORM prepare_selection.
  DATA: savepath LIKE pfad.
*---Sonderfall bei Zeitslot: Terminalid statt Accountname
  IF statl-sseltime1 =  'X'.
    IF statl-sbenu = '_'.
      ruser = space.
    ENDIF.
  ELSE.
    TRANSLATE ruser TO UPPER CASE.
  ENDIF.
   
  IF statl-sbenu = '*TOTAL*'.
    statl-sbenu = '*'.
    ruser = '*'.
  ENDIF.
   
  IF statl-stcod = '*TOTAL*'.
    statl-stcod = '*'.
    rtcode = '*'.
  ENDIF.
   
  IF statl-sprogram = '*TOTAL*'.
    statl-sprogram = '*'.
    rprogram = '*'.
  ENDIF.
*
*-Eigener Server aber andere Instanz  ( andere SYSTEMID )
  IF statl-ssystemid BETWEEN '00' AND '99' AND
    statl-ssystemid <> systemid.
   
    newinstanceflag = 'X'."Nachbarinstanz wird behandelt
  ELSE.
    newinstanceflag = ' '."eigene Instanz
  ENDIF.
*
  pfad     = rpath."Pfad setzen
  IF pfad = space OR pfad = '*'."Default Pfad
    newinstanceflag = ' '.
    statl-ssystemid = '*'.
   PERFORM fill-pfad."Stat-Datei-Pfad, Systemid laden
   
  ENDIF.
   
  bi_flag = ' '.
  PERFORM tt_convert_letter_to_number USING tasktype rtasktype.
  IF tasktype = 'I'.
    bi_flag = 'X'.
  ENDIF.
*
  seltime = rstartti."Min.zeit bei Selektion festlegen
  PERFORM get-cpu-id."Server-Id laden
  rsystem    = cpuid."Grundparameter setzen
   
*-Server extern---------------------------------------------------------
  IF statl-ssystemid <> '**' AND statl-ssystemid <> '  ' AND
     statl-ssystemid <> ' *' AND statl-ssystemid <> '* ' AND
     statl-ssystemid <> '--' AND statl-ssystemid <> systemid.
    IF statl-ssystemid BETWEEN '00' AND '99'.
    ELSE.
      rsystem    = 'Extern'."bei externen Systemen
    ENDIF.
  ENDIF.
   
*--Pfadnamen verproben / Kann Index ueberhaupt benutzt, aufgebaut werden
  IF pfad <> space AND pfad <> '*'.    "Default Pfad
    savepath = pfad.
    PERFORM fill-pfad.
    IF pfad <> savepath                "Nicht Default Pfadname
      AND rsystem <> 'Extern'          "und keine Externen Daten
      AND newinstanceflag <> 'X'.      "und keine Nachbarinstanzdaten
      noindexflag = 'X'."Kein Indexaufbau gewuenscht !
    ENDIF.
    pfad = savepath.
  ENDIF.
*
*-Authority-Check bei Userfremden Daten---------------------------------
* IF ruser <> sy-uname.                "Fremde User anzeigen !
*   AUTHORITY-CHECK OBJECT 'S_TOOLS_EX'
*   ID 'AUTH' FIELD 'S_TOOLS_EX_A'.
*   IF sy-subrc <> 0.
*     noauthflag = 'X'.                "Nicht authorisiert
*     IF ruser <> '*'.                 "Alle sind erlaubt
*       statl-sbenu = sy-uname.        "oder nur der Benutzer selbs
*       statl-sseltime1 =  ' '.        "Terminalid nicht erlaubt
*       ruser = sy-uname.
*     ENDIF.
*     MESSAGE i090 WITH 'Monitortools'."B20K000662 QQI
*   ENDIF.
* ENDIF.
*
*-Pruefen Profileparameter rsdb/level bei eigenem Server----------------
  IF rsystem = sy-host.
    CALL 'C_SAPGPARAM' ID 'NAME'  FIELD 'stat/level'
                       ID 'VALUE' FIELD parvalue.
    IF sy-subrc > 0 OR parvalue = '0'.
      MESSAGE e097 WITH 'stat/level' parvalue.
      EXIT.
    ENDIF.
  ENDIF.
*
  rperiod    = 'DAY'."
  rdate      = rday."
ENDFORM.
'
*&---------------------------------------------------------------------*
*&      Form  BUILD_EVENTTAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EVENTS[]  text                                             *
*----------------------------------------------------------------------*
FORM alv_build_eventtab USING p_events TYPE slis_t_event.
  DATA: ls_event TYPE slis_alv_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = p_events.
  READ TABLE p_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_top_of_page TO ls_event-form.
    MODIFY p_events FROM ls_event INDEX sy-tabix.
  ENDIF.
   
*
  READ TABLE p_events WITH KEY name = slis_ev_pf_status_set
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_pf_status_set TO ls_event-form.
    MODIFY p_events FROM ls_event INDEX sy-tabix.
  ENDIF.
   
  READ TABLE p_events WITH KEY name = slis_ev_user_command
                           INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_user_command TO ls_event-form.
    MODIFY p_events FROM ls_event INDEX sy-tabix.
  ENDIF.
   
ENDFORM." BUILD_EVENTTAB
'
*&---------------------------------------------------------------------*
*&      Form  WRITE_OUTPUT
*&---------------------------------------------------------------------*
FORM alv_write_output TABLES pi_tabla
                      USING pe_tabla.
   
  ALV_REPNAME = SY-REPID.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            i_program_name     = alv_repname
            i_internal_tabname = pe_tabla
            i_inclname         = alv_repname
       CHANGING
            ct_fieldcat        = alv_fieldtab.
  IF sy-subrc <> 0.
    WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_FIELDCATALOG_MERGE'.
  ENDIF.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            i_callback_program = alv_repname
            i_structure_name   = pe_tabla
            is_layout          = alv_layout
            it_fieldcat        = alv_fieldtab
            i_default          = 'A'
            i_save             = alv_g_save
            it_events          = alv_events[]
            it_sort            = alv_sort
            it_filter          = alv_filter
       TABLES
            t_outtab           = pi_tabla.
  IF sy-subrc <> 0.
    WRITE: 'SY-SUBRC: ', sy-subrc, 'REUSE_ALV_LIST_DISPLAY'.
  ENDIF.
ENDFORM." WRITE_OUTPUT
Saludos.

Atte.,
Enrique Borroni

maito : enrique.borroni@abap.es

Desconectado oscar8133

  • Novato
  • *
  • Mensajes: 3
    • Ver Perfil
Re: Programa para saber qué programas Z no han sido utilizados recientemente??
« Respuesta #2 en: 07 de Julio de 2008, 03:56:07 pm »
Muchas gracias por tu apoyo Enrique.

Saludos!

Desconectado oscar8133

  • Novato
  • *
  • Mensajes: 3
    • Ver Perfil
Re: Programa para saber qué programas Z no han sido utilizados recientemente??
« Respuesta #3 en: 07 de Julio de 2008, 04:25:54 pm »
Hola Enrique,

Probé tu programa pero al ejecutarlo solamente se queda pensando la máquina y no termina... le voy a echar un vistazo... tu lo probaste?...

Saludos.