51: WorkForcedeltaType WorkForceTblType;
52:
53:
54:
55: TYPE setidType IS TABLE OF per_jobs.business_group_id%type INDEX BY BINARY_INTEGER;
56: TYPE jobcodeType IS TABLE OF per_jobs.job_id%type INDEX BY BINARY_INTEGER;
57: TYPE effdtType IS TABLE OF per_jobs.date_from%type INDEX BY BINARY_INTEGER;
58: TYPE effstatusType IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
59: TYPE descrType IS TABLE OF per_jobs.name%type INDEX BY BINARY_INTEGER;
52:
53:
54:
55: TYPE setidType IS TABLE OF per_jobs.business_group_id%type INDEX BY BINARY_INTEGER;
56: TYPE jobcodeType IS TABLE OF per_jobs.job_id%type INDEX BY BINARY_INTEGER;
57: TYPE effdtType IS TABLE OF per_jobs.date_from%type INDEX BY BINARY_INTEGER;
58: TYPE effstatusType IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
59: TYPE descrType IS TABLE OF per_jobs.name%type INDEX BY BINARY_INTEGER;
60: TYPE jobcode IS REF CURSOR;
53:
54:
55: TYPE setidType IS TABLE OF per_jobs.business_group_id%type INDEX BY BINARY_INTEGER;
56: TYPE jobcodeType IS TABLE OF per_jobs.job_id%type INDEX BY BINARY_INTEGER;
57: TYPE effdtType IS TABLE OF per_jobs.date_from%type INDEX BY BINARY_INTEGER;
58: TYPE effstatusType IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
59: TYPE descrType IS TABLE OF per_jobs.name%type INDEX BY BINARY_INTEGER;
60: TYPE jobcode IS REF CURSOR;
61:
55: TYPE setidType IS TABLE OF per_jobs.business_group_id%type INDEX BY BINARY_INTEGER;
56: TYPE jobcodeType IS TABLE OF per_jobs.job_id%type INDEX BY BINARY_INTEGER;
57: TYPE effdtType IS TABLE OF per_jobs.date_from%type INDEX BY BINARY_INTEGER;
58: TYPE effstatusType IS TABLE OF VARCHAR2(10) INDEX BY BINARY_INTEGER;
59: TYPE descrType IS TABLE OF per_jobs.name%type INDEX BY BINARY_INTEGER;
60: TYPE jobcode IS REF CURSOR;
61:
62: TYPE JobCodeTblType IS RECORD
63: (
666: JOB_ID JOBCODE,
667: DATE_FROM EFFDT,
668: DECODE(DATE_TO,NULL,'ACTIVE','INACTIVE') EFF_STATUS,
669: NAME DESCR
670: FROM PER_JOBS
671: WHERE last_update_date <= p_eff_date;
672:
673: LOOP
674: BEGIN