ABAP CNP

*&---------------------------------------------------------------------*
*& Report  Z_PROIECT_GRIGORE_CNP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_PROIECT_GRIGORE_CNP.

Data x1 Type p DECIMALS 4.
Data x11 Type p DECIMALS 4.
Data x12 Type p DECIMALS 4.
Data delta Type p DECIMALS 4.
Data delta1 Type p DECIMALS 4.
Data sol Type p DECIMALS 4.

Parameters an type p.
Parameters luna type p.
Parameters ziua type p.


data: begin of itab occurs 0,

str type string,

end of itab.

itab-str = 'ALBA'. append itab.
itab-str = 'ARAD'. append itab.
itab-str = 'ARGES'. append itab.
itab-str = 'BACAU'. append itab.
itab-str = 'BIHOR'. append itab.
itab-str = 'BISTRITA-NASAUD'. append itab.
itab-str = 'BOTOSANI'. append itab.
itab-str = 'BRASOV'. append itab.
itab-str = 'BRAILA'. append itab.
itab-str = 'BUZAU'. append itab.
itab-str = 'CARAS-SEVERIN'. append itab.
itab-str = 'CLUJ'. append itab.
itab-str = 'CONSTANTA'. append itab.
itab-str = 'COVASNA'. append itab.
itab-str = 'DAMBOVITA'. append itab.
itab-str = 'DOLJ'. append itab.
itab-str = 'GALATI'. append itab.
itab-str = 'GORJ'. append itab.
itab-str = 'HARGHITA'. append itab.
itab-str = 'HUNEDOARA'. append itab.
itab-str = 'IALOMITA'. append itab.
itab-str = 'IASI'. append itab.
itab-str = 'ILFOV'. append itab.
itab-str = 'MARAMURES'. append itab.
itab-str = 'MEHEDINTI'. append itab.
itab-str = 'MURES'. append itab.
itab-str = 'NEAMT'. append itab.
itab-str = 'OLT'. append itab.
itab-str = 'PRAHOVA'. append itab.
itab-str = 'SATU MARE'. append itab.
itab-str = 'SALAJ'. append itab.
itab-str = 'SIBIU'. append itab.
itab-str = 'SUCEAVA'. append itab.
itab-str = 'TELEORMAN'. append itab.
itab-str = 'TIMIS'. append itab.
itab-str = 'TULCEA'. append itab.
itab-str = 'VASLUI'. append itab.
itab-str = 'VALCEA'. append itab.
itab-str = 'VRANCEA'. append itab.
itab-str = 'BUCURESTI'. append itab.
itab-str = 'BUCURESTI-S1'. append itab.
itab-str = 'BUCURESTI-S2'. append itab.
itab-str = 'BUCURESTI-S3'. append itab.
itab-str = 'BUCURESTI-S4'. append itab.
itab-str = 'BUCURESTI-S5'. append itab.
itab-str = 'BUCURESTI-S6'. append itab.
itab-str = 'CALARASI'. append itab.
itab-str = 'GIURGIU'. append itab.




DATA INTE TYPE I VALUE 1.

TYPE-POOLS: vrm.

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.


PARAMETERS: ps_parm(50) AS LISTBOX VISIBLE LENGTH 52.

AT SELECTION-SCREEN OUTPUT.

  name = 'PS_PARM'.


WHILE INTE < 53.
  read table itab index INTE.
  check sy-subrc = 0.
    value-key = INTE.

    value-text = itab-str.

    APPEND value TO list.
    INTE = INTE + 1.
ENDWHILE.


CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING id = name

values = list.

START-OF-SELECTION.

WRITE: / 'Parameter:', ps_parm.