32 lines
401 B
Plaintext
32 lines
401 B
Plaintext
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
|