added LSL2 stored procedures

This commit is contained in:
Infineon\StieberD
2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions

View 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