I'm going to try and ask this as simple as I can.

I have 200 ID's and am creating a report to pull data for each ID into an HTMLFORM.

Normally, I would prompt for the ID as a dynamic parameter and then populate the form and the report would be done.

Is it possible to automate this process so that webfocus automatically prints the 200 forms for each of the 200 ID's until completion?

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

Have you tried ReportCaster ?

it may sound funny, but they don't allow access to report caster here at our school, even though they paid for it and even though it is still operational.

Also, just to point out, I can query all of the ID's needed and store it in a hold file....just not sure how to automate populating the htmlform for each of the ID's.

You could READ the HOLD file and use a -REPEAT LOOP to create the output. Here's a quick example:

TABLE FILE CAR
PRINT
COUNTRY
ON TABLE HOLD AS HCOUNTRY FORMAT ALPHA
END
-RUN

-READ HCOUNTRY NOCLOSE &COUNTRY.A10.

-REPEAT END_LOOP1 WHILE &IORETURN EQ 0

TABLE FILE CAR
SUM SALES
BY MODEL
WHERE COUNTRY EQ '&COUNTRY'
END
-RUN

-READ HCOUNTRY &COUNTRY.A10.

-END_LOOP1

You can make whatever is inside the loop as sophisticated as possible.

To make sure that I understand you correctly: Are you trying to populate a dropdown box?

If yes and you are using the HTML Painter to create your form, you can write a procedure against the file with the ids, get the distinct ones, hold it FORMAT XML, and refer to the procedure in the painter control for the dropdown box.

If you are contructing the HTMLFORM in a focexec, I have seen people use the !IBI.FIL.filename syntax with input tags to populate the box.

Let me know if I missed the point entirely.

Francis, I think you nailed what I am wanting to do. I appreciate the code, as always.

Thank you.

Francis

I've tried your code and I am getting no results. I wonder if my code is too 'sophisticated'?
Here is my code below:

  
-DEFAULT &AID_YEAR = 0809;
SET EMPTYREPORT = ON

JOIN SPRIDEN_PIDM IN SPRIDEN TO RRRAREQ_PIDM IN RRRAREQ AS J0

TABLE FILE SPRIDEN
PRINT SPRIDEN_ID
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
WHERE RRRAREQ_AIDY_CODE EQ '&AID_YEAR';
WHERE RRRAREQ_TREQ_CODE EQ 'SUMMER'
WHERE RRRAREQ_TRST_CODE NE 'S'
ON TABLE HOLD AS INITPOP FORMAT ALPHA
END
-RUN

-READ INITPOP NOCLOSE &SPRIDEN_ID.A9.

-REPEAT END_LOOP1 WHILE (&IORETURN EQ 0);

JOIN CLEAR *
JOIN SPRIDEN_PIDM IN SPRIDEN TO RZBSUMM_PIDM IN RZBSUMM AS J0

TABLE FILE SPRIDEN
BY SPRIDEN_LAST_NAME AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE SPRIDEN_ID EQ '&SPRIDEN_ID';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS RPRT01 FORMAT DOC
END
-RUN

TABLE FILE SPRIDEN
BY SPRIDEN_FIRST_NAME AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE SPRIDEN_ID EQ '&SPRIDEN_ID';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS RPRT02 FORMAT DOC
END
-RUN

TABLE FILE SPRIDEN
BY SPRIDEN_MI AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE SPRIDEN_ID EQ '&SPRIDEN_ID';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE HOLD AS RPRT03 FORMAT DOC
END
-RUN

-HTMLFORM BEGIN
<style>
body { font-size: 10px }
table { margin-bottom: 3px }
.ffelp {
border: 1px solid #666666;
border-collapse: collapse;
}
.ffelp td { border: 1px solid #666666; }
.ffelp th { border: 1px solid #666666; }
</style>

<TABLE WIDTH="800px" CELLPADDING="5" cellspacing="0" STYLE="border: 2px solid #000000">
<TR>
<TD ALIGN="CENTER"><strong>2009 Summer Aid Worksheet</strong></TD>
</TR>
</TABLE>
<TABLE WIDTH="800px" CELLPADDING="5" cellspacing="0">
<TR>
<TH ALIGN="left" width="17%">Student Name: </TH>
<TD ALIGN="left" width="20%"> !IBI.FIL.RPRT01; </TD>
<TD ALIGN="left" width="20%"> !IBI.FIL.RPRT02; </TD>
<TD ALIGN="left" width="15%"> !IBI.FIL.RPRT03; </TD>
<TH ALIGN="left" width="16%">Student ID: </TH><TD ALIGN="left" width="12%"> !IBI.FIL.RPRT04; </TD>
</TR>
</TABLE>

<p style="page-break-before: always">

-HTMLFORM END

-READ INITPOP NOCLOSE &SPRIDEN_ID.A9.

-END_LOOP1

Your format is DOC. I can't see how that relates to HTML.

I use that to get rid of any formatting in the output. It works without the loop if I prompt for a single ID.

Brian,

This works for me:

SET PAGE=NOLEAD
-RUN

TABLE FILE CAR
PRINT
COUNTRY
ON TABLE HOLD AS HCOUNTRY FORMAT ALPHA
END
-RUN

-READ HCOUNTRY NOCLOSE &COUNTRY.A10.

-REPEAT END_LOOP1 WHILE &IORETURN EQ 0

TABLE FILE CAR
SUM SALES
BY MODEL
WHERE COUNTRY EQ '&COUNTRY'

ON TABLE HOLD AS H001 FORMAT DOC
END
-RUN

TABLE FILE CAR
SUM WEIGHT
BY CAR
WHERE COUNTRY EQ '&COUNTRY'

ON TABLE HOLD AS H002 FORMAT DOC
END
-RUN

TABLE FILE CAR
SUM HEIGHT
BY SEATS
WHERE COUNTRY EQ '&COUNTRY'

ON TABLE HOLD AS H003 FORMAT DOC
END
-RUN

-HTMLFORM BEGIN
<style>
body { font-size: 10px }
table { margin-bottom: 3px }
.ffelp {
border: 1px solid #666666;
border-collapse: collapse;
}
.ffelp td { border: 1px solid #666666; }
.ffelp th { border: 1px solid #666666; }
</style>

<TABLE>
<TABLE WIDTH="800px" CELLPADDING="5" cellspacing="0" STYLE="border: 2px solid #000000">
<TR>
<TD ALIGN="CENTER"><strong>2009 Summer Aid Worksheet</strong></TD>
</TR>
</TABLE>

<TABLE WIDTH="800px" CELLPADDING="5" cellspacing="0">
<TR>
<TH ALIGN="left" width="17%">Country: !IBI.AMP.COUNTRY;</TH>
<TD ALIGN="left" width="20%"> !IBI.FIL.H001; </TD>
<TD ALIGN="left" width="20%"> !IBI.FIL.H002; </TD>
<TD ALIGN="left" width="15%"> !IBI.FIL.H003; </TD>
</TR>
</TABLE>

<p style="page-break-before: always">

-HTMLFORM END

-READ HCOUNTRY &COUNTRY.A10.

-END_LOOP1

What is going wrong exactly? It looks like it should work. Have you looked at "View Source" to see what's going on behind the scene? Is the selection criteria for SPRIDEN_ID correct?

Your RPRT04 report isn't in the code you posted. The lack of it shouldn't cause an error, though a message is displayed:

(FOC36225) UNABLE TO OPEN FILE H004 SPECIFIED BY WEBFOCUS TABLE

Francis.

Partly my bad here. I switched databases as I had bad data. The first record worked like a charm.

And then stopped. I was expecting it to run through all 606 records, but it didn't continue.

I am posting this so you can see the full diagnostic code. I apologize for it's length.

<!--
14.26.17 BR  (FOC2525) FOREIGN KEY IS NOT A SUPERSET OF PRIMARY KEY FOR SEGMENT
14.26.17 BR  (FOC2509) RDBMS-MANAGED JOIN SELECTED BUT RESULTS MAY BE INACCURAT
14.26.17 BR  (FOC2524) JOIN TO A UNIQUE SEGMENT DOES NOT COVER ITS PRIMARY KEY
14.26.17 BR  (FOC2590) AGGREGATION NOT DONE FOR THE FOLLOWING REASON:
14.26.17 BR  (FOC2594) AGGREGATION IS NOT APPLICABLE TO THE VERB USED
14.26.17 AE    SELECT T1."SPRIDEN_PIDM",T1."SPRIDEN_ID",
14.26.17 AE   T1."SPRIDEN_CHANGE_IND",T2."RRRAREQ_AIDY_CODE",
14.26.17 AE   T2."RRRAREQ_TREQ_CODE",T2."RRRAREQ_TRST_CODE" FROM
14.26.17 AE   SATURN.SPRIDEN T1,FAISMGR.RRRAREQ T2 WHERE (T2."RRRAREQ_PIDM" =
14.26.17 AE   T1."SPRIDEN_PIDM") AND T1."SPRIDEN_CHANGE_IND" IS NULL AND
14.26.17 AE   (T2."RRRAREQ_TRST_CODE" <> 'S') AND (T2."RRRAREQ_TREQ_CODE" =
14.26.17 AE   'SUMMER') AND (T2."RRRAREQ_AIDY_CODE" = '0809');
0 NUMBER OF RECORDS IN TABLE=      606  LINES=    606
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."SPRIDEN_LAST_NAME", MAX(T1."SPRIDEN_LAST_NAME")
14.26.19 AE   FROM SATURN.SPRIDEN T1,UNCGMGR.RZBSUMM T2 WHERE
14.26.19 AE   (T2."RZBSUMM_PIDM" = T1."SPRIDEN_PIDM") AND
14.26.19 AE   T1."SPRIDEN_CHANGE_IND" IS NULL AND (T1."SPRIDEN_ID" =
14.26.19 AE   '123456789') AND (T2."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."SPRIDEN_LAST_NAME" ORDER BY T1."SPRIDEN_LAST_NAME";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."SPRIDEN_FIRST_NAME", MAX(T1."SPRIDEN_FIRST_NAME")
14.26.19 AE   FROM SATURN.SPRIDEN T1,UNCGMGR.RZBSUMM T2 WHERE
14.26.19 AE   (T2."RZBSUMM_PIDM" = T1."SPRIDEN_PIDM") AND
14.26.19 AE   T1."SPRIDEN_CHANGE_IND" IS NULL AND (T1."SPRIDEN_ID" =
14.26.19 AE   '123456789') AND (T2."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."SPRIDEN_FIRST_NAME" ORDER BY T1."SPRIDEN_FIRST_NAME";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."SPRIDEN_MI", MAX(T1."SPRIDEN_MI") FROM
14.26.19 AE   SATURN.SPRIDEN T1,UNCGMGR.RZBSUMM T2 WHERE (T2."RZBSUMM_PIDM" =
14.26.19 AE   T1."SPRIDEN_PIDM") AND T1."SPRIDEN_CHANGE_IND" IS NULL AND
14.26.19 AE   (T1."SPRIDEN_ID" = '123456789') AND (T2."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."SPRIDEN_MI" ORDER BY T1."SPRIDEN_MI";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."SPRIDEN_ID", MAX(T1."SPRIDEN_ID") FROM
14.26.19 AE   SATURN.SPRIDEN T1,UNCGMGR.RZBSUMM T2 WHERE (T2."RZBSUMM_PIDM" =
14.26.19 AE   T1."SPRIDEN_PIDM") AND T1."SPRIDEN_CHANGE_IND" IS NULL AND
14.26.19 AE   (T1."SPRIDEN_ID" = '123456789') AND (T2."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."SPRIDEN_ID" ORDER BY T1."SPRIDEN_ID";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_LEVL", MAX(T1."RZBSUMM_LEVL") FROM
14.26.19 AE   UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY T1."RZBSUMM_LEVL"
14.26.19 AE   ORDER BY T1."RZBSUMM_LEVL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_MODEL_CDE", MAX(T1."RZBSUMM_MODEL_CDE")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_MODEL_CDE" ORDER BY T1."RZBSUMM_MODEL_CDE";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_HOURS_ATTEMPTED_SPRG",
14.26.19 AE   SUM(T1."RZBSUMM_HOURS_ATTEMPTED_SPRG") FROM UNCGMGR.RZBSUMM T1
14.26.19 AE   WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_HOURS_ATTEMPTED_SPRG" ORDER BY
14.26.19 AE   T1."RZBSUMM_HOURS_ATTEMPTED_SPRG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_HOURS_EARNED_SPRG",
14.26.19 AE   SUM(T1."RZBSUMM_HOURS_EARNED_SPRG") FROM UNCGMGR.RZBSUMM T1
14.26.19 AE   WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_HOURS_EARNED_SPRG" ORDER BY
14.26.19 AE   T1."RZBSUMM_HOURS_EARNED_SPRG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PELL_ELIG", SUM(T1."RZBSUMM_PELL_ELIG")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PELL_ELIG" ORDER BY T1."RZBSUMM_PELL_ELIG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PELL_USED", SUM(T1."RZBSUMM_PELL_USED")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PELL_USED" ORDER BY T1."RZBSUMM_PELL_USED";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PELL_LEFT", SUM(T1."RZBSUMM_PELL_LEFT")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PELL_LEFT" ORDER BY T1."RZBSUMM_PELL_LEFT";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_ELIG", SUM(T1."RZBSUMM_SUB_ELIG") FROM
14.26.19 AE   UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_ELIG" ORDER BY T1."RZBSUMM_SUB_ELIG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_USED", SUM(T1."RZBSUMM_SUB_USED") FROM
14.26.19 AE   UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_USED" ORDER BY T1."RZBSUMM_SUB_USED";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_AVAIL", SUM(T1."RZBSUMM_SUB_AVAIL")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_AVAIL" ORDER BY T1."RZBSUMM_SUB_AVAIL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_FALL", SUM(T1."RZBSUMM_SUB_FALL") FROM
14.26.19 AE   UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789') AND
14.26.19 AE   (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_FALL" ORDER BY T1."RZBSUMM_SUB_FALL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_SPRING", SUM(T1."RZBSUMM_SUB_SPRING")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_SPRING" ORDER BY T1."RZBSUMM_SUB_SPRING";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_SUB_SUMMER", SUM(T1."RZBSUMM_SUB_SUMMER")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_SUB_SUMMER" ORDER BY T1."RZBSUMM_SUB_SUMMER";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_ELIG", SUM(T1."RZBSUMM_UNSUB_ELIG")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_UNSUB_ELIG" ORDER BY T1."RZBSUMM_UNSUB_ELIG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_USED", SUM(T1."RZBSUMM_UNSUB_USED")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_UNSUB_USED" ORDER BY T1."RZBSUMM_UNSUB_USED";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_AVAIL", SUM(T1."RZBSUMM_UNSUB_AVAIL")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_UNSUB_AVAIL" ORDER BY T1."RZBSUMM_UNSUB_AVAIL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_FALL", SUM(T1."RZBSUMM_UNSUB_FALL")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_UNSUB_FALL" ORDER BY T1."RZBSUMM_UNSUB_FALL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_SPRING",
14.26.19 AE   SUM(T1."RZBSUMM_UNSUB_SPRING") FROM UNCGMGR.RZBSUMM T1 WHERE
14.26.19 AE   (T1."RZBSUMM_ID" = '123456789') AND (T1."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."RZBSUMM_UNSUB_SPRING" ORDER BY
14.26.19 AE   T1."RZBSUMM_UNSUB_SPRING";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_UNSUB_SUMMER",
14.26.19 AE   SUM(T1."RZBSUMM_UNSUB_SUMMER") FROM UNCGMGR.RZBSUMM T1 WHERE
14.26.19 AE   (T1."RZBSUMM_ID" = '123456789') AND (T1."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."RZBSUMM_UNSUB_SUMMER" ORDER BY
14.26.19 AE   T1."RZBSUMM_UNSUB_SUMMER";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_ELIG", SUM(T1."RZBSUMM_PLUSGR_ELIG")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_ELIG" ORDER BY T1."RZBSUMM_PLUSGR_ELIG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_USED", SUM(T1."RZBSUMM_PLUSGR_USED")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_USED" ORDER BY T1."RZBSUMM_PLUSGR_USED";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_AVAIL",
14.26.19 AE   SUM(T1."RZBSUMM_PLUSGR_AVAIL") FROM UNCGMGR.RZBSUMM T1 WHERE
14.26.19 AE   (T1."RZBSUMM_ID" = '123456789') AND (T1."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."RZBSUMM_PLUSGR_AVAIL" ORDER BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_AVAIL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_FALL", SUM(T1."RZBSUMM_PLUSGR_FALL")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_FALL" ORDER BY T1."RZBSUMM_PLUSGR_FALL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_SPRING",
14.26.19 AE   SUM(T1."RZBSUMM_PLUSGR_SPRING") FROM UNCGMGR.RZBSUMM T1 WHERE
14.26.19 AE   (T1."RZBSUMM_ID" = '123456789') AND (T1."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."RZBSUMM_PLUSGR_SPRING" ORDER BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_SPRING";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUSGR_SUMMER",
14.26.19 AE   SUM(T1."RZBSUMM_PLUSGR_SUMMER") FROM UNCGMGR.RZBSUMM T1 WHERE
14.26.19 AE   (T1."RZBSUMM_ID" = '123456789') AND (T1."RZBSUMM_AIDY_CODE" =
14.26.19 AE   '0809') GROUP BY T1."RZBSUMM_PLUSGR_SUMMER" ORDER BY
14.26.19 AE   T1."RZBSUMM_PLUSGR_SUMMER";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUS_ELIG", SUM(T1."RZBSUMM_PLUS_ELIG")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUS_ELIG" ORDER BY T1."RZBSUMM_PLUS_ELIG";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUS_USED", SUM(T1."RZBSUMM_PLUS_USED")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUS_USED" ORDER BY T1."RZBSUMM_PLUS_USED";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.19 AE    SELECT T1."RZBSUMM_PLUS_AVAIL", SUM(T1."RZBSUMM_PLUS_AVAIL")
14.26.19 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.19 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.19 AE   T1."RZBSUMM_PLUS_AVAIL" ORDER BY T1."RZBSUMM_PLUS_AVAIL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.20 AE    SELECT T1."RZBSUMM_PLUS_FALL", SUM(T1."RZBSUMM_PLUS_FALL")
14.26.20 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.20 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.20 AE   T1."RZBSUMM_PLUS_FALL" ORDER BY T1."RZBSUMM_PLUS_FALL";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.20 AE    SELECT T1."RZBSUMM_PLUS_SPRING", SUM(T1."RZBSUMM_PLUS_SPRING")
14.26.20 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.20 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.20 AE   T1."RZBSUMM_PLUS_SPRING" ORDER BY T1."RZBSUMM_PLUS_SPRING";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
AGGREGATION DONE ...
14.26.20 AE    SELECT T1."RZBSUMM_PLUS_SUMMER", SUM(T1."RZBSUMM_PLUS_SUMMER")
14.26.20 AE   FROM UNCGMGR.RZBSUMM T1 WHERE (T1."RZBSUMM_ID" = '123456789')
14.26.20 AE   AND (T1."RZBSUMM_AIDY_CODE" = '0809') GROUP BY
14.26.20 AE   T1."RZBSUMM_PLUS_SUMMER" ORDER BY T1."RZBSUMM_PLUS_SUMMER";
0 NUMBER OF RECORDS IN TABLE=        1  LINES=      1
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR: &
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  
(FOC295) A VALUE IS MISSING FOR:  

WebFOCUS Version 7.1.7 compiled and linked on Mon Apr 30 14:22:42 EDT 2007 (Gen branch717:148)
-->
  

Oh, as you can see, I my earlier code was shortened because of it's length. I am running about 36 different webfocus queries through this loop.

quote:

(FOC295) A VALUE IS MISSING FOR: (FOC295) A VALUE IS MISSING FOR: (FOC295) A VALUE IS MISSING FOR: & (FOC295) A VALUE IS MISSING FOR: (FOC295) A VALUE IS MISSING FOR: (FOC295) A VALUE IS MISSING FOR: (FOC295) A VALUE IS MISSING FOR:

You have to find out what this is.

Also, first simplify the report - run it for 10 records. Make less than 36 queries. Once you've got that working, add more queries, add more records.

I found the problem.

@nbsp;

Apparently webfocus thought this represented an output value.

I removed it and now the loop works.

But, I do have one other issue though. Internet Explorer can't handled my output, so is there anyway to force this into a word doc or something that can handle 606 pages of output?

Thanks for your help Francis. Definitely invaluable.

When you use   in a fex, it has to be coded as

&|nbsp;

to ensure that WF doesn't evaluate it as a Dialogue Manager variable.

As for a 606 page HTML report - I wouldn't do it this way. I'd create a PDF report, COMPOUND or not.

Thanks Francis.

I have moved on now from html to PDF. I've never done a compound? pdf report before, but I'm not sure where to put the loop in this case. Here's my attempt that fails with an Unknown Error:

Unknown error occurred.
Agent on reporting server WEBFOCUS1 may have crashed.
Please investigate reporting server log.


Here's the code (I've tried to minimize the amount of style code for posting here):

 

-* File SUMMER_CHECKLIST
-* Default Mode: ResourceLayout
-DEFAULT &AID_YEAR = 0809;

JOIN SPRIDEN_PIDM IN SPRIDEN TO RRRAREQ_PIDM IN RRRAREQ AS J0

TABLE FILE SPRIDEN
PRINT
     SPRIDEN_ID
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
WHERE RRRAREQ_AIDY_CODE EQ '&AID_YEAR';
WHERE RRRAREQ_TREQ_CODE EQ 'SUMMER';
WHERE RRRAREQ_TRST_CODE NE 'S';
WHERE RECORDLIMIT EQ 10
ON TABLE NOTOTAL
ON TABLE HOLD AS INITPOP FORMAT ALPHA
END
-RUN

-READ INITPOP NOCLOSE &SPRIDEN_ID.A9.
-REPEAT END_LOOP1 WHILE (&IORETURN EQ 0);

COMPOUND LAYOUT
UNITS=IN, $
SECTION=section1, LAYOUT=ON, MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=Letter, $
pagelayout=1, name='Layout page 1', $
component='report1', type=report, position=(1.542 0.542), dimension=(3.292 0.167), overflow-position=(1.542 0.625), overflow-dimension=(3.292 0.167), $
component='report2', type=report, position=(6.042 0.542), dimension=(1.667 0.167), $
component='report3', type=report, position=(2.042 0.792), dimension=(0.375 0.167), $
component='report4', type=report, position=(4.042 0.792), dimension=(0.375 0.167), $
END

SET COMPONENT='report1'
-*component_type report
-DEFAULT &AID_YEAR = 0809;
JOIN CLEAR *
JOIN SPRIDEN_PIDM IN SPRIDEN TO RZBSUMM_PIDM IN RZBSUMM AS J0
TABLE FILE SPRIDEN
BY SPRIDEN_LAST_NAME AS ''
BY SPRIDEN_FIRST_NAME AS ''
BY SPRIDEN_MI AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE SPRIDEN_ID EQ '&SPRIDEN_ID';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
END

SET COMPONENT='report2'
-*component_type report
JOIN CLEAR *
JOIN SPRIDEN_PIDM IN SPRIDEN TO RZBSUMM_PIDM IN RZBSUMM AS J0
TABLE FILE SPRIDEN
BY SPRIDEN_ID AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE SPRIDEN_ID EQ '&SPRIDEN_ID';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
END

SET COMPONENT='report3'
-*component_type report
JOIN CLEAR *
TABLE FILE RZBSUMM
BY RZBSUMM_LEVL AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE RZBSUMM_ID EQ '&SPRIDEN_ID';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
END

SET COMPONENT='report4'
-*component_type report
JOIN CLEAR *
TABLE FILE RZBSUMM
BY RZBSUMM_MODEL_CDE AS ''
WHERE RZBSUMM_AIDY_CODE EQ '&AID_YEAR';
WHERE RZBSUMM_ID EQ '&SPRIDEN_ID';
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
END
COMPOUND END

-READ INITPOP NOCLOSE &SPRIDEN_ID.A9.
-END_LOOP1


 

Brian, being new to v7.6 I haven't used this new Compound Layout syntax. Perhaps a -RUN right after the COMPOUND END statement will help.

Again, reduce the number of occurrences of the loop - if that works, then perhaps there are limitations to Compound Layout. Then again, isn't the whole thing one big Compound Layout, with smaller Compound Layouts within - I don't even know if this is possible.