I have a report that a user runs through an HTML Launch page where they select which reports to include in the excel file. The procedure then builds the excel document and uses GOTO statements to skip over the sections the user did not select.

At the end of the procedure, I have a dummy report and have SET COMPOUND = CLOSE before this report in order for the file to always be built regardless of what was selected. This works, but it causes an extra sheet to be produced in Excel. Is there any way to hide this sheet or is there another way for me to go about building the document that I'm missing?

I was previously using IF THEN statements to decide which reports to include in the compound document, but this became too much to maintain as the user requested more reports be added.

I've included my code for reference.

 
SET EXCELSERVURL = ''
-DEFAULTH &TASK605 = _FOC_NULL;
-DEFAULTH &TASK731 = _FOC_NULL;
-DEFAULTH &TASK1252 = _FOC_NULL;
-DEFAULTH &CITREPORT = _FOC_NULL;

-SET &STARTDT_YYMD = EDIT(&STARTDT, '$$$$$$9999') | EDIT(&STARTDT, '99$99$$$$$');
-SET &ENDDT_YYMD = EDIT(&ENDDT, '$$$$$$9999') | EDIT(&ENDDT, '99$99$$$$$');

-SET &STARTDT_DISPLAY = EDIT(&STARTDT, '99/99/9999');
-SET &ENDDT_DISPLAY = EDIT(&ENDDT, '99/99/9999');

-TYPE &STARTDT &STARTDT_YYMD
-TYPE &ENDDT &ENDDT_YYMD

-*-SET &REPORT1COMPOUND = IF &TASK605 = 605 AND (&TASK731 = 731 OR &TASK1252 = 1252) THEN 'OPEN' ELSE '';
-*-SET &REPORT2COMPOUND = IF &TASK731 = 731 AND &TASK605 = _FOC_NULL THEN 'OPEN' ELSE '';
-*-SET &REPORT3COMPOUND = IF &TASK1252 = 1252 AND (&TASK605 = _FOC_NULL AND &TASK731 = _FOC_NULL) THEN 'OPEN' ELSE '';
-*-SET &REPORT4COMPOUND = 'CLOSE';


JOIN
LEFT_OUTER
VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER IN
VWLOANSERVWORKTASKFORECLOSURE TO UNIQUE
VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER IN VWLOANSERVLOANDETAIL
TAG J0 AS J0
END
JOIN
LEFT_OUTER
VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER IN
VWLOANSERVWORKTASKFORECLOSURE TO UNIQUE
TBLLOANSERVACTIVECLAIMSTASKSCOMPLETED.TBLLOANSERVACTIVECLAIMSTASKSCOMPLETED.LOANNUMBER
IN TBLLOANSERVACTIVECLAIMSTASKSCOMPLETED TAG J1 AS J1
END
JOIN
LEFT_OUTER
VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER IN
VWLOANSERVWORKTASKFORECLOSURE TO UNIQUE
TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.LOANNUMBER
IN TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED TAG J2 AS J2
END
JOIN
LEFT_OUTER
VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER IN
VWLOANSERVWORKTASKFORECLOSURE TO UNIQUE
TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2.TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2.LOANNUMBER
IN TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2 TAG J3 AS J3
END
JOIN
LEFT_OUTER
VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER IN
VWLOANSERVWORKTASKFORECLOSURE TO UNIQUE
VWLOANSERVUSERFIELDS.VWLOANSERVUSERFIELDS.LOANNUMBER
IN VWLOANSERVUSERFIELDS TAG J4 AS J4
END


SET COMPOUND = OPEN
-IF &TASK605 EQ _FOC_NULL THEN GOTO SKIP605;


TABLE FILE VWLOANSERVWORKTASKFORECLOSURE
PRINT

     J4.VWLOANSERVUSERFIELDS.USERFIELD43 AS 'Vendor'
     J0.VWLOANSERVSTATEINDEX.PROPERTYSTATENAME AS 'State'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER AS 'Task'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKDESCRIPTION AS 'Task Description'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE/MDYY AS 'Completed Dt'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE/MDYY AS 'Maintenance Dt'
BY  LOWEST VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER AS 'Loan Number'
HEADING
"<VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER  Report"
"Vendor: &VENDOR"
"Date Range: &STARTDT to &ENDDT"
FOOTING
"Report Run: <+0>&DATEtMDYY <+0> "
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.KEYCOUNTER EQ 0 );
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER EQ '&TASK605');
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE NE MISSING );
WHERE (( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE GE DT('&STARTDT_YYMD') ) AND ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE LE DT('&ENDDT_YYMD') ));
WHERE ( VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.CLOSECODE EQ 1 );
WHERE J4.VWLOANSERVUSERFIELDS.USERFIELD43 EQ '&VENDOR';
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT
-*ON TABLE PCHOLD FORMAT &WFFMT &REPORT1COMPOUND
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT, TITLETEXT = '605',$
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     PAGESIZE='Letter',
     ORIENTATION=LANDSCAPE,
ENDSTYLE
END
-SKIP605

-IF &TASK731 EQ _FOC_NULL THEN GOTO SKIP731;

TABLE FILE VWLOANSERVWORKTASKFORECLOSURE
PRINT

     J4.VWLOANSERVUSERFIELDS.USERFIELD43 AS 'Vendor'
     J0.VWLOANSERVSTATEINDEX.PROPERTYSTATENAME AS 'State'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER AS 'Task'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKDESCRIPTION AS 'Task Description'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE/MDYY AS 'Completed Dt'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE/MDYY AS 'Maintenance Dt'
BY  LOWEST VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER AS 'Loan Number'
HEADING
"<VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER  Report"
"Vendor: &VENDOR"
"Date Range: &STARTDT to &ENDDT"
FOOTING
"Report Run: <+0>&DATEtMDYY <+0> "
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.KEYCOUNTER EQ 0 );
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER EQ '&TASK731');
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE NE MISSING );
WHERE (( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE GE DT('&STARTDT_YYMD') ) AND ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE LE DT('&ENDDT_YYMD') ));
WHERE ( VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.CLOSECODE EQ 1 );
WHERE (( J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK605 NE MISSING ) OR ( J3.TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2.TASK2047 NE MISSING ));
WHERE J4.VWLOANSERVUSERFIELDS.USERFIELD43 EQ '&VENDOR';
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT
-*ON TABLE PCHOLD FORMAT &WFFMT &REPORT2COMPOUND
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT, TITLETEXT = '731',$
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     PAGESIZE='Letter',
     ORIENTATION=LANDSCAPE,
ENDSTYLE
END
-SKIP731

-IF &TASK1252 EQ _FOC_NULL THEN GOTO SKIP1252

TABLE FILE VWLOANSERVWORKTASKFORECLOSURE
PRINT
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.LOANNUMBER AS 'Loan Number'
	 J4.VWLOANSERVUSERFIELDS.USERFIELD43 AS 'Vendor'
     J0.VWLOANSERVSTATEINDEX.PROPERTYSTATENAME AS 'State'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER AS 'Task'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE/MDYY AS 'Completed Dt'
     VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE/MDYY AS 'Maintenance Dt'
     J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK605/MDYY AS 'FCL Sale Dt'
     J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK629/MDYY AS 'RRC EXP Dt'
     J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK752/MDYY AS 'Deed Recorded Dt'
     J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK1255/MDYY AS 'Convey Clean Dt'
     J3.TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2.TASK2047/MDYY AS 'DIL Dt'
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.KEYCOUNTER EQ 0 );
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.TASKNUMBER EQ '&TASK1252' );
WHERE ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.COMPLETEDDATE NE MISSING );
WHERE (( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE GE DT('&STARTDT_YYMD') ) AND ( VWLOANSERVWORKTASKFORECLOSURE.VWLOANSERVWORKTASKFORECLOSURE.MAINTENANCEDATE LE DT('&ENDDT_YYMD') ));
WHERE ( VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.CLOSECODE EQ 1 );
WHERE ( VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANTYPE EQ 2 );
-*WHERE ( J1.TBLLOANSERVACTIVECLAIMSTASKSCOMPLETED.TASK332 EQ MISSING );
WHERE (( J2.TBLLOANSERVACTIVEFORECLOSURETASKSCOMPLETED.TASK605 NE MISSING ) OR ( J3.TBLLOANSERVACTIVELOSSMITIGATIONTASKSCOMPLETED2.TASK2047 NE MISSING ));
WHERE J4.VWLOANSERVUSERFIELDS.USERFIELD43  EQ '&VENDOR';
HEADING
"PPU - FHA CONVEYANCE CLEANS REQUESTED"
"Vendor: &VENDOR"
"Date Range: &STARTDT to &ENDDT"
FOOTING
"Report Run: <+0>&DATEtMDYY <+0> "

ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT
-*ON TABLE PCHOLD FORMAT &WFFMT &REPORT3COMPOUND
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT, TITLETEXT = '1252',$
     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     PAGESIZE='Letter',
     ORIENTATION=LANDSCAPE,
ENDSTYLE
END
-SKIP1252

-IF &CITREPORT EQ _FOC_NULL THEN GOTO SKIPCITREPORT;


JOIN CLEAR *

JOIN
LEFT_OUTER VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER IN
vwloanservloandetail TO UNIQUE
VWLOANSERVUSERFIELDS.VWLOANSERVUSERFIELDS.LOANNUMBER IN vwloanservuserfields
TAG J1 AS J1
END
JOIN
LEFT_OUTER VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER IN
vwloanservloandetail TO UNIQUE
VWLOANSERVCUSTOMERTASK.VWLOANSERVCUSTOMERTASK.LOANNUMBER
IN vwloanservcustomertask TAG J2 AS J2
END
JOIN
LEFT_OUTER J2.VWLOANSERVCUSTOMERTASK.ORIGINATINGTELLER IN vwloanservloandetail
TO UNIQUE VWLOANSERVTELLERINFORMATION.VWLOANSERVTELLERINFORMATION.TELLERNUMBER
IN vwloanservtellerinformation TAG J3 AS J3
END
JOIN
LEFT_OUTER J2.VWLOANSERVCUSTOMERTASK.ASSIGNEDTELLER IN vwloanservloandetail
TO UNIQUE VWLOANSERVTELLERINFORMATION.VWLOANSERVTELLERINFORMATION.TELLERNUMBER
IN vwloanservtellerinformation TAG J4 AS J4
END
JOIN
LEFT_OUTER VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER IN
vwloanservloandetail TO UNIQUE
TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.LOANNUMBER
IN tblloanservlatestforeclosuretaskscompleted TAG J5 AS J5
END
JOIN
LEFT_OUTER VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER IN
vwloanservloandetail TO UNIQUE
TBLLOANSERVLATESTFORECLOSURETASKSFOLLOWUP.TBLLOANSERVLATESTFORECLOSURETASKSFOLLOWUP.LOANNUMBER
IN tblloanservlatestforeclosuretasksfollowup TAG J0 AS J0
END
JOIN
LEFT_OUTER J4.VWLOANSERVTELLERINFORMATION.TELLERNUMBER IN vwloanservloandetail
TO MULTIPLE VWKRONOSTELLER.VWKRONOSTELLER.TELLERNUMBER IN vwkronosteller TAG J6
AS J6
END
JOIN
LEFT_OUTER J6.VWKRONOSTELLER.USERREF IN vwloanservloandetail TO MULTIPLE
VWKRONOSUSER.VWKRONOSUSER.USERREF IN vwkronosuser TAG J7 AS J7
END
DEFINE FILE VWLOANSERVLOANDETAIL
AGE/I5=DATEDIF(HDATE(J2.VWLOANSERVCUSTOMERTASK.ORIGINATIONDATE, 'YYMD'), DATECVT(&YYMD,'I8YYMD','YYMD'), 'D');
CONVEYDUE/YYMD MISSING ON=
IF J5.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TASK731 IS NOT MISSING AND J5.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TASK753 IS NOT MISSING THEN J0.TBLLOANSERVLATESTFORECLOSURETASKSFOLLOWUP.TASK753 ELSE
IF J5.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TASK731 IS NOT MISSING THEN DATEADD(J5.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TASK731, 'D', 30) ELSE MISSING;
LOSSDRAFT/A1=IF VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.STOPCODE3 EQ '8' THEN 'Y' ELSE 'N';
ORIGINATIONDATECONVERT/YYMD=HDATE(J2.VWLOANSERVCUSTOMERTASK.ORIGINATIONDATE, 'YYMD');
ASSIGNEDDATECONVERT/YYMD=HDATE(J2.VWLOANSERVCUSTOMERTASK.ASSIGNEDDATE, 'YYMD');
END



TABLE FILE VWLOANSERVLOANDETAIL
PRINT
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER AS 'Loan Number'
     J1.VWLOANSERVUSERFIELDS.USERFIELD43 AS 'Vendor'
     VWLOANSERVLOANDETAIL.VWLOANSERVSTATEINDEX.PROPERTYSTATENAME AS 'State'
     J2.VWLOANSERVCUSTOMERTASK.TASKNUMBER AS 'CIT'
     J2.VWLOANSERVCUSTOMERTASK.TASKDESCRIPTION AS 'CIT Description'
     J2.VWLOANSERVCUSTOMERTASK.SERVICINGBRANCH AS 'BC'
     J2.VWLOANSERVCUSTOMERTASK.ORIGINATIONDATECONVERT/MDYY AS 'Open Date'
     J2.VWLOANSERVCUSTOMERTASK.AGE AS 'Age'
     J3.VWLOANSERVTELLERINFORMATION.TELLERNAME AS 'Opened By'
     J2.VWLOANSERVCUSTOMERTASK.ASSIGNEDDATECONVERT/MDYY AS 'Assign Date'
     J4.VWLOANSERVTELLERINFORMATION.TELLERNAME AS 'Assigned To'
     J7.VWKRONOSUSER.COMPANYCODE AS 'Company'
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.OCCUPANCYCODE AS 'Occ Code'
     J5.TBLLOANSERVLATESTFORECLOSURETASKSCOMPLETED.TASK605/MDYY AS 'FCL Sale'
     J0.TBLLOANSERVLATESTFORECLOSURETASKSFOLLOWUP.CONVEYDUE/MDYY AS 'Convey Due'
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOSSDRAFT AS 'Loss Draft'
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.NEXTDUEDATE/MDYY AS 'Next Due'
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.WARNINGCODE AS 'WC'
     VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOCKOUTCODE AS 'LC'
WHERE VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.CLOSECODE EQ 1 OR 6 OR 9;
WHERE J2.VWLOANSERVCUSTOMERTASK.TASKNUMBER EQ &TASKNUMBER.(OR(FIND J2.VWLOANSERVCUSTOMERTASK.TASKNUMBER IN VWLOANSERVCUSTOMERTASK)).TASKNUMBER.;
WHERE J1.VWLOANSERVUSERFIELDS.USERFIELD43 EQ '&VENDOR';
HEADING
"Vendor CIT Report"
"Vendor: &VENDOR"
FOOTING
"Report Run: <+0>&DATEtMDYY <+0> "
WHERE J2.VWLOANSERVCUSTOMERTASK.COMPLETIONDATE EQ MISSING;
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &WFFMT
-*ON TABLE PCHOLD FORMAT &WFFMT &REPORT4COMPOUND
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT, TITLETEXT = 'CIT Report',$

     INCLUDE = IBFS:/EDA/EDASERVE/_EDAHOME/ETC/endeflt.sty,
$
     ORIENTATION=LANDSCAPE,

ENDSTYLE
END

-SKIPCITREPORT

SET COMPOUND = CLOSE
TABLE FILE VWLOANSERVLOANDETAIL
PRINT
VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER NOPRINT
WHERE VWLOANSERVLOANDETAIL.VWLOANSERVLOANDETAIL.LOANNUMBER EQ MISSING;
END

 

Thanks,
Clint

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

I'd be tempted to work through the requested reports setting flags for the 1st,last, and if this one is required. Then use these flags to set the &COMPOUND values. (this is just of the top of my head so sorry for any typos / syntax errors) Perhaps something like:

-DEFAULTH &LSTREP=0;
-DEFAULTH &FSTREP=0;

-SET &REP4 = IF &CITREPORT EQ 'Y' THEN 1 ELSE 0 ;
-SET &FSTREP = IF &REP4 EQ 1 THEN 4 ;
-SET &LSTREP = IF &LSTREP EQ 0 AND &REP4 EQ 1 THEN 4 ;
-*
-SET &REP3 = IF &TASK1252 EQ 'Y' THEN 1 ELSE 0 ;
-SET &FSTREP = IF &REP3 EQ 1 THEN 3;
-SET &LSTREP = IF &LSTREP EQ 0 AND &REP3 EQ 1 THEN 3 ;
.
.
.
-SET &REP1 = IF &TASK605 EQ 'Y' THEN 1 ELSE 0 ;
-SET &FSTREP = IF &REP1 EQ 1 THEN 1;
-SET &LSTREP = IF &LSTREP EQ 0 AND &REP1 EQ 1 THEN 1 ;

-REPEAT :ENDREPEAT0 FOR &I FROM 1 TO 4 (FROM 1 TO MAX NUMBER OF REPORTS YOU HAVE)
-SET &REPORTCOMPOUND&I = IF &REP&I EQ &I AND &FSTREP EQ &I AND &LSTREP EQ &I THEN ' '
- ELSE IF &REP&I EQ &I AND &FSTREP LT &I AND &LSTREP EQ &I THEN 'CLOSE' ELSE 'OPEN' ;
-:ENDREPEAT0

I do it with a macro.

I have a report that depending on what the user selects from the launch screen will include from 1 to 20 reports. I have a template with 21 sheets. In cell A1 on sheet 21 I write the number of reports that were generated. Then delete the sheets after that. So if the number of reports is 10, read 10 from cell A1 on sheet 21 then delete sheets 11-21.