Focal Point Banner


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.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     Convert V532 HTML to V766 HTML

Read-Only Read-Only Topic
Go
Search
Notify
Tools
Convert V532 HTML to V766 HTML
 Login/Join
 
Gold member
posted
Hi there,
We have some V5.3.2 Focus code/html that we want to convert to V7.6.6. I have an existing html that I have converted using the HTML Layout Painter in v766. When I run it I get the error message:
Error occurred.
ERROR: ERROR_MR_MISSING_STRING Required value IBIMR_folder is missing.

I looked in the html code and it appears in there and the name of the folder as well.

What could be missing? I did a similar conversion with another piece of html and it worked after minor tweaking (dynamic values).

For this second case it looked like I could not use the fex code to start the conversion. I was only able to do it from the html.

Here's the fex code :

-*------------------------------------------------------------------------------
-* Client : Ontario - Ministry of Transportation
-* Project : Road Side Data Capture
-* Application : District Workload and Defect Summary Report
-* Module : rdc030.fex
-* Description :
-* Called By : WebFOCUS Business Intelligence Dashboard
-* Date Developed: January 2005
-* Developed by : Tamra Colangelo, Information Builders
-*------------------------------------------------------------------------------
-* Maintenance History
-*------------------------------------------------------------------------------
-* Modified by :
-* Date Modified:
-* Reason :
-* Mod. ID :
-*------------------------------------------------------------------------------
-SET &REP_NAME = 'Workload and Defect Summary Report';
-STEP0
SET LINES=9999
SET PAPER=9999
SET SPACES = 1
SET ASNAMES= ON
-SET &RUN_DATE = &DATEMtrDYY;
-SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99');
-*QUARTERS
-DEFAULT &ADATE1 = '20050107';
-DEFAULT &ADATE2 = '20050108';
-SET &ADATETIME1 = &ADATE1 | ' 00:00:00';
-SET &ADATETIME2 = &ADATE2 | ' 23:59:59';
-SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17');
-SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17');
-SET &QTRBEG_DATE = &ADATE1 | ' 00:00:00';
-SET &QTREND_DATE = &ADATE2 | ' 23:59:59';
-****SET &QTRBEG_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE1, 'A17'), 'A17');
-****SET &QTREND_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE2, 'A17'), 'A17');
-*
-STEP1
-*
-*--------------------------------------------------------------------------------
-* set up AXLE GROUPING + MOTORCOACH +
-* set up other counts for report
-* pickup all corresponding rec form inspectin and opt_field tables
-*--------------------------------------------------------------------------------
-AAA
SET ALL=ON
JOIN CLEAR *
JOIN INSPID IN INSPECTION TO ALL INSPID IN INSP_OPT_FIELD AS J1
DEFINE FILE INSPECTION
XVEHTYPE/A4 = IF INSPID EQ LAST INSPID THEN EDIT(OPTFIELDDATA,'9999') ELSE ' ';
XAXLE1/I5C = POSIT(OPTFIELDDATA,30,'=',2,'I2') ;
XAXLE2/A5 = IF INSPID EQ LAST INSPID THEN XAXLE2
ELSE SUBSTR(30,OPTFIELDDATA,XAXLE1,XAXLE1+2,4,XAXLE2);
XAXNUM/A2 = IF INSPID EQ LAST INSPID THEN XAXNUM
ELSE GETTOK(OPTFIELDDATA,30,-1,'=',2,XAXNUM);
X1AXNUM/I9C = EDIT(XAXNUM);
XAXLEGRP/A8 = IF XAXNUM EQ '2' AND XVEHTYPE EQ 'MC' OR 'VN' OR 'SP' OR 'PD' OR 'SB' OR 'BU' OR 'MT'
THEN '02-BUS'
ELSE DECODE XAXNUM('2' '2'
'3' '3-4'
'4' '3-4'
'5' '5-7'
'6' '5-7'
'7' '5-7'
ELSE '8+');
XMOTORCOACH/I9 = IF XVEHTYPE EQ 'MC' THEN 1 ELSE 0;
END
TABLE FILE INSPECTION
SUM
MAX.STATECENSUSNUM
MAX.OPTFIELDDATA
MAX.OPTFIELDID
MAX.XAXLE1
MAX.XAXLE2
MAX.XAXNUM
MAX.X1AXNUM
MAX.XAXLEGRP
MAX.XMOTORCOACH
MAX.TOTALVIO
MAX.TOTALOOSVIO
MAX.TOTALHM
MAX.INSPLOCATIONCODE
COMPUTE
-* to match with certifeid officers table later the 2 fields must be same format
XINSPECTORCODE/A8 = INSPECTORCODE;
BY INSPLEVEL
BY INSPID
BY RPTNUM
WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5'
WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND
INSPENDDATE LE (DT(&QTREND_DATE.EVAL));
WHERE OPTFIELDID EQ 52 OR 7 OR 10
ON TABLE HOLD AS RDC030A FORMAT ALPHA
END
-RUN
-*----------------------------------------------------------
-* check for 0 records
-*
-IF &LINES EQ 0 GOTO NO_DATA;
-*
-*
-STEP2
-*GOTO STEP3
-*--------------------------------------------------------------------------------
-* pick up only THE PLATES REMOVED AND CHARGES LAID (insp_opt_field table)
-* - the INSP_violation(oos) table joined with the other tables causes multiplicative effect
-* - using match to pick up all data in file1 and the matching rec form file2 (join produced only matching rec)
-*--------------------------------------------------------------------------------
TABLE FILE INSPECTION
PRINT
OPTFIELDDATA
OPTFIELDID
BY INSPID
WHERE ((OPTFIELDID GE 36 AND OPTFIELDID LE 50 OR 53) AND (OPTFIELDDATA EQ 'Y' ))
OR ((OPTFIELDID EQ 2 OR 11 OR 12 OR 13 OR 5 OR 53)
AND (OPTFIELDDATA EQ 'Y' OR 'N'))
WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5'
WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND
INSPENDDATE LE (DT(&QTREND_DATE.EVAL));
ON TABLE HOLD AS RDC030X FORMAT ALPHA
END
-RUN
-*
SET ALL=ON
MATCH FILE RDC030A
SUM
XAXLE2
X1AXNUM
XAXLEGRP
XMOTORCOACH
TOTALVIO
TOTALOOSVIO
TOTALHM
XINSPECTORCODE
INSPLOCATIONCODE
RPTNUM
INSPLEVEL
STATECENSUSNUM
BY INSPID
RUN
FILE RDC030X
PRINT
OPTFIELDDATA
OPTFIELDID
BY INSPID
AFTER MATCH HOLD AS RDC030B OLD
END
-RUN
-SKIPVIO
DEFINE FILE RDC030B
XOOSINSP_CHRGLD/I9C = IF ( TOTALOOSVIO GT 0 ) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 )
OR (TOTALOOSVIO GT 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5)
THEN 1 ELSE 0;
XOOSINSP_PLTRMV/I9C = IF (TOTALOOSVIO NE 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13)
THEN 1 ELSE 0;
XINSP_CHRGLD/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 )
OR (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5)
THEN 1 ELSE 0;
XINSP_PLTRMV/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13)
THEN 1 ELSE 0;
XCNT_OOSINSP/I9C = IF (TOTALOOSVIO GT 0) THEN 1 ELSE 0;
-* to ensure grandtotals appear at end
XDUMMYSORT/A1 = ' ';
END
TABLE FILE RDC030B
SUM
CNT.DST.RPTNUM AS XCNTINSP
MAX.XCNT_OOSINSP
MAX.TOTALOOSVIO
MAX.X1AXNUM
XAXLEGRP
OPTFIELDID
OPTFIELDDATA
MAX.XOOSINSP_CHRGLD
MAX.XOOSINSP_PLTRMV
MAX.XINSP_CHRGLD
MAX.XINSP_PLTRMV
MAX.XMOTORCOACH
MAX.TOTALVIO
MAX.TOTALHM
XINSPECTORCODE
INSPLOCATIONCODE
COLUMN-TOTAL
BY INSPLEVEL
BY XAXLEGRP
BY RPTNUM
BY INSPID
ON TABLE HOLD AS RDC030D
END
-RUN
-*------------------------------------------
-* merge above file with officer names
JOIN XINSPECTORCODE IN RDC030D TO INSPCODE IN CERTIFIED_OFFICERS AS JD
TABLE FILE RDC030D
PRINT
XCNTINSP
XCNT_OOSINSP
X1AXNUM
XAXLEGRP
XMOTORCOACH
TOTALVIO
TOTALOOSVIO
TOTALHM
INSPLOCATIONCODE
XOOSINSP_CHRGLD
XOOSINSP_PLTRMV
XINSP_CHRGLD
XINSP_PLTRMV
INSPCODE
REGION
AREA
XREGION
XDISTRICT
COMPUTE
XOFFLSTNAME/A150 = LASTNAME || (', '|FRSTNAME );
XOFFNAME/A150 = INSPCODE | (' '|LASTNAME)|| (', '|FRSTNAME );
LASTNAME
BY INSPLEVEL
BY XAXLEGRP
ON TABLE HOLD AS RDC030F
END
-RUN
-*----------------------------------------------------------
-* check for 0 records
-*
-IF &LINES EQ 0 GOTO NO_DATA;
-*
-*------------------------------------------
-*----- Final report
-*------------------------------------------
DEFINE FILE RDC030F
TODATE/MtrDYY = '&MDYY';
XBDATE/I8YYMD = &ADATE1.EVAL ;
XBEGDATE/MtRDYY = XBDATE;
XEDATE/I8YYMD = &ADATE2.EVAL ;
XENDDATE/MtRDYY = XEDATE;
XCNT_OOSINSP/I9 = IF (TOTALOOSVIO EQ 0) THEN 0 ELSE 1;
XTOTINSPHAZ/I9 = IF TOTALHM EQ 0 THEN 0 ELSE 1;
-* to ensure grandtotals appear at end
XDUMMYSORT/A1 = ' ';
END
-*
TABLE FILE RDC030F
SUM XCNTINSP AS 'No. of ,Inspections'
XCNT_OOSINSP AS 'No. OOS,Inspections'
-*---------------------------------------------------------
-* ASSUME xpct_oos to be the pct of OOS per total # of inspections
-*---------------------------------------------------------
COMPUTE XCNT_INSP/I5 = XCNTINSP; NOPRINT
COMPUTE XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNTINSP ) * 100; AS '%,OOS'
TOTALOOSVIO AS 'Total OOS,Violations'
TOTALVIO AS 'Total ,Violations'
XMOTORCOACH AS 'Motor,Coach'
XTOTINSPHAZ AS 'Total,Insp.,With,Hazmat'
XINSP_CHRGLD AS 'Insp.,with,Charges,laid'
XINSP_PLTRMV AS 'Insp.,with,Plates,Removed'
XOOSINSP_CHRGLD AS 'OOS Insp.,with,Charges,laid'
XOOSINSP_PLTRMV AS 'OOS Insp., with , Plates,Removed'
X1AXNUM NOPRINT
AREA NOPRINT
BY XDUMMYSORT NOPRINT
BY XREGION AS 'Region'
BY INSPLEVEL AS 'Level'
BY XAXLEGRP AS 'Axle,Groups'
-*
ON XREGION PAGE-BREAK
-*ON XDISTRICT PAGE-BREAK
-*-------------------------------------------------------------------------------------------------------------------------
-* REGION CALCULATIONS REQUIRED
-*-------------------------------------------------------------------------------------------------------------------------
ON XREGION RECAP
XREG_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XREG_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XREG_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XREG_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XREG_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XREG_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100;
XREG_AVG_XOOSVIO/P6.2C = ( TOTALOOSVIO / XCNT_OOSINSP );
XREG_AVG_VIO/P6.2C = ( TOTALVIO / XCNT_INSP );
XREG_AVGAXL/P6.2C = ( X1AXNUM/XCNT_INSP );
ON XREGION SUBFOOT
"Total/Percentage: <+0> "<+0> Total Axles Inspected:<+0> Average OOS Violations/ OOS Inspection: <+0>"<+0> Average Axles/Inspection:<+0> Motor Coach:<+0> Average violations/Inspection: <+0>"<+0> Dangerous Goods:<+0> Percent of Inspections with Hazmat:<+0> -*-------------------------------------------------------------
-* LEVEL SUBFOOTING CALCULATIONS
-*
ON INSPLEVEL RECAP
XLVL_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XLVL_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XLVL_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
ON INSPLEVEL SUBFOOT
"Sub Totals: <+0> -*
-*-------------------------------------------------------------------------------------------------------------------------
-* Grand totals
-*-------------------------------------------------------------------------------------------------------------------------
ON XDUMMYSORT RECAP
XGRND_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XGRND_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XGRND_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XGRND_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XGRND_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XGRND_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100;
XGRND_AVG_XOOSVIO/P8.2C = ( TOTALOOSVIO / XCNT_OOSINSP );
XGRND_AVG_VIO/P8.2C = ( TOTALVIO / XCNT_INSP );
XGRND_AVGAXL/P8.2C = ( X1AXNUM/XCNT_INSP );
ON XDUMMYSORT SUBFOOT
"Provincial Total/Percentage: <+0> <+0> "<+0> Total Axles Inspected:<+0> Average OOS Violations/ OOS Inspection: <+0>"<+0> Average Axles/Inspection:<+0> Motor Coach:<+0> Average violations/Inspection: <+0>"<+0> Dangerous Goods:<+0> Percent of Inspections with Hazmat:<+0> HEADING
"SafetyNet Inspection System Ontario"
"District Workload and Defect Summary"
"From "As of " "
"Provincial Report"
FOOTING BOTTOM
"Report ID: rdc020 / User ID: &MTO_USER / Date: &RUN_DATE / Time: &RUN_TIME / <100>Page: <105>-*-------------------------------------------------------------
-* record selection
-*
WHERE XREGION NE 'Non-MTO'
-*
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Letter',
LEFTMARGIN=0.180556,
RIGHTMARGIN=0.180556,
TOPMARGIN=0.180556,
BOTTOMMARGIN=0.03122,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=7,
COLOR='NAVY',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
$ BOTTOMGAP=0.027778,
$
TYPE=DATA,
COLUMN=XREGION,
SIZE=8,
FOCEXEC=app/rdc020a(XREGION = N2 ADATE1='&ADATE1' ADATE2='&ADATE2' ),
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
BORDER=LIGHT,
BORDER-COLOR='GRAY',
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
FONT='TIMES NEW ROMAN',
SIZE=20,
COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
LINE=2,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
FONT='ARIAL',
SIZE=11,
COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
LINE=3,
FONT='ARIAL',
SIZE=11,
COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC, JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=4,
JUSTIFY=CENTER,
$
TYPE=HEADING,
LINE=4,
OBJECT=TEXT,
ITEM=1,
FONT='ARIAL',
SIZE=11,
COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
LINE=6,
STYLE=BOLD+ITALIC,
$
TYPE=HEADING,
LINE=7,
STYLE=BOLD+ITALIC,
$
TYPE=FOOTING,
SIZE=7, STYLE=ITALIC,
COLOR=GREY,
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=8,
$
TYPE=SUBFOOT, SIZE=8,BY=XDUMMYSORT,BACKCOLOR=RGB(245 245 245),
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N5',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N6',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=3,POSITION='XPCT_OOS',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=4,POSITION='N13',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=5,POSITION='N14',
$
TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=6,POSITION='N15',
$
TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=7,POSITION='N16',
$
TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N3',
$
TYPE=SUBFOOT, LINE=2,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N5',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,LINE=2,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N15',
$
TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N3',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N5', JUSTIFY=RIGHT,
$
$motor coach
TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N9',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N10',
$
TYPE=SUBFOOT,LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=3,POSITION='N15',
$
TYPE=SUBFOOT,LINE=4,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N9',
$
TYPE=SUBFOOT, LINE=4,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N10',
$
TYPE=SUBFOOT, LINE=4,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,LINE=4,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N15',
$
TYPE=SUBFOOT,
BY=1,
BORDER-TOP=OFF,
BORDER-BOTTOM=HEAVY,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-BOTTOM-STYLE=DOUBLE,
BORDER-BOTTOM-COLOR='GREY',
BACKCOLOR=RGB(245 245 245),
$
TYPE=SUBFOOT,
BY=2,
BORDER-TOP=OFF,
BORDER-BOTTOM=HEAVY,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-BOTTOM-STYLE=DOUBLE,
BORDER-BOTTOM-COLOR='GREY',
BACKCOLOR=RGB(245 245 245),
$region sort
TYPE=SUBFOOT,
BY=2, SIZE=8,
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=2,POSITION='N5',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=3,POSITION='N6',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=4,POSITION='N8',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=5,POSITION='N12',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=6,POSITION='N13',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=7,POSITION='N14',
$
TYPE=SUBFOOT,
BY=2, LINE=1,OBJECT=FIELD,
ITEM=8,POSITION='N15',
$
TYPE=SUBFOOT,
BY=2, LINE=2,OBJECT=TEXT,
ITEM=1,POSITION='N3',
$
TYPE=SUBFOOT,
BY=2, LINE=2,OBJECT=FIELD,
ITEM=1,POSITION='N5',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT,
BY=2, LINE=2,OBJECT=TEXT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,
BY=2, LINE=2,OBJECT=FIELD,
ITEM=2,POSITION='N15',
$
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=TEXT,
ITEM=1,POSITION='N3',
$
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=FIELD,
ITEM=1,POSITION='N5',
$
$motor coach
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=TEXT,
ITEM=4,POSITION= 'N9',
$
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=FIELD,
ITEM=2,POSITION='N10',
$
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=TEXT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT,
BY=2, LINE=3,OBJECT=FIELD,
ITEM=3,POSITION='N15',
$
TYPE=SUBFOOT,
BY=2, LINE=4,OBJECT=TEXT,
ITEM=1,POSITION='N9',
$
TYPE=SUBFOOT,
BY=2, LINE=4,OBJECT=FIELD,
ITEM=1,POSITION='N10',
$
TYPE=SUBFOOT,
BY=2, LINE=4,OBJECT=TEXT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,
BY=2, LINE=4,OBJECT=FIELD,
ITEM=2,POSITION='N15',
$
$INSPECTION LEVEL
TYPE=SUBFOOT,
BY=3,
BORDER-TOP=LIGHT,
BORDER-BOTTOM=LIGHT,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-COLOR=RGB(153 153 153),
SIZE=7,
$
$LEVEL
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=1,
POSITION='N3',
$count
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=2,
POSITION='N5',
$
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=3,
POSITION='N6',
$OOS %
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=4,
POSITION='XPCT_OOS',
$ PLT RMVD
$CHRG LD
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=5,
POSITION=XINSP_CHRGLD,
$ PLT RMVD
TYPE=SUBFOOT,
BY=3,
LINE=1,
OBJECT=FIELD, ITEM=6,
POSITION=XINSP_PLTRMV,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END
-RUN
-ALLDONE
-EXIT
-END_NODATA
-TYPE ********** NO DATA FOR FOR QUARTER *************
-EXIT
YPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END
-RUN
-ALLDONE
-EXIT
-END_NODATA
-TYPE ********** NO DATA FOR FOR QUARTER *************
-EXIT
CT, SIZE=8,
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=2,POSITION='N8',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=3,POSITION='N9',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=4,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=5,POSITION='N16',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=6,POSITION='N17',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=7,POSITION='N18',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=8,POSITION='N19',
$--------------
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT,
ITEM=3,POSITION='N12',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD,
ITEM=2,POSITION='N16',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
$motor coach
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=4,POSITION='N9', JUSTIFY=RIGHT,
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=2,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=3,POSITION='N16',
$DANGEROUS GOODS
TYPE=SUBFOOT,BY=XDISTRICT, LINE=4,OBJECT=TEXT,
ITEM=1,POSITION='N9',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=4,OBJECT=FIELD,
ITEM=1,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=4,OBJECT=TEXT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=4,OBJECT=FIELD,
ITEM=2,POSITION='N16',
$
$
$badge no sort =3
TYPE=SUBFOOT, BY=XOFFNAME, SIZE = 7,
BORDER-BOTTOM=MEDIUM,
BORDER-BOTTOM-STYLE=DOUBLE,
BORDER-BOTTOM-COLOR=GREY,
$no of inspections
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=2,POSITION='N8',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=3,POSITION='N9',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=4, POSITION=XPCT_OOS,
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=5,POSITION='N13',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=6,POSITION='N14',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2, OBJECT=FIELD,
ITEM=7, POSITION='N16',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2, OBJECT=FIELD,
ITEM=8,POSITION='N17',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=9,POSITION='N18',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=2,OBJECT=FIELD,
ITEM=10,POSITION='N19',
$
TYPE=SUBFOOT,BY=XOFFNAME, LINE=3,OBJECT=TEXT,
ITEM=1,POSITION='N6', JUSTIFY=RIGHT,
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=3,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
TYPE=SUBFOOT, BY=XOFFNAME, LINE=4,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, BY=XOFFNAMEE, LINE=4,OBJECT=FIELD,
ITEM=1,POSITION='N8', JUSTIFY=RIGHT,
$
$INSPECTION LEVEL
TYPE=SUBFOOT,
BY=INSPLEVEL,
BORDER-TOP=LIGHT,
BORDER-BOTTOM=LIGHT,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-COLOR=GREY,
SIZE=7,
BACKCOLOR=RGB(245 245 245),
$NAME
TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=1,POSITION='N5',
JUSTIFY =RIGHT,
$LEVEL
TYPE=SUBFOOT,BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=2, POSITION='N6',
$ CNT INSP
TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=3, POSITION='N8',
$
TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=4, POSITION=N9,
$
TYPE=SUBFOOT, BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=5, POSITION=XPCT_OOS,
$ ooS CHRG LD
TYPE=SUBFOOT,BY=INSPLEVEL, LINE=1,
OBJECT=FIELD, ITEM=6, POSITION='N16',
$OOS PLT RMVD
TYPE=SUBFOOT, BY=INSPLEVEL,LINE=1,
OBJECT=FIELD, ITEM=7, POSITION='N17',
$
$ GRAND TOTAL
TYPE=SUBFOOT, BY=XDUMMYSORT,
BORDER-TOP=OFF,
BORDER-BOTTOM=HEAVY,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-BOTTOM-STYLE=DOUBLE,
BORDER-BOTTOM-COLOR='GREY',
BACKCOLOR=RGB(245 245 245),
$region sort
TYPE=SUBFOOT, SIZE=8,BY=XDUMMYSORT,
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N8',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N9',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=3,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=4,POSITION='N16',
$
TYPE=SUBFOOT,LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=5,POSITION='N17',
$
TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=6,POSITION='N18',
$
TYPE=SUBFOOT, LINE=1,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=7,POSITION='N19',
$
TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, LINE=2,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N8',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT, LINE=2,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,LINE=2,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N16',
$
TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='N8', JUSTIFY=RIGHT,
$
$motor coach
TYPE=SUBFOOT, LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N9',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,LINE=3,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT, LINE=3,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=3,POSITION='N16',
$
TYPE=SUBFOOT,LINE=4,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=1,POSITION='N9',
$
TYPE=SUBFOOT, LINE=4,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=1,POSITION='XPCT_OOS',
$
TYPE=SUBFOOT, LINE=4,OBJECT=TEXT,BY=XDUMMYSORT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,LINE=4,OBJECT=FIELD,BY=XDUMMYSORT,
ITEM=2,POSITION='N16',
$
$
ENDSTYLE
END
-RUN
-IF &LINES GT 0 GOTO REPORT_END;
-*
-NO_DATA
-MRNOEDIT -INCLUDE MISI200
-*
-REPORT_END



-*------------------------------------------------------------------------------
-* Client : Ontario - Ministry of Transportation
-* Project : Road Side Data Capture
-* Application : District Workload and Defect Summary r Report
-* Module : rdc020a.fex
-* Description : drill from rdc020.fex based on xregion
-* Called By : WebFOCUS Business Intelligence Dashboard
-* Date Developed: January 2005
-* Developed by : Tamra Colangelo, Information Builders
-*------------------------------------------------------------------------------
-* Maintenance History
-*------------------------------------------------------------------------------
-* Modified by :
-* Date Modified:
-* Reason :
-* Mod. ID :
-*------------------------------------------------------------------------------
-STEP0
SET LINES=9999
SET PAPER=9999
SET SPACES = 1
SET ASNAMES= ON
-SET &RUN_DATE = &DATEMtrDYY;
-SET &RUN_TIME = EDIT(HHMMSS('A8'),'99$:99$:99');
-*QUARTERS
-DEFAULT &ADATE1 = '20050101';
-DEFAULT &ADATE2 = '20050131';
-SET &ADATETIME1 = &ADATE1 | ' 00:00:00';
-SET &ADATETIME2 = &ADATE2 | ' 23:59:59';
-SET &ADATE1TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE1, 'A17'), 'A17');
-SET &ADATE2TEXT = LCWORD(17,CHGDAT('YYMD', 'MXDYY', &ADATE2, 'A17'), 'A17');
-SET &QTRBEG_DATE = &ADATE1 | ' 00:00:00';
-SET &QTREND_DATE = &ADATE2 | ' 23:59:59';
-****SET &QTRBEG_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE1, 'A17'), 'A17');
-****SET &QTREND_DATE = LCWORD(17,CHGDAT('YYMD', 'YYMD', &ADATE2, 'A17'), 'A17');
-*
-STEP1
-*
-*--------------------------------------------------------------------------------
-* set up AXLE GROUPING + MOTORCOACH +
-* set up other counts for report
-* pickup all corresponding rec form inspectin and opt_field tables
-*--------------------------------------------------------------------------------
-AAA
SET ALL=ON
JOIN CLEAR *
JOIN INSPID IN INSPECTION TO ALL INSPID IN INSP_OPT_FIELD AS J1
DEFINE FILE INSPECTION
XVEHTYPE/A4 = IF INSPID EQ LAST INSPID THEN EDIT(OPTFIELDDATA,'9999') ELSE ' ';
XAXLE1/I5C = POSIT(OPTFIELDDATA,30,'=',2,'I2') ;
XAXLE2/A5 = IF INSPID EQ LAST INSPID THEN XAXLE2
ELSE SUBSTR(30,OPTFIELDDATA,XAXLE1,XAXLE1+2,4,XAXLE2);
XAXNUM/A2 = IF INSPID EQ LAST INSPID THEN XAXNUM
ELSE GETTOK(OPTFIELDDATA,30,-1,'=',2,XAXNUM);
X1AXNUM/I9C = EDIT(XAXNUM);
XAXLEGRP/A8 = IF XAXNUM EQ '2' AND XVEHTYPE EQ 'MC' OR 'VN' OR 'SP' OR 'PD' OR 'SB' OR 'BU' OR 'MT'
THEN '02-BUS'
ELSE DECODE XAXNUM('2' '2'
'3' '3-4'
'4' '3-4'
'5' '5-7'
'6' '5-7'
'7' '5-7'
ELSE '8+');
XMOTORCOACH/I9 = IF XVEHTYPE EQ 'MC' THEN 1 ELSE 0;
END
TABLE FILE INSPECTION
SUM
MAX.STATECENSUSNUM
MAX.OPTFIELDDATA
MAX.OPTFIELDID
MAX.XAXLE1
MAX.XAXLE2
MAX.XAXNUM
MAX.X1AXNUM
MAX.XAXLEGRP
MAX.XMOTORCOACH
MAX.TOTALVIO
MAX.TOTALOOSVIO
MAX.TOTALHM
MAX.INSPLOCATIONCODE
COMPUTE
-* to match with certifeid officers table later the 2 fields must be same format
XINSPECTORCODE/A8 = INSPECTORCODE;
BY INSPLEVEL
BY INSPID
BY RPTNUM
WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5'
WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND
INSPENDDATE LE (DT(&QTREND_DATE.EVAL));
WHERE OPTFIELDID EQ 52 OR 7 OR 10
ON TABLE HOLD AS RDC030A FORMAT ALPHA
END
-*EXIT
-RUN
-*----------------------------------------------------------
-* check for 0 records
-*
-IF &LINES EQ 0 GOTO NO_DATA;
-*
-*
-STEP2
-*--------------------------------------------------------------------------------
-* pick up only THE PLATES REMOVED AND CHARGES LAID (insp_opt_field table)
-* - the INSP_violation(oos) table joined with the other tables causes multiplicative effect
-* - using match to pick up all data in file1 and the matching rec form file2 (join produced only matching rec)
-*--------------------------------------------------------------------------------
TABLE FILE INSPECTION
PRINT
OPTFIELDDATA
OPTFIELDID
BY INSPID
WHERE ((OPTFIELDID GE 36 AND OPTFIELDID LE 50 OR 53) AND (OPTFIELDDATA EQ 'Y' ))
OR ((OPTFIELDID EQ 2 OR 11 OR 12 OR 13 OR 5 OR 53)
AND (OPTFIELDDATA EQ 'Y' OR 'N'))
WHERE INSPLEVEL EQ '1' OR '3' OR '4' OR '5'
WHERE INSPSTARTDATE GE (DT(&QTRBEG_DATE.EVAL)) AND
INSPENDDATE LE (DT(&QTREND_DATE.EVAL));
ON TABLE HOLD AS RDC030X FORMAT ALPHA
END
-RUN
-*
SET ALL=ON
MATCH FILE RDC030A
SUM
XAXLE2
X1AXNUM
XAXLEGRP
XMOTORCOACH
TOTALVIO
TOTALOOSVIO
TOTALHM
XINSPECTORCODE
INSPLOCATIONCODE
RPTNUM
INSPLEVEL
STATECENSUSNUM
BY INSPID
RUN
FILE RDC030X
PRINT
OPTFIELDDATA
OPTFIELDID
BY INSPID
AFTER MATCH HOLD AS RDC030B OLD
END
-RUN
DEFINE FILE RDC030B
XOOSINSP_CHRGLD/I9C = IF ( TOTALOOSVIO GT 0 ) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 )
OR (TOTALOOSVIO GT 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5)
THEN 1 ELSE 0;
XOOSINSP_PLTRMV/I9C = IF (TOTALOOSVIO NE 0) AND (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13)
THEN 1 ELSE 0;
XINSP_CHRGLD/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID GE 36 AND OPTFIELDID LE 50 )
OR (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 5)
THEN 1 ELSE 0;
XINSP_PLTRMV/I9C = IF (OPTFIELDDATA EQ 'Y') AND (OPTFIELDID EQ 2 OR 11 OR 12 OR 13)
THEN 1 ELSE 0;
XCNT_OOSINSP/I9C = IF (TOTALOOSVIO GT 0) THEN 1 ELSE 0;
-* to ensure grandtotals appear at end
XDUMMYSORT/A1 = ' ';
END
TABLE FILE RDC030B
SUM
CNT.DST.RPTNUM AS XCNTINSP
MAX.XCNT_OOSINSP
MAX.TOTALOOSVIO
MAX.X1AXNUM
XAXLEGRP
OPTFIELDID
OPTFIELDDATA
MAX.XOOSINSP_CHRGLD
MAX.XOOSINSP_PLTRMV
MAX.XINSP_CHRGLD
MAX.XINSP_PLTRMV
MAX.XMOTORCOACH
MAX.TOTALVIO
MAX.TOTALHM
XINSPECTORCODE
INSPLOCATIONCODE
COLUMN-TOTAL
BY INSPLEVEL
BY XAXLEGRP
BY RPTNUM
BY INSPID
ON TABLE HOLD AS RDC030D
END
-RUN
-*------------------------------------------
-* merge above file with officer names
JOIN XINSPECTORCODE IN RDC030D TO INSPCODE IN CERTIFIED_OFFICERS AS JD
TABLE FILE RDC030D
PRINT
XCNTINSP
XCNT_OOSINSP
X1AXNUM
XAXLEGRP
XMOTORCOACH
TOTALVIO
TOTALOOSVIO
TOTALHM
INSPLOCATIONCODE
XOOSINSP_CHRGLD
XOOSINSP_PLTRMV
XINSP_CHRGLD
XINSP_PLTRMV
INSPCODE
REGION
AREA
XREGION
XDISTRICT
COMPUTE
XOFFLSTNAME/A150 = LASTNAME || (', '|FRSTNAME );
XOFFNAME/A150 = INSPCODE | (' '|LASTNAME)|| (', '|FRSTNAME );
LASTNAME
BY INSPLEVEL
BY XAXLEGRP
ON TABLE HOLD AS RDC030F
END
-RUN
-*------------------------------------------
-*----- Final report
-*------------------------------------------
DEFINE FILE RDC030F
XBDATE/I8YYMD = &ADATE1.EVAL ;
XBEGDATE/MtRDYY = XBDATE;
XEDATE/I8YYMD = &ADATE2.EVAL ;
XENDDATE/MtRDYY = XEDATE;
XCNT_OOSINSP/I9C = IF (TOTALOOSVIO EQ 0) THEN 0 ELSE 1;
XTOTINSPHAZ/I9C = IF TOTALHM EQ 0 THEN 0 ELSE 1;
-* to ensure grandtotals appear at end
XDUMMYSORT/A1 = ' ';
END
TABLE FILE RDC030F
SUM
XCNTINSP AS 'No. of ,Inspections'
XCNT_OOSINSP AS 'No. OOS,Inspections'
-*---------------------------------------------------------
-* ASSUME xpct_oos to be the pct of OOS per total # of inspections
-*---------------------------------------------------------
COMPUTE XCNT_INSP/I6C = XCNTINSP; NOPRINT
COMPUTE XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNTINSP ) * 100; AS '%,OOS'
TOTALOOSVIO AS 'Total OOS,Violations'
TOTALVIO AS 'Total ,Violations'
XMOTORCOACH AS 'Motor,Coach'
XTOTINSPHAZ AS 'Total,Insp.,With,Hazmat'
XINSP_CHRGLD AS 'Insp.,with,Charges,laid'
XINSP_PLTRMV AS 'Insp.,with,Plates,Removed'
XOOSINSP_CHRGLD AS 'OOS Insp.,with,Charges,laid'
XOOSINSP_PLTRMV AS 'OOS Insp., with , Plates,Removed'
X1AXNUM NOPRINT
BY XDUMMYSORT NOPRINT
BY XREGION NOPRINT
BY XDISTRICT NOPRINT
BY LASTNAME NOPRINT
BY XOFFNAME AS 'Badge,No Name '
BY INSPLEVEL AS 'Level'
BY XAXLEGRP AS 'Axle,Groups'
ON XDISTRICT PAGE-BREAK
-*-------------------------------------------------------------------------------------------------------------------------
-* REGION CALCULATIONS REQUIRED
-*-------------------------------------------------------------------------------------------------------------------------
ON XREGION RECAP
XREG_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XREG_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XREG_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XREG_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XREG_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XREG_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100;
XREG_AVG_XOOSVIO/P6.2C = ( TOTALOOSVIO / XCNT_OOSINSP );
XREG_AVG_VIO/P6.2C = ( TOTALVIO / XCNT_INSP );
XREG_AVGAXL/P6.2C = ( X1AXNUM/XCNT_INSP );
ON XREGION SUBFOOT
"Total/Percentage: <+0> "<+0> Total Axles Inspected:<+0> Average OOS Violations/ OOS Inspection: <+0>"<+0> Average Axles/Inspection:<+0> Motor Coach:<+0> Average violations/Inspection: <+0>"<+0> Dangerous Goods:<+0> Percent of Inspections with Hazmat:<+0> -*-------------------------------------------------------------------------------------------------------------------------
-* DISTRICT SUBFOOTING CALCULATIONS
-*
ON XDISTRICT RECAP
XDIST_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XDIST_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XDIST_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XDIST_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XDIST_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XDIST_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP ) * 100;
XDIST_AVG_XOOSVIO/P6.2 = (TOTALOOSVIO / XCNT_OOSINSP) ;
XDIST_AVG_VIO/P6.2C = (TOTALVIO / XCNT_INSP ) ;
XDIST_AVGAXL/P6.2C = (X1AXNUM/XCNT_INSP);
ON XDISTRICT SUBFOOT
"Total/Percentage: <+0> "<+0> Total Axles Inspected: <+0> <+0> Average OOS Violations/ OOS Inspection:<+0>"<+0> Average Axles/Inspection:<+0> Motor Coach:<+0> Average violations/Inspection: <+0>"<+0> Dangerous Goods:<+0> Percent of Inspections with Hazmat: <+0>-*-------------------------------------------------------------------------------------------------------------------------
-* INSPECTOR SUBFOOTING CALCULATIONS
-*
ON XOFFNAME RECAP
XCHRGLD/I9 = XINSP_CHRGLD;
XINSP_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XINSP_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP) * 100;
XINSP_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XINSP_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XINSP_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XINSP_AVGAXL/P8.2C = (X1AXNUM/XCNT_INSP);
ON XOFFNAME SUBFOOT
" "
"Total/Percentage: <+0> "<20 Total Axles Inspected : <+3>"<20 Average Axles/Inspected: <+3>" "
-*-------------------------------------------------------------
-* LEVEL SUBFOOTING CALCULATIONS
-*
ON INSPLEVEL RECAP
XLVL_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XLVL_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XLVL_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
ON INSPLEVEL SUBFOOT
"Sub Totals <+0> -*
-*-------------------------------------------------------------------------------------------------------------------------
-* Grand totals
-*-------------------------------------------------------------------------------------------------------------------------
ON XDUMMYSORT RECAP
XGRND_XPCT_OOS/P8.2% = ( XCNT_OOSINSP / XCNT_INSP ) * 100;
XGRND_PCT_CHRGLD/P8.2% = ( XINSP_CHRGLD / XCNT_INSP ) * 100;
XGRND_PCT_PLTRMV/P8.2% = ( XINSP_PLTRMV / XCNT_INSP ) * 100;
XGRND_PCT_XOOSCHRGLD/P8.2% = ( XOOSINSP_CHRGLD / XCNT_OOSINSP ) * 100;
XGRND_PCT_XOOSPLTRMV/P8.2% = ( XOOSINSP_PLTRMV / XCNT_OOSINSP ) * 100;
XGRND_PCT_XTOTINSPHAZ/P8.2% = ( XTOTINSPHAZ / XCNT_INSP) * 100;
XGRND_AVG_XOOSVIO/P8.2C = ( TOTALOOSVIO / XCNT_OOSINSP );
XGRND_AVG_VIO/P8.2C = ( TOTALVIO / XCNT_INSP );
XGRND_AVGAXL/P8.2C = ( X1AXNUM/XCNT_INSP );
ON XDUMMYSORT SUBFOOT
"Provincial Total/Percentage: <+0> <+0> "<+0> Total Axles Inspected:<+0> Average OOS Violations/ OOS Inspection: <+0>"<+0> Average Axles/Inspection:<+0> Motor Coach:<+0> Average violations/Inspection: <+0>"<+0> Dangerous Goods:<+0> Percent of Inspections with Hazmat:<+0> HEADING
"SafetyNet Inspection System Ontario"
"District Workload and Defect Summary"
"From " "
"Region: <+0>"District: <+0>FOOTING BOTTOM
"Report ID: rdc020 / User ID: &MTO_USER / Date: &RUN_DATE / Time: &RUN_TIME <100>Page: <105>-*-------------------------------------------------------------
-* SELECTION CRITERIA
-*
WHERE XREGION EQ '&XREGION'
-*
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE='Letter',
LEFTMARGIN=0.180556, RIGHTMARGIN=0.180556,
TOPMARGIN=0.180556, BOTTOMMARGIN=0.00122,
SQUEEZE=ON, ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
FONT='ARIAL', SIZE=7, COLOR='NAVY',
BACKCOLOR='NONE',STYLE=NORMAL,
RIGHTGAP=0.125000, TOPGAP=0.013889,
$ BOTTOMGAP=0.027778,
$
TYPE=DATA, COLUMN=N1,SIZE=8,
$
TYPE=TITLE,STYLE=BOLD,
$
TYPE=TITLE,COLUMN=N1, SIZE=8,
$
TYPE=TABHEADING, SIZE=12, STYLE=BOLD,
$
TYPE=HEADING,
BORDER=LIGHT, BORDER-COLOR='GRAY',
SIZE=12,STYLE=BOLD,
$
TYPE=HEADING, LINE=1, JUSTIFY=CENTER,
$
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1,
FONT='TIMES NEW ROMAN', SIZE=20,
COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC,
$
TYPE=HEADING, LINE=2, JUSTIFY=CENTER,
$
TYPE=HEADING, LINE=2,OBJECT=TEXT, ITEM=1,
FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC,
$
TYPE=HEADING, LINE=3,FONT='ARIAL', SIZE=11,
COLOR=RGB(0 0 129), STYLE=BOLD+ITALIC, JUSTIFY=CENTER,
$
TYPE=HEADING, LINE=4,JUSTIFY=CENTER,
$
TYPE=HEADING, LINE=4,OBJECT=TEXT, ITEM=1,
FONT='ARIAL', SIZE=11, COLOR=RGB(0 0 129),
STYLE=BOLD+ITALIC,
$
TYPE=HEADING, LINE=5,STYLE=BOLD+ITALIC,
$
TYPE=HEADING, LINE=6,STYLE=BOLD+ITALIC,
$
TYPE=FOOTING, LINE=1, SIZE=6, STYLE=ITALIC, COLOR=GREY,
$
TYPE=SUBHEAD, SIZE=10, STYLE=BOLD,
$
TYPE=SUBFOOT, SIZE=8,
$
TYPE=SUBFOOT, BY=XREGION,
BORDER-TOP=MEDIUM,
BORDER-BOTTOM=HEAVY,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-BOTTOM-STYLE=DOUBLE,
BORDER-BOTTOM-COLOR='GREY',
BACKCOLOR=RGB(245 245 245),
$region sort
TYPE=SUBFOOT,BY=XREGION, SIZE=8,
$
TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=2,POSITION='N8',
$
TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=3,POSITION='N9', JUSTIFY=RIGHT,
$
TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=4,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=5,POSITION='N16',
$
TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=6,POSITION='N17',
$
TYPE=SUBFOOT, BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=7,POSITION='N18',
$
TYPE=SUBFOOT,BY=XREGION, LINE=1,OBJECT=FIELD,
ITEM=8,POSITION='N19',
$
TYPE=SUBFOOT,BY=XREGION, LINE=2,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT,BY=XREGION, LINE=2,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT, BY=XREGION, LINE=2,OBJECT=TEXT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT, BY=XREGION, LINE=2,OBJECT=FIELD,
ITEM=2,POSITION='N16',
$
TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=FIELD,
ITEM=1,POSITION='N8', JUSTIFY=RIGHT,
$
$motor coach
TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=TEXT,
ITEM=4,POSITION='N9',
$
TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=FIELD,
ITEM=2,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT, BY=XREGION, LINE=3,OBJECT=TEXT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT,BY=XREGION, LINE=3,OBJECT=FIELD,
ITEM=3,POSITION='N16',
$
TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=TEXT,
ITEM=1,POSITION='N9',
$
TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=FIELD,
ITEM=1,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT, BY=XREGION, LINE=4,OBJECT=TEXT,
ITEM=4,POSITION='N12',
$
TYPE=SUBFOOT,BY=XREGION, LINE=4,OBJECT=FIELD,
ITEM=2,POSITION='N16',
$
TYPE=SUBFOOT,
BY=XDISTRICT, SIZE=7,
BORDER-TOP=MEDIUM,
BORDER-LEFT=OFF,
BORDER-RIGHT=OFF,
BORDER-COLOR=GREY,
BACKCOLOR=RGB(245 245 245),
$
$district sort
TYPE=SUBFOOT, BY=XDISTRICT, SIZE=8,
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=2,POSITION='N8',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=3,POSITION='N9',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=4,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=5,POSITION='N16',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=6,POSITION='N17',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=7,POSITION='N18',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=1,OBJECT=FIELD,
ITEM=8,POSITION='N19',
$--------------
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
$average OOS violations/OOS inspections
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=TEXT,
ITEM=3,POSITION='N12',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=2,OBJECT=FIELD,
ITEM=2,POSITION='N16',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=1,POSITION='N6',
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=1,POSITION='N8',
$
$motor coach
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=4,POSITION='N9', JUSTIFY=RIGHT,
$
TYPE=SUBFOOT, BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=2,POSITION=XPCT_OOS,
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=TEXT,
ITEM=6,POSITION='N12',
$
TYPE=SUBFOOT,BY=XDISTRICT, LINE=3,OBJECT=FIELD,
ITEM=3,POSITION='N16',
$DANGE


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Expert
posted Hide Post
Adrian, there's no point in posting the fexes launched by the HTML form - IBIMR_folder is not in the fexes. Post the HTML (within
[code]
[/code]
tags), maybe we will find something in there...


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Gold member
posted Hide Post
Hi Francis,
Yes, I did include the html on Fri but I guess it got left out because everything got too long and it got truncated. Here it is:
<!-- ---------------------------------------------------------------------------
Client        : Ontario - Ministry of Transportation
Project       : RoadSide Data Capture
Application   : RDC - RoadSide Data Capture
Module Name   : rdc020.html
Description   : Defect Summary and Workload
Called By     : WebFOCUS Business Intelligence Dashboard
Developed by  : Tamra Colangelo, Information Builders inc
Date Developed: January 2005
--------------------------------------------------------------------------------
Maintenance History
--------------------------------------------------------------------------------
Modified by  :
Date Modified:
Reason       :
Mod. ID      :
---------------------------------------------------------------------------- -->
<HTML>
<HEAD>
<TITLE>HtmlPage
</TITLE>
<script language="JavaScript" src="/approot/mtomis/js_library.js"></script>
<script language="JavaScript" src="/approot/mtomis/parameter.js"></script>
<script language="JavaScript" src="/approot/mtomis/calendar.js"></script>
<script language="JavaScript" type="text/javascript">
// Initialize global variables for dates and calendar -------------------------
// Initialize global variable for first valid date and year
var gFirstValidDate = new Date();
gFirstValidDate.setFullYear('1998');
gFirstValidDate.setMonth('04'); // April
gFirstValidDate.setDate('19');
var gFirstValidYear = gFirstValidDate.getFullYear();
// Initialize global variable for last valid date and year
var gLastValidDate = new Date();
var gLastValidYear = gLastValidDate.getFullYear();
var gFirstDateTestFlag  = true;  // First valid date test indicator
var gLastDateTestFlag   = true; // Last valid date test indicator
var gDisableWeekend     = false;  // Enable/Disable Weekend date selection
</script>
<LINK href="/approot/mtomis/parameter.css" type=text/css rel=stylesheet>
<META content="WebFocus Report Layout Painter" name ="Generator">
</HEAD>
<BODY onload=OnLoad() nextelementnum="117" drawgrid="1" snaptogrid="1" gridsizeCX="10" gridsizeCY="10" pagesizeCX="2000" pagesizeCY="2000" WindowPlacement="0,3,0,0,-4,-23,0,83,815,514">
<!--startibiitems-->
<SCRIPT type=text/javascript>
var cgipath = "cgipath";
var ibirls = "ibirls";
var ibiOptions = new Array(cgipath,ibirls);
</SCRIPT>
<SCRIPT src="/ibi_html/javaassist/nls.js" type=text/javascript>
</SCRIPT>
<SCRIPT src="/ibi_html/javaassist/ibi/html/js/ibigbl.js" type=text/javascript>
</SCRIPT>
<FORM onsubmit="return fnValidateDates();" method=post name ="form" target="RepOut">
<INPUT type=hidden value=rdclikv6/rdclikv6.htm name ="IBIMR_domain">
<INPUT type=hidden value=MR_RUN_FEX name ="IBIMR_action">
<INPUT type=hidden value=MR_STD_REPORT name ="IBIMR_sub_action">
<INPUT type=hidden value=app/rdc020.fex name ="IBIMR_fex">
<INPUT type=hidden value=app/rdc020.fex name ="IBIF_ex">
<INPUT type=hidden value=#rdcqs8brb713 name ="IBIMR_folder">
<INPUT type=hidden value=17:09:38 name ="IBIMR_random">
<!--<INPUT type=hidden value=# name ="IBIAPP_app" ismre="1">-->
<INPUT type=hidden value=EDASERVE name ="IBIC_server">
<center>
<div class="ScreenID">rdc020</div>
<table cellspacing="0" cellpadding="0" border="0">
<tr><td style="height: 18px;"></td></tr>
<tr>
<td colspan="2" align="center"><SPAN class="ReportTitle">Defect and Workload Summary </SPAN></td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td><SPAN class="FormLabel">Begin Date:  </SPAN></td>
<td>
<select name="DT1_MM" size="1" class="FormObject" style="width: 50px;"
onChange="fnSetNbrDays(DT1_DD,DT1_MM,DT1_YY);"></select>
<select name="DT1_DD" size="1" class="FormObject" style="width: 40px;"></select>
<select name="DT1_YY" size="1" class="FormObject"
onChange="fnSetNbrDays(DT1_DD,DT1_MM,DT1_YY);" style="width: 55px;"></select>
<img src="../../approot/mtomis/calendar.gif" border="0" align="top"
alt="Pick a date from a pop-up calendar" style="cursor: hand;"
onClick="fnShowCalendar('DT1');">
<input type="hidden" name="ADATE1">
<span class="FormLabel">     End Date:  </span>
<select name="DT2_MM" size="1" class="FormObject" style="width: 50px;"
onChange="fnSetNbrDays(DT2_DD,DT2_MM,DT2_YY);"></select>
<select name="DT2_DD" size="1" class="FormObject" style="width: 40px;"></select>
<select name="DT2_YY" size="1" class="FormObject" style="width: 55px;"
onChange="fnSetNbrDays(DT2_DD,DT2_MM,DT2_YY);"></select>
<img src="../../approot/mtomis/calendar.gif" border="0" align="top"
alt="Pick a date from a pop-up calendar" style="cursor: hand;"
onClick="fnShowCalendar('DT2');">
<input type="hidden" name="ADATE2"></td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td><SPAN class="FormLabel">Report Format</SPAN></td>
<td valign="middle">
<input type="radio" name="OUTPUT" value="PDF" title="PDF" checked><img
src="../../approot/mtomis/sbpdf.gif" title="PDF" align="middle"
onClick="SetRadioButton(forms[0].OUTPUT,'PDF');"><span class="FormObject"
title="PDF" onClick="SetRadioButton(forms[0].OUTPUT,'PDF');"> PDF</span>
</td>
</tr>
<tr><td style="height: 20px;"></td></tr>
<tr>
<td></td>
<td align="left">
<INPUT class="FormButton" type=submit value="Submit"><span style="width: 20px;"></span>
<INPUT class="FormButton" type=reset value="Reset"></td>
</tr>
</table>
</FORM>
<!--endibiitems-->
<SCRIPT id=OnloadHandler>
function OnLoad()
{
fnSetUpDates();
//fnSetUpYear(document.forms[0].BEGDATE);
//fnSetUpYear(document.forms[0].ENDDATE);
<!--startibilines-->
UpdateData();
<!--endibilines-->
}
</SCRIPT>
</BODY>
</HTML>

Thanks very much.


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Expert
posted Hide Post
Adrian, I don't have MRE here so I can't simulate opening a 5.3.2 html page in 7.6.5, but I wonder if the problem is with the syntax of the html, in the following lines the values are not in double-quotes - that could be the problem:

<INPUT type=hidden value=rdclikv6/rdclikv6.htm name ="IBIMR_domain">
<INPUT type=hidden value=MR_RUN_FEX name ="IBIMR_action">
<INPUT type=hidden value=MR_STD_REPORT name ="IBIMR_sub_action">
<INPUT type=hidden value=app/rdc020.fex name ="IBIMR_fex">
<INPUT type=hidden value=app/rdc020.fex name ="IBIF_ex">
<INPUT type=hidden value=#rdcqs8brb713 name ="IBIMR_folder">
<INPUT type=hidden value=17:09:38 name ="IBIMR_random">


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Expert
posted Hide Post
Between your two releases there were quite a few changes to the way that the onload scripts run. Looking at your code it can easily be seen that it's from 5.3 because the ibirls reference is not suffixed with a 2 - ibirls2. This module (appeared in 7.n) does a lot of the processing and is backward compatible (or should be!) - I occasionally slip back to ibirls because of functionality that I do not require.

Another thing of note from your code is that is has been stripped of a fair amount as there are a few modules that I would expect to be in there. You also obviously use your own calendar functions as well and therefore I would suggest that your code is not straight layout painter.

If you have the option just use the version from 5.3.2 and see how you go - it should function OK without modification, most if not all of mine do.

AS for the error, have you converted / moved all of your MRE folders and have you checked that the HTML references are still the same (go to MRE in DS and right click the domain, slect properties then do the same for the sub folders).

T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Gold member
posted Hide Post
Hi,
Yes, I put in double quotes for the value= parms but it didn't work. Gave the same error message in the TEST environment.
Then I checked all the domain and folder references and they look correct. The html and fex work fine in the DEV environment even last Fri. Even the drill downs work on the pdf doc. I will keep checking to see what I am missing. Thank you.


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Expert
posted Hide Post
Adrian,

Dare I suggest it may be worth rebuilding the HTML page in the new Dev Studio Layout Painter?


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Gold member
posted Hide Post
Hi Francis,
Actually, that's what I did. Because when I tried to use the fex code to generate the html I couldn't do it. Even when I used the "Edit in Associated tool" it still came up with the Report Painter Tool.
Thus, I right clicked and created a new html. Then in the body I could insert the old html code (a line in the body said so so that's what I did) and that's how I came up with the new html code. That is the code that keeps telling me it couldn't find the IBIMR_folder value but it is there, value is corect and referenced correctly.
The someone came along and used a -TYPE IBIMR_folder at the beginning of the html code and I ran the code after exiting and it couldn't find the value of the folder as well.
There are no error messages at all about not being able to find any javascripts so I assume the javascripts are fine. I checked the existence of the javascripts and they are there. Will try other ideas.
Thank you.


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Expert
posted Hide Post
Adrian, I'm suggesting actually rebuilding from scratch - not copy-pasting from the old version. As Tony mentions, he doesn't see certain lines he was expecting to in the old code - perhaps some code was removed but is required in the new version.


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Gold member
posted Hide Post
Hi Francis,
I created the html from scratch in the Html Layout Painter. One big difference is that the old html uses a FORM and I don't. I was told in a course that we should avoid using it.
However, I need a lot of javascripts to customize it. For e.g. the Calendar date control type that I use only lets me use a date in YYMD format. The old html page uses drop down lists for each of the Month, Day and Year fields.
Do you know where I can find some javascripts that I can put into my V766 Html? BTW here is the new V766 html code.
Thanks.
<code_start>
< !-- Generated by Report Layout Painter -->
<HTML>
<HEAD>
<TITLE>HtmlPage</TITLE>
<BASE href=HTTP://mtoidutapp02:7680>
<script id=clientEventHandlersJS type=text/javascript>
//Begin function window_onload
function window_onload() {

UpdateData();

// TODO: Add your event handler code here
//add onInitialUpdate() function to make changes before initial run of the reports
}
//End function window_onload

//Begin function button1_OnClick
function button1_OnClick(ctrl) {
// TODO: Add your event handler code here
OnExecute(ctrl)
}
//End function button1_OnClick
</SCRIPT>

<script for=window eventname="onload">window.onload = function() { window_onload(); }</SCRIPT>

<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY title="" style="OVERFLOW: auto" bgColor=#99ccff edaconnectionrequired="true">
<INPUT language=java_script id=button1 style="Z-INDEX: 1; LEFT: 270px; WIDTH: 100px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" onclick=button1_OnClick[this) tabIndex=1 type=button value=Submit name=button1 requests_list="0"> 
<INPUT id=reset1 style="Z-INDEX: 2; LEFT: 410px; WIDTH: 90px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" tabIndex=2 type=reset value=Reset name=reset1> 
<SPAN id=radio1 title="" contentEditable=false style="Z-INDEX: 3; LEFT: 270px; WIDTH: 90px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=3 columns="1" name="radio1" operation="NONE">
<TABLE contentEditable=false style="WIDTH: 100%; HEIGHT: 100%" cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD>
<INPUT id=radio1_0 type=radio CHECKED value=Value1 name=radio1 displaytext="      PDF"> 
<LABEL style="CURSOR: default" tabIndex=3 for=radio1_0>       PDF</LABEL></TD></TR></TBODY></TABLE></SPAN>
<SPAN id=text1 style="FONT-WEIGHT: bold; Z-INDEX: 4; LEFT: 150px; WIDTH: 120px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=4>Report Format </SPAN>
<IMG id=image1 style="Z-INDEX: 5; LEFT: 290px; POSITION: absolute; TOP: 160px" tabIndex=5 src="C:\DOCUME~1\wongad\LOCALS~1\Temp\ddm_00002.gif" border=0 name=image1 originalWidth="16" originalHeight="16" rtFileName="app/sbpdf.gif"> 
<SPAN id=text4 style="FONT-WEIGHT: bold; Z-INDEX: 10; LEFT: 310px; WIDTH: 250px; COLOR: #ffffff; POSITION: absolute; TOP: 20px; HEIGHT: 20px" tabIndex=10>Defect and Workload Summary</SPAN> 
<SPAN id=text5 style="Z-INDEX: 11; LEFT: 150px; WIDTH: 100px; POSITION: absolute; TOP: 100px; HEIGHT: 20px" tabIndex=11>
<SPAN style="FONT-WEIGHT: bold">Begin Date:</SPAN></SPAN> 
<INPUT id=calendar3 style="Z-INDEX: 12; LEFT: 270px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=12 hspace=0 accept=0 size=3 value=20050107 name=ADATE1 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050107" addalloption="0" labelid="text5"> 
<SPAN id=text6 style="FONT-WEIGHT: bold; Z-INDEX: 13; LEFT: 430px; WIDTH: 81px; POSITION: absolute; TOP: 100px; HEIGHT: 18px" tabIndex=13>End Date:</SPAN> 
<INPUT id=calendar4 style="Z-INDEX: 14; LEFT: 520px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=14 hspace=0 accept=0 size=5 value=20050108 name=ADATE2 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050108" addalloption="0" labelid="text6"> 
<xml id=ibi_requests>
<script>
	
<requests>
		
<request requestid="0" sourcetype="typeFex" targettype="window" targetname="_blank" ibif_ex="app/rdc020.fex" IBIMR_domain="rdclikv6/rdclikv6.htm" IBIMR_folder="#rdcqs8brb713" IBIMR_sub_action="MR_STD_REPORT" activereport="0" reportcolumns="" ibiapp_app="">
			
<variables>
				
<variable parametercreatedinreslay="0" displayfield="ADATE1" format="" field="ADATE1" file="inspection.mas" desc="ADATE1" datatype="0" operation="" default="20050107" name="ADATE1" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable>
				
<variable parametercreatedinreslay="0" displayfield="ADATE2" format="" field="ADATE2" file="inspection.mas" desc="ADATE2" datatype="0" operation="" default="20050108" name="ADATE2" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable></variables></request></requests></script>
</xml></BODY></HTML>

</code_end>

This message has been edited. Last edited by: Kerry,


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Gold member
posted Hide Post
Don't kno wwhy it doesn't show all the html code but here goes again...
<!-- Generated by Report Layout Painter -->
<HTML>
<HEAD>
<TITLE>HtmlPage</TITLE>
<BASE href=HTTP://mtoidutapp02:7680>
<SCRIPT id=clientEventHandlersJS type=text/javascript>
//Begin function window_onload
function window_onload() {

UpdateData();

// TODO: Add your event handler code here
//add onInitialUpdate() function to make changes before initial run of the reports
}
//End function window_onload

//Begin function button1_OnClick
function button1_OnClick(ctrl) {
// TODO: Add your event handler code here
OnExecute(ctrl)
}
//End function button1_OnClick
</SCRIPT>

<SCRIPT for=window eventname="onload">window.onload = function() { window_onload(); }</SCRIPT>

<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY title="" style="OVERFLOW: auto" bgColor=#99ccff edaconnectionrequired="true">
<INPUT language=javascript id=button1 style="Z-INDEX: 1; LEFT: 270px; WIDTH: 100px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" onclick=button1_OnClick(this) tabIndex=1 type=button value=Submit name=button1 requests_list="0"> 
<INPUT id=reset1 style="Z-INDEX: 2; LEFT: 410px; WIDTH: 90px; POSITION: absolute; TOP: 230px; HEIGHT: 30px" tabIndex=2 type=reset value=Reset name=reset1> 
<SPAN id=radio1 title="" contentEditable=false style="Z-INDEX: 3; LEFT: 270px; WIDTH: 90px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=3 columns="1" name="radio1" operation="NONE">
<TABLE contentEditable=false style="WIDTH: 100%; HEIGHT: 100%" cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD>
<INPUT id=radio1_0 type=radio CHECKED value=Value1 name=radio1 displaytext="      PDF"> 
<LABEL style="CURSOR: default" tabIndex=3 for=radio1_0>       PDF</LABEL></TD></TR></TBODY></TABLE></SPAN>
<SPAN id=text1 style="FONT-WEIGHT: bold; Z-INDEX: 4; LEFT: 150px; WIDTH: 120px; POSITION: absolute; TOP: 160px; HEIGHT: 20px" tabIndex=4>Report Format </SPAN>
<IMG id=image1 style="Z-INDEX: 5; LEFT: 290px; POSITION: absolute; TOP: 160px" tabIndex=5 src="C:\DOCUME~1\wongad\LOCALS~1\Temp\ddm_00002.gif" border=0 name=image1 originalWidth="16" originalHeight="16" rtFileName="app/sbpdf.gif"> 
<SPAN id=text4 style="FONT-WEIGHT: bold; Z-INDEX: 10; LEFT: 310px; WIDTH: 250px; COLOR: #ffffff; POSITION: absolute; TOP: 20px; HEIGHT: 20px" tabIndex=10>Defect and Workload Summary</SPAN> 
<SPAN id=text5 style="Z-INDEX: 11; LEFT: 150px; WIDTH: 100px; POSITION: absolute; TOP: 100px; HEIGHT: 20px" tabIndex=11>
<SPAN style="FONT-WEIGHT: bold">Begin Date:</SPAN></SPAN> 
<INPUT id=calendar3 style="Z-INDEX: 12; LEFT: 270px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=12 hspace=0 accept=0 size=3 value=20050107 name=ADATE1 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050107" addalloption="0" labelid="text5"> 
<SPAN id=text6 style="FONT-WEIGHT: bold; Z-INDEX: 13; LEFT: 430px; WIDTH: 81px; POSITION: absolute; TOP: 100px; HEIGHT: 18px" tabIndex=13>End Date:</SPAN> 
<INPUT id=calendar4 style="Z-INDEX: 14; LEFT: 520px; WIDTH: 70px; POSITION: absolute; TOP: 100px; HEIGHT: 22px" tabIndex=14 hspace=0 accept=0 size=5 value=20050108 name=ADATE2 operation="NONE" elementtype="14" calendardata="0/0/-10;0/0/10" calendardatatype="1" ibiformat="YYMD" datasource datatype="0" sourcetype="typeMaster" requiredfield="43937600" boundtovariable="1" selectedvalue="20050108" addalloption="0" labelid="text6"> 
<xml id=ibi_requests>
<script>
	
<requests>
		
<request requestid="0" sourcetype="typeFex" targettype="window" targetname="_blank" ibif_ex="app/rdc020.fex" IBIMR_domain="rdclikv6/rdclikv6.htm" IBIMR_folder="#rdcqs8brb713" IBIMR_sub_action="MR_STD_REPORT" activereport="0" reportcolumns="" ibiapp_app="">
			
<variables>
				
<variable parametercreatedinreslay="0" displayfield="ADATE1" format="" field="ADATE1" file="inspection.mas" desc="ADATE1" datatype="0" operation="" default="20050107" name="ADATE1" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable>
				
<variable parametercreatedinreslay="0" displayfield="ADATE2" format="" field="ADATE2" file="inspection.mas" desc="ADATE2" datatype="0" operation="" default="20050108" name="ADATE2" textvarname="" accept="0" type="default" select="0" min="" max="" controltype="14" create="1"></variable></variables></request></requests></script>
</xml></BODY></HTML>



WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Platinum Member
posted Hide Post
Could some of your problems be due to going from cgi to wfservlet calls ?


Regards,
Dave

http://www.daveayers.com

WebFocus/Maintain 7.6.4-8
on Win2000 and 2003 Server
 
Posts: 165 | Location: Detroit Metro | Registered: September 17, 2003Report This Post
Gold member
posted Hide Post
Hi Dave,
We have never used cgi calls here as far as I know, only wfservlet calls. Was there somehting in the code that suggested that? Thanks.


WF V7.7.03
Platform: AIX 6.1 64-bit, WinXP, IE 8.0
Output Formats: Html, Pdf, Excel
 
Posts: 71 | Registered: October 16, 2006Report This Post
Expert
posted Hide Post
Adrian,

I have never used Layout Painter to generate the HTML page, not have I created an HTML launch page without a form, so I'm sorry I can't be of much help.


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Platinum Member
posted Hide Post
I only suggested the cgi possibility, since we are going through that, I didn't look through te volumes of code.

You said you had been warned off HTML forms, but perhaps that was Frames, not Forms. Frames are deprecated, but forms are necessary for any interactivity as they contain the controls and hidden variables that WF uses.


Regards,
Dave

http://www.daveayers.com

WebFocus/Maintain 7.6.4-8
on Win2000 and 2003 Server
 
Posts: 165 | Location: Detroit Metro | Registered: September 17, 2003Report This Post
Expert
posted Hide Post
quote:
<INPUT type=hidden value=rdclikv6/rdclikv6.htm name ="IBIMR_domain">
<INPUT type=hidden value=MR_RUN_FEX name ="IBIMR_action">
<INPUT type=hidden value=MR_STD_REPORT name ="IBIMR_sub_action">
<INPUT type=hidden value=app/rdc020.fex name ="IBIMR_fex">
<INPUT type=hidden value=app/rdc020.fex name ="IBIF_ex">
<INPUT type=hidden value=#rdcqs8brb713 name ="IBIMR_folder">
<INPUT type=hidden value=17:09:38 name ="IBIMR_random">
Adrian,

I see that you code is enhanced with various local JS modules and a css link, so I guess that you have edited via the code tab as well?

In the above quoted code I would expect to see ID as well as NAME attributes. Try adding them to each line using the same value as for the NAME attribute and see if that is your problem.

e.g.
<INPUT type="hidden" value="#rdcqs8brb713" name="IBIMR_folder" id="IBIMR_folder">

T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     Convert V532 HTML to V766 HTML

Copyright © 1996-2020 Information Builders