|
Can i get some infirmation on Query acess path in synon How the key fields of this acess path are implemented -----Original Message----- From: midrange-l-request@midrange.com [mailto:midrange-l-request@midrange.com] Sent: Thursday, November 21, 2002 10:02 AM To: midrange-l@midrange.com Subject: MIDRANGE-L digest, Vol 1 #2861 - 16 msgs Send MIDRANGE-L mailing list submissions to midrange-l@midrange.com To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/cgi-bin/listinfo/midrange-l or, via email, send a message with subject or body 'help' to midrange-l-request@midrange.com You can reach the person managing the list at midrange-l-admin@midrange.com When replying, please edit your Subject line so it is more specific than "Re: Contents of MIDRANGE-L digest..." Today's Topics: 1. RE: Saving the IFS (Jim Damato) 2. RE: OPS Navigator - Moving/copying Library (bdietz@3x.com) 3. Re: Hardware Upgrade Question (John Taylor) 4. Re: Did OPNQRYF give out an empty record set? (Vern Hamberg) 5. Check file/dir existence (Dr Syd Nicholson) 6. Re: Check file/dir existence (Vern Hamberg) 7. Re: Check file/dir existence (Vern Hamberg) 8. RE: Hardware Upgrade Question (Mike Shaw) 9. Re: Check file/dir existence (jpcarr@tredegar.com) 10. Re: Question Re: Piping and Redirection (Pete Hall) 11. Re: Check file/dir existence (Pete Hall) 12. RE: Ignoring a Spool File (M. Lazarus) 13. RE: Can I do this in Query (Tom Liotta) 14. Re: Help Wanted (Patrick Townsend) 15. Re: Check this M$ story out - AND this one (jpcarr@tredegar.com) 16. Re: Check this M$ story out - AND this one (Booth Martin) --__--__-- Message: 1 From: Jim Damato <jdamato@dollargeneral.com> To: "'midrange-l@midrange.com'" <midrange-l@midrange.com> Subject: RE: Saving the IFS Date: Wed, 20 Nov 2002 18:07:42 -0600 Reply-To: midrange-l@midrange.com SAVDLO doesn't save the IFS -- it's the other way around. Using the IFS based SAV command allows you to save QDLS stuff because QDLS documents are within the IFS. It helps to think of the IFS as everything. The conventional library/object file system and the shared folders & documents are subordinate to the IFS. SAV DEV('/QSYS.LIB/media-device-name.DEVD') OBJ('/*') saves the entire IFS. Your command below omits the QSYS.LIB conventional libraries/objects and omits shared folders and documents -- stuff you're saving with SAVLIB and SAVDLO. -Jim James P. Damato Manager - Technical Administration Dollar General Corporation <mailto:jdamato@dollargeneral.com> -----Original Message----- From: Brunk, Kevin [mailto:Kevin.Brunk@wabutler.com] Sent: Wednesday, November 20, 2002 3:27 PM To: midrange-l@midrange.com Subject: Saving the IFS I've looked through the IBM online manuals and the answer to this is not clear. I thought that the SAVDLO saved the QDLS as well as the IFS but our DRT consultants think that's not true. They didn't suggest what was! Is the command that saves the IFS: SAV DEV('/QSYS.LIB/media-device-name.DEVD') OBJ(('/*') ('/QSYS.LIB' *OMIT)('/QDLS' *OMIT))(1) UPDHST(*YES) ==Kevin --__--__-- Message: 2 To: midrange-l@midrange.com Subject: RE: OPS Navigator - Moving/copying Library From: bdietz@3x.com Date: Wed, 20 Nov 2002 19:19:04 -0500 Reply-To: midrange-l@midrange.com I think you have to expand the links <file systems> <intergrated file syste><QSYS.LIB> Then right click the library name nad choose the SEND option. I cannot verify as I am at home but I'm sure(fairly) it will work. ------------------------- Bryan Dietz 3X Corporation 614-410-9205 "Norbut, Jim" <Jim.Norbut@Grubb-Ellis.com> Sent by: midrange-l-admin@midrange.com 11/20/2002 06:40 PM Please respond to midrange-l@midrange.com To <midrange-l@midrange.com> cc Subject RE: OPS Navigator - Moving/copying Library Must really be a dumb question....or just plain cannot be done. As no one even responded yet :) -----Original Message----- From: Norbut, Jim Sent: Wednesday, November 20, 2002 4:06 PM To: midrange-l@midrange.com Subject: OPS Navigator - Moving/copying Library This is a multi-part message in MIME format. -- [ Picked text/plain from multipart/alternative ] Okay....this seems stupid....BUT can you not take a library in Operations Navigator and just drag/drop it from one system to another. or copy/paste it? I can't seem to make it work. I am going into File Systems > IFS > QSYS.LIB and then finding the library I want to move or copy (doesn't matter to me if I move it or copy it) to the other system. I know that I can backup the library to a *SAVF and ftp it over the network or just backup to a tape and ship it to me. But you would think OPS Navigator can do it also right? _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. --__--__-- Message: 3 From: "John Taylor" <lists@studioworks-tech.com> To: <midrange-l@midrange.com> Subject: Re: Hardware Upgrade Question Date: Wed, 20 Nov 2002 17:32:00 -0700 Reply-To: midrange-l@midrange.com Hi Vern, I saw that manual as well, but it's of no use. It presumes that the 7101 is already set up and attached to the system unit. Thanks. John Taylor ----- Original Message ----- From: "Vern Hamberg" <vhamberg@centerfieldtechnology.com> To: <midrange-l@midrange.com> Sent: Wednesday, November 20, 2002 5:08 PM Subject: Re: Hardware Upgrade Question > John > > Try this > <http://publib.boulder.ibm.com/pubs/pdfs/as400/V4R5PDF/A4151454.PDF> > "Setting Up Your170 or 250 Twinaxial System" > > For the curious, I got here via the Online Library for V4R5 (not > InfoCenter) <http://publib.boulder.ibm.com/html/as400/online/v4r5eng.htm>. > > HTH > > Vern > --__--__-- Message: 4 Date: Wed, 20 Nov 2002 18:33:11 -0600 To: midrange-l@midrange.com From: Vern Hamberg <vhamberg@centerfieldtechnology.com> Subject: Re: Did OPNQRYF give out an empty record set? Reply-To: midrange-l@midrange.com Antonio Not that I know of. For one thing, the actual generation of the result set does not take place until it's opened in the RPG, so there is no information available in the CL. To see this, run an OPNQRYF from a command line, then CPYFRMQRYF. You don't get the "records selected, records processed" message until you execute the copy, or until you open the file in your RPG. Be sure to close the file after the copy!!! What do you want to do differently if there are no records? Just curious. Regards Vern At 01:06 AM 11/21/2002 +0100, you wrote: >An CL pgm does an OVRDBF xxxx SHARE(*YES), then executes an OPNQRYF, >then runs an RPG pgm. Sometimes the selected conditions result in an >empty selection, so the RPG pgm reading ( I P , sequential processing) >the opened file will directly set LR and end. >If this was a normal file, I could know in advance the file was empty >with RTVMBRD number of records, but cannot with the result of the >OPNQRYF. >Is there any way to find out whether the result file is/isnot empty >before running the RPG pgm? >TIA >------------------------- >Antonio Fernandez-Vicenti >afvaiv@wanadoo.es --__--__-- Message: 5 Date: Thu, 21 Nov 2002 02:38:45 +0000 From: Dr Syd Nicholson <sydnic@ccs400.com> Organization: Castlehill Computer Services Ltd. To: midrange-l@midrange.com Subject: Check file/dir existence Reply-To: midrange-l@midrange.com Is there an easy way for a program to determine if a file or directory exists in the IFS? In the QSYS.LIB file system we have CHKOBJ. But in the IFS I can't find any reference to a function that will give me an easy answer. There seem to be many APIs that use files and directories, but nothing that returns an easy answer of 'Yes/No' for 'Does object exist?' Many thanks in advance Syd Nicholson --__--__-- Message: 6 Date: Wed, 20 Nov 2002 19:03:27 -0600 To: midrange-l@midrange.com From: Vern Hamberg <vhamberg@centerfieldtechnology.com> Subject: Re: Check file/dir existence Reply-To: midrange-l@midrange.com YES!! access() is the function you want - in the Unix-type APIs. In C, here's a macro to do this: #include <unistd.h> #define exists(x) (access(x, F_OK) == 0) /* x is full path to object */ This works on anything you can specify with a pathname. BTW, F_OK = 0. There's also a national language version, QlgAccess(), that uses a pathname structure that includes CCSID, pathname separator infor, etc. HTH Vern At 02:38 AM 11/21/2002 +0000, you wrote: >Is there an easy way for a program to determine if a file or directory >exists in the IFS? > >In the QSYS.LIB file system we have CHKOBJ. But in the IFS I can't find >any reference to a function that will give me an easy answer. There seem >to be many APIs that use files and directories, but nothing that returns >an easy answer of 'Yes/No' for 'Does object exist?' > >Many thanks in advance > >Syd Nicholson --__--__-- Message: 7 Date: Wed, 20 Nov 2002 19:08:25 -0600 To: midrange-l@midrange.com From: Vern Hamberg <vhamberg@centerfieldtechnology.com> Subject: Re: Check file/dir existence Reply-To: midrange-l@midrange.com Syd The service program for this is QSYS/QP0LLIB1. This'd make it available in RPGLE, I think. Vern again At 07:03 PM 11/20/2002 -0600, you wrote: >YES!! access() is the function you want - in the Unix-type APIs. > >In C, here's a macro to do this: > >#include <unistd.h> >#define exists(x) (access(x, F_OK) == 0) /* x is full path to object */ > >This works on anything you can specify with a pathname. > >BTW, F_OK = 0. > >There's also a national language version, QlgAccess(), that uses a pathname >structure that includes CCSID, pathname separator infor, etc. > >HTH > >Vern > >At 02:38 AM 11/21/2002 +0000, you wrote: >>Is there an easy way for a program to determine if a file or directory >>exists in the IFS? >> >>In the QSYS.LIB file system we have CHKOBJ. But in the IFS I can't find >>any reference to a function that will give me an easy answer. There seem >>to be many APIs that use files and directories, but nothing that returns >>an easy answer of 'Yes/No' for 'Does object exist?' >> >>Many thanks in advance >> >>Syd Nicholson > > >_______________________________________________ >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list >To post a message email: MIDRANGE-L@midrange.com >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l >or email: MIDRANGE-L-request@midrange.com >Before posting, please take a moment to review the archives >at http://archive.midrange.com/midrange-l. > --__--__-- Message: 8 From: "Mike Shaw" <mhshaw@worldnet.att.net> To: <midrange-l@midrange.com> Subject: RE: Hardware Upgrade Question Date: Wed, 20 Nov 2002 17:14:20 -0800 Reply-To: midrange-l@midrange.com John, The iSeries System Handbook and the iSeries System Builder Redbooks should help with this. They are both available on the iSeries Redbook portal. <HTH> Regards, Mike Shaw -----Original Message----- Hi Vern, I saw that manual as well, but it's of no use. It presumes that the 7101 is already set up and attached to the system unit. Thanks. John Taylor ----- Original Message ----- --__--__-- Message: 9 Subject: Re: Check file/dir existence To: midrange-l@midrange.com From: jpcarr@tredegar.com Date: Wed, 20 Nov 2002 20:21:39 -0500 Reply-To: midrange-l@midrange.com OK, Has anyone made an RPGIV prototype for the two API's below ? John Carr ------------ >Is there an easy way for a program to determine if a file or directory >exists in the IFS? >Syd Nicholson YES!! access() is the function you want - in the Unix-type APIs. In C, here's a macro to do this: #include <unistd.h> #define exists(x) (access(x, F_OK) == 0) /* x is full path to object */ This works on anything you can specify with a pathname. BTW, F_OK = 0. There's also a national language version, QlgAccess(), that uses a pathname structure that includes CCSID, pathname separator infor, etc. HTH Vern --__--__-- Message: 10 Date: Wed, 20 Nov 2002 19:29:22 -0600 To: midrange-l@midrange.com From: Pete Hall <pbhall@ameritech.net> Subject: Re: Question Re: Piping and Redirection Reply-To: midrange-l@midrange.com At 07:27 11/20/2002, Hans Boldt wrote: >In Unix, >commands use the predefined streams stdin, stdout, and stderr, all >of which can be redirected and piped (largely) without the command >being aware of the redirection. There are OpnStdIn() (opens fildes[0]) and OpnStdOut() (opens fildes[1]) functions in the IS-Toolkit Unix service program. Could the pipe() method in QP0LLIB1, along with these two functions be used to provide this capability? The documentation for pipe() says: Data can be written to the file descriptor fildes[1] and read from file descriptor fildes[0]. A read on the file descriptor fildes[0] will access data written to the file descriptor fildes[1] on a first-in-first-out basis. File descriptor fildes[0] is open for reading only. File descriptor fildes[1] is open for writing only. As an aside, I think pipe() has nothing to do with the format of the data in the database. It's the (generally printable) output of one program being used as the input for another. It would be possible to implement this capability with a data or message queue if it doesn't already exist. Pete Hall pbhall@ameritech.net http://www.pbhall.us/ --__--__-- Message: 11 Date: Wed, 20 Nov 2002 19:39:53 -0600 To: midrange-l@midrange.com From: Pete Hall <pbhall@ameritech.net> Subject: Re: Check file/dir existence Reply-To: midrange-l@midrange.com At 20:38 11/20/2002, you wrote: >Is there an easy way for a program to determine if a file or directory >exists in the IFS? There is also a ChkAccOk function in the IS-Toolkit (Unix service program), as well as lots of other stuff that makes it really easy to use the IFS from RPG. Pete Hall pbhall@ameritech.net http://www.pbhall.us/ --__--__-- Message: 12 Date: Wed, 20 Nov 2002 21:35:28 -0500 To: midrange-l@midrange.com From: "M. Lazarus" <mlazarus@ttec.com> Subject: RE: Ignoring a Spool File Reply-To: midrange-l@midrange.com Bob, Mark, At 11/20/02 06:25 PM, you wrote: >~~~run, and I don't have the source. I was thinking of using an >~~~OVRPRTF to >~~~not print the file. > >Interesting problem and answers. > >You could: >1) create an outq in QTEMP >2) override it to that queue >3) call the program > >Mark Villa in Charleston SC Check if the OVRPRTF command has an INHWRT parm. Set it to *YES and you're done. -mark --__--__-- Message: 13 Date: Wed, 20 Nov 2002 22:05:29 -0500 From: qsrvbas@netscape.net (Tom Liotta) To: midrange-l@midrange.com Subject: RE: Can I do this in Query Reply-To: midrange-l@midrange.com Mark: For me, if I were forced to use Query/400 rather than create a QM query, the easiest way would be to create a view and then query the view. The view might be like: ===> create view MyLib/MyQryView as ( select (case when substr(item,1,3) = 'DST' then '2' when substr(item,1,1) = 'X' then '3' else '1' end) as GrpType , Item from MyLib/MyFile ) or something similar. Make sure that the sequence of items in the CASE phrase sets the result value properly and that you include all the detail columns you want in addition to your GrpType column. Then just query the view and summarize/control break as you need. Tom Liotta midrange-l-request@midrange.com wrote: > 11. Can I do this in Query (Mark Allen) > >Need 3 separate sections (i.e. level break) in a single Query report as >follows > >Section 1: All items that do not have an X in pos 1 and do not have DSL >in pos 1-3 > >Section 2: All items that have DSL in item # pos 1-3 > >Section 3: All items that have X in item # pos 1 > >I know I could make it 3 separate queries with appropriate selection, >output to a file, then print vs that file but if at all possible would >like to do in 1 query=85.. -- Tom Liotta The PowerTech Group, Inc. 19426 68th Avenue South Kent, WA 98032 Phone 253-872-7788 x313 Fax 253-872-7904 http://www.powertechgroup.com __________________________________________________________________ The NEW Netscape 7.0 browser is now available. Upgrade now! http://channels.netscape.com/ns/browsers/download.jsp Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/ --__--__-- Message: 14 From: "Patrick Townsend" <patownsend@patownsend.com> To: <midrange-l@midrange.com> Subject: Re: Help Wanted Date: Wed, 20 Nov 2002 19:42:48 -0800 Reply-To: midrange-l@midrange.com Jon, How about an AS/400 using digital I/O to drive a robotic manufacturing line for a major pharmaceutical company in Ireland? Or, how about AS/400s metering all of the material used for bucket seats in Fords and Chevys? Or, how about an AS/400 that monitors the inventory of cold Cokes in a university dormitory? Let me know if you are interested! Patrick mailto:Patrick.Townsend@patownsend.com ----- Original Message ----- From: "Jon Paris" <Jon.Paris@Partner400.com> To: "Midrange-l" <midrange-l@midrange.com> Sent: Friday, November 15, 2002 10:25 AM Subject: Help Wanted > I'm looking for material for a series of articles on "unusual" uses of > AS/400s and/or iSeries systems. > > Is your system used to control milking machines? or any other unusual > devices? Run a bowling alley? Does it live in a closet and no one has > touched it for years? Does it have custom covers? Fitted sideways into a > book case? > > Get the picture! > > If you have such a system or know of one, please e-mail me. > > Thanks > > Jon Paris > Partner400 > > > _______________________________________________ > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list > To post a message email: MIDRANGE-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l > or email: MIDRANGE-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/midrange-l. > > --__--__-- Message: 15 Subject: Re: Check this M$ story out - AND this one To: midrange-l@midrange.com From: jpcarr@tredegar.com Date: Wed, 20 Nov 2002 22:45:00 -0500 Reply-To: midrange-l@midrange.com This one makes the previous one even funnier. "Millions vulnerable to Microsoft Web flaw" http://news.com.com/2100-1001-966575.html?tag=fd_top John Bruce sent this one. http://story.news.yahoo.com/news?tmpl=story&ncid=528&e=3&cid=528&u=/ap/2 0021120/ap_on_hi_te/digitally_informed --__--__-- Message: 16 Date: Wed, 20 Nov 2002 23:30:33 -0500 (Eastern Standard Time) From: "Booth Martin" <Booth@MartinVT.com> To: <midrange-l@midrange.com> Subject: Re: Check this M$ story out - AND this one Reply-To: midrange-l@midrange.com I wish I could find the humor. All I saw when reading it is that this is acceptable behavior. This is our future. --------------------------------------------------------- Booth Martin http://www.MartinVT.com Booth@MartinVT.com --------------------------------------------------------- -------Original Message------- From: midrange-l@midrange.com Date: Wednesday, November 20, 2002 10:48:30 PM To: midrange-l@midrange.com Subject: Re: Check this M$ story out - AND this one This one makes the previous one even funnier. "Millions vulnerable to Microsoft Web flaw" http://news.com.com/2100-1001-966575.html?tag=fd_top John Bruce sent this one. http://story.news.yahoo.com/news?tmpl=story&ncid=528&e=3&cid=528&u=/ap/20021 120/ap_on_hi_te/digitally_informed --__--__-- _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. End of MIDRANGE-L Digest
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
