Max Popenker (mpopenker) wrote,
Max Popenker
mpopenker

(мрачно) Object COBOL бля

REPORT demo_class_counter .

CLASS counter DEFINITION.
PUBLIC SECTION.
METHODS: set IMPORTING value(set_value) TYPE i,
increment,
get EXPORTING value(get_value) TYPE i.
PRIVATE SECTION.
DATA count TYPE i.
ENDCLASS.

CLASS counter IMPLEMENTATION.
METHOD set.
count = set_value.
ENDMETHOD.
METHOD increment.
ADD 1 TO count.
ENDMETHOD.
METHOD get.
get_value = count.
ENDMETHOD.
ENDCLASS.

DATA number TYPE i VALUE 5.
DATA cnt TYPE REF TO counter.

START-OF-SELECTION.

CREATE OBJECT cnt.

CALL METHOD cnt->set EXPORTING set_value = number.

DO 3 TIMES.
CALL METHOD cnt->increment.
ENDDO.

CALL METHOD cnt->get IMPORTING get_value = number.

WRITE number.
Subscribe

  • а интересный вариант

    переменник ПО104 от НПЗ. Причем прайс уже относительно гуманный для такого типа прицелов, меньше сорокета. Один вопрос - он встанет поверх целика…

  • автомат Зайцева без Калашникова

    После решения о серийном производстве АК в Ижевске Зайцев, в отличие от Калашникова, не захотел работать в Удмуртии и вернулся в Ковров, где…

  • Здесь должна быть цитата Лаврова

    если кратко, то помреж регулярно забивал на все нормы безопасности, главный оружейница имела примерно нисколько опыта работы, а из…

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 13 comments

  • а интересный вариант

    переменник ПО104 от НПЗ. Причем прайс уже относительно гуманный для такого типа прицелов, меньше сорокета. Один вопрос - он встанет поверх целика…

  • автомат Зайцева без Калашникова

    После решения о серийном производстве АК в Ижевске Зайцев, в отличие от Калашникова, не захотел работать в Удмуртии и вернулся в Ковров, где…

  • Здесь должна быть цитата Лаврова

    если кратко, то помреж регулярно забивал на все нормы безопасности, главный оружейница имела примерно нисколько опыта работы, а из…