|
-----Original Message----- From: rpg400-l-request@midrange.com [mailto:rpg400-l-request@midrange.com] Sent: Friday, November 08, 2002 1:59 PM To: rpg400-l@midrange.com Subject: RPG400-L digest, Vol 1 #1150 - 10 msgs Send RPG400-L mailing list submissions to rpg400-l@midrange.com To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@midrange.com You can reach the person managing the list at rpg400-l-admin@midrange.com When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..." Today's Topics: 1. Re: Called program (David Rittenberg) 2. RE: Called program (rob@dekko.com) 3. RE: Called program (Achari, Rabindra (CAP, CMF)) 4. RE: Called program (Jeff Markel) 5. RE: Subfile Next Changed (Hopkins, Bill) 6. CODE/400 (Jeff Markel) 7. RE: CODE/400 (Buck Calabro) 8. procedure/subroutine to quote a string with quotes (Dan) 9. RE: procedure/subroutine to quote a string with quotes (Newman, Ron) 10. Re: procedure/subroutine to quote a string with quotes (Mike Silvers) --__--__-- Message: 1 Subject: Re: Called program To: rpg400-l@midrange.com From: "David Rittenberg" <DRittenberg@pacerintl.com> Date: Fri, 8 Nov 2002 10:05:21 -0800 Reply-To: rpg400-l@midrange.com Comments in line -----Original Message----- Message: 6 Date: 8 Nov 2002 07:28:34 -0000 From: "MURALI DHAR" <nmuralidhar@rediffmail.com> To: rpg400-l@midrange.com Subject: Called program Reply-To: rpg400-l@midrange.com Generally how can I find out whether the program is called one or nt ? GET HAWKEYE. (970) 498-9000. If 2 users are working on same program source ,how can I lock and release the program source ?how do other user come to know whether the program source is locked or nt for updation? GET ALDON'S CHANGE MANAGEMENT SYSTEM FROM ALDON Computer Group 800.825.5858 . Regards&Thanks Murali __________________________________________________________ Give your Company an email address like ravi @ ravi-exports.com. Sign up for Rediffmail Pro today! Know more. http://www.rediffmailpro.com/signup/ --__--__-- Message: 2 To: rpg400-l@midrange.com Subject: RE: Called program From: rob@dekko.com Date: Fri, 8 Nov 2002 13:11:22 -0500 Reply-To: rpg400-l@midrange.com This is a multipart message in MIME format. -- [ Picked text/plain from multipart/alternative ] There has been a lot of activity lately on checking your call stack on the midrange-l list. In fact, searching their archives (when that gets fixed) for call stack might be beneficial. Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin Buck Calabro <Buck.Calabro@commsoft.net> Sent by: rpg400-l-admin@midrange.com 11/08/2002 12:44 PM Please respond to rpg400-l To: rpg400-l@midrange.com cc: Fax to: Subject: RE: Called program >Generally how can I find out whether the >program is called one or nt ? DSPOBJD will tell you if it is a program (*PGM) object or a service program (*SRVPGM) object. You cannot call a service program; only the procedures inside it. If my note doesn't help much, perhaps you can ask on the MIDRANGE-L list, where people listen for system-related questions like this. --buck _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 3 Subject: RE: Called program Date: Fri, 8 Nov 2002 13:19:18 -0500 From: "Achari, Rabindra (CAP, CMF)" <rabindra.achari@gecapital.com> To: <rpg400-l@midrange.com> Reply-To: rpg400-l@midrange.com Expensive solution... -----Original Message----- From: David Rittenberg [mailto:DRittenberg@pacerintl.com] Sent: Friday, November 08, 2002 12:05 PM To: rpg400-l@midrange.com Subject: Re: Called program Comments in line -----Original Message----- Message: 6 Date: 8 Nov 2002 07:28:34 -0000 From: "MURALI DHAR" <nmuralidhar@rediffmail.com> To: rpg400-l@midrange.com Subject: Called program Reply-To: rpg400-l@midrange.com Generally how can I find out whether the program is called one or nt ? GET HAWKEYE. (970) 498-9000. If 2 users are working on same program source ,how can I lock and release the program source ?how do other user come to know whether the program source is locked or nt for updation? GET ALDON'S CHANGE MANAGEMENT SYSTEM FROM ALDON Computer Group 800.825.5858 . Regards&Thanks Murali __________________________________________________________ Give your Company an email address like ravi @ ravi-exports.com. Sign up for Rediffmail Pro today! Know more. http://www.rediffmailpro.com/signup/ _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 4 From: Jeff Markel <JMarkel@costco.com> To: "'Midrange RPG/400 List'" <rpg400-l@midrange.com> Subject: RE: Called program Date: Fri, 8 Nov 2002 10:21:55 -0800 Reply-To: rpg400-l@midrange.com Message: 6 Date: 8 Nov 2002 07:28:34 -0000 From: "MURALI DHAR" <nmuralidhar@rediffmail.com> To: rpg400-l@midrange.com Subject: Called program Reply-To: rpg400-l@midrange.com Generally how can I find out whether the program is called one or nt ? ------------------------------------------------- Not sure I understand your question. Do you mean, if I "call" a program (either from a command line or another program) how do I know if the program that "runs" is the actual compiled object I think it is? If so, display the job (alt sysrequest, option 3, option 11.) This will tell you what processes are running in the job, and the library the process object is in. I.e., if I have two programs named PROGRAM, each in a different library, then I CALL PROGRAM from the command line, the one that runs is the first one found when the operating system searches sequentially through the job's library list. Displaying the job will verify which process object is being used. ------------------------------------------------- If 2 users are working on same program source ,how can I lock and release the program source ?how do other user come to know whether the program source is locked or nt for updation? ------------------------------------------------- Again, your question is unclear. Others have answered assuming you were talking about concurrent editing of a source member. Or, are you talking about two people copying the source to their own libraries to make modifications independently? In that case, you need a change management tool like Aldon or SoftLanding. I'm not sure, but I think PDM also has a rudimentary source management component...? ------------------------------------------------- Regards&Thanks Murali Jeff Markel Developer, Merchandise Accounting Costco Wholesale Corporate Office Issaquah, Washington Office (425) 427-7662 FAX (425) 313-6800 JMarkel@Costco.com --__--__-- Message: 5 From: "Hopkins, Bill" <BHopkins@saurerinc.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: Subfile Next Changed Date: Fri, 8 Nov 2002 13:27:22 -0500 Reply-To: rpg400-l@midrange.com Thank for your time Paul and others, I agree on the how READC should work. Yes and I'm at loss also as to why the READC doesn't reconize them as changed from update do loop until write of control rec prior to READC. >>>> "Sheesh Bill, sooner you then me with this one :-)" Scary part is this is not the only one with these type problems.:( Take Care ALL Bill H -----Original Message----- From: Paul Tuohy [mailto:tuohyp@attglobal.net] Sent: Friday, November 08, 2002 11:17 AM To: rpg400-l@midrange.com Subject: Re: Subfile Next Changed Sheesh Bill, sooner you then me with this one :-) All I can tell you is that if there are "changed" records on the subfile a Z-ADD 1 to the RRN and a READC will read the first changed record. You are correct in two of your observations:- Hell it just works and the do loops with chains to subfile, and mult loops through subfile to check things is is for the birds. Have a good one Paul "Hopkins, Bill" wrote: > > Moved Z-add1 #RRN moved just before READC even though net logic effect it > the same. Same > results #RRN3 equal 1 READC on no hit on changed records. > > Original code #RRN3 was 998 before and after write of control record. > > One other thing I tryed. The SFLNXTCHG indicator *IN80 was on at > WRITERC0010C control rec. Was to see if it > Made a difference I set it to *OFF before write. Still work fine. > > I still think Don hit it on the head before about it still thinking it is > positioned > at the last records on subfile after update, even when forcing #RRN3 to 1 > prior to readc. > > Also change to load all 1000(subfile size and update all 1000 > As changed #RRN3 = 1000 at break before readc. Forced #RRN3 to 1 before > READC. > > Same result readc 25 is *on > > Think WRITERC0010C is some how cleaning that up subfile position or force of > SFLNXTCHG updates taking effect. > > Hell it just works :). > > I think the person had a design issue when deciding > to completely control everything in subfile this way. Instead of > file/subfile combo > or at least hidden fields to compare on change. > This forcing of change just to readc. And the do loops with chains to > subfile, > and mult loops through subfile to check things is is for the birds. > > I think 3000 line could have been 1000 or less. And better controlled and > maintained. Oh Well > > Thanks Bill H. > > -----Original Message----- > From: Paul Tuohy [mailto:tuohyp@attglobal.net] > Sent: Friday, November 08, 2002 8:30 AM > To: rpg400-l@midrange.com > Subject: Re: Subfile Next Changed > > Hi Bill, > > A couple of things to try. > > - Try putting the Z-ADD1 #RRN3 in the $VAL3 subroutine on the > line directly above the first READC. > > - Where you are using the Write to the control record debug the program > and check the value of #RRN3 before and after the Write (a lot depends > on what SFL indicators are on when you do this Write) > > - Looking at the snippet of code, you would have a problem if there were > not any records in the subfile - has the subfile been loaded? Maybe have > a look (in debug) at what is happening in the CLEAR loop. > > HTH > > Paul > > "Hopkins, Bill" wrote: > > > > I thought my problem was the fact I was at rec 998 of subfile > > after updating each with the SFLNXTCHG indicator on for each update. > > So when I did READC I positioned in subfile below the records > > I had just updated with change on. This had no hit on readc. > > > > So to fix I tryed in debug a z-add 1 to #RRN3 after update. > > > > A R RC00103S SFL > > A 80 SFLNXTCHG > > > > A R RC00103C SFLCTL(RC00103S) > > A CF07 > > A CF04 > > A 51 CF05 > > A CF11 > > A CF09 > > A CF01 > > A 99 ALARM > > A OVERLAY > > A SFLCSRRRN(&S@CRS) > > A 31 SFLDSP > > A 30 SFLDSPCTL > > A 32 SFLCLR > > A 38 SFLEND(*MORE) > > A 36 SFLDROP(CF11) > > A N36 SFLFOLD(CF11) > > A SFLSIZ(1000) > > A SFLPAG(0006) > > A S@CRS 5S 0H > > A S@POS 4S 0H SFLRCDNBR(CURSOR *TOP) > > > > FRC0010D CF E WORKSTN > > F #RRN3 KSFILE RC00103S > > > > C CLEARX > > C DO 999 X > > C X CHAINRC00103S 25 > > C *IN25 IFEQ *OFF > > C MOVE *ON *IN80 > > C UPDATRC00103S > > C ENDIF > > C ENDDO > > C Z-ADD1 #RRN3 <<<<<<<<< > > > > C EXSR $VAL3 > > +++++ > > C $VAL3 BEGSR > > * > > C READCRC00103S 25 > > * > > C *IN25 DOWEQ*OFF > > * > > +++++ > > Still had problem > > when breaking on *IN25 DOWEQ *OFF *IN25 was on. > > > > So after reading post tryed the following > > Changed Z-ADD 1 #RRN3 to WRITERC00103 ran again and *IN25 DOWEQ *OFF was > > *OFF. > > #RRN3 = 998. READC hit first record changed by update which was record 1 > of > > subfile. > > > > I had same thoughts as you on "How it should work" but wasn't. > > Anyone see what's up or can explain please do. > > > > I think because I did not naturally hit the end of subfile when in update > > loop. > > Force of #RRN3 to 1 from 998 before readc really has not happen in the > > background. > > And I think the write of the control record reset things in background so > > change is > > pick up by readc. > > > > Thanks > > Bill H. > > > > -----Original Message----- > > From: Paul Tuohy [mailto:tuohyp@attglobal.net] > > Sent: Thursday, November 07, 2002 3:07 PM > > To: rpg400-l@midrange.com > > Subject: Re: Subfile Next Changed > > > > Hi Bill, > > > > Ain't subfiles fun? :-) > > > > There has to be something else in here because you definitely do not > > need to do anything with the subfile control record. > > > > This is how READC should work. > > > > Every subfile record has a "modified indicator". > > Typing something into a field on the subfile sets on the "modified > > indicator". > > Updating the subfile record with SFLNXTCHG enabled sets on the "modified > > indicator". > > A READC will read the NEXT record (i.e. from where the current pointer > > is, that pointer being the RRN field for the subfile) with a "modified > > indicator" on. > > The process of inputing a subfile record sets OFF the "modified > > indicator". > > > > No subfile control record required. > > > > So, if subfile records have been updated with SFLNXTCHG enabled then. > > > > C Z-ADD1 RRN > > C READCRC00103S 25 > > > > should read the first subfile record that has it's "modified indicator" > > on. > > > > HTH > > > > Paul Tuohy > > > > "Hopkins, Bill" wrote: > > > > > > Way it was explain to me in earlier post. It never reach the end of > SUBSIZ > > > of 1000 on update. So readc did not find anything because it started > from > > > that point. I ran in STRISDB with z-add SUBFIL RRN to 1 before readc > still > > > no hit. > > > I removed and ran again with write of rc00103c control rec after update > of > > > 998 of the subfile records and it worked. Added back in the z-add 1 to > RRN > > > so it would be at being in a future loop. > > > > > > Thanks Again > > > > > > -----Original Message----- > > > From: Paul Tuohy [mailto:tuohyp@attglobal.net] > > > Sent: Thursday, November 07, 2002 2:01 PM > > > To: rpg400-l@midrange.com > > > Subject: Re: Subfile Next Changed > > > > > > Bob, > > > > > > You should not need the write of the subfile control record. An update > > > of a subfile record with SFLNXTCHG on sets the "changed flag". Setting > > > RRN to 1 and issuing a READC should read the "changed record". > > > > > > As to the RRN of 998 - are you sure there are actually 1000 records in > > > the subfile (as opposed to a size of 1000). At the end of your loop, X > > > would be 999 but RRN would be 998 if there were only 998 record in the > > > subfile. > > > > > > HTH > > > > > > Paul Tuohy > > > > > > "Hopkins, Bill" wrote: > > > > > > > > Write of control record allowed readc to work > > > > after subfile next change update of all subfile records. > > > > z-add 1 to subfile rrn reset it to top. > > > > > > > > Will look for why RRN at 998 of 1000 next. > > > > > > > > Thanks All > > > > Bill H. > > > > > > > > -----Original Message----- > > > > From: Paul Tuohy [mailto:tuohyp@attglobal.net] > > > > Sent: Thursday, November 07, 2002 12:43 PM > > > > To: rpg400-l@midrange.com > > > > Subject: Re: Subfile Next Changed > > > > > > > > Hi Bill, > > > > > > > > Before the READC simply Eval RRN = 1. This is the equivelent of doing > a > > > > *LOVAL SETLL on the subfile. You do not need to re-write the subfile > > > > control record or any such - SFLNXTCHG is a subfile record keyword. > > > > > > > > HTH > > > > > > > > Paul Tuohy > > > > > > > > "Hopkins, Bill" wrote: > > > > > > > > > > Hi All, > > > > > > > > > > Do not ask why, but this subfile is TRYING to be totally > > control/edited > > > by > > > > > the program before any writes/update to PF. > > > > > About 3 thousand plus lines. > > > > > > > > > > Force change to subfile records? > > > > > > > > > > C CLEARX > > > > > C DO 999 X > > > > > C X CHAINRC00103S 25 > > > > > C *IN25 IFEQ *OFF > > > > > C MOVE *ON *IN80 <<<<<< > > SFLNXTCHG > > > > > C UPDATRC00103S > > > > > C ENDIF > > > > > C ENDDO > > > > > > > > > > Skip code(nothing touching subfile) then the following: > > > > > > > > > > C READCRC00103S 25 > > > > > * > > > > > C *IN25 DOWEQ*OFF <<<<< 25 > is > > > on. > > > > On > > > > > first readc > > > > > > > > > > Is this *ON because control rec(RC00103C) to subfile not written or > > > exfmt > > > > > before READC? Or RRN to subfile at bottom? > > > > > Why READC not seeing it as changed? > > > > > > > > > > Mind fried trying to find. > > > > > Thanks > > > > > > > > > > Bill H _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 6 From: Jeff Markel <JMarkel@costco.com> To: "'Midrange RPG/400 List'" <rpg400-l@midrange.com> Subject: CODE/400 Date: Fri, 8 Nov 2002 11:01:48 -0800 Reply-To: rpg400-l@midrange.com Sorry if this isn't the correct forum for this (although it does relate to RPG, at least in a "round-a-bout" way!) But, is anyone having problems in their shops with CODE/400? We seem to be having problem after problem, with different programmers experiencing different problems yet not experiencing the same problems as any of the other programmers. The latest and greatest: a contract programmer lost all of his source when the autosave function hurled. Others can't get into debug (PC hiccoughs and then performs the ultimate "I give up!" [re-boots]) Just curious... /jam Jeff Markel Developer, Merchandise Accounting Costco Wholesale Corporate Office Issaquah, Washington Office (425) 427-7662 FAX (425) 313-6800 JMarkel@Costco.com --__--__-- Message: 7 From: Buck Calabro <Buck.Calabro@commsoft.net> To: rpg400-l@midrange.com Subject: RE: CODE/400 Date: Fri, 8 Nov 2002 14:10:57 -0500 Reply-To: rpg400-l@midrange.com >But, is anyone having problems in >their shops with CODE/400? I am the only one here (so far) using Code, but I love it. Have not had problems in quite a while. The CODE400-L list is probably a better place to post. When you do (IBMers listen there!), be sure to include the PC OS, hardware and memory (PII, 450 W98 128 megs) as well as the version of Code you are using, including the service pack. (WDT V5R1, sp5 or WDSc 4.0, sp2). If I had to make a guess, I would say that you are not running the latest service pack. Also, every programmer needs to have a unique *CURLIB. --buck --__--__-- Message: 8 Date: Fri, 8 Nov 2002 11:43:46 -0800 (PST) From: Dan <dbcerpg@yahoo.com> Subject: procedure/subroutine to quote a string with quotes To: rpg400-l@midrange.com Reply-To: rpg400-l@midrange.com The archives are down... I have an urgent need... <g> I've got to take a string from a user input and surround it in quotes. The problem arises when the string itself has a quote or multiple quotes in it. So if a user keys in: Don's in deep doo-doo with deleting Dave's files. then I gotta put into a variable: 'Don''s in deep doo-doo with deleting Dave''s files.' Can someone help me from having to reinvent the wheel? I will need solutions for both CL and RPG-IV (at v4r5), but will gladly take one or the other for now. TIA, Dan __________________________________________________ Do you Yahoo!? U2 on LAUNCH - Exclusive greatest hits videos http://launch.yahoo.com/u2 --__--__-- Message: 9 From: "Newman, Ron" <Ron.Newman@mhctruck.com> To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com> Subject: RE: procedure/subroutine to quote a string with quotes Date: Fri, 8 Nov 2002 13:56:37 -0600 Reply-To: rpg400-l@midrange.com Dan, One way to do this in RPG IV is to D Dodo S 1064 Varying D Q1 S 1 inz(') D NewDoDo S 1070 Varying C Eval NewDODO = Q1 + DoDo + Q1 I am sure that there are many other ways to do this and most likely better but I know this works Ron Newman Sr. Programmer Analyst IBM - Certified Programmer MHC 1524 North Corrington Kansas City, MO 64120 816.242.6273 -----Original Message----- From: Dan [mailto:dbcerpg@yahoo.com] Sent: Friday, November 08, 2002 1:44 PM To: rpg400-l@midrange.com Subject: procedure/subroutine to quote a string with quotes The archives are down... I have an urgent need... <g> I've got to take a string from a user input and surround it in quotes. The problem arises when the string itself has a quote or multiple quotes in it. So if a user keys in: Don's in deep doo-doo with deleting Dave's files. then I gotta put into a variable: 'Don''s in deep doo-doo with deleting Dave''s files.' Can someone help me from having to reinvent the wheel? I will need solutions for both CL and RPG-IV (at v4r5), but will gladly take one or the other for now. TIA, Dan __________________________________________________ Do you Yahoo!? U2 on LAUNCH - Exclusive greatest hits videos http://launch.yahoo.com/u2 _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. --__--__-- Message: 10 From: "Mike Silvers" <msilvers@HBS-INC.COM> To: <rpg400-l@MIDRANGE.COM> Subject: Re: procedure/subroutine to quote a string with quotes Date: Fri, 8 Nov 2002 15:07:41 -0500 Organization: Hainey Business Systems Reply-To: rpg400-l@midrange.com Use a constant defined as follows: D Quote C Const(X'7D') To put the quote in line, use the + operator. ie: eval thisstring = 'Don' + QUOTE + 's in deep doo-doo with deleting Dave' + QUOTE + s files.' Have Fun! Mike ----- Original Message ----- From: "Dan" <dbcerpg@yahoo.com> To: <rpg400-l@midrange.com> Sent: Friday, November 08, 2002 2:43 PM Subject: procedure/subroutine to quote a string with quotes > The archives are down... I have an urgent need... <g> > > I've got to take a string from a user input and surround it in quotes. > The problem arises when the string itself has a quote or multiple > quotes in it. So if a user keys in: > Don's in deep doo-doo with deleting Dave's files. > > then I gotta put into a variable: > 'Don''s in deep doo-doo with deleting Dave''s files.' > > Can someone help me from having to reinvent the wheel? I will need > solutions for both CL and RPG-IV (at v4r5), but will gladly take one or > the other for now. > > TIA, Dan > > __________________________________________________ > Do you Yahoo!? > U2 on LAUNCH - Exclusive greatest hits videos > http://launch.yahoo.com/u2 > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > --__--__-- _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. End of RPG400-L Digest
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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
