You are viewing this site as a guest. You can still ask questions and help others! Join our Dev2Dev IT Community to receive your own blog, share your knowledge, and much more.

Invalid value -- press the prompt button or hyperlink for a list of valid values (15,11)

No replies
vijayalakshmi's picture
User offline. Last seen 38 weeks 4 days ago. Offline
Joined: 05/08/2012
Posts: 9

hi all,
am tring to upload data to dept_tbl.

first i have uploaded data into one dept_tmp record through file layout and from that am tring to fill dept_tbl record.
in dept_tmp data is there.
while running the ci am getting following error "Invalid value -- press the prompt button or hyperlink for a list of valid values (15,11)"
i have tried hardcoding the values in ci also . result is sucessful but data in not there in dept_record.

and even i have tried lrim also ..
and plese help in this regard .
here am giving the code of that ci

/* ===>
This is a dynamically generated PeopleCode template to be used only as a helper
to the application developer.
You need to replace all references to '[*]' OR default values with  references to
PeopleCode variables and/or a Rec.Fields. */


Local File &fileLog;
Local ApiObject &oSession, &oLntDeptTblCi;
Local ApiObject &oSetDeptBuVwCollection, &oSetDeptBuVw;
Local ApiObject &oDeptTblCollection, &oDeptTbl;
Local ApiObject &oDeptTblCanCollection, &oDeptTblCan;
Local ApiObject &oDeptTblFraCollection, &oDeptTblFra;
Local ApiObject &oDeptTblChnCollection, &oDeptTblChn;
Local ApiObject &oEncumbTriggerCollection, &oEncumbTrigger;
Local ApiObject &oBudgetTriggerCollection, &oBudgetTrigger;
Local ApiObject &oScrtySettypVwCollection, &oScrtySettypVw;

Local Rowset &rec;

Function errorHandler()
   Local ApiObject &oPSMessageCollection, &oPSMessage;
   Local number &i;
   Local string &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;
   
   &oPSMessageCollection = &oSession.PSMessages;
   For &i = 1 To &oPSMessageCollection.Count
      &oPSMessage = &oPSMessageCollection.Item(&i);
      &sErrMsgSetNum = &oPSMessage.MessageSetNumber;
      &sErrMsgNum = &oPSMessage.MessageNumber;
      &sErrMsgText = &oPSMessage.Text;
      &fileLog.WriteLine(&sErrType | " (" | &sErrMsgSetNum | "," | &sErrMsgNum | ") - " | &sErrMsgText);
   End-For;
   rem ***** Delete the Messages from the collection *****;
   &oPSMessageCollection.DeleteAll();
End-Function;



&rec = CreateRowset(Record.DEPT_TMP);
&rec.Fill();
For &i = 1 To &rec.ActiveRowCount
   
   try
      rem ***** Set the Log File *****;
      &fileLog = GetFile("C:\Temp\LNT_DEPT_TBL_CI.log", "w", "a", %FilePath_Absolute);
      &fileLog.WriteLine("Begin");
      rem ***** Get current PeopleSoft Session *****;
      &oSession = %Session;
     
      rem ***** Set the PeopleSoft Session Error Message Mode *****;
      rem ***** 0 - None *****;
      rem ***** 1 - PSMessage Collection only (default) *****;
      rem ***** 2 - Message Box only *****;
      rem ***** 3 - Both collection and message box *****;
      &oSession.PSMessagesMode = 1;
     
      rem ***** Get the Component Interface *****;
      &oLntDeptTblCi = &oSession.GetCompIntfc(CompIntfc.LNT_DEPT_TBL_CI);
      If &oLntDeptTblCi = Null Then
         errorHandler();
         throw CreateException(0, 0, "GetCompIntfc failed");
      End-If;
     
      rem ***** Set the Component Interface Mode *****;
      &oLntDeptTblCi.InteractiveMode = False;
      &oLntDeptTblCi.GetHistoryItems = True;
      &oLntDeptTblCi.EditHistoryItems = False;
     
      rem ***** Set Component Interface Get/Create Keys *****;
      &oLntDeptTblCi.SETID = &rec(&i).DEPT_TMP.SETID.Value;
     
      &oLntDeptTblCi.DEPTID = &rec(&i).DEPT_TMP.DEPTID.Value;
     
      rem ***** Execute Get *****;
      /*    If Not &oLntDeptTblCi.Get() Then
         rem ***** No rows exist for the specified keys.*****;
         errorHandler();
         throw CreateException(0, 0, "Get failed");
      End-If;
    */
      rem ***** Execute Create ******;
      If Not &oLntDeptTblCi.Create() Then
         rem ***** Unable to Create Component Interface for the Add keys provided. *****;
         errorHandler();
         throw CreateException(0, 0, "Create failed");
      End-If;
     
     
      rem ***** Begin: Get/Set Component Interface Properties *****;
      rem ***** Get/Set Level 0 Field Properties *****;
      &fileLog.WriteLine("&oLntDeptTblCi.SETID = " | &oLntDeptTblCi.SETID);
      &oLntDeptTblCi.SETID = &rec(&i).DEPT_TMP.SETID.Value;
      &fileLog.WriteLine("&oLntDeptTblCi.DEPTID = " | &oLntDeptTblCi.DEPTID);
      &oLntDeptTblCi.DEPTID = &rec(&i).DEPT_TMP.DEPTID.Value;
     
     
      /*&fileLog.WriteLine("&oLntDeptTblCi.TRIGGER_WRK_SCROLL = " | &oLntDeptTblCi.TRIGGER_WRK_SCROLL);
      rem &oLntDeptTblCi.TRIGGER_WRK_SCROLL = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.STATUS_CHG_INDC = " | &oLntDeptTblCi.STATUS_CHG_INDC);
      rem &oLntDeptTblCi.STATUS_CHG_INDC = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.CURRENT_DT = " | &oLntDeptTblCi.CURRENT_DT);
      rem &oLntDeptTblCi.CURRENT_DT = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.CURRENT_SEQ = " | &oLntDeptTblCi.CURRENT_SEQ);
      rem &oLntDeptTblCi.CURRENT_SEQ = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.SCRTY_SET_CD = " | &oLntDeptTblCi.SCRTY_SET_CD);
      rem &oLntDeptTblCi.SCRTY_SET_CD = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.RECNAME_SJT = " | &oLntDeptTblCi.RECNAME_SJT);
      rem &oLntDeptTblCi.RECNAME_SJT = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.EMPLID = " | &oLntDeptTblCi.EMPLID);

      rem &oLntDeptTblCi.EMPLID = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.EMPL_RCD = " | &oLntDeptTblCi.EMPL_RCD);
      rem &oLntDeptTblCi.EMPL_RCD = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.POI_TYPE = " | &oLntDeptTblCi.POI_TYPE);
      rem &oLntDeptTblCi.POI_TYPE = [*];
      &fileLog.WriteLine("&oLntDeptTblCi.HRS_JOB_OPENING_ID = " | &oLntDeptTblCi.HRS_JOB_OPENING_ID);
      rem &oLntDeptTblCi.HRS_JOB_OPENING_ID = [*]; */
     
      rem ***** Set/Get SET_DEPT_BU_VW Collection Field Properties -- Parent: PS_ROOT Collection *****;
      /*     &oSetDeptBuVwCollection = &oLntDeptTblCi.SET_DEPT_BU_VW;
      Local integer &i124;
      For &i124 = 1 To &oSetDeptBuVwCollection.Count;
         &oSetDeptBuVw = &oSetDeptBuVwCollection.Item(&i124);
         &fileLog.WriteLine("&oSetDeptBuVw.SETCNTRLVALUE = " | &oSetDeptBuVw.SETCNTRLVALUE);
         rem &oSetDeptBuVw.SETCNTRLVALUE = [*];
      End-For;
 */
      rem ***** Set/Get DEPT_TBL Collection Field Properties -- Parent: PS_ROOT Collection *****;
      &oDeptTblCollection = &oLntDeptTblCi.DEPT_TBL;
      Local integer &i126;
      For &i126 = 1 To &oDeptTblCollection.Count;
         &oDeptTbl = &oDeptTblCollection.Item(&i126);
         &oDeptTbl = &oDeptTblCollection.Item(&i126);
         
         &oDeptTbl.EFFDT = &rec(&i).DEPT_TMP.EFFDT.Value;
         &fileLog.WriteLine("&oDeptTbl.EFFDT = " | &oDeptTbl.EFFDT);
         
         &oDeptTbl.EFF_STATUS = &rec(&i).DEPT_TMP.EFF_STATUS.Value;
         &fileLog.WriteLine("&oDeptTbl.EFF_STATUS = " | &oDeptTbl.EFF_STATUS);
         
         &oDeptTbl.DESCR = &rec(&i).DEPT_TMP.DESCR.Value;
         &fileLog.WriteLine("&oDeptTbl.DESCR = " | &oDeptTbl.DESCR);
         &oDeptTbl.DESCR = &rec(&i).DEPT_TMP.DESCR.Value;
         
         &oDeptTbl.DESCRSHORT = &rec(&i).DEPT_TMP.DESCRSHORT.Value;
         &fileLog.WriteLine("&oDeptTbl.DESCRSHORT = " | &oDeptTbl.DESCRSHORT);
         
         &oDeptTbl.COMPANY = &rec(&i).DEPT_TMP.COMPANY.Value;
         &fileLog.WriteLine("&oDeptTbl.COMPANY = " | &oDeptTbl.COMPANY);
         
         &oDeptTbl.SETID_LOCATION = LTrim(&rec(&i).DEPT_TMP.SETID_LOCATION.Value);
         rem &oDeptTbl.SETID_LOCATION = "LNT";
         &fileLog.WriteLine("&oDeptTbl.SETID_LOCATION = " | &oDeptTbl.SETID_LOCATION);
         
         &oDeptTbl.LOCATION = LTrim(&rec(&i).DEPT_TMP.LOCATION.Value);
         rem  &oDeptTbl.LOCATION = 70;
         &fileLog.WriteLine("&oDeptTbl.LOCATION = " | &oDeptTbl.LOCATION);
         
         
         &fileLog.WriteLine("&oDeptTbl.TAX_LOCATION_CD = " | &oDeptTbl.TAX_LOCATION_CD);
         
         rem &oDeptTbl.TAX_LOCATION_CD = [*];
         rem  ---- no need now-----&fileLog.WriteLine("&oDeptTbl.MANAGER_ID = " | &oDeptTbl.MANAGER_ID);
         rem &oDeptTbl.MANAGER_ID = [*];
         &oDeptTbl.MANAGER_POSN = &rec(&i).DEPT_TMP.MANAGER_POSN.Value;
         &fileLog.WriteLine("&oDeptTbl.MANAGER_POSN = " | &oDeptTbl.MANAGER_POSN);
         
         &oDeptTbl.BUDGET_YR_END_DT = &rec(&i).DEPT_TMP.BUDGET_YR_END_DT.Value;
         &fileLog.WriteLine("&oDeptTbl.BUDGET_YR_END_DT = " | &oDeptTbl.BUDGET_YR_END_DT);
         
         
         rem &fileLog.WriteLine("&oDeptTbl.BUDGET_LVL = " | &oDeptTbl.BUDGET_LVL);
         rem  &oDeptTbl.BUDGET_LVL = &rec(&i).DEPT_TMP.BUDGET_LVL.Value;
         &oDeptTbl.GL_EXPENSE = &rec(&i).DEPT_TMP.GL_EXPENSE.Value;
         &fileLog.WriteLine("&oDeptTbl.GL_EXPENSE = " | &oDeptTbl.GL_EXPENSE);
         
         &oDeptTbl.EEO4_FUNCTION = &rec(&i).DEPT_TMP.EEO4_FUNCTION.Value;
         &fileLog.WriteLine("&oDeptTbl.EEO4_FUNCTION = " | &oDeptTbl.EEO4_FUNCTION);
         
         rem &oDeptTbl.CAN_IND_SECTOR = &rec(&i).DEPT_TMP.CAN_IND_SECTOR.Value;
         rem &fileLog.WriteLine("&oDeptTbl.CAN_IND_SECTOR = " | &oDeptTbl.CAN_IND_SECTOR);
         
         &oDeptTbl.ACCIDENT_INS = &rec(&i).DEPT_TMP.ACCIDENT_INS.Value;
         &fileLog.WriteLine("&oDeptTbl.ACCIDENT_INS = " | &oDeptTbl.ACCIDENT_INS);
         
         &oDeptTbl.SI_ACCIDENT_NUM = &rec(&i).DEPT_TMP.SI_ACCIDENT_NUM.Value;
         &fileLog.WriteLine("&oDeptTbl.SI_ACCIDENT_NUM = " | &oDeptTbl.SI_ACCIDENT_NUM);
         
         &oDeptTbl.HAZARD = &rec(&i).DEPT_TMP.HAZARD.Value;
         &fileLog.WriteLine("&oDeptTbl.HAZARD = " | &oDeptTbl.HAZARD);
         
         &oDeptTbl.ESTABID = &rec(&i).DEPT_TMP.ESTABID.Value;
         &fileLog.WriteLine("&oDeptTbl.ESTABID = " | &oDeptTbl.ESTABID);
         
         &oDeptTbl.RISKCD = &rec(&i).DEPT_TMP.RISKCD.Value;
         &fileLog.WriteLine("&oDeptTbl.RISKCD = " | &oDeptTbl.RISKCD);
         
         &oDeptTbl.FTE_EDIT_INDC = &rec(&i).DEPT_TMP.FTE_EDIT_INDC.Value;
         &fileLog.WriteLine("&oDeptTbl.FTE_EDIT_INDC = " | &oDeptTbl.FTE_EDIT_INDC);
         
         
         /*&fileLog.WriteLine("&oDeptTbl.DEPT_TENURE_FLG = " | &oDeptTbl.DEPT_TENURE_FLG);
         &oDeptTbl.DEPT_TENURE_FLG = &rec(&i).DEPT_TMP.EEO4_FUNCTION.Value;*/
         
         &oDeptTbl.TL_DISTRIB_INFO = &rec(&i).DEPT_TMP.TL_DISTRIB_INFO.Value;
         &fileLog.WriteLine("&oDeptTbl.TL_DISTRIB_INFO = " | &oDeptTbl.TL_DISTRIB_INFO);
         
         
         /* &fileLog.WriteLine("&oDeptTbl.USE_BUDGETS = " | &oDeptTbl.USE_BUDGETS);
         &oDeptTbl.USE_BUDGETS = &rec(&i).USE_BUDGETS.VALUE;
         
         &fileLog.WriteLine("&oDeptTbl.USE_ENCUMBRANCES = " | &oDeptTbl.USE_ENCUMBRANCES);
         &oDeptTbl.USE_ENCUMBRANCES = &rec(&i).DEPT_TMP.USE_ENCUMBRANCES.Value;
         */
         &oDeptTbl.USE_DISTRIBUTION = &rec(&i).DEPT_TMP.USE_DISTRIBUTION.Value;
         &fileLog.WriteLine("&oDeptTbl.USE_DISTRIBUTION = " | &oDeptTbl.USE_DISTRIBUTION);
         
         &oDeptTbl.BUDGET_DEPTID = &rec(&i).DEPT_TMP.BUDGET_DEPTID.Value;
         &fileLog.WriteLine("&oDeptTbl.BUDGET_DEPTID = " | &oDeptTbl.BUDGET_DEPTID);
         
         &oDeptTbl.HP_STATS_DEPT_CD = &rec(&i).DEPT_TMP.HP_STATS_DEPT_CD.Value;
         &fileLog.WriteLine("&oDeptTbl.HP_STATS_DEPT_CD = " | &oDeptTbl.HP_STATS_DEPT_CD);
         
         &oDeptTbl.HP_STATS_FACULTY = &rec(&i).DEPT_TMP.HP_STATS_FACULTY.Value;
         &fileLog.WriteLine("&oDeptTbl.HP_STATS_FACULTY = " | &oDeptTbl.HP_STATS_FACULTY);
         
         &oDeptTbl.HP_RTBC_OPTION = "B";
         &fileLog.WriteLine("&oDeptTbl.HP_RTBC_OPTION = " | &oDeptTbl.HP_RTBC_OPTION);
         
         &oDeptTbl.HP_AUTO_RTBC = "N";
         &fileLog.WriteLine("&oDeptTbl.HP_AUTO_RTBC = " | &oDeptTbl.HP_AUTO_RTBC);
         
         &oDeptTbl.CLASS_UNIT_NZL = &rec(&i).DEPT_TMP.CLASS_UNIT_NZL.Value;
         &fileLog.WriteLine("&oDeptTbl.CLASS_UNIT_NZL = " | &oDeptTbl.CLASS_UNIT_NZL);
         
         &oDeptTbl.ORG_UNIT_AUS = &rec(&i).DEPT_TMP.ORG_UNIT_AUS.Value;
         &fileLog.WriteLine("&oDeptTbl.ORG_UNIT_AUS = " | &oDeptTbl.ORG_UNIT_AUS);
         
         &oDeptTbl.WORK_SECTOR_AUS = &rec(&i).DEPT_TMP.WORK_SECTOR_AUS.Value;
         &fileLog.WriteLine("&oDeptTbl.WORK_SECTOR_AUS = " | &oDeptTbl.WORK_SECTOR_AUS);
         
         &oDeptTbl.APS_AGENT_CD_AUS = &rec(&i).DEPT_TMP.APS_AGENT_CD_AUS.Value;
         &fileLog.WriteLine("&oDeptTbl.APS_AGENT_CD_AUS = " | &oDeptTbl.APS_AGENT_CD_AUS);
         
         &oDeptTbl.IND_COMMITTEE_BEL = &rec(&i).DEPT_TMP.IND_COMMITTEE_BEL.Value;
         &fileLog.WriteLine("&oDeptTbl.IND_COMMITTEE_BEL = " | &oDeptTbl.IND_COMMITTEE_BEL);
         
         &oDeptTbl.NACE_CD_BEL = &rec(&i).DEPT_TMP.NACE_CD_BEL.Value;
         &fileLog.WriteLine("&oDeptTbl.NACE_CD_BEL = " | &oDeptTbl.NACE_CD_BEL);
         
      End-For;
     
      rem ***** Set/Get BUDGET_TRIGGER Collection Field Properties -- Parent: PS_ROOT Collection *****;
      &oBudgetTriggerCollection = &oLntDeptTblCi.BUDGET_TRIGGER;
      /*  Local integer &i183;
      For &i183 = 1 To &oBudgetTriggerCollection.Count;
         &oBudgetTrigger = &oBudgetTriggerCollection.Item(&i183);
         &fileLog.WriteLine("&oBudgetTrigger.POSITION_POOL_ID_1 = " | &oBudgetTrigger.POSITION_POOL_ID_1);
         rem &oBudgetTrigger.POSITION_POOL_ID_1 = [*];
         &fileLog.WriteLine("&oBudgetTrigger.TRIGGER_RECORD_1 = " | &oBudgetTrigger.TRIGGER_RECORD_1);
         rem &oBudgetTrigger.TRIGGER_RECORD_1 = [*];
         &fileLog.WriteLine("&oBudgetTrigger.TIME_STAMP_1 = " | &oBudgetTrigger.TIME_STAMP_1);
         rem &oBudgetTrigger.TIME_STAMP_1 = [*];
         &fileLog.WriteLine("&oBudgetTrigger.PROCESSED_0 = " | &oBudgetTrigger.PROCESSED_0);
         rem &oBudgetTrigger.PROCESSED_0 = [*];
      End-For;
      */
      rem ***** Set/Get SCRTY_SETTYP_VW Collection Field Properties -- Parent: PS_ROOT Collection *****;
      /*   &oScrtySettypVwCollection = &oLntDeptTblCi.SCRTY_SETTYP_VW;
      Local integer &i188;
      For &i188 = 1 To &oScrtySettypVwCollection.Count;
         &oScrtySettypVw = &oScrtySettypVwCollection.Item(&i188);
         &fileLog.WriteLine("&oScrtySettypVw.SCRTY_TYPE_CD = " | &oScrtySettypVw.SCRTY_TYPE_CD);
         rem &oScrtySettypVw.SCRTY_TYPE_CD = [*];
         &fileLog.WriteLine("&oScrtySettypVw.RECNAME_SJT_0 = " | &oScrtySettypVw.RECNAME_SJT_0);
         rem &oScrtySettypVw.RECNAME_SJT_0 = [*];
         &fileLog.WriteLine("&oScrtySettypVw.RECNAME_S_TRANS = " | &oScrtySettypVw.RECNAME_S_TRANS);
         rem &oScrtySettypVw.RECNAME_S_TRANS = [*];
         &fileLog.WriteLine("&oScrtySettypVw.KEY1_PROMPT_FLD = " | &oScrtySettypVw.KEY1_PROMPT_FLD);
         rem &oScrtySettypVw.KEY1_PROMPT_FLD = [*];
         &fileLog.WriteLine("&oScrtySettypVw.KEY2_PROMPT_FLD = " | &oScrtySettypVw.KEY2_PROMPT_FLD);
         rem &oScrtySettypVw.KEY2_PROMPT_FLD = [*];
         &fileLog.WriteLine("&oScrtySettypVw.KEY3_PROMPT_FLD = " | &oScrtySettypVw.KEY3_PROMPT_FLD);
         rem &oScrtySettypVw.KEY3_PROMPT_FLD = [*];
         &fileLog.WriteLine("&oScrtySettypVw.FUTURE_FLG = " | &oScrtySettypVw.FUTURE_FLG);
         rem &oScrtySettypVw.FUTURE_FLG = [*];
      End-For;*/
      rem ***** End: Get/Set Component Interface Properties *****;
     
      rem ***** Execute Save *****;
      rem If Not &oLntDeptTblCi.Save() Then;
      rem       errorHandler();
      rem       throw CreateException(0, 0, "Save failed");
      rem End-If;
     
      rem ***** Execute Cancel *****;
      rem If Not &oLntDeptTblCi.Cancel() Then;
      rem       errorHandler();
      rem       throw CreateException(0, 0, "Cancel failed");
      rem End-If;
     
   catch Exception &ex
      rem Handle the exception;
      &fileLog.WriteLine(&ex.ToString());
   end-try;
End-For;

&fileLog.WriteLine("End");
&fileLog.Close();