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. Moving forward, myibi is our community platform to learn, share, and collaborate. We have the same Focal Point forum categories in myibi, so you can continue to have all new conversations there. If you need access to myibi, contact us at myibi@ibi.com and provide your corporate email address, company, and name.


Connect to myibi
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED] Working with existing code

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED] Working with existing code
 Login/Join
 
Member
posted
I am trying to get "Paired with: " to display at top of header line. HEAD5,HEAD51,HEAD52, and HEAD53 What do I change?
<
JOIN SCHOOL_YEAR AND SUBGROUP IN REPORTING_WAEA TO SCHOOL_YEAR AND SUBGROUP IN REPORTING_CUTS AS J01;
JOIN SUBGROUP AND SCHOOL_YEAR AND SCHOOL_ID AND DISTRICT_ID IN REPORTING_WAEA TO SUBGROUP AND SCHOOL_YEAR AND SCHOOL_ID AND DISTRICT_ID IN REPORTING_ESSA AS J02;
-*JOIN SUBGROUP AND SCHOOL_ID AND DISTRICT_ID IN REPORTING_WAEA TO SUBGROUP AND SCHOOL_ID AND DISTRICT_ID IN REPORTING_ESSA AS J02;

TABLE FILE REPORTING_WAEA
PRINT SCHOOL_YEAR
DISTRICT_NAME
SCHOOL_NAME
GRADES_SERVED
ENROLLMENT
SPL
TOTAL_WEIGHTED_SCORE_FINAL
TRAD_WAEA_CUT1
TRAD_WAEA_CUT2
G38_WAEA_CUT3
SUBGROUP
AVERAGE_INDICATOR_SCORE_FINAL
AVERAGE_ACHIEVE_GROWTH_CSI
PAIRED_SCHOOL_NAMES
CSI_YEAR_IDENTIFIED
ATS_YEAR_IDENTIFIED
MET_FIRST_YEAR_EXIT
COMPUTE CLASS/A25V = IF UNCLASSIFIED EQ '1' THEN 'Not Identified' ELSE IF UNCLASSIFIED EQ '' THEN 'Under Review' ELSE 'Identified';
WHERE REPORTING_WAEA.REPORTING_WAEA.SCHOOL_YEAR EQ &SCHOOL_YEAR.(FIND REPORTING_WAEA.REPORTING_WAEA.SCHOOL_YEAR IN reporting_waea|FORMAT=A7V).SCHOOL_YEAR:.QUOTEDSTRING;
WHERE REPORTING_WAEA.REPORTING_WAEA.DISTRICT_ID EQ &DISTRICT_ID.(FIND REPORTING_WAEA.REPORTING_WAEA.DISTRICT_ID IN reporting_waea|FORMAT=A7V).DISTRICT_ID:.QUOTEDSTRING;
WHERE REPORTING_WAEA.REPORTING_WAEA.SCHOOL_ID EQ &SCHOOL_ID.(FIND REPORTING_WAEA.REPORTING_WAEA.SCHOOL_ID IN reporting_waea|FORMAT=A7V).SCHOOL_ID:.QUOTEDSTRING;
WHERE RECORDLIMIT EQ 1
ON TABLE HOLD AS PRIMARY_HOLD
END

JOIN CLEAR *
JOIN SCHOOL_ID AND DISTRICT_ID AND SCHOOL_YEAR IN REPORTING_WAEA TO SCHOOL_ID AND DISTRICT_ID AND SCHOOL_YEAR IN REPORTING_ESSA AS J03;

TABLE FILE REPORTING_WAEA
PRINT
COMPUTE CSITEXT/A200V = IF CSI EQ LAST CSI AND SCHOOL_ID EQ LAST SCHOOL_ID AND CSI EQ 1 THEN CSITEXT
ELSE IF CSI EQ 1 THEN 'Identified' |': '| REPORTING_WAEA.REPORTING_ESSA.CSI_YEAR_IDENTIFIED ELSE 'N/A';
BY CSI
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_CSI1
END

TABLE FILE PH_CSI1
SUM CSITEXT
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_CSI
END

TABLE FILE REPORTING_WAEA
PRINT
COMPUTE TSITEXT/A200V = IF TSI EQ LAST TSI AND SCHOOL_ID EQ LAST SCHOOL_ID AND SCHOOL_YEAR EQ LAST SCHOOL_YEAR AND TSI EQ 1 THEN TSITEXT |','|REPORTING_WAEA.REPORTING_ESSA.SUBGROUP
ELSE IF TSI EQ 1 THEN REPORTING_WAEA.REPORTING_ESSA.SUBGROUP ELSE 'N/A';
BY TSI
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_TSI1
END

TABLE FILE PH_TSI1
SUM TSITEXT
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_TSI
END

TABLE FILE REPORTING_WAEA
PRINT
COMPUTE ATSTEXT/A200V = IF ATS EQ LAST ATS AND SCHOOL_ID EQ LAST SCHOOL_ID AND SCHOOL_YEAR EQ LAST SCHOOL_YEAR AND ATS EQ 1 THEN ATSTEXT |','|REPORTING_WAEA.REPORTING_ESSA.SUBGROUP
ELSE IF ATS EQ 1 THEN 'Identified' |': '| REPORTING_WAEA.REPORTING_ESSA.ATS_YEAR_IDENTIFIED ELSE 'N/A';
BY ATS
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_ATS1
END

TABLE FILE PH_ATS1
SUM ATSTEXT
BY DISTRICT_NAME
BY SCHOOL_NAME
ON TABLE HOLD AS PH_ATS
END

JOIN LEFT_OUTER DISTRICT_NAME AND SCHOOL_NAME IN PRIMARY_HOLD TO DISTRICT_NAME AND SCHOOL_NAME IN PH_TSI AS J04;

JOIN LEFT_OUTER DISTRICT_NAME AND SCHOOL_NAME IN PRIMARY_HOLD TO DISTRICT_NAME AND SCHOOL_NAME IN PH_ATS AS J05;

JOIN LEFT_OUTER DISTRICT_NAME AND SCHOOL_NAME IN PRIMARY_HOLD TO DISTRICT_NAME AND SCHOOL_NAME IN PH_CSI AS J055;

DEFINE FILE PRIMARY_HOLD
HEAD1/A100V = 'District Name: ';
HEAD11/A100V = DISTRICT_NAME;
HEAD2/A100V = 'School Name: ';
HEAD21/A100V = SCHOOL_NAME;
HEAD3/A100V = 'Grades Served: ';
HEAD31/A100V = GRADES_SERVED;
HEAD4/A100V = 'Enrollment: ';
HEAD41/A100V = TRIM_(LEADING, ' ',FTOA(ENROLLMENT, '(F11)', 'A11'));
HEAD5/A100V = IF PAIRED_SCHOOL_NAMES EQ '' THEN '' ELSE 'Paired with: ';
L1/I4 = LENV(PAIRED_SCHOOL_NAMES,L1);
S1/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,1,',',100,S1) ELSE '';
S2/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,2,',',100,S2) ELSE '';
S3/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,3,',',100,S3) ELSE '';
S4/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,4,',',100,S4) ELSE '';
S5/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,5,',',100,S5) ELSE '';
S6/A100V = IF L1 GT 80 THEN GETTOK(PAIRED_SCHOOL_NAMES,L1,6,',',100,S6) ELSE '';
HEAD51/A100V = IF PAIRED_SCHOOL_NAMES EQ '' THEN '' ELSE IF L1 GT 80 THEN S1||','||S2 ELSE PAIRED_SCHOOL_NAMES;
HEAD51/A100V = IF S3 NE '' THEN HEAD51||',' ELSE HEAD51;
-*L2/I4 = LENV(HEAD51,L2) +1;
HEAD520/A20V = 'Paired with: ';
HEAD52/A100V = IF L1 LE 80 THEN '' ELSE IF S4 NE '' THEN S3||','||S4
ELSE IF S3 NE '' THEN S3 ELSE '';
HEAD52/A100V = IF S5 NE '' THEN HEAD52||',' ELSE HEAD52;
HEAD530/A20V = 'Paired with: ';
HEAD53/A100V = IF L1 LE 80 THEN 'N/A' ELSE IF S6 NE '' THEN S5||','||S6
ELSE IF S5 NE '' THEN S5 ELSE '';
-*SUBSTR(L1,PAIRED_SCHOOL_NAMES,L2,L1,100,HEAD52);
-*LAST_TOKEN/A10 = GETTOK(ADDRESS_LN3, 20, -1, ' ', 10, LAST_TOKEN);
FOOT1/A100V = 'WAEA School Performance Level = ';
FOOT11/A100V= SPL;
FOOT2/A100V = 'WAEA Weighted Average Indicator Score = ';
FOOT21/P6.1 = TOTAL_WEIGHTED_SCORE_FINAL;
FOOT22/A20V = '(Cut Scores = ';
FOOT23/P6.1 = TRAD_WAEA_CUT1;
FOOT24/A2V = ';';
FOOT25/P6.1 = TRAD_WAEA_CUT2;
FOOT26/A2V = ';';
FOOT27/P6.1 = G38_WAEA_CUT3;
FOOT28/A2V = ')';
FOOT3/A100V = 'ESSA School Performance Level = ';
FOOT31/A100V = IF (CLASS EQ 'Under Review' AND (CSITEXT NE '' OR TSITEXT NE '' OR ATSTEXT NE '')) THEN 'Identified' ELSE CLASS;
FOOT301/A100V = 'Comprehensive Support and Improvement = ';
FOOT302/A100V = IF CLASS EQ 'Unclassified' THEN 'Not Identified' ELSE CSITEXT;
FOOT311/A100V = 'Targeted Support and Improvement = ';
FOOT312/A100V = IF CLASS EQ 'Unclassified' THEN 'Not Identified' ELSE TSITEXT;
FOOT321/A100V = 'Additional Targeted Support and Improvement = ';
FOOT322/A100V = IF CLASS EQ 'Unclassified' THEN 'Not Identified' ELSE ATSTEXT;
FOOT4/A100V = 'ESSA Average Indicator Score = ';
FOOT41/P7.1 = AVERAGE_INDICATOR_SCORE_FINAL;
FOOT5/A100V = 'ESSA Average Growth & Achievement Score = ';
FOOT51/A10V = IF AVERAGE_ACHIEVE_GROWTH_CSI EQ 0 THEN 'N/A' ELSE PTOA(AVERAGE_ACHIEVE_GROWTH_CSI,'(P6.1)','A8');
FOOT6/A200V = '(ESSA Average Growth & Achievement Scores are only reported for the 5% of Title I schools with the lowest scores)';
FOOT8/A100V = 'Met First Year Exit Criteria = ';
FOOT81/A200V = MET_FIRST_YEAR_EXIT;
COL4/D2= IF SPL EQ 'Exceeding Expectations' THEN 0 ELSE IF SPL EQ 'Meeting Expectations' THEN 1 ELSE IF SPL EQ 'Partially Meeting Expectations' THEN 2 ELSE IF SPL EQ 'Not Meeting Expectations' THEN 3 ELSE IF SPL EQ 'Under Review' THEN 5 ELSE 4;
END

TABLE FILE PRIMARY_HOLD
PRINT
PRIMARY_HOLD.PRIMARY_.COL4 NOPRINT
HEADING
" <+0> <+0> <+0> "
" " " " " " " " " <+0> <+0> <+0> <+0> <+0> " "
" " <+0> <+0> <+0> " <+0> <+0> <+0> " <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " " <+0> <+0> <+0> "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = IBFS:/WFC/Repository/Common/style/Wyoming.sty,
$
TYPE=HEADING,
BORDER-TOP=MEDIUM,
BORDER-BOTTOM=MEDIUM,
BORDER-LEFT=MEDIUM,
BORDER-RIGHT=MEDIUM,
BORDER-TOP-COLOR='BLACK',
BORDER-BOTTOM-COLOR='BLACK',
BORDER-LEFT-COLOR='BLACK',
BORDER-RIGHT-COLOR='BLACK',
SIZE=8,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR=RGB(0 161 224),
BACKCOLOR=RGB(0 161 224),
WHEN=N1 EQ 0,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR='LIME',
BACKCOLOR='LIME',
WHEN=N1 EQ 1,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR='YELLOW',
BACKCOLOR='YELLOW',
WHEN=N1 EQ 2,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR='ORANGE',
BACKCOLOR='ORANGE',
WHEN=N1 EQ 3,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR='WHITE',
BACKCOLOR='WHITE',
WHEN=N1 EQ 4,
$
TYPE=HEADING,
LINE=6,
OBJECT=FIELD,
ITEM=1,
COLOR=RGB(211 211 211),
BACKCOLOR=RGB(211 211 211),
WHEN=N1 EQ 5,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR=RGB(0 161 224),
BACKCOLOR=RGB(0 161 224),
WHEN=N1 EQ 0,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR='LIME',
BACKCOLOR='LIME',
WHEN=N1 EQ 1,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR='YELLOW',
BACKCOLOR='YELLOW',
WHEN=N1 EQ 2,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR='ORANGE',
BACKCOLOR='ORANGE',
WHEN=N1 EQ 3,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR='WHITE',
BACKCOLOR='WHITE',
WHEN=N1 EQ 4,
$
TYPE=HEADING,
LINE=7,
OBJECT=FIELD,
ITEM=1,
COLOR=RGB(211 211 211),
BACKCOLOR=RGB(211 211 211),
WHEN=N1 EQ 5,
$
TYPE=HEADING,
LINE=9,
SIZE=8,
$
TYPE=HEADING,
LINE=12,
SIZE=8,
$
TYPE=HEADING,
LINE=13,
SIZE=8,
$
TYPE=HEADING,
LINE=14,
SIZE=8,
$
TYPE=HEADING,
LINE=15,
SIZE=8,
$
TYPE=HEADING,
LINE=16,
SIZE=8,
$
TYPE=HEADING,
LINE=17,
SIZE=8,
$
TYPE=HEADING,
LINE=18,
SIZE=8,
$
TYPE=HEADING,
LINE=19,
SIZE=8,
$
TYPE=REPORT,
BACKCOLOR=RGB(0 161 224),
WHEN=N1 EQ 0,
$
TYPE=REPORT,
BACKCOLOR='LIME',
WHEN=N1 EQ 1,
$
TYPE=REPORT,
BACKCOLOR='YELLOW',
WHEN=N1 EQ 2,
$
TYPE=REPORT,
BACKCOLOR='ORANGE',
WHEN=N1 EQ 3,
$
TYPE=REPORT,
BACKCOLOR=RGB(211 211 211),
WHEN=N1 EQ 5,
$
ENDSTYLE
END
>

This message has been edited. Last edited by: FP Mod Chuck,


WebFOCUS 8
Windows, All Outputs
 
Posts: 11 | Registered: March 30, 2017Report This Post
Gold member
posted Hide Post
hey,
your question was not clear. And the code is with your own data, so i made my assumption and here is what i would do.

my heading will have
"<HEAD5"
a less than symbol
"<"
followed by the define field to place them in the heading.

my sample code using car sample data:
-------------------------------------
 DEFINE FILE CAR
PAIRED_SCHOOL_NAMES/A100V='TEST SCHOOL';
HEAD5/A100V = IF PAIRED_SCHOOL_NAMES EQ '' THEN '' ELSE 'Paired with: ';
HEAD51/A100V = IF PAIRED_SCHOOL_NAMES EQ '' THEN '' ELSE IF L1 GT 80 THEN S1||','||S2 ELSE PAIRED_SCHOOL_NAMES;
HEAD51/A100V = IF S3 NE '' THEN HEAD51||',' ELSE HEAD51;
HEAD52/A100V = IF L1 LE 80 THEN '' ELSE IF S4 NE '' THEN S3||','||S4 ELSE IF S3 NE '' THEN S3 ELSE '';
HEAD52/A100V = IF S5 NE '' THEN HEAD52||',' ELSE HEAD52;
HEAD530/A20V = 'Paired with: ';
HEAD53/A100V = IF L1 LE 80 THEN 'N/A' ELSE IF S6 NE '' THEN S5||','||S6 ELSE IF S5 NE '' THEN S5 ELSE '';
END

TABLE FILE CAR
SUM
     CAR.BODY.SALES
BY  CAR.ORIGIN.COUNTRY
BY  CAR.CARREC.MODEL
HEADING
"<HEAD5<+0> <+0> <+0> "
" " " " " " " " " <+0> <+0> <+0> <+0> <+0> " "
" " <+0> <+0> <+0> " <+0> <+0> <+0> " <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " <+0> <+0> <+0> <+0> <+0> " " <+0> <+0> <+0> "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLEMBEDIMG ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/warm.sty,
$
ENDSTYLE
END 

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


WebFOCUS 8
Windows, All Outputs
 
Posts: 71 | Registered: January 23, 2018Report This Post
Virtuoso
posted Hide Post
Hi folks,

Please when posting sample code and/or data, use the code tag which is the last one on the ribbon and that looks like the following and place your code/sample data between the tags :
</>


WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF
In Focus since 2007
 
Posts: 2410 | Location: Montreal Area, Qc, CA | Registered: September 25, 2013Report This Post
Gold member
posted Hide Post
huh. u caught my mind...thanks i modified now.
quote:
Originally posted by MartinY:
Hi folks,

Please when posting sample code and/or data, use the code tag which is the last one on the ribbon and that looks like the following and place your code/sample data between the tags :
</>


WebFOCUS 8
Windows, All Outputs
 
Posts: 71 | Registered: January 23, 2018Report 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     [CLOSED] Working with existing code

Copyright © 1996-2020 Information Builders