On 10 Mar 2013 19:14:24 -0700, in bit.listserv.ibm-main you wrote: >Steve, >Just want to replace subpgm in oldpgm with subpgm from newpgm.
You need to get with the vendor. I also am surprised that the vendor is still using COBOL II which probably is out of service when the current COBOL is Enterprise COBOL. Since I don't have a compiler at home (retired) I can't check whether CSECTs are generated for nested programs. A nested program structure is ID DIVISION. PROGRAM-ID. MAINPGM. much code ID DIVISION. PROGRAM-ID. NESTPGM1. much code END PROGRAM. END PROGRAM. Clark Morris >Thx > >> Date: Sun, 10 Mar 2013 20:10:00 -0600 >> From: [email protected] >> Subject: Re: iewl syslin >> To: [email protected] >> >> Well your notes are confusing. >> >> First in your original post you implied the subroutine >> is not a CSECT, but it clearly is. >> >> Now it looks like you are trying to say that OLDPGM calls >> SUBPGM (the old version), then you switch to say NEWPGM >> calls PROGRAM1 and SUBPGM (the new version), is that correct? >> >> So are you trying to extract SUBPGM from NEWPGM and put >> that version into OLDPGM, leaving NEWPGM unchanged? Do you >> have the object or load module of the new SUBPGM? You >> really aren't clear about what you have and what you want. >> >> Please take the time and be more specific. >> >> >> On 3/10/2013 7:02 PM, chin ben wrote: >> > Sources >> > are not available, vender loadlib are shipped. >> > >> > >> > >> > Sorry, >> > had to change name of programs (Ie. vender): >> > >> > In old.vender.loadlib(oldpgm): >> > >> > Symbol Type Offset Length Textclass Translator VV >> > MM Date A/M R/M >> > >> > oldpgm SD 00 >> > FB79 B_TEXT COBOL II 14 00 >> > 2002/07/12 24 24 >> > >> > subpgm SD 1E360 8448 >> > B_TEXT COBOL II 14 00 >> > 1995/10/10 ANY 24 >> > >> > >> > >> > In new.vender.loadlib(newpgm): >> > >> > Symbol Type Offset Length Textclass Translator VV >> > MM Date A/M R/M >> > >> > program1 SD 00 1079 >> > B_TEXT COBOL II 13 02 >> > 1992/06/17 ANY 24 >> > >> > subpgm SD 9980 8A09 >> > B_TEXT COBOL II 14 00 >> > 2011/09/26 ANY 24 >> > >> > >> > >> > oldpgm >> > source is available, but several calls are vender sub-programs. Vender's >> > subpgm >> > has been updated and has to be replaced in oldpgm. >> > >> > >> > IEW2278I B352 INVOCATION PARAMETERS - XREF >> > >> > IEW2322I 1220 1 INCLUDE OBJECT >> > >> > IEW2322I 1220 2 INCLUDE SYSLIB(OLDPGM) <- 1995 >> > >> > >> > IEW2322I 1220 3 INCLUDE SYSLIB(NEWPGM) <- 2011 >> > >> > >> > IEW2322I 1220 4 CHANGE >> > SUBPGM(SUBPGM) <- replace with 2011 >> > >> > >> > IEW2403W 5E12 A REQUEST TO CHANGE CSECT OR SYMBOL SUBPGM WAS >> > RECEIVED, AND THE OLD CSECT OR SYMBOL WAS NOT FOUND. >> > >> > IEW2322I 1220 6 ENTRY PROGRAM1 >> > >> > IEW2322I 1220 >> > 7 NAME OLDPGM(R) >> > >> > >> > >> > >> > >> > Thx all for input. >> > >> > >> > >> > >> > >> >> Date: Sun, 10 Mar 2013 10:48:19 -0500 >> >> From: [email protected] >> >> Subject: Re: iewl syslin >> >> To: [email protected] >> >> >> >> Shmuel wrote: >> >> >> >> <begin extract> >> >> INCLUDE specifies the name of a member, not the name of a CSECT, and >> >> you nost certainly can have two members of a library containing the >> >> same CSECT name. The OP needs to disclose more data in order to >> >> diagnose his problem. >> >> <end extract> >> >> >> >> and he is of course quite right. It is occasionally convenient to >> >> have two differently named object modules for two different versions >> >> of the same CSECT, RSECT, or the like in a PDS[E], but this scheme >> >> should really only be used by very knowledgable and experienced >> >> people; and even for them there are better, more robust ways to do >> >> such things. >> >> >> >> If, as I suspect, the OP is trying to replace an entry point and its >> >> associated code that does NOT correspond to a separate CSECT, he can >> >> do that too. The binder's inclusion unit is indeed a CSECT, RSECT, or >> >> the like; but it can resolve external references in one of them to one >> >> of N others. As Shmuel says, we need to know more. >> >> >> >> John Gilmore, Ashland, MA 01721 - USA >> >> >> >> ---------------------------------------------------------------------- >> >> For IBM-MAIN subscribe / signoff / archive access instructions, >> >> send email to [email protected] with the message: INFO IBM-MAIN >> > >> > ---------------------------------------------------------------------- >> > For IBM-MAIN subscribe / signoff / archive access instructions, >> > send email to [email protected] with the message: INFO IBM-MAIN >> > >> >> >> -- >> >> Kind regards, >> >> -Steve Comstock >> The Trainer's Friend, Inc. >> >> 303-355-2752 >> http://www.trainersfriend.com >> >> * To get a good Return on your Investment, first make an investment! >> + Training your people is an excellent investment >> >> * Try our tool for calculating your Return On Investment >> for training dollars at >> http://www.trainersfriend.com/ROI/roi.html >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
