Don't Forget About QICLOOK!

QICLOOK is a powerful tool that you can use with PowerShift to generate exactly the reports you need. The report that follows allows the person responsible for purchase orders to review orders that are partially received. It includes runtime prompts for the output device and the percentage threshold that determines if a PO line is included on the report.

Many QICLOOK features are used in this example, including:

the ENTER keyword, which prompts the user for input when the report is run
the special LDEVICE variable that defines an output device
a TITLE with a variable
JOB IS to let you specify a message that will be visible in *SPOOL

Here is the specification:

READ PO.LN
ENTER SEL.PER LENGTH 5 PROMPTING "Enter cutoff percentage nn.nn: "
ENTER LDEVICE LENGTH 5 PROMPTING "Enter desired output device: "
DEFINE ERR.1 AS [[ 0 ]] LENGTH 1.0
DEFINE PER.REC AS [[ (QTY.RECEIVED*1.0000/QTY.ORDERED)*100 ]] LENGTH 6.2 ROUND
DEFINE SEL.PER.N AS [[ NUM(SEL.PER,ERR.1) ]] LENGTH 5.2
SELECTING IF PER.REC GT SEL.PER.N AND STATUS NE 'C'
ON LDEVICE PRINT PO.NUMBER, PO.LINE.NUMBER, ITEM.NUMBER, QTY.ORDERED,
QTY.RECEIVED, PER.REC
TITLE 'POTENTIAL PURCHASE ORDER LINES TO BE CLOSED SHORT'
TITLE 'Quantity received is more than ' SEL.PER.N '% of the quantity ordered'
TITLE 'QICLOOK NAME: POCLS'
JOB IS "QICLOOK POCLS REPORT PARTIAL RECEIPTS"
RUN 'MENU'

A 70% cutoff percentage was entered for this report:

DATE:11/15/13                                                                         PAGE:    1
                                          PO Lines
                      POTENTIAL PURCHASE ORDER LINES TO BE CLOSED SHORT
                 Quantity received is more than   70.00% of the quantity ordered
                                    QICLOOK NAME: POCLS

PO Number      Ln              Item No                  Qty              Qty          PER REC
                                                       Ordered          Received

041370             1     FALL,WINTER,SPRING,SUMM                 4                3        75.00
042945            16     104408                               1500             1228        81.87
042945            19     104755                               1500             1126        75.07
042945            30     100649                               4000             3000        75.00
043261             1     100039                                 48               36        75.00

Contact HelpDesk if you need assistance creating a report that will simplify your daily operations.