plsql package - PLS-00225 - subprogram or cursor out of scope - Stack Overflow

admin管理员组

文章数量:1310616

Hoping someone can help with this, I am trying to run this code but am getting the error message

Code as follows:

DECLARE
null_ VARCHAR2(32000) := NULL;
attr_ varchar2(2000) ;
p1_ VARCHAR2(32000) := NULL ;
p2_ VARCHAR2(32000) := NULL ;
p3_ VARCHAR2(32000) := NULL ;
objversion_ varchar2(200);
objid_ varchar2(200);

CURSOR get_recs IS
SELECT * FROM IC_LOAD_AFF_WTR1 WHERE ic_row_no=2;

BEGIN
 
-- Create work order
p3_ := 'CONTRACT'||chr(31)||'SMRT'||chr(30)||'ERR_DESCR'||chr(31)||TRUNC(SYSDATE)||chr(30)||'REPORTED_BY'||chr(31)||'IFSAPP'||chr(30)||
       'CONNECTION_TYPE'||chr(31)||'EQUIPMENT'||chr(30)||'MCH_CODE_CONTRACT'||chr(31)||'SMRT'||chr(30)||'MCH_CODE'||chr(31)||'METERS'||chr(30)||
       'ORG_CODE'||chr(31)||'SMRT'||chr(30)||'WORK_TYPE_ID'||chr(31)||'MAT'||chr(30)||'REG_DATE'||chr(31)||to_char(SYSDATE,'yyyy/mm/dd')||chr(30)||
       'EXCLUDE_FROM_SCHEDULING'||chr(31)||'FALSE'||chr(30)||'PROGRESS_TEMPLATE_ID'||chr(31)||''||chr(30)||'PM_GROUP_MERGE_DB'||chr(31)||
       'FALSE'||chr(30)||'WORK_LEADER_SIGN'||chr(31)||''||chr(30)||'PREPARED_BY'||chr(31)||''||chr(30)||'WORK_MASTER_SIGN'||chr(31)||''||chr(30)||
       'FIXED_RESOURCE'||chr(31)||'FALSE'||chr(30)||'CUSTOMER_NO'||chr(31)||''||chr(30)||'AUTHORIZE_CODE'||chr(31)||'*'||chr(30)||'CUST_ORDER_TYPE'||chr(31)||
       'SEO'||chr(30)||'CURRENCY_CODE'||chr(31)||'GBP'||chr(30)||'WORK_MASTER_SIGN_ID'||chr(31)||''||chr(30)||'PREPARED_BY_ID'||chr(31)||''||chr(30)||
       'COMPANY'||chr(31)||'102'||chr(30)||'CONNECTION_TYPE_DB'||chr(31)||'EQUIPMENT'||chr(30)||'WORK_LEADER_SIGN_ID'||chr(31)||''||chr(30)||
       'SCHED_MAINT_WIN_DB'||chr(31)||'TRUE'||chr(30)||'FAULT_REP_FLAG'||chr(31)||'0'||chr(30)||'FINISH_WITH_TASK'||chr(31)||'FALSE'||chr(30)||
       'OLD_REQ_START_DATE'||chr(31)||''||chr(30);
  
IFSAPP.ACTIVE_SEPARATE_API.NEW__( null_ , null_ , null_ , p3_ , 'DO' ); 
COMMIT;

SELECT objid INTO objid_ 
FROM ifsapp.active_separate_uiv WHERE wo_no= ( SELECT last_number-1 FROM SYS.ALL_SEQUENCES Where

SYS.ALL_SEQUENCES.SEQUENCE_NAME IN ('PCM_COUNTER_WO_SEQ') ) ; ifsapp.client_sys.clear_attr(attr_); ifsapp.client_sys.add_to_attr('CF$IN_DISPUTE_DB', 'FALSE' , attr); IFSAPP.ACTIVE_SEPARATE_CFP.Cf_Modify__(null_ , objid_ , attr_ , p3_ , 'DO' ); COMMIT;

-- Update first work task
SELECT objid, objversion INTO objid_ , objversion_
FROM ifsapp.JT_TASK_UIV WHERE wo_no= ( SELECT last_number-1 FROM SYS.ALL_SEQUENCES Where SYS.ALL_SEQUENCES.SEQUENCE_NAME IN

('JT_TASK_SEQ') ) ;

FOR recs IN get_recs LOOP

ifsapp.client_sys.clear_attr(attr_);
ifsapp.client_sys.add_to_attr('ACTUAL_FINISH', get_recs.ACTUAL_FINISH , attr_);
ifsapp.client_sys.add_to_attr('REFERENCE_NO', get_recs.REFERENCE_NO , attr_);
ifsapp.client_sys.add_to_attr('REMARK', get_recs.LABOUR || ' ' || get_recs.GANG , attr_);    
ifsapp.client_sys.add_to_attr('PERFORMED_WORK', get_recs.PERFORMED_WORK , attr_);
IFSAPP.JT_TASK_API.MODIFY__( null_ , objid_ , objversion_ , attr_ , 'DO' );


 -- COMMIT; */
END LOOP ;
  

COMMIT;

END ;

I cannot work out at the moment how to get the info from then get_recs cursor that I have defined

本文标签： plsql packagePLS00225subprogram or cursor out of scopeStack Overflow