What you have will look something like this: //SMPCNTL DD * SET BDY(GLOBAL). RECEIVE SELECT(FMN2001) SYSMODS. SET BDY (TARGET). APPLY SELECT(FMN2001) RETRY(YES) REDO. /* //SMPPTFIN DD DATA,DLM=$$ ++USERMOD (FMN2001) REWORK(201601) . ++VER (Z038) FMID(JADLD12) PRE(UI25246) . ++JCLIN. // EXEC PGM=IEBCOPY //DISTDD DD DSN=distribution library,DISP=SHR [NOTE: make the DD statement that on the DISTMOD parameter]. //TARGLIB DD DSN=target.library,DISP=SHR [NOTE: DD statement must reflect target library] //SYSIN DD * COPY OUTDD=TARGLIB,INDD=DISTDD /* ++SRC(FMN2POPT) TXLIB(FMN2SRC) DISTLIB(AFMNSAM1) DISTMOD(distribution load library). *** Source code follows ***
This should be all you need. Adam -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of R.S. Sent: Tuesday, December 27, 2016 2:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Looking for USERMOD samples W dniu 2016-12-27 o 22:54, Paul Gilmartin pisze: > On 2016-12-27 14:47, R.S. wrote: >> I'm trying to learn a little bit about SMP/E usermods. >> Unfortunately neither SMP/E manuals nor google did not provide good (*well explained*) samples. >> >> >> Example (from File Manager): >> //SMPCNTL DD * >> SET BDY(GLOBAL). >> RECEIVE SELECT(FMN2001) SYSMODS. >> SET BDY (TARGET). >> APPLY SELECT(FMN2001) RETRY(YES) REDO. >> /* >> //SMPPTFIN DD DATA,DLM=$$ >> ++USERMOD (FMN2001) REWORK(201601) . >> ++VER (Z038) FMID(JADLD12) PRE(UI25246) . >> ++JCLIN. >> /* >> ++SRC(FMN2POPT) TXLIB(FMN2SRC) DISTLIB(AFMNSAM1). >> $$ >> FMN2SRC is a DD name pointing to a member with source code. >> Q1: How can I know what's target library for the load module? >> Q2: there is no assemble or linkedit jobstep. I assume it comes from SMP/E. >> Q3: FMN2SRC DD - should it describe library or member? In other words: DSN=MY.LIB or DSN=MY.LIB(MEM) ? >> > A TXLIB is a library in which APPLY (I think) will save member FNM2POPT. > With the options coded, the assembler source of FNM2POPT should appear > inline, after the ++SRC. There are other ways; I'd need to RTFM to say more. > > You'll need to allocate FNM2SRC in JCL and/or have a DDDEF for it. > TXLIB is a library with source code. SMPE/ Reference: TXLIB is the ddname of the partitioned data set containing the source. Similar description can be found in FMN.SFMNSAM1 (a source of the job quoted above). Although the role of DISTLIB is not 100% clear for me, but definitely it's not target library. Regards -- Radoslaw Skorupka Lodz, Poland --- Treść tej wiadomości może zawierać informacje prawnie chronione Banku przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku. This e-mail may contain legally privileged information of the Bank and is intended solely for business use of the addressee. This e-mail may only be received by the addressee and may not be disclosed to any third parties. If you are not the intended addressee of this e-mail or the employee authorized to forward it to the addressee, be advised that any dissemination, copying, distribution or any other similar activity is legally prohibited and may be punishable. If you received this e-mail by mistake please advise the sender immediately by using the reply facility in your e-mail software and delete permanently this e-mail including any copies of it either printed or saved to hard drive. mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, www.mBank.pl, e-mail: kont...@mbank.pl Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 0000025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości wpłacony) wynosi 168.955.696 złotych. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
