fixed obj_sap DirNexSeq to generate tx number correctly using psftp

LSL2/STPROC/OBJ_SAP.txt

@@ -1228,7 +1228,7 @@ DirNextSeq:
     ToSAPScript	:= 'lcd ':TransFilePathOut:CRLF$
     ToSAPScript := 'cd ToSAP':CRLF$
     ToSAPScript := 'cd ':OutBoundDir:CRLF$
-    ToSAPScript := 'mls *.tsv OutDir.txt':CRLF$
+    ToSAPScript := 'ls *.tsv':CRLF$
     ToSAPScript := 'bye':CRLF$
 
     OSWrite ToSAPScript ON ToSAPScriptName
@@ -1252,26 +1252,30 @@ DirNextSeq:
         RETURN
     END
 
+	OSWrite stat on TransFilePathOut:'\OutDir.txt'
+
     OSRead FileNames FROM TransFilePathOut:'\OutDir.txt' THEN
      
-        SWAP \0D0D0A\ WITH @FM IN FileNames		;* FTP delimiter has extra CR
-        FileNames[-1,1] = ''					;* Trailing delimiter
+		// Swap Carriage Return + Line feed with @FM
+		SWAP \0D0A\ WITH @FM IN FileNames	
 
-        LastSeq	= ''
-        Pos		= 1
-        Flag 	= ""
-        LOOP
-            REMOVE FileName FROM FileNames AT Pos SETTING Flag
-            
+        // Delete the verbose lines (e.g., using user ..., changing directory)
+        For LineNo = 1 to 7
+        	FileNames = Delete(FileNames, 1, 0, 0)
+        Next LineNo
+        
+        FileNames[-1,1] = ''					;* Trailing delimiter
+        LastSeq         = ''
+        For each Line in FileNames using @FM setting fPos
+        	FileName = Line[-1, 'B ']
             IF FileName[1,8] MATCHES "'TX'0N" THEN
                 SeqNo = ABS(FileName[3,'.'])
                 IF SeqNo > LastSeq THEN
                     LastSeq = SeqNo
                 END
-            END
-        WHILE Flag
-        REPEAT
-
+            END        	
+        Next Line
+        
         DirNextSeqNo = LastSeq + 1
     END ELSE
         DirNextSeqNo = 1