Observation on coding technique: If you have 20 or more files that need to be opened, do you use the same construct OPEN THEN or is this just an example for this reply.
I've observed this technique in one client that I've acquired and it seems inappropriate to have the entire program indented so many times based on the number of OPENS. Plus, to have the CANT OPEN messages sorta mirrored hundreds if not thousands of lines after their respective OPEN requests makes for hard to manage code. IF you use any formatting programs then having the mainline code indented to position 60 or 80 is just stupid. A note to the newbies on this forum. Please do not use this method for OPENing files. 99.99% of the time an OPEN is a pass/fail method for the rest of the program to continue. If any file doesn't open, then game over and do not process anything in the file. You can use my OPENER sub that's been published and posted before, or you can use any localized OPEN ELSE CANT OPEN logic contained in a few lines by itself. But to have the OPENS and CANT OPEN messages so far apart is ill advised. My 2 cents Mark Johnson ----- Original Message ----- From: "Louis Windsor" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Sunday, March 25, 2007 1:20 AM Subject: Re: [U2] New to UV/PICK, programming a banner > Simply:- > > ED BP MOTD > I <Enter> > OPEN 'file' TO file THEN > READ MOTD FROM file,'MOTD' THEN > CNT=DCOUNT(MOTD,@FM) > FOR X=1 TO CNT; CRT MOTD<X>; EXT X > CRT; CRT 'Read and Press Enter To Continue'; INPUT > WHATEVER: > STOP > END ELSE > CRT; CRT 'No Message Of The Day'; CRT; STOP > END > END ELSE > CRT; CRT 'No MOTD File'; CRT; STOP > END > <Enter> > FI > > "file" is whatever file you wish to use even &TEMP& or CTL (general control > file)? > > Compile and include line > > RUN BP MOTD > > in your LOGIN paragraph > > To create the message:- > > ED file MOTD (or wED or whatever editor) > I > Type whatever message you want to display here > <Enter> > FI > > To delete the message > > ED file MOTD > FD > > Like I said it is simple. Assumes the message is less than a screen full > and each line is less than screen width. > > No flames please - I said it is simple. > > Louis > > ----- Original Message ----- > From: "Gabriel Green" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Sunday, March 25, 2007 12:38 PM > Subject: [U2] New to UV/PICK, programming a banner > > > > Hello, > > > > I am new to PICK/UniVerse and was wondering if someone could help me with > > some BASIC code or a PROC instructions to get me going on a banner program > > that will display before, or after, the "Logon Please:" prompt (but after > > the initial telnet server login). > > > > Preferrably I'd like a unix style /etc/motd type thing (we're on Windows > > of > > course so that is not available, UV 10.2.) that I could update > > periodically > > with wED and update for our users to see. > > > > Can anyone help with this? > > > > Thanks, > > Gabe > > ------- > > u2-users mailing list > > [email protected] > > To unsubscribe please visit http://listserver.u2ug.org/ > ------- > u2-users mailing list > [email protected] > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
