added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
218
LSL2/STPROC/REACTOR_LOG_RPT4_PRN.txt
Normal file
218
LSL2/STPROC/REACTOR_LOG_RPT4_PRN.txt
Normal file
@ -0,0 +1,218 @@
|
||||
compile subroutine reactor_log_rpt4_prn( FromDate, ThruDate, Summary )
|
||||
!
|
||||
* LIST REACTOR_LOG ID-SUPP REACT_AREA_DESC REACT_PROB_DESC JUSTLEN 30 REACT_SERV_DESC JUSTLEN 30 REACT_ITEM_IDS REACT_ITEMS_DESC JUSTLEN 30 REACT_ITEM_QTY JUSTLEN 4 COLHEAD 'Qty' NOTES JUSTLEN 30 START_DATE JUSTLEN 10 START_TIME JUSTLEN 10 ELAPSED_HOURS JUSTLEN 7 COLHEAD 'Hours' HEADING " Run Date: 'TS39'Page 'P''LS22'Reactor Log Report 05/01/98 To 05/02/98"
|
||||
!
|
||||
declare function set_printer
|
||||
*PRINTER ON
|
||||
*
|
||||
* HEADING/FOOTING
|
||||
Font = 'Courier New,6,L,0'
|
||||
convert ',' to @fm in Font
|
||||
HeadPos = '.38/1/1.44/1.44/.75/1.44/.5/1.75/.5/.5/.5'
|
||||
convert '/' to @fm in HeadPos
|
||||
TheHeader = " Reactor Log Report from (":oconv(FromDate, 'D2/'):") Thru (":oconv(ThruDate, 'D2/' ):')':" 'D' 'T' PAGE # 'P'":@fm
|
||||
COLHEADER = "React" : @vm : "Area" : @vm : "Problem" : @vm : "Service" : @vm : "Items" : @vm : "Items Description":@vm: "Qty" : @vm : "Notes" : @vm : "Start" : @vm : "Start" : @vm : "Elapse":@fm
|
||||
COLHEADER:= "or" : @vm : "" : @vm : "" : @vm : "" : @vm : "" : @vm : "" : @vm : "" : @vm: "": @vm : "Date" : @vm : "Time" : @vm : "Hours":@fm
|
||||
*COLHEADER:= str('_',9):@vm:str('_',16):@vm:str('_',25):@vm:str('_',25):@vm:str('_',25):@vm:str('_',9):@vm:str('_',25):@vm:str('_',9):@vm:str('_',9):@vm:str('_',9):@fm
|
||||
COLHEADER:= str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@vm:str('_',30):@fm
|
||||
Void = set_printer( 'FONTHEADFOOT', Font )
|
||||
Void = set_printer( 'HEADER', TheHeader, HeadPos, ColHeader )
|
||||
Void = set_printer( 'FONT', Font )
|
||||
*
|
||||
@RECCOUNT=0
|
||||
FIRST.PASS=1
|
||||
LAST.RECORD=0
|
||||
READERR=0
|
||||
*
|
||||
* OPEN DICT AND DATA FILES
|
||||
*
|
||||
OPEN "DICT","REACTOR_LOG" TO @DICT ELSE RETURN
|
||||
OPEN "","REACTOR_LOG" TO FILE.IN ELSE RETURN
|
||||
*
|
||||
* MAKE COLUMN HEADING
|
||||
*
|
||||
COLHEADING "Reactor Area" : @FM : "Reactor Problem" : @FM : "Reactor Service" : @FM : "React Item IDs" : @FM : "Reactor Items" : @FM : "Qty" : @FM : "Notes" : @FM : "Start Date" : @FM : "Start Time" : @FM : "Hours"
|
||||
COLLENGTH 20 : @FM : 30 : @FM : 30 : @FM : 20 : @FM : 30 : @FM : 4 : @FM : 30 : @FM : 10 : @FM : 10 : @FM : 7
|
||||
*
|
||||
!
|
||||
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.REACTOR={REACTOR}
|
||||
I.REACTOR=S.REACTOR
|
||||
S.REACTULAREAULDESC={REACT_AREA_DESC}
|
||||
I.REACTULAREAULDESC=S.REACTULAREAULDESC
|
||||
S.REACTULPROBULDESC={REACT_PROB_DESC}
|
||||
I.REACTULPROBULDESC=S.REACTULPROBULDESC
|
||||
S.REACTULSERVULDESC={REACT_SERV_DESC}
|
||||
I.REACTULSERVULDESC=S.REACTULSERVULDESC
|
||||
M.REACTULITEMULIDS={REACT_ITEM_IDS}<1,WHICH.VALUE> ; P.REACTULITEMULIDS=1 ; C.REACTULITEMULIDS=7
|
||||
M.REACTULITEMSULDESC={REACT_ITEMS_DESC}<1,WHICH.VALUE> ; P.REACTULITEMSULDESC=1 ; C.REACTULITEMSULDESC=7
|
||||
M.REACTULITEMULQTY={REACT_ITEM_QTY}<1,WHICH.VALUE> ; P.REACTULITEMULQTY=1 ; C.REACTULITEMULQTY=7
|
||||
M.NOTES=FMT({NOTES},"T#30") ; P.NOTES=1 ; C.NOTES=7
|
||||
S.STARTULDATE={START_DATE}
|
||||
I.STARTULDATE=S.STARTULDATE
|
||||
S.STARTULTIME={START_TIME}
|
||||
I.STARTULTIME=S.STARTULTIME
|
||||
S.ELAPSEDULHOURS={ELAPSED_HOURS}
|
||||
I.ELAPSEDULHOURS=S.ELAPSEDULHOURS
|
||||
*
|
||||
PREVIOUS.MARK.LEVEL=0
|
||||
*
|
||||
IF FIRST.PASS THEN
|
||||
FIRST.PASS=0
|
||||
GOTO DETAIL
|
||||
END
|
||||
*
|
||||
*
|
||||
!
|
||||
BREAKS:
|
||||
!
|
||||
*
|
||||
*
|
||||
* PERFORM LAST RECORD OUTPUT IF DONE
|
||||
*
|
||||
IF LAST.RECORD THEN
|
||||
* PRINT
|
||||
* @ANS=@REC.COUNT
|
||||
* 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.REACTULITEMULIDS GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACTULITEMULIDS FROM M.REACTULITEMULIDS AT P.REACTULITEMULIDS SETTING C.REACTULITEMULIDS
|
||||
S.REACTULITEMULIDS=I.REACTULITEMULIDS
|
||||
END
|
||||
IF C.REACTULITEMULIDS GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACTULITEMULIDS
|
||||
IF C.REACTULITEMSULDESC GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACTULITEMSULDESC FROM M.REACTULITEMSULDESC AT P.REACTULITEMSULDESC SETTING C.REACTULITEMSULDESC
|
||||
S.REACTULITEMSULDESC=I.REACTULITEMSULDESC
|
||||
END
|
||||
IF C.REACTULITEMSULDESC GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACTULITEMSULDESC
|
||||
IF C.REACTULITEMULQTY GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.REACTULITEMULQTY FROM M.REACTULITEMULQTY AT P.REACTULITEMULQTY SETTING C.REACTULITEMULQTY
|
||||
S.REACTULITEMULQTY=I.REACTULITEMULQTY
|
||||
END
|
||||
IF C.REACTULITEMULQTY GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.REACTULITEMULQTY
|
||||
IF C.NOTES GE PREVIOUS.MARK.LEVEL THEN
|
||||
REMOVE I.NOTES FROM M.NOTES AT P.NOTES SETTING C.NOTES
|
||||
S.NOTES=I.NOTES
|
||||
END
|
||||
IF C.NOTES GT NEW.MARK.LEVEL THEN NEW.MARK.LEVEL=C.NOTES
|
||||
*
|
||||
* DO CONVERSIONS IF ANY
|
||||
*
|
||||
IF S.REACTOR NE "" THEN S.REACTOR=OCONV(S.REACTOR,"MD0")
|
||||
IF S.REACTULITEMULQTY NE "" THEN S.REACTULITEMULQTY=OCONV(S.REACTULITEMULQTY,"MD0")
|
||||
IF S.STARTULDATE NE "" THEN S.STARTULDATE=OCONV(S.STARTULDATE,"D2/")
|
||||
IF S.STARTULTIME NE "" THEN S.STARTULTIME=OCONV(S.STARTULTIME,"MTH")
|
||||
IF S.ELAPSEDULHOURS NE "" THEN S.ELAPSEDULHOURS=OCONV(S.ELAPSEDULHOURS,"MD2")
|
||||
*
|
||||
* PRINT DETAIL LINE
|
||||
*
|
||||
PRINTLINE= S.REACTOR:@vm
|
||||
PRINTLINE:= S.REACTULAREAULDESC:@vm
|
||||
PRINTLINE:= S.REACTULPROBULDESC:@vm
|
||||
PRINTLINE:= S.REACTULSERVULDESC:@vm
|
||||
PRINTLINE:= S.REACTULITEMULIDS:@vm
|
||||
PRINTLINE:= S.REACTULITEMSULDESC:@vm
|
||||
PRINTLINE:= S.REACTULITEMULQTY:@vm
|
||||
PRINTLINE:= S.NOTES:@vm
|
||||
PRINTLINE:= S.STARTULDATE:@vm
|
||||
PRINTLINE:= S.STARTULTIME:@vm
|
||||
PRINTLINE:= S.ELAPSEDULHOURS
|
||||
TableColInfo = '>+547':@vm:'<+1440':@vm:'<+2074':@vm:'<+2074':@vm:'<+1080':@vm:'<+2074':@vm:'>+720':@vm
|
||||
TableColInfo:= '<+2520':@vm:'<+720':@vm:'<+720':@vm:'>+720'
|
||||
Void = set_printer( 'ADDTABLE', TableColInfo, '', PRINTLINE, '', '', 1, TB_NONE )
|
||||
|
||||
*
|
||||
IF NEW.MARK.LEVEL THEN
|
||||
S.REACTOR=''
|
||||
S.REACTULAREAULDESC=''
|
||||
S.REACTULPROBULDESC=''
|
||||
S.REACTULSERVULDESC=''
|
||||
S.REACTULITEMULIDS=''
|
||||
S.REACTULITEMSULDESC=''
|
||||
S.REACTULITEMULQTY=''
|
||||
S.NOTES=''
|
||||
S.STARTULDATE=''
|
||||
S.STARTULTIME=''
|
||||
S.ELAPSEDULHOURS=''
|
||||
PREVIOUS.MARK.LEVEL=NEW.MARK.LEVEL
|
||||
GOTO DETAIL
|
||||
END
|
||||
*
|
||||
GOTO READRECORD
|
||||
*
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user