Как посмотреть исходный код функции зарплаты MJOBS ?

calm

Вот такой простой вопрос

Захожу в PE04, жму кнопу "Исходный текст", выбираю HRUCALC0, получаю какую-то хрень:

Code:

FORM dummy.                                                 "P30K041387
*----------------------------------------------------------------------*
* this routine should never be reached. It is part of indexed perform  *
* look at includes RPCOIP*0 and RPCASF*0.                              *
*----------------------------------------------------------------------*
*Fehler im indizierten Perform. Bitte Korrektur mit Hotline absprechen!'
   PERFORM log_dummy_err IN PROGRAM h99plog0 TABLES error_ptext.
   PERFORM errors TABLES error_ptext.
ENDFORM.                               "DUMMY

Как же все-таки быть?
Хочется разобраться с внутренними совместителями, исходного кода очень не хватает.

Jesus

а вы HRUCALCM попробуйте

calm

Была такая мысль.
Но дело в том, что в PE04 при выборе главной программы HRUCALCM отсутствует.

AlY

Это такая-же функция как и PGM. Т.е. типа директивы
Просто по исходнику HRUCALC0 запустите поиск подстроки MJOBS

А в PE04 обратите внимание, что стоит точка напротив функции DUMMY

calm

Цитата:

А в PE04 обратите внимание, что стоит точка напротив функции DUMMY

Почему DUMMY, а не FUMJOB понятно.
Совершенно не ясно, как эта MJOBS работает.
Функция IF MJ проверяет значение переключателя sw_multiple_jobs.
Но где он устанавливается? Просмотр журнала использования не помог

В схеме пишу

Code:

MJOBS
IF   MJ
   something. ' сюда не попадаем. почему?
ENDIF

Murzik

А у вас инфотип 121 инфотип ведется по человечку?

Murzik

И еще обратите внимание на комментарий в FORM init-mj.

Code:

  CHECK ( parmjobs EQ true ) AND ( fc-sw_multiple_jobs EQ true ).
  " Payroll driver is submitted by scheduler for multiple jobs
  " and payroll scheme contains multiple jobs function

Как посмотреть исходный код функции зарплаты MJOBS ?

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