REPORT ZVVRLPOP.
TABLES USR01.
SELECT-OPTIONS: S_USER  FOR USR01-BNAME,
                S_LANGU FOR USR01-LANGU.
PARAMETER:      P_NAME(12) DEFAULT 'Victor',
                P_CITY(12) DEFAULT 'Minsk'.
DATA: BEGIN OF INFOTAB OCCURS 0,
        FLAG,
        OLENGTH TYPE X,
        LINE LIKE RSVAR-INFOLINE,
      END OF INFOTAB.


*---- 1st ----
write / '1st: PRINT_SELECTIONS' color col_key.
CALL FUNCTION 'PRINT_SELECTIONS'
     EXPORTING
          MODE      = 1
          RNAME     = SY-CPROG
          RVARIANTE = SY-SLSET
     TABLES
          INFOTAB   = INFOTAB
     EXCEPTIONS
          OTHERS    = 1.
LOOP AT INFOTAB.
  WRITE: / '=>', INFOTAB-LINE.
ENDLOOP.




*---- 2nd ----
write / '2nd: FM_SELECTION_CRITERIA_PRINT' color col_key.
CALL FUNCTION 'FM_SELECTION_CRITERIA_PRINT'
     EXPORTING
          I_REPORT_NAME = SY-CPROG
     EXCEPTIONS
          OTHERS        = 1.

write / 'End of data.' color col_key.