COMPILE SUBROUTINE SCHED_RPT3_PRN( FromDate, ThruDate, SchedTable )
! 
* LIST SCHEDULE JUSTLEN '8' BREAK-ON CUST_DIVISION JUSTLEN '30' PO PART_NUM SHIP_DATE TOTAL SHIP_QTY SHIP_PRICE JUSTLEN '12' BREAK-ON INVOICE_IDS JUSTLEN '12' TOTAL SHIP_AMOUNT JUSTLEN '15' LIMIT SHIP_DATE FROM "09/01/95" TO "09/05/95" HEADING " Billings by Customer/Division by Invoice No. 'T' PAGE # 'PP''L' by selected dates from ((09/01/95) TO (09/05/95 ) "
! 
*PRINTER ON
* 
* HEADING/FOOTING
declare function set_printer
Font = 'Courier New,7,L,0'
convert ',' to @fm in Font
TheHeader = " Billings by Customer/Division by Invoice No. 'T' PAGE # 'P' by selected dates from (":oconv( FromDate, 'D2/' ):") Thru (":oconv( ThruDate, 'D2/' ):@fm
HeadPos   = '.64,2.63,1.64,1.14,.75,.75,.89,.64,1.64'
convert ',' to @fm in HeadPos
COLHEADER = ''
ColHeader = "Key" : @vm : "Customer/Division" : @vm : "PO" : @vm : "Part Number" : @vm : "Ship Date" : @vm : "Ship Qty" : @vm : "Ship Price" : @vm : "Invoice IDs" : @vm : "Ship Amount"
Tvar = str( '_', 9):@vm:str( '_', 35):@vm:str( '_', 25):@vm:str( '_', 16):@vm
Tvar:= str( '_', 10):@vm:str( '_', 12):@vm:str( '_', 14):@vm:str( '_', 9):@vm
Tvar:= str( '_', 19)
ColHeader<-1> = Tvar
if SchedTable = 'SCHEDULE_SRL' then
    swap 'Part Number' with 'Description' in ColHeader
end
*THEHEADER = ''
Void = set_printer( 'FONTHEADFOOT', Font )
Void = set_printer( 'HEADER', TheHeader, HeadPos, ColHeader )
Void = set_printer( 'FONT', Font )
*FOOTING ""
* 
@RECCOUNT=0
FIRST.PASS=1
LAST.RECORD=0
READERR=0
* 
* OPEN DICT AND DATA FILES
* 
OPEN "DICT",SchedTable TO @DICT ELSE return
OPEN "",SchedTable TO FILE.IN ELSE return
* 
* MAKE COLUMN HEADING
* 
* ZERO ACCUMULATORS FOR EACH BREAK
SHIPULQTY.CUSTULDIVISION.TOTAL=0
SHIPULQTY.CUSTULDIVISION.COUNT=0
SHIPULQTY.INVOICEULIDS.TOTAL=0
SHIPULQTY.INVOICEULIDS.COUNT=0
SHIPULQTY.GRAND.TOTAL=0
SHIPULQTY.GRAND.COUNT=0
* 
SHIPULAMOUNT.CUSTULDIVISION.TOTAL=0
SHIPULAMOUNT.CUSTULDIVISION.COUNT=0
SHIPULAMOUNT.INVOICEULIDS.TOTAL=0
SHIPULAMOUNT.INVOICEULIDS.COUNT=0
SHIPULAMOUNT.GRAND.TOTAL=0
SHIPULAMOUNT.GRAND.COUNT=0
* 
* NULL PREVIOUS BREAK BUCKETS
* 
PREV.CUSTULDIVISION=''
LAST.CUSTULDIVISION.BREAK = 1
PREV.INVOICEULIDS=''
LAST.INVOICEULIDS.BREAK = 1
* 
* DEFINE DATE CONSTANTS FOR PRINT LIMITING
* 
TODAY = DATE()
SUNDAY = TODAY - MOD(TODAY,7)
LAST.SUNDAY = TODAY - ( MOD(TODAY-1,7) + 1 )
* 
* 
! 
READRECORD:
! 
* 
* 
* ZERO BREAK FLAGS TO FALSE
* 
CUSTULDIVISION.BREAK=0
INVOICEULIDS.BREAK=0
* 
* 
@FILE.ERROR.MODE=1
READNEXT @ID,WHICH.VALUE ELSE
@FILE.ERROR.MODE=0
IF STATUS() GT 0 THEN
@ANS=@FILE.ERROR<1>
Void = set_printer( 'TEXT', {RLIST_TEXT_5} )
return
END
IF @FILE.ERROR<1> EQ 421 THEN
Void = set_printer( 'TEXT', {RLIST_TEXT_6} )
GOTO READRECORD
END
IF @FILE.ERROR<1> NE 111 THEN
@ANS=@FILE.ERROR<1>
Void = set_printer( 'TEXT', {RLIST_TEXT_4} )
READERR+=1
GOTO READRECORD
END
LAST.RECORD=1
CUSTULDIVISION.BREAK=1
CUSTULDIVISION=PREV.CUSTULDIVISION
INVOICEULIDS.BREAK=1
INVOICEULIDS=PREV.INVOICEULIDS
END
@FILE.ERROR.MODE=0
* 
S.ATID=@ID
* 
IF FIRST.PASS AND LAST.RECORD THEN
Void = set_printer( 'TEXT', {RLIST_TEXT_2} )
return
END
* 
IF LAST.RECORD THEN GOTO BREAKS
* 
IF @REDUCTION.DONE THEN
@FILE.ERROR.MODE=1
READO @RECORD FROM FILE.IN,@ID ELSE
@FILE.ERROR.MODE=0
IF STATUS() GT 0 THEN
@ANS=@FILE.ERROR<1>
Void = set_printer( 'TEXT', {RLIST_TEXT_5} )
return
END
IF @FILE.ERROR<1> NE 100 THEN
@ANS=@FILE.ERROR<1>
Void = set_printer( 'TEXT', {RLIST_TEXT_4} )
READERR+=1
END
GOTO READRECORD
END
@FILE.ERROR.MODE=0
END
* 
@RECCOUNT+=1
* 
* 
* CALCULATE VALUE(S) FOR COLUMN(S)
* 
S.ATID={@ID}
I.ATID=S.ATID
S.CUSTULDIVISION={CUST_DIVISION}
I.CUSTULDIVISION=S.CUSTULDIVISION
S.PO={PO}
I.PO=S.PO
if SchedTable = 'SCHEDULE' then 
    S.PARTULNUM={PART_NUM}
end else
    S.PARTULNUM={DESCRIPTION}
end
I.PARTULNUM=S.PARTULNUM
M.SHIPULDATE={SHIP_DATE}<1,WHICH.VALUE> ; P.SHIPULDATE=1 ; C.SHIPULDATE=7
* 
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
* 
S.SHIPULDATE = M.SHIPULDATE
M.SHIPULQTY={SHIP_QTY}<1,WHICH.VALUE> ; P.SHIPULQTY=1 ; C.SHIPULQTY=7
* 
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
* 
S.SHIPULQTY = M.SHIPULQTY
M.SHIPULPRICE={SHIP_PRICE}<1,WHICH.VALUE> ; P.SHIPULPRICE=1 ; C.SHIPULPRICE=7
* 
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
* 
S.SHIPULPRICE = M.SHIPULPRICE
M.INVOICEULIDS={INVOICE_IDS}<1,WHICH.VALUE> ; P.INVOICEULIDS=1 ; C.INVOICEULIDS=7
* 
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
* 
S.INVOICEULIDS = M.INVOICEULIDS
M.SHIPULAMOUNT={SHIP_AMOUNT}<1,WHICH.VALUE> ; P.SHIPULAMOUNT=1 ; C.SHIPULAMOUNT=7
* 
* INITIALIZE MULTIVALUE BREAK CHECK VARIABLE
* 
S.SHIPULAMOUNT = M.SHIPULAMOUNT
* 
PREVIOUS.MARK.LEVEL=0
* 
* TEST FOR CONTROL BREAK(S)
* 
IF (S.CUSTULDIVISION NE PREV.CUSTULDIVISION) OR CUSTULDIVISION.BREAK THEN
CUSTULDIVISION=PREV.CUSTULDIVISION
PREV.CUSTULDIVISION=S.CUSTULDIVISION
CUSTULDIVISION.BREAK+=1
INVOICEULIDS.BREAK=3
END
* 
IF (S.INVOICEULIDS NE PREV.INVOICEULIDS) OR INVOICEULIDS.BREAK THEN
INVOICEULIDS=PREV.INVOICEULIDS
PREV.INVOICEULIDS=S.INVOICEULIDS
INVOICEULIDS.BREAK+=1
END
* 
* 
IF FIRST.PASS THEN
FIRST.PASS=0
GOTO DETAIL
END
* 
* 
! 
BREAKS:
! 
* 
* PRINT BREAK TOTAL(S) AND ACCUMULATE TOTAL(S)
* 
* 
IF INVOICEULIDS.BREAK THEN
Void = set_printer( 'TEXT', '' )
PRINTLINE = '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= OCONV(SHIPULQTY.INVOICEULIDS.TOTAL ,"MD0"):@vm
PRINTLINE:= '':@vm
PRINTLINE:= "***":@vm
PRINTLINE:= OCONV(SHIPULAMOUNT.INVOICEULIDS.TOTAL ,"MD2,$")
TableColInfo = '>+922':@vm:'<+3787':@vm:'<+2362':@vm:'<+1642':@vm:'<+1080':@vm:'>+1080':@vm
TableColInfo:= '>+1282':@vm:'>+922':@vm:'>+1714'
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 

Void = set_printer( 'TEXT', '' )
* 
SHIPULQTY.CUSTULDIVISION.TOTAL+=SHIPULQTY.INVOICEULIDS.TOTAL
SHIPULQTY.INVOICEULIDS.TOTAL=0
SHIPULQTY.CUSTULDIVISION.COUNT+=SHIPULQTY.INVOICEULIDS.COUNT
SHIPULQTY.INVOICEULIDS.COUNT=0
SHIPULAMOUNT.CUSTULDIVISION.TOTAL+=SHIPULAMOUNT.INVOICEULIDS.TOTAL
SHIPULAMOUNT.INVOICEULIDS.TOTAL=0
SHIPULAMOUNT.CUSTULDIVISION.COUNT+=SHIPULAMOUNT.INVOICEULIDS.COUNT
SHIPULAMOUNT.INVOICEULIDS.COUNT=0
END
* 
IF CUSTULDIVISION.BREAK THEN
Void = set_printer( 'TEXT', '' )
PRINTLINE = '':@vm
PRINTLINE:= "***":@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= OCONV(SHIPULQTY.CUSTULDIVISION.TOTAL ,"MD0"):@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= OCONV(SHIPULAMOUNT.CUSTULDIVISION.TOTAL ,"MD2,$")
TableColInfo = '>+922':@vm:'<+3787':@vm:'<+2362':@vm:'<+1642':@vm:'<+1080':@vm:'>+1080':@vm
TableColInfo:= '>+1282':@vm:'>+922':@vm:'>+1714'
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 

Void = set_printer( 'TEXT', '' )
* 
SHIPULQTY.GRAND.TOTAL+=SHIPULQTY.CUSTULDIVISION.TOTAL
SHIPULQTY.CUSTULDIVISION.TOTAL=0
SHIPULQTY.GRAND.COUNT+=SHIPULQTY.CUSTULDIVISION.COUNT
SHIPULQTY.CUSTULDIVISION.COUNT=0
SHIPULAMOUNT.GRAND.TOTAL+=SHIPULAMOUNT.CUSTULDIVISION.TOTAL
SHIPULAMOUNT.CUSTULDIVISION.TOTAL=0
SHIPULAMOUNT.GRAND.COUNT+=SHIPULAMOUNT.CUSTULDIVISION.COUNT
SHIPULAMOUNT.CUSTULDIVISION.COUNT=0
END
* 
* PERFORM LAST RECORD OUTPUT IF DONE
* 
IF LAST.RECORD THEN
Void = set_printer( 'TEXT', '' )
PRINTLINE = "***":@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= OCONV(SHIPULQTY.GRAND.TOTAL ,"MD0"):@vm
PRINTLINE:= '':@vm
PRINTLINE:= '':@vm
PRINTLINE:= OCONV(SHIPULAMOUNT.GRAND.TOTAL ,"MD2,$")
TableColInfo = '>+922':@vm:'<+3787':@vm:'<+2362':@vm:'<+1642':@vm:'<+1080':@vm:'>+1080':@vm
TableColInfo:= '>+1282':@vm:'>+922':@vm:'>+1714'
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 

* PRINT
* @ANS=@RECCOUNT
* PRINT {RLIST_TEXT_1}
IF READERR THEN
@ANS=READERR
Void = set_printer( 'TEXT', {RLIST_TEXT_3} )
END
return
END
* 
! 
DETAIL:
! 
* 
* REMOVE APPROPRIATE VALUE FROM MULTI-VALUED COLUMN(S)
* 
NEW.MARK.LEVEL=0
* 
IF C.SHIPULDATE GE PREVIOUS.MARK.LEVEL THEN
REMOVE I.SHIPULDATE FROM M.SHIPULDATE AT P.SHIPULDATE SETTING C.SHIPULDATE
S.SHIPULDATE=I.SHIPULDATE
END
IF C.SHIPULDATE GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULDATE
IF C.SHIPULQTY GE PREVIOUS.MARK.LEVEL THEN
REMOVE I.SHIPULQTY FROM M.SHIPULQTY AT P.SHIPULQTY SETTING C.SHIPULQTY
S.SHIPULQTY=I.SHIPULQTY
END
IF C.SHIPULQTY GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULQTY
IF C.SHIPULPRICE GE PREVIOUS.MARK.LEVEL THEN
REMOVE I.SHIPULPRICE FROM M.SHIPULPRICE AT P.SHIPULPRICE SETTING C.SHIPULPRICE
S.SHIPULPRICE=I.SHIPULPRICE
END
IF C.SHIPULPRICE GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULPRICE
IF C.INVOICEULIDS GE PREVIOUS.MARK.LEVEL THEN
REMOVE I.INVOICEULIDS FROM M.INVOICEULIDS AT P.INVOICEULIDS SETTING C.INVOICEULIDS
S.INVOICEULIDS=I.INVOICEULIDS
END
IF C.INVOICEULIDS GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.INVOICEULIDS
IF C.SHIPULAMOUNT GE PREVIOUS.MARK.LEVEL THEN
REMOVE I.SHIPULAMOUNT FROM M.SHIPULAMOUNT AT P.SHIPULAMOUNT SETTING C.SHIPULAMOUNT
S.SHIPULAMOUNT=I.SHIPULAMOUNT
END
IF C.SHIPULAMOUNT GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.SHIPULAMOUNT
* 
* DO CONVERSIONS IF ANY
* 
IF S.SHIPULDATE NE "" THEN S.SHIPULDATE=OCONV(S.SHIPULDATE,"D2/")
IF S.SHIPULQTY NE "" THEN S.SHIPULQTY=OCONV(S.SHIPULQTY,"MD0")
IF S.SHIPULPRICE NE "" THEN S.SHIPULPRICE=OCONV(S.SHIPULPRICE,"MD2,$")
IF S.INVOICEULIDS NE "" THEN S.INVOICEULIDS=OCONV(S.INVOICEULIDS,"MD0")
IF S.SHIPULAMOUNT NE "" THEN S.SHIPULAMOUNT=OCONV(S.SHIPULAMOUNT,"MD2,$")
* 
* DO PRINT LIMITING
* 
IF I.SHIPULDATE GE FromDate AND I.SHIPULDATE LE ThruDate  THEN
GOTO ENDLIMIT
END
IF NEW.MARK.LEVEL THEN GOTO DETAIL
IF WHICH.VALUE THEN GOTO READRECORD
IF PREVIOUS.MARK.LEVEL THEN
* 
GOTO READRECORD
* 
END
S.SHIPULDATE=''
I.SHIPULDATE=''
S.SHIPULQTY=''
I.SHIPULQTY=''
S.SHIPULPRICE=''
I.SHIPULPRICE=''
S.INVOICEULIDS=''
I.INVOICEULIDS=''
S.SHIPULAMOUNT=''
I.SHIPULAMOUNT=''
* 
ENDLIMIT:
* 
* ACCUMULATE TOTAL(S)
* 
IF NUM(I.SHIPULQTY) AND I.SHIPULQTY NE "" THEN
SHIPULQTY.INVOICEULIDS.TOTAL+=I.SHIPULQTY
SHIPULQTY.INVOICEULIDS.COUNT+=1
I.SHIPULQTY=''
END
IF NUM(I.SHIPULAMOUNT) AND I.SHIPULAMOUNT NE "" THEN
SHIPULAMOUNT.INVOICEULIDS.TOTAL+=I.SHIPULAMOUNT
SHIPULAMOUNT.INVOICEULIDS.COUNT+=1
I.SHIPULAMOUNT=''
END
* 
* PRINT DETAIL LINE
* 
PRINTLINE = S.ATID:@vm
PRINTLINE:= S.CUSTULDIVISION:@vm
PRINTLINE:= S.PO:@vm
PRINTLINE:= S.PARTULNUM:@vm
PRINTLINE:= S.SHIPULDATE:@vm
PRINTLINE:= S.SHIPULQTY:@vm
PRINTLINE:= S.SHIPULPRICE:@vm
PRINTLINE:= S.INVOICEULIDS:@vm
PRINTLINE:= S.SHIPULAMOUNT:@vm
TableColInfo = '>+922':@vm:'<+3787':@vm:'<+2362':@vm:'<+1642':@vm:'<+1080':@vm:'>+1080':@vm
TableColInfo:= '>+1282':@vm:'>+922':@vm:'>+1714'
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 

* 
IF NEW.MARK.LEVEL THEN
S.ATID=''
S.CUSTULDIVISION=''
S.PO=''
S.PARTULNUM=''
S.SHIPULDATE=''
S.SHIPULQTY=''
S.SHIPULPRICE=''
S.INVOICEULIDS=''
S.SHIPULAMOUNT=''
PREVIOUS.MARK.LEVEL=NEW.MARK.LEVEL
GOTO DETAIL
END
* 
GOTO READRECORD
* 
END