Same EMP NUM in multiple cursors

Question

My plsql program is designed in such way that there are multiple cursors & each cursor needs input as EMPLOYEE NUMBER.
This EMPLOYEE NUMBER should be same across all the cursors.
Code is as below.
Any kind of help here is appreciated. Thank you in advance.
-- AGTSP
SET SERVEROUTPUT ON
alter session set nls_date_format='YYYY-MM-DD';
DECLARE
    MY_FILE_DIR varchar2(40) := '/usr/tmp2';
    l_output        utl_file.file_type;
    v_file_handle varchar2(30) default 'Legacy_Job_Data.csv';
    buf varchar2(10230);
    v_ps_id varchar2(10);
    v_job_descr varchar2(40);
  v_belonging_name VARCHAR2(100);
  v_sg VARCHAR2(4);
  v_sg_jc VARCHAR2(6);
  v_EFFECTIVE_START_DATE DATE;
  SG VARCHAR2(10);
  v_count number;
-- CJL DATA COLLECTION STARTS
-- CURSOR STARTS
    CURSOR C_MAIN IS        
  select
                    EMP.EMPLOYEE_NUMBER AS EMPLOYEE_NUMBER
  , JOB.BELONGING_NAME
  , JOB.CHANGE_REASON_NAME
  , JOB.EFFECTIVE_START_DATE
  , JOB.EFFECTIVE_END_DATE
                from
                    apps.zshr_employee_v EMP
                    , apps.ZSHR_ASSIGNMENT_V JOB
                where
                    EMP.EMPLOYEE_NUMBER = JOB.EMPLOYEE_NUMBER
                and TO_CHAR( EMP.EFFECTIVE_END_DATE , 'YYYY-MM-DD')='4712-12-31'                and JOB.QUALIFICATION_CODE <>'0151'
  ORDER BY EFFECTIVE_START_DATE DESC
CURSOR C_SCM IS        
  SELECT
                    EMP.EMPLOYEE_NUMBER AS EMPLOYEE_NUMBER
  , JOB.BELONGING_NAME
  , JOB.CHANGE_REASON_NAME
  , JOB.EFFECTIVE_START_DATE
  , JOB.EFFECTIVE_END_DATE
                from
                    apps.zshr_employee_v EMP
                    , apps.ZSHR_ASSIGNMENT_V JOB
                where
                    EMP.EMPLOYEE_NUMBER = JOB.EMPLOYEE_NUMBER
               and TO_CHAR( EMP.EFFECTIVE_END_DATE , 'YYYY-MM-DD') ='4712-12-31' and TO_CHAR( JOB.EFFECTIVE_END_DATE , 'YYYY-MM-DD') <'2008-08-01'
  and TO_CHAR( JOB.EFFECTIVE_START_DATE , 'YYYY-MM-DD') >= '1987-07-01'
  and JOB.QUALIFICATION_CODE <>'0151'
  and rownum=1
  ORDER BY EFFECTIVE_START_DATE ASC
CURSOR C_CM IS        
  SELECT
                    EMP.EMPLOYEE_NUMBER AS EMPLOYEE_NUMBER
  , JOB.BELONGING_NAME
  , JOB.CHANGE_REASON_NAME
  , JOB.EFFECTIVE_START_DATE
  , JOB.EFFECTIVE_END_DATE
        from
                    apps.zshr_employee_v EMP
                    , apps.ZSHR_ASSIGNMENT_V JOB
                where
                    EMP.EMPLOYEE_NUMBER = JOB.EMPLOYEE_NUMBER
               and TO_CHAR( EMP.EFFECTIVE_END_DATE , 'YYYY-MM-DD') ='4712-12-31' and TO_CHAR( JOB.EFFECTIVE_START_DATE , 'YYYY-MM-DD') < '1987-07-01'
  and rownum =1
  ORDER BY EFFECTIVE_START_DATE ASC
-- MAIN BODY BEGINS
BEGIN
-- FILE INITIALIZATION
    l_output := utl_file.fopen(MY_FILE_DIR,v_file_handle, 'w', 32767);
-- WRITING THE FILE HEADER STARTS
    buf := 'EMPLID'
                || ',EMPL_RCD'
                || ',EFFDT'
                || ',EFFSEQ'
                || ',CX_EE_ID_NBR'
                || ',CX_SECT_NM'
                || ',LOCATION'
                || ',CX_WRK_LOC_DESCR'
                || ',JOBCODE'
                || ',JOB_DESCR'
                || ',GRADE'
                || ',COMPRATE '
                || ',CURRENCY_CODE'
                || ',COMP_FREQUENCY'
    utl_file.put_line(l_output,buf);
FOR C_EMP_rec in C_MAIN LOOP
-- CJL LEGACY JOB DATA COLLECTION
--PS ID EXTRACTION STARTS
  BEGIN
  select PS_ID INTO v_ps_id from apps.TB03569A where
        EBS_ID=C_EMP_rec.EMPLOYEE_NUMBER;
  EXCEPTION
  WHEN no_data_found THEN
  v_ps_id := 'NO DATA';
  END;
--PS ID EXTRACTION END
  IF  C_EMP_rec.EFFECTIVE_START_DATE >= '2008/8/1' THEN
    buf := v_ps_id                               /* EMPLID */
           || ',' || 0                             /* EMPL_RCD */
           || ',' || C_EMP_rec.EFFECTIVE_START_DATE         /* EFFDT*/
           || ',' || 0                             /* EFFSEQ*/
           || ',' || C_EMP_rec.EMPLOYEE_NUMBER             /* CX_EE_ID_NBR */
             || ',' || C_EMP_rec.BELONGING_NAME     /* CX_SECT_NM */
             || ',' || ''                 /* LOCATION */
           || ',' || 'CX_WRK_LOC_DESCR'               /* CX_WRK_LOC_DESCR */
             || ',' || C_EMP_rec.SG_JOB_CODE /* JOBCODE */
             || ',' || v_job_descr               /* JOB_DESCR */
             || ',' || C_EMP_rec.SG         /* GRADE */
           || ',' || ''       /* COMPRATE */
             || ',' || 'JPY'               /* CURRENCY CODE */
             || ',' || '' /* COMP FREQUENCY */
             || ',' || C_EMP_rec.EMP_SG_T_O_FLG           /* SG T Oth. Flag */
  utl_file.put_line(l_output,buf);
  END IF;
END LOOP;
FOR C_SCM_rec in C_SCM LOOP
--PS ID EXTRACTION STARTS
  BEGIN
  select PS_ID INTO v_ps_id from apps.TB03569A where
        EBS_ID=C_SCM_rec.EMPLOYEE_NUMBER;
  EXCEPTION
  WHEN no_data_found THEN
  v_ps_id := 'NO DATA';
  END;
--PS ID EXTRACTION END
buf := v_ps_id                               /* EMPLID */
           || ',' || 0                             /* EMPL_RCD */
           || ',' || C_SCM_rec.EFFECTIVE_START_DATE         /* EFFDT*/
           || ',' || 0                             /* EFFSEQ*/
           || ',' || C_SCM_rec.EMPLOYEE_NUMBER             /* CX_EE_ID_NBR */
             || ',' || C_SCM_rec.BELONGING_NAME     /* CX_SECT_NM */
             || ',' || ''                 /* LOCATION */
           || ',' || 'CX_WRK_LOC_DESCR'               /* CX_WRK_LOC_DESCR */
             || ',' || C_SCM_rec.SG_JOB_CODE /* JOBCODE */
             || ',' || 'v_job_descr'               /* JOB_DESCR */
             || ',' || C_SCM_rec.SG         /* GRADE */
           || ',' || ''       /* COMPRATE */
             || ',' || 'JPY'               /* CURRENCY CODE */
             || ',' || '' /* COMP FREQUENCY */
             || ',' || C_SCM_rec.EMP_SG_T_O_FLG           /* SG T Oth. Flag */
  utl_file.put_line(l_output,buf);
-- SCM DATA COLLECTION STARTS
END LOOP;
-- SCM DATA COLLECTION ENDS
FOR C_CM_rec in C_CM LOOP
--PS ID EXTRACTION STARTS
  BEGIN
  select PS_ID INTO v_ps_id from apps.TB03569A where
        EBS_ID=C_CM_rec.EMPLOYEE_NUMBER;
  EXCEPTION
  WHEN no_data_found THEN
  v_ps_id := 'NO DATA';
  END;
--PS ID EXTRACTION END
  BEGIN
  select count(*) INTO v_count from
  SELECT 
  distinct
  EMP.EMPLOYEE_NUMBER
  , JOB.ASSIGNMENT_NUMBER
  , JOB.ASSIGNMENT_ID
  from
  apps.zshr_employee_v EMP
  , apps.ZSHR_ASSIGNMENT_V JOB
  where
  EMP.EMPLOYEE_NUMBER=JOB.EMPLOYEE_NUMBER
  and EMP.EMPLOYEE_NUMBER=C_CM_rec.EMPLOYEE_NUMBER
  EXCEPTION
  WHEN no_data_found THEN
  v_count := 0;
  END;
  IF v_count > 1 THEN
  v_job_descr := 'MHI';
  ELSE
  v_job_descr := 'CM';
  END IF;
  buf := v_ps_id                           /* EMPLID */
           || ',' || 0                             /* EMPL_RCD */
           || ',' || C_CM_rec.EFFECTIVE_START_DATE         /* EFFDT*/
           || ',' || 0                             /* EFFSEQ*/
           || ',' || C_CM_rec.EMPLOYEE_NUMBER             /* CX_EE_ID_NBR */
             || ',' || C_CM_rec.BELONGING_NAME     /* CX_SECT_NM */
             || ',' || ''                 /* LOCATION */
           || ',' || 'CX_WRK_LOC_DESCR'               /* CX_WRK_LOC_DESCR */
             || ',' || C_CM_rec.SG_JOB_CODE /* JOBCODE */
             || ',' || v_job_descr               /* JOB_DESCR */
             || ',' || C_CM_rec.SG         /* GRADE */
           || ',' || ''       /* COMPRATE */
             || ',' || 'JPY'               /* CURRENCY CODE */
             || ',' || '' /* COMP FREQUENCY */
             || ',' || C_CM_rec.EMP_SG_T_O_FLG           /* SG T Oth. Flag */
  utl_file.put_line(l_output,buf);
-- SCM DATA COLLECTION STARTS
END LOOP;
    utl_file.fclose(l_output);
END;

Answer 1

Well, I'm not sure what you're issue is as you haven't told us.
Typically cursors within cursors or multiple cursors are a bad idea, and you should look to try and combine SQL statements into one statement where possible.
I do however, notice that you've specifying an operating system path for your directory (/usr/tmp2).  You should not use o/s paths with Oracle, you should use Oracle directory objects e.g.
The UTL_FILE_DIR parameter has been deprecated by oracle in favour of direcory objects because of it's security problems.
The correct thing to do is to create a directory object e.g.:
CREATE OR REPLACE DIRECTORY mydir AS 'c:\myfiles';
Note: This does not create the directory on the file system. You have to do that yourself and ensure that oracle has permission to read/write to that file system directory.
Then, grant permission to the users who require access e.g....
GRANT READ,WRITE ON DIRECTORY mydir TO myuser;
Then use that directory object inside your FOPEN statement e.g.
fh := UTL_FILE.FOPEN('MYDIR', 'myfile.txt', 'r');
Note: You MUST specify the directory object name in quotes and in UPPER case for this to work as it is a string that is referring to a database object name which will have been stored in uppercase by default.