Unrecoverable Error

An unrecoverable error has occurred.
We are sorry for the inconvenience.

[Exit] [More information...] 

-DEFAULT &Property_AD_DM_Prop_BU_Unit_Property = '10 Hanover Square - 12200'
-SET &CURYM =(&YYMD / 100);
-SET &CURYM5M = AYM ( &CURYM, -5, 'I6YYM');
-SET &CURYP6M = AYM ( &CURYM, 6, 'I6YYM');

-TYPE Property_AD_DM_Prop_BU_Unit_Property: &Property_AD_DM_Prop_BU_Unit_Property
-TYPE From Date: &CURYM5M
-TYPE To Date: &CURYP6M
-TYPE Selected Date: &CURYM

SET CENT-ZERO = ON
SET ACROSSPRT = COMPRESS
TABLE FILE DM
SUM
     COMPUTE OCCUPIED_PCT_MTD/D12.2% = IF Date_Date_Calculation EQ 'MTD' THEN Occupied__ ELSE 0;
     COMPUTE OCCUPIED_TARGET_PCT_MTD/D12.2% = IF Date_Date_Calculation EQ 'MTD' THEN Occupied_Target__ ELSE 0;
     COMPUTE OCCUPIED_PCT_MTD_LY/D12.2% = IF Date_Date_Calculation EQ 'MTD LY' THEN Occupied__ ELSE 0;
BY  LOWEST Date_Calendar_Month
BY  LOWEST Date_Calendar_Month_YYYYMM
BY  Property_AD_DM_Prop_BU_Unit_Property
BY  LOWEST Date_Date_Calculation
HEADING
"Occupancy"
"OCCHOLD"
WHERE Date_Calendar_Month_YYYYMM FROM &CURYM5M TO &CURYP6M;
WHERE Property_AD_DM_Prop_BU_Unit_Property EQ '&Property_AD_DM_Prop_BU_Unit_Property.Property_AD_DM_Prop_BU_Unit_Property:.';
WHERE Date_Date_Calculation EQ 'MTD' OR 'MTD LY';
ON TABLE SET HTMLENCODE ON
ON TABLE SET EMPTYREPORT ON
ON TABLE SET GRWIDTH 1
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS OCCHOLD FORMAT ALPHA
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/WFC/Repository/Branding/UDRgreen.sty,
$
     SUMMARY='Summary',
     TITLETEXT='WebFOCUS Report',
$
TYPE=REPORT,
     LINES-PER-PAGE=UNLIMITED,
     ARGRAPHENGINE=JSCHART,
$
ENDSTYLE
END
TABLE FILE OCCHOLD
SUM
     OCCUPIED_PCT_MTD
     OCCUPIED_TARGET_PCT_MTD
     OCCUPIED_PCT_MTD_LY
     OCCUPIED_TARGET_PCT_MTD_LY
BY  LOWEST Date_Calendar_Month_YYYYMM NOPRINT
BY  Date_Calendar_Month
BY  Property_AD_DM_Prop_BU_Unit_Property
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT AHTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
ENDSTYLE
END
-DEFAULTH &WF_TITLE='WebFOCUS Report';
-*IA_GRAPH_BEGIN
-*Do not delete or modify the comments below
*-INTERNAL_COMMENT LINE#0$PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iVVRGLTgiIHN0YW5kYWxvbmU9Im5vIj8+DQo8IS0tMS4wLS0+DQo8Um9vdCB2ZXJzaW9uPSIxLjAiPg0KICAgIDxPYmplY3Qgb2JqZWN0SWQ9IkNoYXJ0XzEiPg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iTGlua2VkU29ydHMiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciLz4NCiAgICA8L09iamVjdD4NCiAgICA8T2JqZWN0IG9iamVjdElkPSJHTE9CQUwiPg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iU2FtcGxlRGF0YSIgdHlwZT0iamF2YS5sYW5nLkJvb2xlYW4iPmZhbHNlPC9Qcm9wZXJ0eT4NCiAgICAgICAgPFByb3BlcnR5IG5hbWU9Ikdsb2JhbFJlY29yZExpbWl0IiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj41MDA8L1Byb3BlcnR5Pg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iR2xvYmFsUnVuUmVjb3JkTGltaXQiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPjA8L1Byb3BlcnR5Pg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iR2xvYmFsT3B0aW1pemF0aW9uIiB0eXBlPSJqYXZhLmxhbmcuQm9vbGVhbiI+dHJ1ZTwvUHJvcGVydHk+DQogICAgICAgIDxQcm9wZXJ0eSBuYW1lPSJmaWVsZERpc3BsYXlNb2RlIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5sYWJlbDwvUHJvcGVydHk+DQogICAgICAgIDxQcm9wZXJ0eSBuYW1lPSJwcmVmaXhEaXNwbGF5TW9kZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyIvPg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iQWN0aXZlX1N0eWxlX1VzZXJfdHlwZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+cG93ZXI8L1Byb3BlcnR5Pg0KICAgICAgICA8UHJvcGVydHkgbmFtZT0iR2xvYmFsVmFsdWVzUGFnaW5nIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj40PC9Qcm9wZXJ0eT4NCiAgICAgICAgPFByb3BlcnR5IG5hbWU9IkZvY2V4ZWNQcmVmZXJlbmNlcyIgdHlwZT0iTWFwIj4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImF1dG9EcmlsbFNjcmlwdCIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyIvPg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGlzcGxheUVkaXRNb2RlSW5mb01pbmlQcmVmZXJlbmNlIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5mYWxzZTwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJkaXNwbGF5Rm9ybWF0VGFiSW5mb01pbmlQcmVmZXJlbmNlIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj50cnVlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRpc3BsYXlIb21lVGFiSW5mb01pbmlQcmVmZXJlbmNlIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5mYWxzZTwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJkaXNwbGF5UXVpY2tBY2Nlc3NUb29sYmFyU2F2ZUluZm9NaW5pUHJlZmVyZW5jZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+dHJ1ZTwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJtZXRhZGF0YV92aWV3cyIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+TWV0YURhdGFUcmVlLlZJRVdfRElNUzwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJkaXNwbGF5UmVzb3VyY2VzRmllbGRUYWJJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPmZhbHNlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRpc3BsYXlJbnNlcnRUYWJJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPmZhbHNlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRpc3BsYXlTbGljZXJzVGFiRWRpdEluZm9NaW5pUHJlZmVyZW5jZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+ZmFsc2U8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0icnVuT25TdGFydHVwRGVmZXJyZWRJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPmZhbHNlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRpc3BsYXlTZXJpZXNUYWJJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPmZhbHNlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImluZm9Bc3Npc3RNb2RlQWxsb3dlZEluZm9NaW5pUHJlZmVyZW5jZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+ZmFsc2U8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGVmYXVsdF9wcmV2aWV3X3BhZ2VsaW1pdF9sYXlvdXQiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPjE8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGVmYXVsdF9wcmV2aWV3X3BhZ2VsaW1pdCIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+NTwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJkZWZhdWx0X2NvbXBvc2VfZm9ybWF0IiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5QREY8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGlzcGxheUludGVyYWN0aXZlTW9kZUluZm9NaW5pUHJlZmVyZW5jZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+dHJ1ZTwvRW50cnk+DQogICAgICAgICAgICA8RW50cnkga2V5PSJydW5PblN0YXJ0dXBJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPnRydWU8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGlzcGxheURhdGFUYWJJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPmZhbHNlPC9FbnRyeT4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRpc3BsYXlTbGljZXJzVGFiSW50ZXJhY3RpdmVJbmZvTWluaVByZWZlcmVuY2UiIHR5cGU9ImphdmEubGFuZy5TdHJpbmciPnRydWU8L0VudHJ5Pg0KICAgICAgICAgICAgPEVudHJ5IGtleT0iZGlzcGxheUxheW91dFRhYkluZm9NaW5pUHJlZmVyZW5jZSIgdHlwZT0iamF2YS5sYW5nLlN0cmluZyI+ZmFsc2U8L0VudHJ5Pg0KICAgICAgICA8L1Byb3BlcnR5Pg0KICAg
*-INTERNAL_COMMENT LINE#1$ICAgICA8UHJvcGVydHkgbmFtZT0iY2FzY2FkZU5hbWVzIiB0eXBlPSJNYXAiLz4NCiAgICAgICAgPFByb3BlcnR5IG5hbWU9Ik1hc3Rlcl9GaWxlcyIgdHlwZT0iU2V0Ij4NCiAgICAgICAgICAgIDxFbnRyeSB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5kbTwvRW50cnk+DQogICAgICAgIDwvUHJvcGVydHk+DQogICAgICAgIDxQcm9wZXJ0eSBuYW1lPSJtZXRhZGF0YVZpZXdBcyIgdHlwZT0iTWFwIj4NCiAgICAgICAgICAgIDxFbnRyeSBrZXk9ImRtIiB0eXBlPSJqYXZhLmxhbmcuU3RyaW5nIj5NZXRhRGF0YVRyZWUuVklFV19ESU1TPC9FbnRyeT4NCiAgICAgICAgPC9Qcm9wZXJ0eT4NCiAgICAgICAgPFByb3BlcnR5IG5hbWU9ImVuYWJsZVByZXZpZXciIHR5cGU9ImphdmEubGFuZy5Cb29sZWFuIj50cnVlPC9Qcm9wZXJ0eT4NCiAgICA8L09iamVjdD4NCjwvUm9vdD4NCg==
-*Do not delete or modify the comments above
ENGINE INT CACHE SET ON
-DEFAULTH &WF_STYLE_UNITS='PIXELS';
-DEFAULTH &WF_STYLE_HEIGHT='405.0';
-DEFAULTH &WF_STYLE_WIDTH='770.0';
-DEFAULTH &WF_TITLE='WebFOCUS Report';
GRAPH FILE OCCHOLD
-* Created by Info Assist for Graph
SUM OCCUPIED_PCT_MTD
OCCUPIED_PCT_MTD_LY
OCCUPIED_TARGET_PCT_MTD
BY  LOWEST Date_Calendar_Month_YYYYMM NOPRINT
BY  Date_Calendar_Month
WHERE Date_Calendar_Month_YYYYMM FROM &CURYM5M TO &CURYP6M;
WHERE Property_AD_DM_Prop_BU_Unit_Property EQ &Property_AD_DM_Prop_BU_Unit_Property. (|FORMAT=A46).Property.QUOTEDSTRING;
-*HEADING
-*"Occupancy"
ON GRAPH PCHOLD FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET PAGE-NUM NOLEAD
ON GRAPH SET EMPTYREPORT ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET ARGRAPHENGIN JSCHART
ON GRAPH SET GRWIDTH 1
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS &WF_STYLE_WIDTH
ON GRAPH SET VAXIS &WF_STYLE_HEIGHT
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 2
ON GRAPH SET LOOKGRAPH VAREA
ON GRAPH SET AUTOFIT ON
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
setSeriesType(3,2);
*END
INCLUDE=IBFS:/WFC/Repository/Branding/UDRgreen.sty,$
TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, ARGRAPHENGINE=JSCHART, $
TYPE=HEADING, JUSTIFY=LEFT, FONT='Trebuchet MS', SIZE=12, COLOR=RGB(66 70 73), STYLE=BOLD, $
*GRAPH_SCRIPT
setPieFeelerTextDisplay(1);
setUseSeriesShapes(true);
setScaleMustIncludeZero(getX1Axis(), false);
setScaleMustIncludeZero(getY1Axis(), false);
setScaleMustIncludeZero(getY2Axis(), false);
setMarkerSizeDefault(60);
setReportParsingErrors(false);
setSelectionEnableMove(false);
setSeriesType(0,1);
setSeriesType(1,1);
setSeriesType(2,1);
setSeriesType(3,1);
setSeriesType(4,1);
setSeriesType(5,1);
setDisplay(getAnnotation(0),true);
setTextWrap(getAnnotation(0),true);
setRect(getAnnotation(0),new Rectangle(-16000.0,9600.0,32000.0,6400.0));
setTextString(getAnnotation(0),"");
setScaleMinAuto(getY1Axis(),false);
setScaleMin(getY1Axis(),0.8);
setScaleMaxAuto(getY1Axis(),false);
setScaleMax(getY1Axis(),1.0);
*END
ENDSTYLE
END
-RUN

-*IA_GRAPH_FINISH
-RUN

SET CENT-ZERO = ON
SET ACROSSPRT = COMPRESS

- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server

quote:

I am trying desperately to stay away from having to use hold files.

- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server

quote:

Increases complexity, maintenance, and reduces readability and consistency (SET and attributes, etc) don't you think?

- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server

-DEFAULTH &SEARCH_FOR = 'Gavin';
-DEFAULTH &ASOFDATE = '2015-05-15';
-DEFAULTH &FCEXISTS = 0;

-TYPE SEARCH_FOR = &SEARCH_FOR;

-IF &SEARCH_FOR EQ _FOC_NULL THEN GOTO THEEND;

SET ASNAMES=ON
SET HOLDLIST=PRINTONLY

CHECK FILE FOCCACHE/CUSTOMER_INFO
-RUN
-IF &RETCODE EQ 0 THEN GOTO CHECKRECEXIST;

-CALLSERVICE
-TYPE 'CALL SERVICE'
TABLE FILE MYDOM/MY_SYNONYM
PRINT
	COMPUTE ASOFDATE/A10 = '&ASOFDATE';
	COMPUTE SEARCHCOL/A25V = '&SEARCH_FOR';
	COMPUTE CUSTNAME/A200V = IF ARGLEN(255, MY_SYNONYM.RESPONSE.MIDDLENAME, 'I4') GT 0 THEN MY_SYNONYM.RESPONSE.FIRSTNAME || ' ' | MY_SYNONYM.RESPONSE.MIDDLENAME || ' ' | MY_SYNONYM.RESPONSE.LASTNAME ELSE MY_SYNONYM.RESPONSE.FIRSTNAME || ' ' | MY_SYNONYM.RESPONSE.LASTNAME;
	COMPUTE ADDRESS/A1000V = IF ARGLEN(255, MY_SYNONYM.RESPONSE.NAME, 'I4') GT 0 THEN MY_SYNONYM.RESPONSE.ADDRESSLINE4 || ', ' | MY_SYNONYM.RESPONSE.CITYNAME || ', ' | MY_SYNONYM.RESPONSE.STATE || ' ' | EDIT(MY_SYNONYM.RESPONSE.ZIPCODE, '99999') ELSE '';
	MY_SYNONYM.RESPONSE.BIRTHDATE
	COMPUTE TELEPHONENUMBERfmt/A50V = IF ARGLEN(255, MY_SYNONYM.RESPONSE.TELEPHONENUMBER, 'I4') EQ 10 THEN EDIT(MY_SYNONYM.RESPONSE.TELEPHONENUMBER, '(999) 999-9999') ELSE MY_SYNONYM.RESPONSE.TELEPHONENUMBER;
	MY_SYNONYM.RESPONSE.EMAILADDRESS
WHERE MY_SYNONYM.M6ILO.SEARCH_FOR EQ '&SEARCH_FOR';
WHERE MY_SYNONYM.M6ILO.DATE EQ '&ASOFDATE';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS HOLDCUSTOMER FORMAT INTERNAL
END
-RUN

-TYPE FCEXISTS = &FCEXISTS
-IF &FCEXISTS EQ 0 GOTO CREATEFILE ELSE INSERTREC;

-CHECKRECEXIST
-TYPE 'FocDB exists, checking if record exists'
-SET &FCEXISTS = 1;
TABLE FILE FOCCACHE/CUSTOMER_INFO
BY  SEARCHCOL
WHERE SEARCHCOL EQ '&SEARCH_FOR' AND ASOFDATE EQ '&ASOFDATE';
ON TABLE HOLD FORMAT INTERNAL
END
-RUN

-IF &LINES GT 0 GOTO THEEND ELSE GOTO CALLSERVICE;

-CREATEFILE
-TYPE 'CREATE FILE'
TABLE FILE HOLDCUSTOMER
PRINT *
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS FOCCACHE/CUSTOMER_INFO FORMAT XFOCUS INDEX SEARCHCOL
END
-RUN
-GOTO THEEND

-INSERTREC
-TYPE 'INSERT RECORD'
MODIFY FILE FOCCACHE/CUSTOMER_INFO
	FIXFORM FROM HOLDCUSTOMER
	MATCH SEARCHCOL ASOFDATE
-*	ON MATCH UPDATE *
	ON NOMATCH INCLUDE
	DATA ON HOLDCUSTOMER
END
-RUN

-THEEND
-TYPE 'THE END'

TABLE FILE FOCCACHE/CUSTOMER_INFO
PRINT *
WHERE SEARCHCOL EQ '&SEARCH_FOR';
WHERE ASOFDATE EQ '&ASOFDATE';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
END
-RUN

- FOCUS Man, just FOCUS!
-----------------------------
Product: WebFOCUS
Version: 8.1.04
Server: Windows 2008 Server