As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
New TIBCO Community Coming Soon
In early summer, TIBCO plans to launch a new community—with a new user experience, enhanced search, and expanded capabilities for member engagement with answers and discussions! In advance of that, the current myibi community will be retired on April 30. We will continue to provide updates here on both the retirement of myibi and the new community launch.
What You Need to Know about Our New Community
We value the wealth of knowledge and engagement shared by community members and hope the new community will continue cultivating networking, knowledge sharing, and discussion.
During the transition period, from April 20th until the new community is launched this summer, myibi users should access the TIBCO WebFOCUS page to engage.
Hello Everyone, I got this below error from my Maintain Application (FOC03690) called proc,CAMPUSDIRECTORY ,wants 0ouput param but was called w/1.
I searched Focalpoint site and found some solution for this problem. I tried all these 4 solution. But none of them turn off my error message. I am still getting the above error.I appreciate anyone could help me on this problem. 1.SET EMPTYREPORT ON 2.ON TABLE PCHOLD FORMAT HTMLTABLE ON TABLE SET HTMLCSS OFF 3.SYS_MGR.FOCSET("WARNING","OFF"); 4.ON TABLE PCHOLD FORMAT HTML
It would help a lot if you could post the piece of code where you call your CAMPUSDIRECTORY procedure and also the contents of that procedure. The error message seems rather straightforward, so to be able to determine what's wrong we'll need to see what you're doing.
- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007
Vijaya The error means that in your code you have: CALL proc INTO var/stk
In other words, you are passing control to another Maintain and expecting data to come back. The error means that no data is coming back from the called Maintain. Try running the called Maintain by itself and see what you get back.
The solutions that you tried are for the most part EXECing TABLES, and not really for CALLing Maintains. As Gamp points, please post the CALL line from the parent Maintain and the code (unless it is huge) from the child Maintain.
Posts: 663 | Location: New York | Registered: May 08, 2003
Thank you both of you for your replies, Mark, I tried running Maintain by itself , i got the same error. I've attached my code below: Please let me know if you need more info...
My Procedure Code below:
-SET &LstNme = &1; -SET &FstNme = &2; -SET &Div = &3; -SET &Dep = &4; -SET &Bldg = &5; -SET &Rdbutton = &6; -*-SET &LstNme = '''' || &LstNme || '%'''; -SET &LstNme = LCWORD(&LstNme.LENGTH, &LstNme, 'A25'); -SET &FstNme = LCWORD(&FstNme.LENGTH, &FstNme, 'A25'); -*-SET &FstNme2 = '''' || &FstNme || '%'''; -SET &Rdbutton1=IF &Rdbutton EQ 'LST' THEN '' ELSE '-*'; -SET &Rdbutton2=IF &Rdbutton EQ 'FST' THEN '' ELSE '-*'; -SET &Rdbutton3=IF &Rdbutton EQ 'DEPT' THEN '' ELSE '-*'; -SET &Rdbutton4=IF &Rdbutton EQ 'BLDG' THEN '' ELSE '-*'; -SET &Rdbutton5=IF &Rdbutton EQ 'DIVS' THEN '' ELSE '-*'; SET EMPTYREPORT = ON SET ALL = PASS -*_______________________________________________________________________________ DEFINE FILE VW_HRPER FNAME/A105=LAST_NAME ||(', '|FIRST_NAME ); FNAME2/A105=FIRST_NAME ||(', '|LAST_NAME ); -* -*PHONEFIELD1/A3=EDIT(HRP_PRI_CAMPUS_EXTENSION,'999$$$$$'); -*PHONEFIELD2/A5=EDIT(HRP_PRI_CAMPUS_EXTENSION,'$$$99999'); -*PHONEFIELD3/A15= IF (HRP_PRI_CAMPUS_EXTENSION EQ MISSING OR HRP_PRI_CAMPUS_EXTENSION EQ '') THEN '' ELSE '313'||('- '|PHONEFIELD1 ) ||('- '|PHONEFIELD2); -*DIV_SION/A50 = IF DIV_SCHOOL EQ 'AC' THEN 'Academic Education' ELSE IF DIV_SCHOOL EQ 'BS' THEN 'Business Services' ELSE IF DIV_SCHOOL EQ 'CE' THEN 'Career Education' ELSE IF DIV_SCHOOL EQ 'SS' THEN 'Student Services' ELSE ''; END -*_______________________________________________________________________________ TABLE FILE VW_HRPER PRINT HRPER_ID AS 'ID' NOPRINT HRP_EFFECT_TERM_DATE NOPRINT ALL_STATUSES NOPRINT ID NOPRINT LAST_NAME AS 'Last Name' NOPRINT FIRST_NAME AS 'First Name' NOPRINT PERSTAT_ID NOPRINT PERSTAT_END_DATE NOPRINT DEPTS_DESC AS 'Departments' DIVISIONS_ID NOPRINT DIV_DESC AS 'Division' BLDG_DESC AS 'Building' COMPUTE PRSNEML/A50=IF FNAME NE LAST FNAME THEN PERSON_EMAIL_ADDRESSES ELSE '-'; AS 'Email Address' NOPRINT COMPUTE ADDLINE/A75 = OEE_USERNAME || '@hfcc.edu'; AS 'Email Address' ADDRESS_PHONES AS 'Phone' PERSON_WEBSITE_ADDRESS AS 'HomePage' -* &Rdbutton1.EVAL BY LAST_NAME NOPRINT &Rdbutton2.EVAL BY FIRST_NAME NOPRINT &Rdbutton3.EVAL BY DEPTS_DESC NOPRINT &Rdbutton4.EVAL BY BLDG_DESC NOPRINT &Rdbutton5.EVAL BY DIV_DESC NOPRINT -* WHERE (HRP_EFFECT_TERM_DATE EQ MISSING) AND (ALL_STATUSES NE MISSING) AND (PERSTAT_END_DATE EQ MISSING) AND ( PERSTAT_PRIMARY_POS_ID NOT LIKE '%COOP%'); WHERE TOTAL PRSNEML NE '-'; WHERE ((LAST_NAME EQ '&LstNme' ) OR (FIRST_NAME EQ '&FstNme') OR (DIV_DESC EQ '&Div') OR (DEPTS_DESC EQ '&Dep') OR (BLDG_DESC EQ '&Bldg')); ON TABLE SET PAGE-NUM OFF ON TABLE PCHOLD FORMAT HTMTABLE ON TABLE SET HTMLCSS OFF ENDSTYLE END -*
My Maintain Code: MAINTAIN FILE vw_person AND vw_hrper AND vw_divisions AND vw_depts AND vw_buildings $$Declarations
Declare Last / A25 ; Declare First / A25 ; Declare RdoBtn / A40;
Case Top Infer vw_person.VW_PERSON.LAST_NAME into Vw_personStk1; Infer vw_person.VW_PERSON.FIRST_NAME into Vw_personStk;
Compute HTMLStackEntireReport.HTML / A250 ;
Infer vw_divisions.VW_DIVISIONS.DIV_DESC into Vw_divisionsStk Infer vw_depts.VW_DEPTS.DEPTS_DESC into Vw_deptsStk; Infer vw_buildings.VW_BUILDINGS.BLDG_DESC into Vw_buildingsStk;
Compute HtmlStack.HTML / A250 ;
Reposition vw_divisions.VW_DIVISIONS.DIV_DESC ; Stack clear Vw_divisionsStk ; For all next vw_divisions.VW_DIVISIONS.DIV_DESC into Vw_divisionsStk Stack sort Vw_divisionsStk by DIV_DESC;
Reposition vw_depts.VW_DEPTS.DEPTS_DESC ; Stack clear Vw_deptsStk ; For all next vw_depts.VW_DEPTS.DEPTS_DESC into Vw_deptsStk Stack sort Vw_deptsStk by DEPTS_DESC;
Reposition vw_buildings.VW_BUILDINGS.BLDG_DESC ; Stack clear Vw_buildingsStk ; For all next vw_buildings.VW_BUILDINGS.BLDG_DESC into Vw_buildingsStk Stack sort Vw_buildingsStk by BLDG_DESC;
-*compute runscript/stack of a0;
Winform Show Form1; -* Replace the Winform Show command with the following code -* when to display your form in a non-persistent state -* Winform Show_and_exit Form1; EndCase
Case ShowReport COMPUTE DEPT/A50 = Vw_deptsStk().VW_DEPTS.DEPTS_DESC ; Stack clear HTMLSTACK; SYS_MGR.FOCSET("WARNING","OFF"); EXEC campusDirectory from Last First DIVS DEPT BLDG RdoBtn INTO HTMLSTACK; EndCase
Case EntireReport Stack clear HTMLStackEntireReport; SYS_MGR.FOCSET("WARNING","OFF"); EXEC CampusDirectoryEnt from RdoBtn INTO HTMLStackEntireReport; EndCase
Case ShowReport2 COMPUTE DIVS/A50 = Vw_divisionsStk().VW_DIVISIONS.DIV_DESC; Stack clear HTMLSTACK; SYS_MGR.FOCSET("WARNING","OFF"); EXEC campusDirectory from Last First DIVS DEPT BLDG RdoBtn INTO HTMLSTACK; EndCase
Case ShowReport3 COMPUTE BLDG/A50 = Vw_buildingsStk().VW_BUILDINGS.BLDG_DESC ; Stack clear HTMLSTACK; SYS_MGR.FOCSET("WARNING","OFF"); EXEC campusDirectory from Last First DIVS DEPT BLDG RdoBtn INTO HTMLSTACK; EndCase
Case ShowReport4 stack clear HTMLSTACK; SYS_MGR.FOCSET("WARNING","OFF"); EXEC campusDirectory from Last First DIVS DEPT BLDG RdoBtn INTO HTMLSTACK;
-*where (LAST_NAME EQ '&LstNme')
COMPUTE Last=''; Reposition vw_person.VW_PERSON.LAST_NAME ; Stack clear Vw_personStk1 ; For all next vw_person.VW_PERSON.LAST_NAME into Vw_personStk1 where (LAST_NAME EQ Last); EndCase
Case ShowReport5 Stack clear HTMLSTACK; SYS_MGR.FOCSET("WARNING","OFF"); EXEC campusDirectory from Last First DIVS DEPT BLDG RdoBtn INTO HTMLSTACK;
COMPUTE First=''; -*compute First = Vw_personStk.FIRST_NAME; Reposition vw_person.VW_PERSON.FIRST_NAME ; Stack clear Vw_personStk ; For all next vw_person.VW_PERSON.FIRST_NAME into Vw_personStk where (FIRST_NAME EQ First); EndCase