added LSL2 stored procedures

LSL2/STPROC/CAR_RPT1_PRN.txt

@@ -0,0 +1,206 @@
+compile subroutine car_rpt1_prn( IssueDateFrom, IssueDateThru )
+! 
+* LIST CAR ID-SUPP SEQ JUSTLEN '5' COLHEAD 'CAR#' CUST_CITY JUSTLEN '50' CONTACT_NAME WO COMPLAINT_TYPE JUSTLEN '30' EST_LOSS_VALUE ACT_LOSS_VALUE  HEADING " Customer Advisories by Customer by Issue Date 'T' PAGE # 'P' by selected Issue dates from (2/1/98) Thru (3/13/98 ) "
+! 
+*PRINTER ON
+* 
+* HEADING/FOOTING
+declare function set_printer, MSG
+Font = 'Courier New,8,L,0'
+convert ',' to @fm in Font
+HeadPos = '.5,3,1.5,.75,1.8,.75,1,1'
+convert ',' to @fm in HeadPos
+TheHeader = " Customer Advisories by Customer by Issue Date 'T' PAGE # 'P' by selected issue dates from (":oconv(IssueDateFrom, 'D2/'):") Thru (":oconv(IssueDateThru, 'D2/' ):')':@fm
+ColHeader = "Car#" : @vm : "Customer/City" : @vm : "Contact Name" : @vm : "WO" : @vm : "Complaint Type" : @vm : "Issue" : @vm : "Estimated" : @vm : "Actual"
+ColHeader<-1> = "" : @vm : "" : @vm : "" : @vm : "" : @vm : "" : @vm : "Date" : @vm : "Loss Value" : @vm : "Loss Value"
+Tvar = str( '_', 7):@vm:str( '_', 42):@vm:str( '_', 30):@vm:str( '_', 14):@vm
+Tvar:= str( '_',30 ):@vm:str( '_', 12 ):@vm:str( '_', 15):@vm:str( '_', 15 )
+*COLHEADER = ''
+ColHeader<-1> = Tvar
+*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","CAR" TO @DICT ELSE return
+OPEN "","CAR" TO FILE.IN ELSE return
+* 
+* MAKE COLUMN HEADING
+*
+* 
+* ZERO ACCUMULATORS FOR EACH BREAK
+* 
+ESTULLOSSULVALUE.GRAND.TOTAL=0
+ESTULLOSSULVALUE.GRAND.COUNT=0
+* 
+ACTULLOSSULVALUE.GRAND.TOTAL=0
+ACTULLOSSULVALUE.GRAND.COUNT=0
+* 
+! 
+READRECORD:
+! 
+* 
+* 
+@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
+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.SEQ={SEQ}
+I.SEQ=S.SEQ
+S.CUSTULCITY={CUST_CITY}
+I.CUSTULCITY=S.CUSTULCITY
+S.CONTACTULNAME={CONTACT_NAME}
+I.CONTACTULNAME=S.CONTACTULNAME
+S.WO={WO}
+I.WO=S.WO
+S.COMPLAINTULTYPE={COMPLAINT_TYPE}
+I.COMPLAINTULTYPE=S.COMPLAINTULTYPE
+S.ISSUEDATE={ISSUE_DATE}
+I.ISSUEDATE=S.ISSUEDATE
+S.ESTULLOSSULVALUE={EST_LOSS_VALUE}
+I.ESTULLOSSULVALUE=S.ESTULLOSSULVALUE
+S.ACTULLOSSULVALUE={ACT_LOSS_VALUE}
+I.ACTULLOSSULVALUE=S.ACTULLOSSULVALUE
+* 
+* 
+IF FIRST.PASS THEN
+FIRST.PASS=0
+GOTO DETAIL
+END
+* 
+* 
+! 
+BREAKS:
+! 
+* 
+* 
+* PERFORM LAST RECORD OUTPUT IF DONE
+* 
+IF LAST.RECORD THEN
+PRINTLINE = "***":@vm
+PRINTLINE:= "":@vm
+PRINTLINE:= "":@vm
+PRINTLINE:= "":@vm
+PRINTLINE:= "":@vm
+PRINTLINE:= "":@vm
+PRINTLINE:= OCONV(ESTULLOSSULVALUE.GRAND.TOTAL ,"MD2,$"):@vm
+PRINTLINE:= OCONV(ACTULLOSSULVALUE.GRAND.TOTAL ,"MD2,$"):@vm
+TableColInfo = '>+720':@vm:'<+4320':@vm:'<+2160':@vm:'>+1080':@vm:'<+2592':@vm:'>+1080':@vm:'>+1440':@vm:'>+1440'
+Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 
+* PRINT
+* @ANS=@REC.COUNT
+* PRINT {RLIST_TEXT_1}
+IF READERR THEN
+@ANS=READERR
+Void = set_printer( 'TEXT', {RLIST_TEXT_3} )
+END
+return
+END
+* 
+! 
+DETAIL:
+! 
+* 
+* DO CONVERSIONS IF ANY
+* 
+IF S.SEQ NE "" THEN S.SEQ=OCONV(S.SEQ,"MD0")
+IF S.WO NE "" THEN S.WO=OCONV(S.WO,"MD0")
+IF S.ISSUEDATE NE "" THEN S.ISSUEDATE=OCONV(S.ISSUEDATE,"D2/")
+IF S.ESTULLOSSULVALUE NE "" THEN S.ESTULLOSSULVALUE=OCONV(S.ESTULLOSSULVALUE,"MD2,$")
+IF S.ACTULLOSSULVALUE NE "" THEN S.ACTULLOSSULVALUE=OCONV(S.ACTULLOSSULVALUE,"MD2,$")
+*
+* 
+* ACCUMULATE TOTAL(S)
+* 
+IF NUM(I.ESTULLOSSULVALUE) AND I.ESTULLOSSULVALUE NE "" THEN
+ESTULLOSSULVALUE.GRAND.TOTAL+=I.ESTULLOSSULVALUE
+ESTULLOSSULVALUE.GRAND.COUNT+=1
+I.ESTULLOSSULVALUE=''
+END
+IF NUM(I.ACTULLOSSULVALUE) AND I.ACTULLOSSULVALUE NE "" THEN
+ACTULLOSSULVALUE.GRAND.TOTAL+=I.ACTULLOSSULVALUE
+ACTULLOSSULVALUE.GRAND.COUNT+=1
+I.ACTULLOSSULVALUE=''
+END
+* 
+ 
+* PRINT DETAIL LINE
+* 
+PRINTLINE =  S.SEQ:@vm
+PRINTLINE:=  S.CUSTULCITY:@vm
+PRINTLINE:=  S.CONTACTULNAME:@vm
+PRINTLINE:=  S.WO:@vm
+PRINTLINE:=  S.COMPLAINTULTYPE:@vm
+PRINTLINE:=  S.ISSUEDATE:@vm
+PRINTLINE:=  S.ESTULLOSSULVALUE:@vm
+PRINTLINE:=  S.ACTULLOSSULVALUE
+TableColInfo = '>+720':@vm:'<+4320':@vm:'<+2160':@vm:'>+1080':@vm:'<+2592':@vm:'>+1080':@vm:'>+1440':@vm:'>+1440'
+Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE ) 
+* 
+* 
+GOTO READRECORD
+* 
+END
+