Individual pdf file generation

Question

Hi all,
I want to genrate pdf file after execution of my report in such a way that I give it a parameter name cust_id = 9092 and occurance in second text box is 5...it means loop started from 9092 and create 9092,9093,9094,9095,9096 files in specific folder and stop.it is not necessary that cust_id is in sequence.
Following in my code:
DECLARE
     v_SAM_CUST_ID       NUMBER(22);
       --v_ACCT_CUST_ID     NUMBER(22);
     v_rid               NUMBER;
     --v_p_cust_id         NUMBER(22);
     v_start_from        number(10):= :START_FROM;
     v_to_next           number(10):= :to_next;
     v_trid          number;
CURSOR C1 IS  SELECT A.RID,SAM_CUST_ID      FROM (SELECT ROWNUM RID,SAM_CUST_ID
                              FROM SAM ,DE_ADDR
                              WHERE SAM.SAM_CUST_ID=DE_ADDR.DE_CUST_ID
                              AND SAM.SAM_CUST_ID >= 1
                              AND SAM.SAM_FREQUENCY IN ('DAILY','MONTHLY','Quarterly','Half yearly','Yearly')) A
                              WHERE A.RID <= 10;
BEGIN
     v_start_from      := :START_FROM;
     v_to_next     := :to_next;
     v_rid:=0;
     v_p_cust_id:=0;
     if :TEXT_BOX1='S' then
     message('Firing IF..');
       OPEN C1;
       LOOP
            FETCH C1 INTO v_trid,v_SAM_CUST_ID;
            EXIT WHEN C1%NOTFOUND;
            message('generating rport...');
            host('rwclient server=reptest report=c:\cust_print1.rdf p_1='||v_SAM_CUST_ID||' userid=wh1/wh1@dwh desformat=pdf destype=file desname=c:/temp/'||v_SAM_CUST_ID||'.pdf');
          END LOOP;
       CLOSE C1;     
          END LOOP;
  ELSE
message('ELSE.....');
  END IF;
  END; 
  Any help would be appriciated.

Answer 1

You are almost there ...
Assuming that SAM.SAM_CUST_ID holds the customer ids (9092...)
- change the cursor
- to accept the input parameter of "p_cust_id"
- modify the where clause selecting als customer_id >= p_cust_id
- implement an order by clause ORDER BY SAM.CUST_ID
- change the OPEN C1 statement to OPEN C1(p_cust_id);
- declare a counter variable v_records_fetched NUMBER := 0;
- EXIT WHEN C1%NOTFOUND OR v_records_fetched >= 5;
- after the EXIT WHEN statement insert row :
v_records_fetched := v_records_fetched +1;
Your code should look like this
DECLARE
     v_SAM_CUST_ID       NUMBER(22);
       --v_ACCT_CUST_ID     NUMBER(22);
     v_rid               NUMBER;
     v_p_cust_id         NUMBER(22);
     v_start_from        number(10):= :START_FROM;
     v_to_next           number(10):= :to_next;
     v_trid          number;
                v_records_fetched NUMBER := 0;
CURSOR C1(p_cust_id    NUMBER)
IS  SELECT A.RID,SAM_CUST_ID      FROM (SELECT ROWNUM RID,SAM_CUST_ID
                              FROM SAM ,DE_ADDR
                              WHERE SAM.SAM_CUST_ID=DE_ADDR.DE_CUST_ID
                              AND SAM.SAM_CUST_ID >= p_cust_id
                              AND SAM.SAM_FREQUENCY IN ('DAILY','MONTHLY','Quarterly','Half yearly','Yearly')) A
                              WHERE A.RID <= 10 ORDER BY SAM.CUST_ID;
BEGIN
     v_start_from      := :START_FROM;
     v_to_next     := :to_next;
     v_rid:=0;
     v_p_cust_id:=9092;
               v_records_fetched := 0;
     if :TEXT_BOX1='S' then
     message('Firing IF..');
       OPEN C1(v_p_cust_id);
       LOOP
            FETCH C1 INTO v_trid,v_SAM_CUST_ID;
            EXIT WHEN C1%NOTFOUND OR v_records_fetched >=5;
                                v_records_fetched := v_records_fetched +1;
            message('generating rport...');
            host('rwclient server=reptest report=c:\cust_print1.rdf p_1='||v_SAM_CUST_ID||' userid=wh1/wh1@dwh desformat=pdf destype=file desname=c:/temp/'||v_SAM_CUST_ID||'.pdf');
          END LOOP;
       CLOSE C1;     
          END LOOP;
  ELSE
message('ELSE.....');
  END IF;
  END; 
  Message was edited by:
user434854