помогите создать маленькую программу

mafikart

определена таблица с полями>20 и строками>20

вопрос:
как сделать чтобы из нечетных строк чистились четные поля, а в четных строках чистились нечетные поля.
и вывести все это на печать, рузультат образно говоря должен получиться в ввиде шахматной доски.

Пономарев Артем

Неужели мы дожили до лабораторных на ABAP?! (убегает в ужасе огородами) :mrgreen:

mafikart, программу за вас никто писать не будет. Задавайте конкретные вопросы. Что не получается, что уже сделали?

chumpa

даааа, кошмар, все болячки ИТ-образования скоро полезут.

Удав

Пономарев Артем написал:

программу за вас никто писать не будет.

О каком написании программы может идти речь, если у топикастера с обычной грамматикой проблемы? :gigi:

mafikart

Вопрос именнов в том, как сделать чтобы из нечетных строк чистились четные поля, а в четных строках чистились нечетные поля?

bossjohn

mafikart написал(а):

Вопрос именнов в том, как сделать чтобы из нечетных строк чистились четные поля, а в четных строках чистились нечетные поля?

какое отношение указанная задача имеет к абап?
вам бы какой-нибудь алгоритмический форум, если сами подумать не хотите

Paul_80

Остаток от деления на 2:

Code:

b = a MOD 2

Его проверять на ноль. Но, вообще, эта задача, действительно, требует правильного алгоритмизирования.

mafikart

а через CLEAR никак нельзя разве реализовать?

Пономарев Артем

mafikart, вы меня извините, конечно, но ваши вопросы говорят о следующем:
1. Вы не знакомы с базовым набором операторов ЯП ABAP.
2. Вы, скорее всего, не знакомы с другими языками программирования.
3. Вы не умеете строить алгоритм решения задачи по ее описанию.

В таком случае самый простой вариант - написать программу за вас и выложить листинг. Но это непродуктивно, т.к. вы ничему не научетесь.
Давайте начнем по порядку. Т.к. код искомой программы весьма небольшой, выложите листинг того, что вы уже сделали. И задайте вопросы в тех местах, где не понимаете куда двигаться дальше.

KREG64

В общих чертах как то так. Не проверял. Писал в блокноте. Могут быть ошибочки =)

[s]

Code:

DATA: num_col TYPE i Value 0,
          num_string TYPE i VALUE 0,
          ost1 TYPE i,
          ost2 TYPE i.
Fiels-symbols: <fs> Type Any.

LOOP AT gt_chess INTO gs_chess.
      num_string = sy-tabix.
      num_col = 0.
      DO 20 TIMES.
         num_col = num_col + 1.
         ASSIGN COMPONENT num_col OF STRUCTURE gs_chess TO <fs>.
         ost1 = num_string mod 2.
         ost2 = num_col mod 2.
         IF ( ost1 = 1 AND ost2 = 0) OR ( ost1 = 0 AND ost2 = 1 )
             CLEAR <fs>.
         ENDIF.
      ENDDO.
      MODIFY gt_chess FROM gs_chess INDEX num_string.
ENDLOOP.

[/s]

Пономарев Артем: Не надо приводить готовых решений. Пусть человек подумает сам. Это намного полезнее.

mafikart

_______________________________________

mafikart

Code:

REPORT  ZPREC.

DATA: num_col TYPE i Value 0,
          num_string TYPE i VALUE 0,
          ost1 TYPE i,
          ost2 TYPE i.
DATA:  ZHYP_SRCBS_1109_NEW TYPE STANDARD TABLE OF ZHYP_SRCBS_1109 WITH HEADER LINE

      ,ZHYP_SRCBS_1109_NEW2 LIKE LINE OF ZHYP_SRCBS_1109_NEW.
      
      SELECT * FROM ZHYP_SRCBS_1109 INTO ZHYP_SRCBS_1109_new.
NEW-LINE.
WRITE : ZHYP_SRCBS_1109_NEW-ENTITY
      , ZHYP_SRCBS_1109_NEW-FISCPER
      , ZHYP_SRCBS_1109_NEW-RECORD
      , ZHYP_SRCBS_1109_NEW-GL_ACCOUNT
      , ZHYP_SRCBS_1109_NEW-GL_ACCOUNTT
      , ZHYP_SRCBS_1109_NEW-DEBITOR
      , ZHYP_SRCBS_1109_NEW-DEBITORT
      , ZHYP_SRCBS_1109_NEW-CREDITOR
      , ZHYP_SRCBS_1109_NEW-CREDITORT
      , ZHYP_SRCBS_1109_NEW-SDATE
      .
ENDSELECT.

FielD-symbols: <fs> Type Any.

LOOP AT ZHYP_SRCBS_1109_new INTO ZHYP_SRCBS_1109_NEW2.
      num_string = sy-tabix.
      num_col = 0.
      DO 20 TIMES.
         num_col = num_col + 1.
         ASSIGN COMPONENT num_col OF STRUCTURE ZHYP_SRCBS_1109_NEW2 TO <fs>.

         ost1 = num_string mod 2.
         ost2 = num_col mod 2.

         IF ( ost1 = 1 AND ost2 = 0 ) OR ( ost1 = 0 AND ost2 = 1 ).
             CLEAR <fs>.
         ENDIF.
      ENDDO.
      MODIFY ZHYP_SRCBS_1109_NEW FROM ZHYP_SRCBS_1109_NEW2 INDEX num_string.
ENDLOOP.

но необходимая мне задача не выполняется!?

Jelena

mafikart написал(а):

но необходимая мне задача не выполняется!?

В код честно не вчитывалась, но с ходу:
1. Данные сначала выводятся (WRITE), а потом уже типа меняются.
2. B таблицу ZHYP_SRCBS_1109_NEW ничего не добавляется, так что весь мощный код (LOOP) просто не может сработать.

Попробуйте хотя бы в дебаггере программу запустить.

Правила форума

помогите создать маленькую программу

Кто сейчас на конференции