EBS : OPM : API to update Batch Step Qty

 

/* Formatted on 2021/05/27 20:12 (Formatter Plus v4.8.8) */

DECLARE

   x_batch_step_rec     gme_batch_steps%ROWTYPE;

   p_batch_step_rec     gme_batch_steps%ROWTYPE;

   p_validation_level   NUMBER                    DEFAULT 100;

   x_message_count      NUMBER;

   x_return_status      VARCHAR2 (240);

   x_message_list       VARCHAR2 (240);

BEGIN

   fnd_global.apps_initialize (1536, 23326, 553);

   p_batch_step_rec.batchstep_no := 11;

   p_batch_step_rec.oprn_id := 74087;

   p_batch_step_rec.actual_start_date := '01-MAY-21';

   p_batch_step_rec.actual_cmplt_date := '03-MAY-21';

--   p_batch_step_rec.BATCH_ID:=466340;

   p_batch_step_rec.batchstep_id := 334733;

   p_batch_step_rec.actual_step_qty := 3;

   gme_api_pub.update_batchstep_qty

                                   (p_api_version           => 1.0,

                                    p_validation_level      => p_validation_level,

                                    p_init_msg_list         => 'F',

                                    p_commit                => 'T',

                                    p_org_code              => 'KT',

                                    p_batch_no              => '20004203'

                                                                          --,P_ACTUAL_START_DATE='3-MAY-2021'

                                                                         -- ,p_add       =>'N'

   ,

                                    p_batch_step_rec        => p_batch_step_rec,

                                    x_batch_step_rec        => x_batch_step_rec,

                                    x_message_count         => x_message_count,

                                    x_message_list          => x_message_list,

                                    x_return_status         => x_return_status

                                   );

   COMMIT;

   DBMS_OUTPUT.put_line (   x_batch_step_rec.actual_cmplt_date

                         || ','

                         || x_batch_step_rec.actual_start_date

                        );

   DBMS_OUTPUT.put_line (   'x_return_status : '

                         || x_return_status

                         || ' x_message_list: '

                         || x_message_list

                        );

   IF x_message_list IS NULL

   THEN

      DBMS_OUTPUT.put_line (SQLERRM);

   END IF;

END;