Okay, I now have:
Parse var Inargs KeepDays ExecFn args
FirstDate=Date("S",Date("B")-KeepDays,"B")
"PIPE (endchar ?)",
" FILEFAST" ExecFn "LOG A",
"| ZONE W1 BETWEEN /"FirstDate"/ /99999999/",
"|i:FANIN",
"| >" ExecFn "LOG A",
"? CMS" ExecFn args,
"| SPEC TOD 1 1-* NW",
"| DATECONV 1.8 TODABS REXXS TIMEOUT",
"| SPEC 1.8 1 9.6 NW W2-* NW",
"|i:"
But, I'm now receiving:
FPLSFS733E Return code 8 reason code 2000 from DMSFILEC
FPLMSG003I ... Issued from stage 4 of pipeline 1
FPLMSG001I ... Running "> diskarch LOG A"
Ready(00733); T=0.03/0.03 10:15:13
ERROR
02000
Your attempt to use an object in a file pool conflicted with an explicit
lock held on that object or another object. It could mean that you tried
to open a file for writing in a directory control directory that someone
already has accessed R/W.
------------------------------------------------------------------------
----
Frank M. Ramaekers Jr.
Systems Programmer MCP, MCP+I, MCSE & RHCE
American Income Life Insurance Co. Phone: (254)761-6649
1200 Wooded Acres Dr. Fax: (254)741-5777
Waco, Texas 76710
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
[email protected].
