Does the code still fail with the dummy file out there? If not, I'd guess permissions.
From: Al DeWitt <adew...@stylmark.com> To: U2 Users List <u2-users@listserver.u2ug.org>, Date: 08/05/2013 09:04 AM Subject: Re: [U2] OPENSEQ Sent by: u2-users-boun...@listserver.u2ug.org Thanks for your reply Kevin. I can list LRGLBRVARS at TCL. I put a dummy file inside to prove it. FNAME does not exist. In the code I stole this from the name is created anew each time. It always open the "file" empty, allows me to populate and close it. However, in this code it's not working. Since we're running SB+/SBClient I thought the '.XLS' extension was causing issues (grasping at straws) but I'm getting the same errors. Albert DeWitt, CPIM Sr. Programmer Analyst Stylmark, Inc. 6536 Main St NE | Minneapolis MN 55432 | USA DD: 763-574-8705 | PH: 763-574-7474 | F: 763-574-1415 adew...@stylmark.com www.stylmark.com Stylmark is a proud member of RDI, ARE, NGA You can now find Stylmark on LinkedIn and Facebook -----Original Message----- From: Kevin King [mailto:ke...@precisonline.com] Sent: Monday, August 05, 2013 8:31 AM To: U2 Users List Subject: Re: [U2] OPENSEQ I've never used OPENSEQ on a remote drive like that. I presume you can LIST LRGLBRVARS @ TCL without difficulty right? If so, I would think the OPENSEQ should work with that just fine. May I also presume that you looed at FNAME and a file with that name really does exist in that directory file? On Mon, Aug 5, 2013 at 7:10 AM, Al DeWitt <adew...@stylmark.com> wrote: > Please educate me on OPENSEQ. I have some code that is giving me an > error. The funny thing is that I stole the code from a working program: > The code: > > 064: FNAME = 'LLV':FNAME:'.XLS' > 065: OPENSEQ "\\SERVER\SHARE-NAME\FOLDER-NAME\LrgLbrVariances",FNAME > TO OUT.FILE ELSE > 066: *OPENSEQ "LRGLBRVARS",FNAME TO OUT.FILE ELSE > 067: ERRCD = STATUS() > 068: GOSUB 900 > 069: CALL SB.DISP(3,'SFC9667 OPENSEQ Error: ':ERRMSG:' Program is > aborting.') > 070: GO 9999 > 071: END > If I run it as is ERRCD = 2. If I comment out 65 and uncomment 66 > ERRCD = 0. According to manual 2 means: The file does not exist. A 0 > means The record does not exist. > > In my voc file I have an entry for LRGLBRVARS. It looks like this: > Top of "LRGLBRVARS" in "VOC", 3 lines, 48 characters. > 001: DIR > 002: \\led\fs-styl\Public\LrgLbrVariances > 003: D_HOLD_ > Bottom. > What is OPENSEQ looking for and where does it expect it to find it? > > Thanks. > > Albert DeWitt, CPIM > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users U.S. BANCORP made the following annotations --------------------------------------------------------------------- Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation. --------------------------------------------------------------------- _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
