Re: RENT binder option
As we have already discussed, program objects do get rounded up to 4k multiples. Load modules do not. I am a big fan of looking at dumps. We always have hundreds of them readily available around here. Here is an excerpt from SUMMARY FORMAT ASID(1) EX(GL) on a z/OS 2.5 standalone dump. There are multiple load modules on pages 0CB01000 and 0CB0D000. EP... IEFJMSGT ENTPT 8CB0E228RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB0D8A0 LNTH. 0B20 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 02330E0D 60D3D5D2 D3E2E360 EPTOKEN.. 01B3 0001004D EP... ISNGENEX ENTPT 8CB01C10RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB01C10 LNTH. 03A8 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 011C070D 60D3D5D2 D3E2E360 EPTOKEN.. 01B0 0001000E EP... ISNAXOSV ENTPT 8CB06868RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB06868 LNTH. 0650 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 011E0D0D 60D3D5D2 D3E2E360 EPTOKEN.. 01AF 0001002C EP... ISNAXOCF ENTPT 8CB0D000RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB0D000 LNTH. 08A0 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 011E040D 60D3D5D2 D3E2E360 EPTOKEN.. 01AE 0001000D EP... ISNET4 ENTPT 8CB05AC8RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB05AC8 LNTH. 07F8 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 0127180D 60D3D5D2 D3E2E360 EPTOKEN.. 01A8 00010031 EP... ISNMDB ENTPT 8CB01558RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB01558 LNTH. 06B8 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 011B040D 60D3D5D2 D3E2E360 EPTOKEN.. 01A7 00010011 EP... ISNSTATE ENTPT 8CB011D8RRBP. USE.. 0001 SP... FC Reenterable. Reusable. APF library. NRFAC 0001 MSBAD 0CB011D8 LNTH. 0380 NAMEL 0008 ASID. 0001 PROVIDI.. 0002 PROVIDD.. 0001 011E270D 60D3D5D2 D3E2E360 EPTOKEN.. 01A6 00010065 Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie NY "IBM Mainframe Discussion List" wrote on 08/31/2021 11:23:11 PM: > From: "CM Poncelet" > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/01/2021 01:30 AM > Subject: Re: RENT binder option > Sent by: "IBM Mainframe Discussion List" > > "Not all modules have or need a 4 KiB alignment." Indeed, for "modules" > (as in CSECT/RSECT MODs, within an LMOD.) But LMODs themselves are > loaded into page-aligned storage. > > The LP (load point) addresses of LMODs always end with x'000' (i.e. > page-aligned) - and the addresses of all MODs they contain always ends > with x'0' or x'8', as in DWORD-aligned, *but* if these MODs are SYSLIN > "ORDER" link-edited as (P) [page-aligned] or SYSLIN "PAGE" link-edited > [likewise page-aligned,] then their addresses always end with x'000'. > This can be seen, checked and verified in/from system dumps. > > GETMAINs (aka STORAGE OBTAINs) are allocated in contiguous DWORD-aligned > storage within a same (or following) page, as too (usually) are MODs > within an LMOD (unless the MODs are page-aligned, as mentioned above.) > FREEMAINs (aka STORAGE RELEASEs) supposedly release GETMAINed storage. > But they do not release a page until *all* GETMAINed storage within it > has been FREEMAINed. Hence, e.g. MVCLs will continue to complete > successfully from one DSECT to another DSECT mapped over released > GETMAINed storage - not because this storage is still GETMAINed, but > because the page still contains some un-FREEMAINed storage and the page > therefore remains allocated and addressable (regardless of [some of] its > storage having been FREEMAINed) until *all* GETMAINed storage in it has > been FREEMAINed. > > > > > On 31/08/2021 22:21, Seymour J Metz wrote: > > What is absurd about a page containing more than on load module? > It happens all the time. Not all modules have or need a 4 KiB alignment. > > > > > > -- > >
Re: 3277 graphics
O/T - I was a user on one of those Tektronix displays from about 1979 to 1982, but no 3277 or mainframe. Mine was connected to a DEC computer, all put together by a company called ComputerVision. This pic shows almost exactly what I used: https://en.wikipedia.org/wiki/Computervision#/media/File:Computervision_piping.agr.jpg On 8/31/2021 8:24 PM, Charles Bailey wrote: Back in the 1980's, when I was using MVS full time, we had some Tektronix graphics displays connected to an adapter on some of our 3277 terminals. These displays had storage screens where the screen could only have new stuff written to it. When the display got too cluttered you would have to tell the software to clear the screen and redraw it. We had a few application programs that made use of these displays. Later, in the 90's we got some new displays that had more conventional display tubes with hardware that more or less emulated the old Tektronix displays so that the same software would work with them. At one time I had a PS/2 with a microchannel adapter card that would interface with these new displays. I understand that the x3270 terminal emulator program for Unix-like systems has a mode that emulates the 3277 graphics in a separate window. Some of the graphics programs used a routine called GAPE that accepted function calls from the application and generated the drawing data stream to the display. Is GAPE available somewhere? GAPE was written by the same person who wrote CLIC. There was a chapter in the CLIC user manual that explained the use of GAPE. The author explained that he didn't like the graphics support program that IBM supplied with the PRPQ graphics attachment so he wrote his own. (Maybe that was the GASP you were referring to.) I believe the user manual contained the source code for playing checkers, written in CLIC, as a demo of how to use GAPE. At some point, when PL/AS was my primary programming language, I rewrote the checkers program in PL/AS as an exercise in learning to call GAPE from a PL/AS program. I originally posted this on the h390-...@groups.io news group and someone there suggested that I post a query here. Charles Bailey -- 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
3277 graphics
Back in the 1980's, when I was using MVS full time, we had some Tektronix graphics displays connected to an adapter on some of our 3277 terminals. These displays had storage screens where the screen could only have new stuff written to it. When the display got too cluttered you would have to tell the software to clear the screen and redraw it. We had a few application programs that made use of these displays. Later, in the 90's we got some new displays that had more conventional display tubes with hardware that more or less emulated the old Tektronix displays so that the same software would work with them. At one time I had a PS/2 with a microchannel adapter card that would interface with these new displays. I understand that the x3270 terminal emulator program for Unix-like systems has a mode that emulates the 3277 graphics in a separate window. Some of the graphics programs used a routine called GAPE that accepted function calls from the application and generated the drawing data stream to the display. Is GAPE available somewhere? GAPE was written by the same person who wrote CLIC. There was a chapter in the CLIC user manual that explained the use of GAPE. The author explained that he didn't like the graphics support program that IBM supplied with the PRPQ graphics attachment so he wrote his own. (Maybe that was the GASP you were referring to.) I believe the user manual contained the source code for playing checkers, written in CLIC, as a demo of how to use GAPE. At some point, when PL/AS was my primary programming language, I rewrote the checkers program in PL/AS as an exercise in learning to call GAPE from a PL/AS program. I originally posted this on the h390-...@groups.io news group and someone there suggested that I post a query here. Charles Bailey -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
"Not all modules have or need a 4 KiB alignment." Indeed, for "modules" (as in CSECT/RSECT MODs, within an LMOD.) But LMODs themselves are loaded into page-aligned storage. The LP (load point) addresses of LMODs always end with x'000' (i.e. page-aligned) - and the addresses of all MODs they contain always ends with x'0' or x'8', as in DWORD-aligned, *but* if these MODs are SYSLIN "ORDER" link-edited as (P) [page-aligned] or SYSLIN "PAGE" link-edited [likewise page-aligned,] then their addresses always end with x'000'. This can be seen, checked and verified in/from system dumps. GETMAINs (aka STORAGE OBTAINs) are allocated in contiguous DWORD-aligned storage within a same (or following) page, as too (usually) are MODs within an LMOD (unless the MODs are page-aligned, as mentioned above.) FREEMAINs (aka STORAGE RELEASEs) supposedly release GETMAINed storage. But they do not release a page until *all* GETMAINed storage within it has been FREEMAINed. Hence, e.g. MVCLs will continue to complete successfully from one DSECT to another DSECT mapped over released GETMAINed storage - not because this storage is still GETMAINed, but because the page still contains some un-FREEMAINed storage and the page therefore remains allocated and addressable (regardless of [some of] its storage having been FREEMAINed) until *all* GETMAINed storage in it has been FREEMAINed. On 31/08/2021 22:21, Seymour J Metz wrote: > What is absurd about a page containing more than on load module? It happens > all the time. Not all modules have or need a 4 KiB alignment. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of > CM Poncelet [ponce...@bcs.org.uk] > Sent: Monday, August 30, 2021 11:29 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: RENT binder option > > FWIW and FYI. > > A 31-bit instrucion is a 4-byte fullword address, as e.g. say at virtual > (DAT) address x'71234568'. > > The first 3 nybles (x'712') indicate the segment from which the LMOD's > storage/address has been allocated. > The next 2 nybles (x'34') are the offset to the page within the segment > that is allocated to the LMOD's address. > The last 3 nybles (x'568') are the offset within the allocated page of > the LMOD's instruction address, within the segment. > So a page, in nybles, is 16 x 16 x 16 = 4096 bytes or 4K - which is then > used to build the LMOD's virtual (DAT) address. > > Hence, the OS allocates whole - not partial - 4K pages to a load module > (LMOD). If the size of a REFR LMOD is < 8K but > 4K then the OS > allocates two 4K pages to it (both of which are then REFR protected). If > a page were partially occupied by a REFR LMOD but otherwise also > occupied by another LMOD, this would lead to situations where, say, a > 31-bit instruction at address x'71234568' could be part of a REFR LMOD > but at address x'71234800' could be part of some other LMOD - and would > imply that a same page had been allocated to more than one LMOD, which > from an addressability point of view would be absurd. > > In other words, pages are either fully allocated/occupied to or by a > REFR LMOD's code or they are not occupied by a REFR LMOD's code at all. > > HTH Cheers. > > > > On 30/08/2021 17:00, Paul Gilmartin wrote: >> On Mon, 30 Aug 2021 09:49:14 -0400, Jim Mulder wrote: >> >>> The behavior of loading RENT modules from authorized >>> libraries into subpool 252 (key 0) is to prevent them from >>> being modified by unauthorized programs. That is intended >>> to contribute to security. >>> >> It would be a courtesy, think of it as a lagniappe, to the customer >> wanting to verify code implementation, to protect pages even partially >> occupied by REFR code. >> >> -- gil >> >> -- >> 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 > > -- > 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
Re: Tape Report CA-TLMS
CA-1 has a report called TMEVSNM in the samples. I'm hoping an equivalent for the same will be available in TLMS. If not, it's worth going through the samples library or the docs to find out what's there. - KB ‐‐‐ Original Message ‐‐‐ On Wednesday, September 1st, 2021 at 1:44 AM, Bodra - Pessoal <02eda2bc565a-dmarc-requ...@listserv.ua.edu> wrote: > Hi, > > I need to know how many TBs are being used in our TS3500. > > We use CA-TLMS and we have 60 x 3592 cartridges model JC (4TB) and tape drives > > are TS1140 (3592-E07). > > Is there a CA-TLMS report that tells me how many TBs are in use on each > > cartridge? > > Or any other source that can give me an estimate of this? > > 60 x 3592JC = 240TB, which would be the nominal capacity, but it still has > 2.5:1 > > compression so our usage would be around 600TB. Is this rigth? > > Thanks for any hints about. > > Carlos Bodra > > IBM zEnterprise Certified > > São Paulo SP Brazil > > > - > > 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
Re: Tape Report CA-TLMS
I did a report. Listed every file on every tape, multiplied the numbers to a slight overestimate of file size, then summed them for a total. May need to skip tape data sets no longer on the tape (x days past expiration, delete flag, etc.). On Tue, Aug 31, 2021 at 3:14 PM Bodra - Pessoal <02eda2bc565a-dmarc-requ...@listserv.ua.edu> wrote: > > Hi, > > > > I need to know how many TBs are being used in our TS3500. > > > > We use CA-TLMS and we have 60 x 3592 cartridges model JC (4TB) and tape drives > are TS1140 (3592-E07). > > > > Is there a CA-TLMS report that tells me how many TBs are in use on each > cartridge? > > > > Or any other source that can give me an estimate of this? > > > > 60 x 3592JC = 240TB, which would be the nominal capacity, but it still has > 2.5:1 > compression so our usage would be around 600TB. Is this rigth? > > > > Thanks for any hints about. > > > > Carlos Bodra > > IBM zEnterprise Certified > > São Paulo – SP – Brazil > > > > > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
What is absurd about a page containing more than on load module? It happens all the time. Not all modules have or need a 4 KiB alignment. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM Poncelet [ponce...@bcs.org.uk] Sent: Monday, August 30, 2021 11:29 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: RENT binder option FWIW and FYI. A 31-bit instrucion is a 4-byte fullword address, as e.g. say at virtual (DAT) address x'71234568'. The first 3 nybles (x'712') indicate the segment from which the LMOD's storage/address has been allocated. The next 2 nybles (x'34') are the offset to the page within the segment that is allocated to the LMOD's address. The last 3 nybles (x'568') are the offset within the allocated page of the LMOD's instruction address, within the segment. So a page, in nybles, is 16 x 16 x 16 = 4096 bytes or 4K - which is then used to build the LMOD's virtual (DAT) address. Hence, the OS allocates whole - not partial - 4K pages to a load module (LMOD). If the size of a REFR LMOD is < 8K but > 4K then the OS allocates two 4K pages to it (both of which are then REFR protected). If a page were partially occupied by a REFR LMOD but otherwise also occupied by another LMOD, this would lead to situations where, say, a 31-bit instruction at address x'71234568' could be part of a REFR LMOD but at address x'71234800' could be part of some other LMOD - and would imply that a same page had been allocated to more than one LMOD, which from an addressability point of view would be absurd. In other words, pages are either fully allocated/occupied to or by a REFR LMOD's code or they are not occupied by a REFR LMOD's code at all. HTH Cheers. On 30/08/2021 17:00, Paul Gilmartin wrote: > On Mon, 30 Aug 2021 09:49:14 -0400, Jim Mulder wrote: > >> The behavior of loading RENT modules from authorized >> libraries into subpool 252 (key 0) is to prevent them from >> being modified by unauthorized programs. That is intended >> to contribute to security. >> > It would be a courtesy, think of it as a lagniappe, to the customer > wanting to verify code implementation, to protect pages even partially > occupied by REFR code. > > -- gil > > -- > 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
On Tue, 31 Aug 2021 15:27:38 -0500, Kirk Wolf wrote: >OK Gil, you will absolutely love this. >( I swear I didn't know this until just now :-) > >$ cp "//'KIRK.TEST.VBX'" /tmp/test.vbxcp >cp: FSUMF148 //'KIRK.TEST.VBX': spanned records are not supported > >$ cat "//'KIRK.TEST.VBX'" > /tmp/test.vbxcp ># works. records > 32768 are copied correctly (at least up to the 57K >one I tried) > Never underestimate the C/C++ RTL. I think the default is FILEDATA(TEXT) >PS> I bet that /bin/cat with a DD:MYVBX would work too! > Even though that's not documented as supported. Would you distribute to customers code dependent on an unsupported feature? How are attributes supplied on the DD statement merged with attributes supplied on the "cp" command? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
On Tue, 31 Aug 2021 13:30:17 -0700, Sri h Kolusu wrote: >> Thanks, but it doesn't seem to work.� Records that are over 32752 bytes >> are truncated. >> (Was that supposed to be an NBSP?) >> FMNBB298 10 record(s) copied: 6 truncated: 0 fields truncated > >Can you please try with LRECL=X in the JCL definition and also use PAD=ON >in the sysin to pad to the maximum length? > Do you *really* think that's what he wants? For LRRECL=X, the maximum is "unlimited". >//PATHDISP=(KEEP,DELETE),FILEDATA=TEXT,LRECL=X > >//SYSINDD * >$$FILEM SET PAD=ON >$$FILEM DSC >/* -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
> Thanks, but it doesn't seem to work. Records that are over 32752 bytes > are truncated. > > FMNBB298 10 record(s) copied: 6 truncated: 0 fields truncated Kirk, Can you please try with LRECL=X in the JCL definition and also use PAD=ON in the sysin to pad to the maximum length? //PATHDISP=(KEEP,DELETE),FILEDATA=TEXT,LRECL=X //SYSINDD * $$FILEM SET PAD=ON $$FILEM DSC /* Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
OK Gil, you will absolutely love this. ( I swear I didn't know this until just now :-) $ cp "//'KIRK.TEST.VBX'" /tmp/test.vbxcp cp: FSUMF148 //'KIRK.TEST.VBX': spanned records are not supported $ cat "//'KIRK.TEST.VBX'" > /tmp/test.vbxcp # works. records > 32768 are copied correctly (at least up to the 57K one I tried) PS> I bet that /bin/cat with a DD:MYVBX would work too! Kirk Wolf Dovetailed Technologies http://dovetail.com On 8/31/21 2:23 PM, Kirk Wolf wrote: Gil, You're never wrong, but rarely helpful :-) Kirk Wolf Dovetailed Technologies http://dovetail.com On 8/31/21 12:13 PM, Paul Gilmartin wrote: On Tue, 31 Aug 2021 09:50:30 -0700, Sri h Kolusu wrote: Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file IDCAAMS REPRO? (I haven't checked its requirements.) As a last resort, Rexx: Override stdin to RECFM=U and interpret the SDWs ad-hoc. Output with CHAROUT(); separate records with '15'x. (In the past I have reported problems mixing CHARIN() with LINEIN() or CHAROUT() with LINEOUT(). I don't know that those have been repaired. I doubt BPXWUNIX would be useful; don't know about CozBATCH.) If your shop has IBM File-Manager then you can use the following JCL I suspect the OP is an ISV and would prefer as few "if"s as possible. //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset //DDOUT DD PATH='/yourdir/lreclx.copy', // PATHMODE=(SIRWXU,SIRWXG,SIRWXO), // PATHOPTS=(OWRONLY,OCREAT,OEXCL), // PATHDISP=(KEEP,DELETE),FILEDATA=TEXT //SYSIN DD * $$FILEM DSC -- gil -- 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
Re: Copy RECFM=VBS/LRECL=X to zFS?
On Tue, 31 Aug 2021 14:23:25 -0500, Kirk Wolf wrote: > >You're never wrong, but rarely helpful :-) > Have you any constructive criticism? >On 8/31/21 12:13 PM, Paul Gilmartin wrote: >> On Tue, 31 Aug 2021 09:50:30 -0700, Sri h Kolusu wrote: >>... >> As a last resort, Rexx: >> >> Override stdin to RECFM=U and interpret the SDWs ad-hoc. >> Output with CHAROUT(); separate records with '15'x. >> >> [problems with] CHAROUT() with LINEOUT(). I don't know that those >>have been repaired. >> I have an Email from 2009 mentioning OA27527. If there was a resolution I haven't saved it. Rexx EXECIO has for several releases supported RECFM=VBS. The Ref. mentions no restrrictions concerning LREC=X. I'm skeptical; I'm composing an RCF. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Tape Report CA-TLMS
Hi, I need to know how many TBs are being used in our TS3500. We use CA-TLMS and we have 60 x 3592 cartridges model JC (4TB) and tape drives are TS1140 (3592-E07). Is there a CA-TLMS report that tells me how many TBs are in use on each cartridge? Or any other source that can give me an estimate of this? 60 x 3592JC = 240TB, which would be the nominal capacity, but it still has 2.5:1 compression so our usage would be around 600TB. Is this rigth? Thanks for any hints about. Carlos Bodra IBM zEnterprise Certified São Paulo SP Brazil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
Thanks, but it doesn't seem to work. Records that are over 32752 bytes are truncated. FMNBB298 10 record(s) copied: 6 truncated: 0 fields truncated Kirk Wolf Dovetailed Technologies http://dovetail.com On 8/31/21 11:50 AM, Sri h Kolusu wrote: Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file Kirk, If your shop has IBM File-Manager then you can use the following JCL //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset //DDOUTDD PATH='/yourdir/lreclx.copy', //PATHMODE=(SIRWXU,SIRWXG,SIRWXO), //PATHOPTS=(OWRONLY,OCREAT,OEXCL), //PATHDISP=(KEEP,DELETE),FILEDATA=TEXT //SYSINDD * $$FILEM DSC /* Thanks, Kolusu -- 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
Re: Copy RECFM=VBS/LRECL=X to zFS?
Gil, You're never wrong, but rarely helpful :-) Kirk Wolf Dovetailed Technologies http://dovetail.com On 8/31/21 12:13 PM, Paul Gilmartin wrote: On Tue, 31 Aug 2021 09:50:30 -0700, Sri h Kolusu wrote: Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file IDCAAMS REPRO? (I haven't checked its requirements.) As a last resort, Rexx: Override stdin to RECFM=U and interpret the SDWs ad-hoc. Output with CHAROUT(); separate records with '15'x. (In the past I have reported problems mixing CHARIN() with LINEIN() or CHAROUT() with LINEOUT(). I don't know that those have been repaired. I doubt BPXWUNIX would be useful; don't know about CozBATCH.) If your shop has IBM File-Manager then you can use the following JCL I suspect the OP is an ISV and would prefer as few "if"s as possible. //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset //DDOUTDD PATH='/yourdir/lreclx.copy', //PATHMODE=(SIRWXU,SIRWXG,SIRWXO), //PATHOPTS=(OWRONLY,OCREAT,OEXCL), //PATHDISP=(KEEP,DELETE),FILEDATA=TEXT //SYSINDD * $$FILEM DSC -- gil -- 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
Re: RENT binder option
No. It is a popular name. Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie NY "IBM Mainframe Discussion List" wrote on 08/31/2021 12:58:55 PM: > From: "Bill Hitefield" > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/31/2021 02:05 PM > Subject: Re: RENT binder option > Sent by: "IBM Mainframe Discussion List" > > Is this the Dave Cole who wrote "Boney Fingers" - many years ago? > > Bill Hitefield > > > -Original Message- > > From: IBM Mainframe Discussion List On > > Behalf Of Jim Mulder > > Sent: Tuesday, August 31, 2021 12:56 PM > > To: IBM-MAIN@LISTSERV.UA.EDU > > Subject: Re: RENT binder option > > > > This is not the XDC Dave Cole. Dave Cole the musician > > was an MVS developer who worked on TSO/E (and was the developer of the > > PRINTDS command) and MVS/APPC. > > We did not discuss diagnostic techniques, but we did create a design that > > would have allowed the systems in a sysplex to safely share MVS/APPC TP > > Profile and Side Info data sets, while waiting in line for several > hours to get > > into the "Back To The Future" ride at Universal Studios in Orlando. > > Unfortunately, the funding to implement that design never happened. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
For *my* information? Contents Supervisor uses GETMAIN to obtain module storage. VSM is quite happy to allocate partial pages. It has been thus since before my time at IBM (42 years). I have to go with what Jor-el says at time 0:43 in this clip: https://www.youtube.com/watch?v=zUmMeS2c4Uw Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie NY "IBM Mainframe Discussion List" wrote on 08/30/2021 11:29:35 PM: > From: "CM Poncelet" > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/31/2021 12:26 PM > Subject: Re: RENT binder option > Sent by: "IBM Mainframe Discussion List" > > FWIW and FYI. > > A 31-bit instrucion is a 4-byte fullword address, as e.g. say at virtual > (DAT) address x'71234568'. > > The first 3 nybles (x'712') indicate the segment from which the LMOD's > storage/address has been allocated. > The next 2 nybles (x'34') are the offset to the page within the segment > that is allocated to the LMOD's address. > The last 3 nybles (x'568') are the offset within the allocated page of > the LMOD's instruction address, within the segment. > So a page, in nybles, is 16 x 16 x 16 = 4096 bytes or 4K - which is then > used to build the LMOD's virtual (DAT) address. > > Hence, the OS allocates whole - not partial - 4K pages to a load module > (LMOD). If the size of a REFR LMOD is < 8K but > 4K then the OS > allocates two 4K pages to it (both of which are then REFR protected). If > a page were partially occupied by a REFR LMOD but otherwise also > occupied by another LMOD, this would lead to situations where, say, a > 31-bit instruction at address x'71234568' could be part of a REFR LMOD > but at address x'71234800' could be part of some other LMOD - and would > imply that a same page had been allocated to more than one LMOD, which > from an addressability point of view would be absurd. > > In other words, pages are either fully allocated/occupied to or by a > REFR LMOD's code or they are not occupied by a REFR LMOD's code at all. > > HTH Cheers. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
On Tue, 31 Aug 2021 09:50:30 -0700, Sri h Kolusu wrote: >> Is there an IBM Utility that will do this? >> Preferrable with FILEDATA=TEXT processing mode on the output file > IDCAAMS REPRO? (I haven't checked its requirements.) As a last resort, Rexx: Override stdin to RECFM=U and interpret the SDWs ad-hoc. Output with CHAROUT(); separate records with '15'x. (In the past I have reported problems mixing CHARIN() with LINEIN() or CHAROUT() with LINEOUT(). I don't know that those have been repaired. I doubt BPXWUNIX would be useful; don't know about CozBATCH.) >If your shop has IBM File-Manager then you can use the following JCL > I suspect the OP is an ISV and would prefer as few "if"s as possible. >//STEP0100 EXEC PGM=FILEMGR >//SYSPRINT DD SYSOUT=* >//DDIN DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset >//DDOUTDD PATH='/yourdir/lreclx.copy', >//PATHMODE=(SIRWXU,SIRWXG,SIRWXO), >//PATHOPTS=(OWRONLY,OCREAT,OEXCL), >//PATHDISP=(KEEP,DELETE),FILEDATA=TEXT >//SYSINDD * >$$FILEM DSC -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
Is this the Dave Cole who wrote "Boney Fingers" - many years ago? Bill Hitefield > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Jim Mulder > Sent: Tuesday, August 31, 2021 12:56 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: RENT binder option > > This is not the XDC Dave Cole. Dave Cole the musician > was an MVS developer who worked on TSO/E (and was the developer of the > PRINTDS command) and MVS/APPC. > We did not discuss diagnostic techniques, but we did create a design that > would have allowed the systems in a sysplex to safely share MVS/APPC TP > Profile and Side Info data sets, while waiting in line for several hours to > get > into the "Back To The Future" ride at Universal Studios in Orlando. > Unfortunately, the funding to implement that design never happened. > > Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. > Poughkeepsie NY > > "IBM Mainframe Discussion List" wrote on > 08/31/2021 10:26:08 AM: > > > From: "Greg Price" > > To: IBM-MAIN@LISTSERV.UA.EDU > > Date: 08/31/2021 12:44 PM > > Subject: Re: RENT binder option > > Sent by: "IBM Mainframe Discussion List" > > > > On 8/31/2021 11:35 AM, Jim Mulder wrote: > > > Yes, I know the lines from that show from having played in the > > > orchestra for it here: > > > > > > > https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fco > > > > untyplayers.org%2Ficpdb%2Fshows%2F0502.htmldata=04%7C01%7C > Bill. > > > Hitefield%40DINO- > SOFTWARE.COM%7Cf4aada48c5ac4698313708d96ca03f25%7Cb > > > > e5c5b1debb343f3a3641e98fd405647%7C0%7C0%7C637660257773751296% > 7CUnkno > > > > wn%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1 > haWw > > > > iLCJXVCI6Mn0%3D%7C1000sdata=KgdiC0baOEOdmWgn7xrBDzcKccd > Uk%2F4An > > > 1b7jFwGpVs%3Dreserved=0 > > > > I expect you chatted about diagnostic techniques with Dave during > > breaks > > > in rehearsal... > > > > O-O > > \_/ > > > > -- > 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
Re: RENT binder option
This is not the XDC Dave Cole. Dave Cole the musician was an MVS developer who worked on TSO/E (and was the developer of the PRINTDS command) and MVS/APPC. We did not discuss diagnostic techniques, but we did create a design that would have allowed the systems in a sysplex to safely share MVS/APPC TP Profile and Side Info data sets, while waiting in line for several hours to get into the "Back To The Future" ride at Universal Studios in Orlando. Unfortunately, the funding to implement that design never happened. Jim Mulder z/OS Diagnosis, Design, Development, Test IBM Corp. Poughkeepsie NY "IBM Mainframe Discussion List" wrote on 08/31/2021 10:26:08 AM: > From: "Greg Price" > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 08/31/2021 12:44 PM > Subject: Re: RENT binder option > Sent by: "IBM Mainframe Discussion List" > > On 8/31/2021 11:35 AM, Jim Mulder wrote: > > Yes, I know the lines from that show from having > > played in the orchestra for it here: > > > > https://countyplayers.org/icpdb/shows/0502.html > > I expect you chatted about diagnostic techniques with Dave during breaks > in rehearsal... > > O-O > \_/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
Never mind: 4. Data sets with spanned record lengths are not allowed. Grrr. VBS is the red-headed stepchild of DFSMS. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills Sent: Tuesday, August 31, 2021 9:49 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Copy RECFM=VBS/LRECL=X to zFS? Did you try OPUT? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Tuesday, August 31, 2021 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Copy RECFM=VBS/LRECL=X to zFS? Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file (adding newlines at record boundaries). Trying IEBGENER and ICEGENER both result in 013-A8 -- Kirk Wolf Dovetailed Technologies http://dovetail.com -- 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 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
> Is there an IBM Utility that will do this? > Preferrable with FILEDATA=TEXT processing mode on the output file Kirk, If your shop has IBM File-Manager then you can use the following JCL //STEP0100 EXEC PGM=FILEMGR //SYSPRINT DD SYSOUT=* //DDIN DD DISP=SHR,DSN=Your.MVS.LRECLX.Dataset //DDOUTDD PATH='/yourdir/lreclx.copy', //PATHMODE=(SIRWXU,SIRWXG,SIRWXO), //PATHOPTS=(OWRONLY,OCREAT,OEXCL), //PATHDISP=(KEEP,DELETE),FILEDATA=TEXT //SYSINDD * $$FILEM DSC /* Thanks, Kolusu -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Copy RECFM=VBS/LRECL=X to zFS?
Did you try from within the z/FS? Doug Fuerst d...@bkassociates.net -- Original Message -- From: "Kirk Wolf" To: IBM-MAIN@listserv.ua.edu Sent: 31-Aug-21 12:30:23 Subject: Copy RECFM=VBS/LRECL=X to zFS? Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file (adding newlines at record boundaries). Trying IEBGENER and ICEGENER both result in 013-A8 -- Kirk Wolf Dovetailed Technologies http://dovetail.com -- 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
Re: Copy RECFM=VBS/LRECL=X to zFS?
Did you try OPUT? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Kirk Wolf Sent: Tuesday, August 31, 2021 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Copy RECFM=VBS/LRECL=X to zFS? Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file (adding newlines at record boundaries). Trying IEBGENER and ICEGENER both result in 013-A8 -- Kirk Wolf Dovetailed Technologies http://dovetail.com -- 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
Re: Copy RECFM=VBS/LRECL=X to zFS?
Am 31.08.2021 um 18:30 schrieb Kirk Wolf: Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file (adding newlines at record boundaries). Trying IEBGENER and ICEGENER both result inᅵ 013-A8 I think the IBM Sort should do this part. Please try it. all other have a limt on 32k Buffer Spanned records could be more oversize. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Copy RECFM=VBS/LRECL=X to zFS?
Is there an IBM Utility that will do this? Preferrable with FILEDATA=TEXT processing mode on the output file (adding newlines at record boundaries). Trying IEBGENER and ICEGENER both result in 013-A8 -- Kirk Wolf Dovetailed Technologies http://dovetail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: SCRT and SMF ID
>> Is it still valid requirement or it was relieved? Unique sysids are no longer required. SCRT has supported duplicate z/OS sysids on different LPARs since version 24.10 (circa 2016). Regards, Ed -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
On 8/31/2021 11:35 AM, Jim Mulder wrote: Yes, I know the lines from that show from having played in the orchestra for it here: https://countyplayers.org/icpdb/shows/0502.html I expect you chatted about diagnostic techniques with Dave during breaks in rehearsal... O-O \_/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
FWIW, REFRPROT accomplishes two things: use of key 0 storage for reentrant modules whether from an authorized concatenation or not (aside from the cases for which key 0 storage is not used when it is RENT even from an authorized concatenation, such as within TSO TEST when the requestor is not authorized) page-protection of the whole pages within those modules The former is probably more of frequent interest RAS-wise than the latter, but when the latter comes into play (key 0 module being overlaid) the ramifications can be far more serious. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
Hence, the OS allocates whole - not partial - 4K pages to a load module (LMOD) ... In other words, pages are either fully allocated/occupied to or by a REFR LMOD's code or they are not occupied by a REFR LMOD's code at all. This logic is flawed and the conclusions are untrue. This relates to the fact that REFRPROT only deals with the full 4K pages within a module. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: RENT binder option
Compatibility is a concern. That is why the default will not change. It is not only a question of "a few bytes". There are programs that break if everything gets rounded to page multiples. Maybe those programs are wrong and should be fixed. But that is not our call. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: authority needed to update system symbols
IEASYMU2 requires updates access to FACILITY class entity IEASYMUP.symname. You should not use IEASYMU2 unless this is a temporary update that you do not want to persist for the next IPL. I'd say that there is no such thing as "my system symbols". Anything beyond the system symbols provided by z/OS are the customer's system symbols. Peter Relson z/OS Core Technology Design -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
PCOMM .WS file reference
I'm looking for reference manual describing .WS file parameters. Most of them is obvious, but some are not and I it seems undocumented. I browsed all available books searching some keyword - no entry. Examples: SessFlags SoundsOn (that is self-explanatory) RuleLinePos Any clue? -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN