I have a fex that loops through a list of items and produces a compound pdf report. The report that is called is a total of 5 reports. The report runs fine by itself but when I try to loop and run the report more than once I get Unknown error occurred.
Agent on reporting server WFWINP1 may have crashed.
Please investigate reporting server log.

ERROR:
If I don't use Linebreak='LFCR' then everything works fine except for the remarks are cut off and not carried to next page.

I think I have narrowed down the problem to the second table request that builds the remarks and header page. This request is the only request that uses a hold file. Which I don't know a way around this.

I have provided the code below. Sorry for the length. Thanks
Looping code

 -*SET &ContID = 'E2H07';
-SET &CONTRACT = &CONT.Enter Contract ID.;
-*TYPE CONTRACT &CONTRACT
-SET &ContID = UPCASE(&CONTRACT.LENGTH,&CONTRACT,A15);
-SET &LAST_DATE = "";
-SET &CNTR = 0;
-* write list out to file
-SET &B_DATE = &BDATE.Enter Beg Date YYMD.;
-SET &BEG_DATE = EDIT(&B_DATE,'9999$99$99');
-*SET &BEG_DATE = EDIT(&BEG_D,'99999999');
-TYPE BEGIN DATE &BEG_DATE
-SET &E_DATE = &EDATE.Enter End Date YYMD.;
-SET &END_DATE = EDIT(&E_DATE,'9999$99$99');
-*SET &END_DATE = EDIT(&END_D,'99999999');
-*SET &WHDATES = IF (&BEG_DATE GT ' ') AND (&END_DATE GT ' ') THEN
-*'WHERE DWR_DATE GE '| '''&BEG_DATE.EVAL''' | ' AND DWR_DATE LE '| '''&END_DATE.EVAL''' | ';' ELSE '';
-*TYPE &WHDATES
-*-------------------------------------
-SET &WHDATES = IF (&BEG_DATE GT ' ') AND (&END_DATE GT ' ') THEN
-'WHERE DWR_DT GE '| '''&BEG_DATE.EVAL''' | ' AND DWR_DT LE '| '''&END_DATE.EVAL''' | ';' ELSE
-IF (&BEG_DATE GT ' ') AND (&END_DATE EQ ' ' ) THEN
-'WHERE DWR_DT GE '| '''&BEG_DATE.EVAL''' | ';' ELSE
-IF (&BEG_DATE EQ ' ') AND (&END_DATE GT ' ' ) THEN
-'WHERE DWR_DT LE '| '''&END_DATE.EVAL''' | ';' ELSE '';
-TYPE WHDATES &WHDATES
-TYPE APPROVED &APPROV
-*EXIT
FILEDEF DWRLIST DISK enduser/CN982MJ_CONST_DWRLIST.txt
JOIN CLEAR *
-*JOIN
-*DSSOT298_T_DLY_WRK_RPT.DSSOT298.CMS_USER_ID IN DSSOT298_T_DLY_WRK_RPT TO
-*DSSOT035_PC_USER_DEF.DSSOT035.USER_ID IN DSSOT035_PC_USER_DEF AS J0
-*END
JOIN
TSMEM298.CMS_UID  IN TSMEM298 TO
TSMEM035.USER_ID IN TSMEM035 AS J0
END
DEFINE FILE TSMEM298
ALPHA_DWRDATE/A8 = EDIT(DWR_DT,'$99999999');
-*NEWDATE/A8 = CHGDAT('YYMD', 'MDYY', ALPHA_DWRDATE, 'A8');
DWR_YY/A4 = EDIT(ALPHA_DWRDATE, '9999');
DWR_MM/A2 = EDIT(ALPHA_DWRDATE, '$$$$99');
DWR_DD/A2 = EDIT(ALPHA_DWRDATE, '$$$$$$99');
NEWDATE/A8 = DWR_MM||DWR_DD||DWR_YY;
-*NEWKEY/A36 = CONT_ID|CMS_UID||EDIT(NEWDATE,'99999999');
NEWKEY/A36 = NEWDATE|CMS_UID|CONT_ID;
END
TABLE FILE TSMEM298
BY ALPHA_DWRDATE NOPRINT
BY NEWKEY
-*WHERE ( CONTRACT_ID EQ 'E2H07');
-*WHERE ( AUTHORIZED_IND EQ 'Y' );
WHERE ( CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( AUTH_IND EQ &APPROV.Approved Yes/No. );
-*WHERE ( DWR_DATE GE '&BEG_DATE.Enter Beg Date YYMD.' ) AND ( DWR_DATE LE '&END_DATE.Enter End Date YYMD.' );
-*WHERE ( DWR_DATE GE '20070526' ) AND ( DWR_DATE LE '20070601' );
&WHDATES
ON TABLE SAVE AS DWRLIST
END
-*EXIT
-RUN
-*EXIT
-***** Housekeeping *********************************************************
-IF &FOCERRNUM NE 0 GOTO ERR_ROUTINE;
-IF &LINES LE 0 THEN GOTO NODATA;
-*GOTO FINISH_RPT
-*EXIT
-* Header report
-* build header report and open compound pdf
-INCLUDE app/dwr_proj
-* end Header report
-*EXIT
-* keep compound pdf open
-* read items from DWRLIST file and build reports
-*GOTO SKIPDWR
-CONTINUE
-READ DWRLIST NOCLOSE &DWRDate.A8 &UserID.A8 &ContID.A15
-IF &IORETURN NE 0 GOTO RESUME;
-IF &LAST_DATE EQ &DWRDate GOTO SKPDIARY;
-*EX dwrrptdi ContID = &ContID,
-*			DWRDate = &DWRDate,
-*			END_DATE = &END_DATE,
-*			BEG_DATE = &BEG_DATE
-SKPDIARY
-*INCLUDE app/dwr__com
-SET &CNTR = &CNTR + 1;
EX dwr_3_of ContID =  &ContID,
			UserID =  &UserID,
			DWRDate = &DWRDate,
			CNTR	= &CNTR
-*RUN
-*SKIPOVER
-SET &LAST_DATE = &DWRDate;
-GOTO CONTINUE
-RESUME
-CLOSE DWRLIST
-* end read items
-*EXIT
-SKIPDWR
-* Footer report
-* build footer report and close compound pdf
-INCLUDE app/dwr_foot
-* end footer report
-GOTO FINISH_RPT
-NODATA
-HTMLFORM BEGIN
<HTML><BODY>
No Matching records found that meet your Criteria.
</BODY></HTML>
-HTMLFORM END
-GOTO FINISH_RPT
-***** ERR_ROUTINE label *******************
-ERR_ROUTINE
-TYPE ERROR ENCOUNTERED - FOCUS ERROR NUMBER IS &FOCERRNUM
-GOTO FINISH_RPT
-***** FINISH_RPT label ********************
-FINISH_RPT
-EXIT
 

Code for dwr_3_of

 SET EMPTYREPORT = ON
SET ALL=ON
-*SET PRINTPLUS=ON
-*GOTO REPORT1
-*DUMMY REPORT FOR FORCING PAGE BREAK
-*SET COMPOUND=  NOBREAK
TABLE FILE CAR
PRINT
MODEL NOPRINT
WHERE RECORDLIMIT EQ 1
FOOTING BOTTOM
"Report: DWR Report - Filename: dwr_read.fex"
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=FOOTING,
SIZE=6,
$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
-*ON TABLE PCHOLD FORMAT PDF OPEN NOBREAK
END
-*GOTO REPORT2
-REPORT1
-*SET &ContID = 'T2091';
-*SET &UserID = 'knurccd';
-*SET &DWRDate = '05052009';
-*REPORT 1, DWR HEADER AND REMARKS
SET COMPOUND=  NOBREAK
JOIN CLEAR *
JOIN
LEFT_OUTER TSMEM298.RMRKS_ID IN TSMEM298 TO
MULTIPLE TSMEM042.RMRKS_ID IN TSMEM042 AS J0
END
JOIN BLANK WITH TSMEM042.RMRKS_ID IN TSMEM298 TO BLANK IN MACGYVER AS J2
END
JOIN
TSMEM042.RMRKS_T IN TSMEM298 TO
TSMEM038.TSMEM038.CD_ID IN TSMEM038 AS J3
END
-*this code will display a map of the joins
-*CHECK FILE DSSOT298_T_DLY_WRK_RPT PICT
-*EXIT
DEFINE FILE TSMEM298
BLANK/A1 = ' ';
CNTR/I9 WITH TSMEM042.RMRKS_SN = CNTR + 1;
KEY1/A68 = TSMEM298.RMRKS_ID||TSMEM042.RMRKS_T;
NEW_RMK/A254V = RMRKS_TXT_FLD;
NEW_RMKV/A254V = TRIMV('T',NEW_RMK, 254, ' ', 1, 'A254V');
ENDP/I8 = LENV(NEW_RMKV, 'I8');
LEN_LST_RMRK/I8 =  IF (CNTR EQ 1) OR (KEY1 NE LAST KEY1) THEN ENDP
  ELSE LEN_LST_RMRK + ENDP;
NEWRMK1/A4000V MISSING ON= IF (COUNTER EQ 1) AND (CNTR LE 15) THEN NEW_RMKV ELSE
IF (COUNTER EQ 2) AND ((CNTR GE 16) AND (CNTR LE 31)) THEN NEW_RMKV ELSE
IF (COUNTER EQ 3) AND ((CNTR GE 32) AND (CNTR LE 47)) THEN NEW_RMKV ELSE
IF (COUNTER EQ 4) AND ((CNTR GE 48) AND (CNTR LE 63)) THEN NEW_RMKV ELSE
IF (COUNTER EQ 5) AND ((CNTR GE 64) AND (CNTR LE 79)) THEN NEW_RMKV ELSE
IF (COUNTER EQ 6) AND ((CNTR GE 80) AND (CNTR LE 95)) THEN NEW_RMKV ELSE
IF (COUNTER EQ 7) AND ((CNTR GE 96) AND (CNTR LE 99)) THEN NEW_RMKV ELSE  MISSING;
-*NEWRMK/A25146V = IF (CNTR EQ 1) OR (KEY1 NE LAST KEY1) THEN NEW_RMKV ELSE NEWRMK||NEW_RMKV;
DWR_DATEYX/P8YYMD = DWR_DT;
DWR_DATEY/MDYY = DWR_DATEYX;
DWR_DATE1/A10 = EDIT(DWR_DATEY,'99/99/9999');
-*DATETY/P8=AUTH_DT;
DATEXX/P8YYMD=AUTH_DT;
AUD_DATE/MDYY=DATEXX;
END
TABLE FILE TSMEM298
SUM
CONT_ID
DWR_DATEY
CMS_UID
AUTH_IND
-*'TSMEM035.USER_NM'
DWR_DT
AUD_DATE
TSMEM298.AUTH_DT
TSMEM298.HI_TEMP
TSMEM298.LW_TEMP
TSMEM298.AM_COND
TSMEM298.PM_COND
COMPUTE CONTR_PRES/A3 = IF TSMEM298.CONTR_PRS_IND EQ 'N' THEN 'YES' ELSE 'NO';
-*'DSSOT298.CONTRACTORS_PRESENT_FLAG' NOPRINT
CD_DESC
NEWRMK1
BY 'KEY1'
BY COUNTER
BY CNTR
-*BY  TSMEM042.RMRKS_SN
-*BY CD_DESC
BY TSMEM042.RMRKS_T
WHERE ( TSMEM298.CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( TSMEM298.CMS_UID EQ '&UserID.Enter UserID.' );
-*WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date.' );
WHERE NEWRMK1 NOT IS MISSING;
-*WHERE ( TSMEM298.DWR_DT EQ &DWRDate );
WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date.' );
-*WHERE RMRKS_T EQ 'GEN';
-*WHERE TSMEM042.RMRKS_SN LT 18;
WHERE TBL_ID EQ 'DWRMTYPE';
ON TABLE PCHOLD AS DWRHEAD&CNTR
END
-*EXIT
JOIN
LEFT_OUTER DWRHEAD&CNTR.CMS_UID IN DWRHEAD&CNTR TO
MULTIPLE TSMEM035.USER_ID IN TSMEM035 AS J1
END
DEFINE FILE DWRHEAD&CNTR
NEW_RMK/A4093V = IF COUNTER NE LAST COUNTER OR KEY1 NE LAST KEY1 THEN NEWRMK1 ELSE NEW_RMK||NEWRMK1;
END
-*SET COMPOUND = 'OPEN NOBREAK'
TABLE FILE DWRHEAD&CNTR
SUM
TSMEM035.USER_NM NOPRINT
DWR_DT  NOPRINT
AUD_DATE NOPRINT
AUTH_DT NOPRINT
HI_TEMP NOPRINT
LW_TEMP NOPRINT
AM_COND NOPRINT
PM_COND NOPRINT
CONTR_PRES NOPRINT
NEW_RMK AS 'DWR Remarks'
BY COUNTER NOPRINT
BY KEY1 NOPRINT
BY CD_DESC AS 'Remarks Type:'
ON CD_DESC SUBHEAD
""
HEADING
" State of Florida Department of Transportation"
"DWR Report"
"<2 For Contract: <+0><CONT_ID<+0>"
" "
"<2 DWR Date <12 User ID/Name <25 Authorized <35 Authorized Date: <50 Contractors Present:"
"<2 <DWR_DATEY <12 <USER_ID <25 <AUTH_IND <35 <AUD_DATE <50 <CONTR_PRES"
"<12 <USER_NM"
" "
"<2 Hi Temp:<12 <MAX.HI_TEMP <20 AM Condition: <35 <AM_COND"
"<2 Low Temp:<12 <MAX.LW_TEMP <20 PM Condition: <35 <PM_COND"
"_______________________________________________________________________________________"
"DWR Remarks:"
" "
ON TABLE SET PAGE-NUM OFF
-*ON TABLE NOTOTAL
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=REPORT,
LINEBREAK='LFCR',
$
TYPE=REPORT,
COLUMN=CD_DESC,
WRAP=1.75,
$
TYPE=REPORT,
COLUMN=P2,
WRAP=5.0,
$
TYPE=TITLE,
COLUMN=P2,
JUSTIFY=CENTER,
$
TYPE=TITLE,
STYLE=BOLD,
$
-*TYPE=FOOTING,
-*LINE=1,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
TYPE=HEADING,
SIZE=9,
STYLE=NORMAL,
$
TYPE=HEADING,
LINE=1,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
TYPE=HEADING,
LINE=2,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
TYPE=HEADING,
LINE=3,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
TYPE=HEADING,
LINE=3,
ITEM=3,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=5,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=9,
OBJECT=TEXT,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=10,
OBJECT=TEXT,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=12,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
TYPE=HEADING,
LINE=13,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=9,
STYLE=BOLD,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=SUBHEAD,
SIZE=2,
BOTTOMGAP=0.01,
TOPGAP=0.01,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
ENDSTYLE
-*ON TABLE PCHOLD FORMAT PDF
ON TABLE PCHOLD FORMAT PDF
END
-*GOTO DONE
-*EXIT
-REPORT2
-*REPORT 2, Contractor Equipment On Site and/or Active
SET EMPTYREPORT = ON
SET COMPOUND = NOBREAK
JOIN CLEAR *
JOIN
TSMEM303.RMRKS_ID IN TSMEM303
TO TSMEM042.RMRKS_ID IN TSMEM042 AS J0
END
JOIN
LEFT_OUTER TSMEM303.VEND_ID IN TSMEM303 TO
MULTIPLE TSMEM041.VEND_ID IN TSMEM041 AS J1
END
DEFINE FILE TSMEM303
CNTR/I9 WITH RMRKS_SN = CNTR + 1;
KEY1/A68 = RMRKS_ID||RMRKS_T;
ENDP/I4 = ARGLEN(254, RMRKS_TXT_FLD, ENDP);
LREN/I4 = IF (CNTR EQ 1) OR (KEY1 NE LAST KEY1) THEN ENDP ELSE ENDP + LAST LREN;
NEW_RMK1/A254 = RMRKS_TXT_FLD;
NEW_RMK2/A254 = CTRAN(254,NEW_RMK1,40,32,'A254');
NEW_RMK3/A254 = CTRAN(254,NEW_RMK2,41,32,'A254');
NEW_RMK4/A254 = CTRAN(254,NEW_RMK3,13,32,'A254');
NEW_RMK/A254 = CTRAN(255,NEW_RMK4,10,32,'A254');
RMRK/A25146 = IF KEY1 NE LAST KEY1 THEN NEW_RMK ELSE (SUBSTR(25146, RMRK, 1, LREN, LREN, 'A24846')) || NEW_RMK;
DWR_DATEYX/P8YYMD = DWR_DT;
DWR_DATEY/MDYY = DWR_DATEYX;
-*ALPHA_DWRDATE/A10 = EDIT(DWR_DT);
-*DWR_DATEY/A10 = CHGDAT('YYMD', 'MDYY', ALPHA_DWRDATE, 'A10');
VENDIDNAME/A57 = TSMEM303.VEND_ID|' - '|TSMEM041.VEND_SHRT_NM;
END
TABLE FILE TSMEM303
PRINT
'TSMEM303.EQP_ID' AS 'Equipment,ID'
'TSMEM303.EQP_DESC' AS 'Description'
'TSMEM303.NBR_PECS' AS 'Number,Pieces'
'TSMEM303.NBR_USED' AS 'Number,Used'
'TSMEM303.USED_HRS' AS 'Hours,Used'
'RMRK' AS 'Remarks'
COMPUTE TOT_WRK_HRS/P12.2 = TSMEM303.NBR_USED * TSMEM303.USED_HRS; NOPRINT
-*BY 'CMS_USER_ID' PAGE-BREAK NOPRINT
-*BY 'DWR_DATE' PAGE-BREAK NOPRINT
BY 'TSMEM041.VEND_ID'  NOPRINT
BY 'KEY1' NOPRINT
BY HIGHEST 1 RMRKS_SN NOPRINT
WHERE ( CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( CMS_UID EQ '&UserID.Enter UserID.' );
WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date.' );
ON TSMEM041.VEND_ID NOSPLIT
ON TSMEM041.VEND_ID SUBHEAD
""
"Contractor: <VENDIDNAME"
-*""
HEADING
"_______________________________________________________________________________________"
"Contractor's Equipment On Site, Idle or Active"
" "
ON TSMEM041.VEND_ID SUBFOOT
""
"Total Hours Reported: <ST.TOT_WRK_HRS"
-*ON TABLE SUB-TOTAL USED_HRS AS 'Total Hours Reported:'
ON TABLE SET PAGE-NUM OFF
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=REPORT,
LINEBREAK='LFCR',
$
TYPE=REPORT,
COLUMN=P1,
WRAP=1.25,
RIGHTGAP=0.03,
LEFTGAP=0.01,
$
TYPE=TITLE,
JUSTIFY=LEFT,
$
TYPE=TITLE,
COLUMN=P6,
JUSTIFY=CENTER,
$
TYPE=REPORT,
COLUMN=P1,
JUSTIFY='LEFT',
RIGHTGAP=0.03,
LEFTGAP=0.02,
$
TYPE=REPORT,
COLUMN=P3,
JUSTIFY='LEFT',
RIGHTGAP=0.03,
LEFTGAP=0.02,
$
TYPE=REPORT,
COLUMN=P4,
JUSTIFY='LEFT',
RIGHTGAP=0.03,
LEFTGAP=0.02,
$
TYPE=REPORT,
COLUMN=P4,
JUSTIFY='LEFT',
RIGHTGAP=0.03,
LEFTGAP=0.0,
$
TYPE=REPORT,
COLUMN=P6,
WRAP=2.70,
$
TYPE=REPORT,
COLUMN=P2,
WRAP=1.25,
RIGHTGAP=0.02,
LEFTGAP=0.04,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TABHEADING,
SIZE=10,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
-*TYPE=HEADING,
-*LINE=4,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
-*TYPE=FOOTING,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
TYPE=SUBHEAD,
SIZE=8,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
END
-*EXIT
-REPORT3
-*REPORT 3, Contractor Personnel On Site. Supervisors
SET EMPTYREPORT = ON
SET COMPOUND = NOBREAK
JOIN CLEAR *
JOIN
TSMEM307.RMRKS_ID IN TSMEM307
TO TSMEM042.RMRKS_ID IN TSMEM042 AS J0
END
JOIN
LEFT_OUTER TSMEM307.VEND_ID IN TSMEM307
TO MULTIPLE TSMEM041.VEND_ID IN TSMEM041 AS J1
END
DEFINE FILE TSMEM307
CNTR/I9 WITH RMRKS_SN = CNTR + 1;
KEY1/A68 = RMRKS_ID||RMRKS_T;
ENDP/I4 = ARGLEN(254, RMRKS_TXT_FLD, ENDP);
LREN/I4 = IF (CNTR EQ 1) OR (KEY1 NE LAST KEY1) THEN ENDP ELSE ENDP + LAST LREN;
NEW_RMK1/A254 = RMRKS_TXT_FLD;
NEW_RMK2/A254 = CTRAN(254,NEW_RMK1,40,32,'A254');
NEW_RMK3/A254 = CTRAN(254,NEW_RMK2,41,32,'A254');
NEW_RMK4/A254 = CTRAN(254,NEW_RMK3,13,32,'A254');
NEW_RMK/A254 = CTRAN(255,NEW_RMK4,10,32,'A254');
RMRK/A25146 = IF KEY1 NE LAST KEY1 THEN NEW_RMK ELSE (SUBSTR(25146, RMRK, 1, LREN, LREN, 'A24846')) || NEW_RMK;
-*ALPHA_DWRDATE/A10 = EDIT(DWR_DATE);
-*DWR_DATEY/A10 = CHGDAT('YYMD', 'MDYY', ALPHA_DWRDATE, 'A10');
DWR_DATEYX/P8YYMD = DWR_DT;
DWR_DATEY/MDYY = DWR_DATEYX;
VENDIDNAME/A57 = TSMEM307.VEND_ID|' - '|TSMEM041.VEND_SHRT_NM;
END
TABLE FILE TSMEM307
PRINT
TSMEM307.SUPR_FORMN_NM AS 'Supervisor,Foreman,Name'
TSMEM307.WRKD_HRS AS 'Hours,Worked'
RMRK AS 'Remarks'
BY 'TSMEM041.VEND_ID' NOPRINT
BY 'KEY1' NOPRINT
BY HIGHEST 1 RMRKS_SN NOPRINT
WHERE ( CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( CMS_UID EQ '&UserID.Enter UserID.' );
WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date2.' );
ON TSMEM041.VEND_ID NOSPLIT
ON TSMEM041.VEND_ID SUBHEAD
""
"Contractor: <VENDIDNAME"
ON TABLE SUBFOOT
""
"Total Hours Reported: <ST.TSMEM307.WRKD_HRS"
-*ON TABLE SUB-TOTAL
-*TSMEM307.WRKD_HRS AS 'Total Hours Reported:'
HEADING
"_______________________________________________________________________________________"
"Contractor Personnel On Site"
" "
ON TABLE SET PAGE-NUM OFF
-*ON TABLE NOTOTAL
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=REPORT,
LINEBREAK='LFCR',
$
TYPE=REPORT,
COLUMN=P3,
WRAP=3.75,
$
TYPE=REPORT,
COLUMN=P1,
JUSTIFY='LEFT',
RIGHTGAP=0.05,
LEFTGAP=0.05,
WRAP=1.25,
$
TYPE=DATA,
COLUMN=P2,
JUSTIFY='LEFT',
RIGHTGAP=0.05,
LEFTGAP=0.05,
WRAP=1.0,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=P3,
JUSTIFY=CENTER,
$
TYPE=TABHEADING,
SIZE=10,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=10,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
JUSTIFY='CENTER',
$
-*TYPE=HEADING,
-*LINE=4,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
-*TYPE=FOOTING,
-*LINE=1,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
TYPE=SUBHEAD,
SIZE=8,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
END
-*EXIT
-REPORT4
-*GOTO REPORT5
-*REPORT 4, VARIABLE LABOR ON SITE
SET EMPTYREPORT = ON
SET COMPOUND = NOBREAK
JOIN CLEAR *
JOIN
TSMEM305.RMRKS_ID IN TSMEM305
TO TSMEM042.RMRKS_ID IN TSMEM042 AS J0
END
JOIN
LEFT_OUTER TSMEM305.VEND_ID IN TSMEM305
TO MULTIPLE TSMEM041.VEND_ID IN TSMEM041 AS J1
END
DEFINE FILE TSMEM305
CNTR/I9 WITH RMRKS_SN = CNTR + 1;
KEY1/A68 = RMRKS_ID||RMRKS_T;
ENDP/I4 = ARGLEN(254, RMRKS_TXT_FLD, ENDP);
LREN/I4 = IF (CNTR EQ 1) OR (KEY1 NE LAST KEY1) THEN ENDP ELSE ENDP + LAST LREN;
NEW_RMK1/A254 = RMRKS_TXT_FLD;
NEW_RMK2/A254 = CTRAN(254,NEW_RMK1,40,32,'A254');
NEW_RMK3/A254 = CTRAN(254,NEW_RMK2,41,32,'A254');
NEW_RMK4/A254 = CTRAN(254,NEW_RMK3,13,32,'A254');
NEW_RMK/A254 = CTRAN(255,NEW_RMK4,10,32,'A254');
RMRK/A25146 = IF KEY1 NE LAST KEY1 THEN NEW_RMK ELSE (SUBSTR(25146, RMRK, 1, LREN, LREN, 'A24846')) || NEW_RMK;
-*ALPHA_DWRDATE/A10 = EDIT(DWR_DATE);
-*DWR_DATEY/A10 = CHGDAT('YYMD', 'MDYY', ALPHA_DWRDATE, 'A10');
DWR_DATEYX/P8YYMD = DWR_DT;
DWR_DATEY/MDYY = DWR_DATEYX;
VENDIDNAME/A57 = TSMEM305.VEND_ID|' - '|TSMEM041.VEND_SHRT_NM;
END
TABLE FILE TSMEM305
PRINT
TSMEM041.VEND_ID NOPRINT
TSMEM305.PRSNL_T AS 'Labor,Type'
TSMEM305.NBR_PRSN AS 'Number,On Site'
TSMEM305.WRKD_HRS AS 'Hours,Worked'
RMRK AS 'Remarks'
COMPUTE TOT_WRK_HRS/P12 = TSMEM305.NBR_PRSN * TSMEM305.WRKD_HRS; NOPRINT
-*BY 'CMS_USER_ID' PAGE-BREAK NOPRINT
-*BY 'DWR_DATE' PAGE-BREAK NOPRINT
BY 'TSMEM041.VEND_ID'  NOPRINT
BY 'KEY1' NOPRINT
BY HIGHEST 1 RMRKS_SN NOPRINT
-*WHERE (DSSOT042.REMARKS_TYPE NE 'PER');
WHERE ( CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( CMS_UID EQ '&UserID.Enter UserID.' );
WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date3.' );
ON TSMEM041.VEND_ID NOSPLIT
ON TSMEM041.VEND_ID SUBHEAD
""
"Contractor: <VENDIDNAME"
-*ON TABLE RECAP
-*TOT_WRK_HRS/P12 = TSMEM305.WRKD_HRS * TSMEM305.NBR_PRSN;
ON TSMEM041.VEND_ID SUBFOOT
""
"Total Hours Reported: <ST.TOT_WRK_HRS"
-*ON TABLE SUB-TOTAL
-*TSMEM305.WRKD_HRS AS 'Total Hours Reported:'
HEADING
"_______________________________________________________________________________________"
"Contractor's Variable Labor On Site"
" "
ON TABLE SET PAGE-NUM OFF
-*ON TABLE NOTOTAL
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=REPORT,
LINEBREAK='LFCR',
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=P4,
JUSTIFY=CENTER,
$
-*TYPE=HEADING,
-*LINE=4,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
-*TYPE=FOOTING,
-*LINE=1,
-*SIZE=2,
-*BACKCOLOR='SILVER',
$
TYPE=REPORT,
COLUMN=P1,
JUSTIFY='LEFT',
RIGHTGAP=0.025,
LEFTGAP=0.0,
WRAP=1.5,
$
TYPE=REPORT,
COLUMN=P2,
JUSTIFY='LEFT',
RIGHTGAP=0.025,
LEFTGAP=0.0,
WRAP=1.5,
$
TYPE=REPORT,
COLUMN=P3,
JUSTIFY='LEFT',
$
TYPE=REPORT,
COLUMN=P4,
JUSTIFY='CENTER',
$
TYPE=REPORT,
COLUMN=P4,
WRAP=3.25,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=SUBHEAD,
SIZE=8,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
END
-*EXIT
-REPORT5
SET EMPTYREPORT = ON
SET COMPOUND = NOBREAK
SET ALL=ON
JOIN CLEAR *
JOIN
TSMEM318.CONT_ID AND TSMEM318.PRJ_NBR AND TSMEM318.LN_ITM_NBR IN TSMEM318 TO
TSMEM002.CONT_ID AND TSMEM002.PRJ_NBR AND TSMEM002.LN_ITM_NBR IN TSMEM002 AS J1
END
JOIN
TSMEM318.VEND_ID IN TSMEM318 TO
TSMEM041.VEND_ID IN TSMEM041 AS J2
END
DEFINE FILE TSMEM318
-*ALPHA_DWRDATE/A10 = EDIT(DWR_DATE);
-*DWR_DATEY/A10 = CHGDAT('YYMD', 'MDYY', ALPHA_DWRDATE, 'A10');
VENDIDNAME/A57 = VEND_ID|' - '|VEND_SHRT_NM;
SEQDES/A46 = EDIT(LOC_SEQ_NBR)|'-'|LOC_INSTLD;
DWR_DATEYX/P8YYMD = DWR_DT;
DWR_DATEY/MDYY = DWR_DATEYX;
END
TABLE FILE TSMEM318
PRINT
CATG_NBR AS 'Catlg,No.'
LN_ITM_NBR AS 'Line,Item No.'
ITM_CD AS 'Item'
DESC1 AS 'Description'
SEQDES AS 'Location Sequence,and Description'
RPT_QTY AS 'Reported,Quantity'
BY CONT_ID NOPRINT
BY VENDIDNAME NOPRINT
BY PRJ_NBR AS 'Fin,Number'
-*ON VENDIDNAME NOSPLIT
ON VENDIDNAME SUBHEAD
""
"Contractor: <VENDIDNAME"
HEADING
"________________________________________________________________________________"
"Reported Work"
" "
WHERE ( CONT_ID EQ '&ContID.Enter ContID.' );
WHERE ( CMS_UID EQ '&UserID.Enter UserID.' );
WHERE ( DWR_DATEY EQ '&DWRDate.Enter DWR Date4.' );
ON TABLE SET PAGE-NUM OFF
-*ON TABLE NOTOTAL
-*ON TABLE SET ONLINE-FMT PDF
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='LETTER',
LEFTMARGIN=0.30000,
RIGHTMARGIN=0.30000,
TOPMARGIN=0.25000000,
BOTTOMMARGIN=0.75000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=REPORT,
LINEBREAK='LFCR',
$
TYPE=REPORT,
COLUMN=P6,
WRAP=1.5,
$
TYPE=REPORT,
COLUMN=P5,
WRAP=1.5,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
JUSTIFY='CENTER',
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
ENDSTYLE
ON TABLE PCHOLD FORMAT PDF
-*ON TABLE PCHOLD FORMAT PDF CLOSE NOBREAK
END
-DONE
 

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