Focal Point
[CLOSED] Working with existing code

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/3927094196

August 20, 2019, 04:47 PM
Donal Mattimoe
[CLOSED] Working with existing code
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
August 20, 2019, 05:12 PM
vinodh
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
August 21, 2019, 08:00 AM
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 :
</>



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
August 21, 2019, 12:36 PM
vinodh
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