 Code SamplesLatest code upload - Sat, 4th Aug 2001 The code snippets here generally relate to mailing list & Usenet discussions I've been involved with. I'll probably dump code 'as is', so don't expect it to compile without changes. The samples are usually to illustrate a technique, and might only be a partial program listing. Feel free to use the code - email me if you want more details UsenetSubject: "duplicate tape" Date: Sat, 4 Aug 2001 in comp.sys.ibm.as400.misc. I didn't have any involvement in this thread, but Dave McKenzie posted the following RPGLE code as a replacement for the PL/1 routines the old TAATOOL DUPTAP command needed. He kindly mentioned that a free code site might like to include them - hope you find them useful DUPTAP. Subject: "GO SAVE option 21" Date: Sun, 24 Sep 2000 in comp.sys.ibm.as400.misc. These are the retrieved CL members QMNSAVE and QMNSRBND with my changes for the extra delay. The delay routine is very simple, and consists of the the following members ADDDLY CMD source, ADDDLYC CL source and ADDDLYDF DSPF source. Subject: "Automatic Subfile Refresh" Date: Tue, 19 Sep 2000 in comp.sys.ibm.as400.misc. These two members DDS source and RPG source are from an auto refreshing menu option monitor. Subject: "RPGLE: DSPLY, API QMHSNDPM ... other suggestions?" Date: Thu, 07 Sep 2000 in comp.sys.ibm.as400.misc. These two members CL source and DDS source are from an auto refreshing batch job monitor I wrote a few years back. Subject: "Break Message Handler" Date: Thursday 19 December 2002 in comp.sys.ibm.as400.misc. Here's the code that I mentioned in my reply. This is *not* my code, but was originally posted by Rob Clark on the Compuserve AS/400 Forum in early '95. There is a small RPG member, UMGLIGHT and an even smaller DDS one, UMGLITE. Mailing ListsSubject: "Multi subfiles example" Date: Mon, 02 Oct 2000 on the RPG400-L mailing list. The following package is a routine that displays objects in a library created by a particular user, highlighting those created on or after a chosen date. It's an old routine ('94) used to pick out stuff I'd worked on in amongst other's work before we had any change management software. It illustrates the command key toggle of a subfile, hence showing it here. If you just want to look at the code, just FTP this file to a source file and browse away. If you'd like to see it in action, grab the code parser as well, then follow the DBG/400 download instructions here, but using the members downloaded from this page. Compile & run MAKEUSRCRT to build the utility
|