Posted by Grant E Foraker on January 14, 2021 at 12:28:59: Uploaded files: 2
Customer has been running this report for decades. Hasn't been changed in 5 years or so.
--------------------------------------------------------------
PROMPT CAPTION Enter Item Range
PROMPT %startitem% 12 From Item [000]
PROMPT %enditem% 12 To Item [ZZZ~]
INPUT ITEM
PRINTER SP8 (SpoolMessage='INVENTORY PURCHASING ANALYSIS')
KEYRANGE '%startitem%' TO '%enditem%'
TITLE INVENTORY PURCHASING ANALYSIS REPORT (LAST 12 MONTHS)
SKIPPING 1
REPORT
USING I1A.TO.I1B;I1A.TO.I1A
INDENT 0
DEFINE LAST.12.MONTHS = PRIOR.QTY.1+PRIOR.QTY.2+PRIOR.QTY.3+PRIOR.QTY.4+_
PRIOR.QTY.5+PRIOR.QTY.6+PRIOR.QTY.7+PRIOR.QTY.8+_
PRIOR.QTY.9+PRIOR.QTY.10+PRIOR.QTY.11+PRIOR.QTY.12;6.0
DEFINE MONTHLY.AVERAGE=1.0000 * LAST.12.MONTHS / 12;6.2;MONTHLY^AVERAGE
DEFINE TODAY = DATE2NUM(DATE$,0);6.0
DEFINE CUTOFF = TODAY - 366;6.0
DEFINE LASTSALE = DATE2NUM(LAST.SALE,0);6.0
SELECTING IF LASTSALE GE CUTOFF
PRINT ITEM.NUMBER;ITEM.DESCR;UNIT.OF.SALE;ON.HAND;ON.ORDER;COMMITTED;last.purch.qty;LAST.SALE;
LAST.PURCHASE;LAST.RECEIPT;MONTHLY.AVERAGE
RUN RPGEXIT
-----------------------------------------------------
See error message. Does the CFAM Error - 10 mean something?
When I run IR.IBR manually or thru DX on my developer Win10, the PROMPT's don't happen. IR was developed on my developer PC back when I had a Win7 laptop. Now PROMPT's don't work???
Remote access is down at their location and I'll have to drive over later today.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.