added LSL2 stored procedures
This commit is contained in:
31
LSL2/STPROC/DEL_CLEAN_INSP.txt
Normal file
31
LSL2/STPROC/DEL_CLEAN_INSP.txt
Normal file
@ -0,0 +1,31 @@
|
||||
COMPILE ROUTINE DEL_CLEAN_INSP(Dummy)
|
||||
ROWDEF(CHARSTR)
|
||||
|
||||
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_Shipment
|
||||
DECLARE FUNCTION Get_Status, Set_Printer
|
||||
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
DEBUG
|
||||
|
||||
OPEN 'CLEAN_INSP' TO FileIn ELSE
|
||||
GOTO Bail
|
||||
END
|
||||
|
||||
|
||||
FOR I = 937233 TO 937243
|
||||
*DELETE FileIn,I ELSE NULL
|
||||
NEXT I
|
||||
|
||||
IF Get_Status(errCode) THEN DEBUG
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Bail:
|
||||
* * * * * * *
|
||||
|
||||
RETURN
|
Reference in New Issue
Block a user