W dniu 2016-12-28 o 16:02, Tom Marchant pisze:
On Tue, 27 Dec 2016 22:47:20 +0100, R.S. wrote:
I'm trying to learn a little bit about SMP/E usermods.
Are you trying to learn in general, or specifically about the sample below?
Both. I'm trying to learn in general and understand the sample I found.
I already know there are many ways to skin the cat, but I vaguely
understand the details.
Not to mention those flavours regard assembler source usermods only and
there are more types possible.
Even to modify existing usermod it's good to understand it, otherwise
doubts like PDS vs member in FMN2SRC DD could occur.
BTW: Another "favorite" example is ICHRDSNT:
---------------------------------
//SYSPUNCH DD DSN=&LOADSET,
// DISP=(,PASS),UNIT=3390,SPACE=(CYL,(5,1))
//SYSIN DD *
PUNCH '++USERMOD (CPPDSNT).'
PUNCH '++ VER (Z038) FMID(HRF77A0).'
PUNCH '++ MOD (ICHRDSNT) DISTLIB(AOSBN) LMOD(ICHRDSNT).'
ICHRDSNT CSECT ,
ICHRDSNT AMODE 31
ICHRDSNT RMODE 24
DC AL1(1) NUMBER OF ENTRIES ONE
*
* PRIMARY RACF DS NAME
DC CL44'SYS1.MVSA.RACFPRIM'
* BACK-UP RACF DS NAME
DC CL44'SYS1.MVSA.RACFBACK'
DC AL1(255) NUMBER OF RESIDENT BLOCKS
DC B'10000000' UPDATES DUPLICATED ON BACK-UP DS
* USE RESIDENT DATA BLOCKS
*
END
/*
//*
//*
//RECAPP EXEC PGM=GIMSMP
//SMPCSI DD DISP=SHR,DSN=HLQ.GIM1.GLOBAL.CSI
//SMPHOLD DD DUMMY
//SMPPTFIN DD DSN=&LOADSET,DISP=(OLD,DELETE)
//SMPCNTL DD *
SET BDY(T1GIM1T) .
UCLIN .
REP LMOD(ICHRDSNT) SYSLIB(LINKLIB) .
ENDUCL .
SET BDY(GLOBAL) .
RECEIVE S(CPPDSNT) SYSMODS .
SET BDY(T1GIM1T) .
APPLY S(CPPDSNT) REDO .
/*
//*
Here we have yet another method for providing MCS'es and source code.
BTW: the above results with the following CPPDSNT member of SMPPTS:
++USERMOD (CPPDSNT).
++ VER (Z038) FMID(HRF77A0).
++ MOD (ICHRDSNT) DISTLIB(AOSBN) LMOD(ICHRDSNT).
$$GIMC É{binary-code-here Îą˝ ˝ ˘Sh°~\§ KÍ |\ D c
Ĺa R {płť} - Ć÷Ż\ aeĆöę Q 21) T[ ż>zÚźŁń'UpŁ# ŁŤA˘
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: [email protected]
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 [email protected] with the message: INFO IBM-MAIN
