Приостановление работы программы на время...

STS

Доброе время суток!

Написана программа редактирования техкарт в автоматическом режиме по заранее подготовленным данным. Написана на основе пакетного ввода транзакции CA02.
Проблема в следующем: может возникнуть такая ситуация, когда ТК кто-то правит "руками" и в это же аремя ее пытается исправить моя прога. В результате получает код ошибки типа "кто-то уже редактирует".

Внимание вопрос:
1. Кто-то сталкивался с такой проблемой? Если да, то как еЁ решил?
2. Возможно ли во время выполнения программы приостановить еЁ (например при наличии каких-то входных условий, типа ошибки "кто-то еЁ правит") на каком-либо шаге цикла на некоторое время?

Очень жду ваших ответов! Спасибо!

Арлекин

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

kizif

STS написал:

2. Возможно ли во время выполнения программы приостановить еЁ (например при наличии каких-то входных условий, типа ошибки "кто-то еЁ правит") на каком-либо шаге цикла на некоторое время?

Можно использовать TRY.
И отловив такой код ошибки организовать цикл со сверкой текущего времени sy-uzeit с заданным временем следующей попытки вызова.

STS

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

STS написал:

2. Возможно ли во время выполнения программы приостановить еЁ (например при наличии каких-то входных условий, типа ошибки "кто-то еЁ правит") на каком-либо шаге цикла на некоторое время?

Можно использовать TRY.
И отловив такой код ошибки организовать цикл со сверкой текущего времени sy-uzeit с заданным временем следующей попытки вызова.

А можно поподробней про "цикл со сверкой текущего времени sy-uzeit с заданным временем"? Как его организовать?

Дело в том, что программа должна работать автоматически, без вмешательства пользователя. Как вызвать автоматически ещЁ раз эту программу?

vvvictor

STS написал:

Дело в том, что программа должна работать автоматически, без вмешательства пользователя. Как вызвать автоматически ещЁ раз эту программу?

Code:

form createjob using jobname type zjbnam pdate like sy-datum
                     ptime like sy-uzeit progname.
 data: calling_abap like sy-repid, jobcount like tbtcjob-jobcount.
 refresh global_step_tbl.
 clear   global_step_tbl.
 clear   global_job.

 call 'AB_GET_CALLER' id 'PROGRAM' field calling_abap.
 global_job-jobname   = jobname.
 global_job-sdlstrtdt = pdate.
 global_job-sdlstrttm = ptime.
 global_job-jobclass = 'B'.
 global_job-newflag   = 'O'.
 global_step_tbl-program = 'RSBTCPT3'.
 global_step_tbl-typ     = 'A'.
 global_step_tbl-status  = 'P'.
 global_step_tbl-authcknam = sy-uname.
 append global_step_tbl.
 call function 'BP_JOB_CREATE'
   exporting job_cr_dialog       = 'N'
             job_cr_head_inp     = global_job
   importing job_cr_head_out     = global_job
             job_cr_stdt_out     = global_start_date
      tables job_cr_steplist     = global_step_tbl
  exceptions invalid_job_data    =  1
             others              = 99.
 case sy-subrc.
  when 0.       jobcount = global_job-jobcount.
  when 1.       message e200(zvvvmsg).
  when others.  message e201(zvvvmsg).
 endcase.
 data: lstnum like tbtcjob-stepcount.
 call function 'JOB_SUBMIT'
   exporting authcknam               = sy-uname
             jobcount                = jobcount
             jobname                 = jobname
             language                = sy-langu
             report                  = progname
   importing step_number             = lstnum
  exceptions bad_priparams           = 1
             bad_xpgflags            = 2
             invalid_jobdata         = 3
             jobname_missing         = 4
             job_notex               = 5
             job_submit_failed       = 6
             lock_failed             = 7
             program_missing         = 8
             prog_abap_and_extpg_set = 9
             others                  = 10.
 if sy-subrc ne 0. message e202(zvvvmsg). endif.
 data: exechost like sy-host, exeservr like btctgthtbl-btcsystem,
       joblos like btch0000-char1.
 exechost = sy-host.
 concatenate sy-host sy-sysid '11' into exeservr separated by '_'.
 call function 'JOB_CLOSE'
   exporting jobcount             = jobcount
             jobname              = jobname
             strtimmed            = 'X'
             targetsystem         = exechost
*             targetserver         = exeservr
   importing job_was_released     = joblos
  exceptions cant_start_immediate = 1
             invalid_startdate    = 2
             jobname_missing      = 3
             job_close_failed     = 4
             job_nosteps          = 5
             job_notex            = 6
             lock_failed          = 7
             others               = 8.
* if sy-subrc ne 0. message e203(zvvvmsg). endif.
endform.

Monarch

STS написал:

Доброе время суток!
Внимание вопрос:
1. Кто-то сталкивался с такой проблемой? Если да, то как еЁ решил?
2. Возможно ли во время выполнения программы приостановить еЁ (например при наличии каких-то входных условий, типа ошибки "кто-то еЁ правит") на каком-либо шаге цикла на некоторое время?

1. Наверняка для этой цели есть подходящие объекты блокирования
2. ФМ 'ENQUE_SLEEP'

STS

to vvvictor:

vvvictor написал:

STS написал:

Дело в том, что программа должна работать автоматически, без вмешательства пользователя. Как вызвать автоматически ещЁ раз эту программу?

Code:

form createjob using jobname type zjbnam pdate like sy-datum
                     ptime like sy-uzeit progname.
 data: calling_abap like sy-repid, jobcount like tbtcjob-jobcount.
 refresh global_step_tbl.
 clear   global_step_tbl.
 clear   global_job.

 call 'AB_GET_CALLER' id 'PROGRAM' field calling_abap.
 global_job-jobname   = jobname.
 global_job-sdlstrtdt = pdate.
 global_job-sdlstrttm = ptime.
 global_job-jobclass = 'B'.
 global_job-newflag   = 'O'.
 global_step_tbl-program = 'RSBTCPT3'.
 global_step_tbl-typ     = 'A'.
 global_step_tbl-status  = 'P'.
 global_step_tbl-authcknam = sy-uname.
 append global_step_tbl.
 call function 'BP_JOB_CREATE'
   exporting job_cr_dialog       = 'N'
             job_cr_head_inp     = global_job
   importing job_cr_head_out     = global_job
             job_cr_stdt_out     = global_start_date
      tables job_cr_steplist     = global_step_tbl
  exceptions invalid_job_data    =  1
             others              = 99.
 case sy-subrc.
  when 0.       jobcount = global_job-jobcount.
  when 1.       message e200(zvvvmsg).
  when others.  message e201(zvvvmsg).
 endcase.
 data: lstnum like tbtcjob-stepcount.
 call function 'JOB_SUBMIT'
   exporting authcknam               = sy-uname
             jobcount                = jobcount
             jobname                 = jobname
             language                = sy-langu
             report                  = progname
   importing step_number             = lstnum
  exceptions bad_priparams           = 1
             bad_xpgflags            = 2
             invalid_jobdata         = 3
             jobname_missing         = 4
             job_notex               = 5
             job_submit_failed       = 6
             lock_failed             = 7
             program_missing         = 8
             prog_abap_and_extpg_set = 9
             others                  = 10.
 if sy-subrc ne 0. message e202(zvvvmsg). endif.
 data: exechost like sy-host, exeservr like btctgthtbl-btcsystem,
       joblos like btch0000-char1.
 exechost = sy-host.
 concatenate sy-host sy-sysid '11' into exeservr separated by '_'.
 call function 'JOB_CLOSE'
   exporting jobcount             = jobcount
             jobname              = jobname
             strtimmed            = 'X'
             targetsystem         = exechost
*             targetserver         = exeservr
   importing job_was_released     = joblos
  exceptions cant_start_immediate = 1
             invalid_startdate    = 2
             jobname_missing      = 3
             job_close_failed     = 4
             job_nosteps          = 5
             job_notex            = 6
             lock_failed          = 7
             others               = 8.
* if sy-subrc ne 0. message e203(zvvvmsg). endif.
endform.

А почему вместо одного шага создается 2? Т.е. программа выполняется 2 раза?

vvvictor

STS написал:

to vvvictor:

А почему вместо одного шага создается 2? Т.е. программа выполняется 2 раза?

Почему два ?
Нормальный цикл create-submit-close........

Egal

STS написал:

Доброе время суток!

Написана программа редактирования техкарт в автоматическом режиме по заранее подготовленным данным. Написана на основе пакетного ввода транзакции CA02.
Проблема в следующем: может возникнуть такая ситуация, когда ТК кто-то правит "руками" и в это же аремя ее пытается исправить моя прога. В результате получает код ошибки типа "кто-то уже редактирует".

Внимание вопрос:
1. Кто-то сталкивался с такой проблемой? Если да, то как еЁ решил?
2. Возможно ли во время выполнения программы приостановить еЁ (например при наличии каких-то входных условий, типа ошибки "кто-то еЁ правит") на каком-либо шаге цикла на некоторое время?

Очень жду ваших ответов! Спасибо!

а просто блокировать СА02 для пользователей и сказать чтобы покурили-чай-попили не подойдёт? Процесс вроде серьёзный - что потом 100 раз запускать пакетник изза того, что ктото ТК редактировал?

Skif

STS написал:

Доброе время суток!
Написана программа редактирования техкарт в автоматическом режиме по заранее подготовленным данным.

Может подумать и отказаться от попыток решать все организационные проблемы техническим путём? Некоторые такие решения могут быть серъёзно деструктивны для функционирования системы.

p.s. мухи отдельно, котлеты - ...соответственно..

vvvictor

Skif написал:

p.s. мухи отдельно, котлеты - ...соответственно..

Не хватает только ссылки на топик про эксплойт :lol:

Если-бы все хорошо решалось организационными проблемами - не родилась бы та программа про которую мы обмолвились в том топике.... :lol:

Кстати этот фрагмент тоже из нее

Skif

vvvictor написал:

Skif написал:

p.s. мухи отдельно, котлеты - ...соответственно..

Не хватает только ссылки на топик про эксплойт :lol:

Если-бы все хорошо решалось организационными проблемами - не родилась бы та программа про которую мы обмолвились в том топике.... :lol:

Кстати этот фрагмент тоже из нее

то крайняя (можно сказать - высшая) мера, когда для, как раз - недопущения нарушения технологического процесса.
Не про "всё", ес-но. Приоритет строгому планированию взаимодействия оргпроцессов (разработки, закачки & etc), а не "добрым делам" из раздела "а давайте..". - А - "низяяяя.."

p.s. 90/10 <> 10/90

vvvictor

Skif написал:

А - "низяяяя.."

p.s. 90/10 <> 10/90

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

Приостановление работы программы на время...

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