I've been recently assigned to support our W/F users. By all means, I would classify myself as a novice. Training with IBI is months away due to limited opportunities for classroom opportunities in my area.
Any help would be greatly appreciated.
***********************************************
SET MSG=ON
-* -* Calculate the dates to use when selecting the the range of Invoice Dates:
-* &DTE_PREV_MO = Today's date - 1 month -* &DTE_LESS180 = Today's date - 1 month - 180 days -* &DTE_ADD20 = Today's date - 1 month + 26 days -*
-* Define and sort on ACN_U from BANTAB so that the hold file can be
-* joined to the hold file from MCINV and MCPYM.
-*
-*
JOIN MCACNT.ACN_VND_U IN MCACNT TO ALL MCVND.VND_U IN MCVND AS J1
END
-*
TABLE FILE MCACNT
PRINT ACN_CO_I
ACN_CUS_NM_I
ACN_TCO_C
ACN_VND_U
VND_N
BY ACN_U
WHERE ACN_AC_I EQ 'T' OR 'L'
ON TABLE HOLD AS JULIA FORMAT FOCUS
END
-*
JOIN
MCINV.INV_ACN_U AND MCINV.INV_D IN MCINV TO ALL MCPYM.PYM_ACN_U AND
MCPYM.PYM_INV_D IN MCPYM AS J2
END
-*
TABLE FILE MCINV
PRINT
INV_CRN_CHG
INV_D
INV_SRV_TYP_C
PYM_O
PYM_DUE_D
PYM_STT_C
PYM_VOU_U
INV_LOAD_D
BY INV_ACN_U
WHERE PYM_STT_C EQ 'PM' OR 'PF' OR 'PU'
WHERE INV_CRN_CHG_O GT 0
-*WHERE PYM_VOU_U EQ 'N$*'
WHERE PYM_O NE 0
WHERE (INV_D GE &DTE_LESS180) AND (INV_D LE &DTE_ADD26)
ON TABLE HOLD AS PUMPKIN FORMAT FOCUS INDEX INV_ACN_U
END
-*
JOIN CLEAR *
JOIN ACN_U IN JULIA TO ALL INV_ACN_U IN PUMPKIN AS JP1
-*
-* Define DTE_DUE as one month from INV_D.
-* Define DIFF as the difference between today's date and the due date.
-*
DEFINE FILE JULIA
DTE_DUE/YYMD = DATEADD(INV_D,'M',1);
DTE_NOW/YYMD = '&YYMD';
DIFF/I9 = DATEDIF(DTE_NOW, DTE_DUE, 'D');
AMT_INV_CHG/D12.2M = INV_CRN_CHG_O;
AMT_PAY/D12.2M = PYM_O;
END
-*
TABLE FILE JULIA
HEADING CENTER "AIT ONTIME REPORT" "WITHIN 4 DAYS OF DUE DATE" "AS OF &DATEMDYY 1"
PRINT
AMT_INV AS 'TOTAL DUE' AMT_PAY AS 'PAYMT AMT' PYM_STT_C AS 'STATE' INV_D/MDYY AS 'INV DT' DTE_DUE/MDYY AS 'DUE DT' PYM_DUE_D/MDYY AS 'PYMT DUE DT' INV_LOAD_D AS 'INV LOAD DT'
BY ACN_TCO_C AS 'TELCO CODE' BY VND_N AS 'VENDOR' BY INV_SRV_TYP_C AS 'SVC TYP' BY ACN_CUS_NM_I AS 'ACNA' BY LOWEST DIFF AS 'DAY UNTIL DUE DATE' BY ACN_CO_I AS 'CO IND' BY ACN_U AS 'BAN' BY PYM_VOU_U AS 'VOUCHER NO.'
This is the error being returned: SET ASNAMES=ON SET MSG=ON -* -* Calculate the dates to use when selecting the the range of Invoice Dates: -* &DTE_PREV_MO = Today's date - 1 month -* &DTE_LESS180 = Today's date - 1 month - 180 days -* &DTE_ADD20 = Today's date - 1 month + 26 days -* -SET &DTE_PREV_MO=DATECVT((DATEADD((DATECVT(20090303,'I8YYMD','YYMD')),'M',-1)), 0 ERROR AT OR NEAR LINE 5 IN PROCEDURE ADHOCRQ FOCEXEC * (FOC262) UNBALANCED PARENTHESESThis message has been edited. Last edited by: Kerry,
7.6.4 (being implemented 1/09) Word, EXCEL EXL97, EXL2K, pdf, delimited, and many more Operating system Windows
March 03, 2009, 10:20 AM
Francis Mariani
The Dialogue Manager code looks OK, but perhaps the second () is confusing things.