Looking for a rexx that...
All, I am looking for a rexx example that takes the output from a "DS QD,TYPE=ALL,ONLINE" (or similar) and then generate a vtoc report for each volume that is online. I will then take the output and ftp it to an offsite location for DR recovery. This seems something that others may have already written, so before I started from scratch, I figured I would ask here. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a rexx that...
Hi Tony, Please look at the VTOC Command Processor on CBT File 112. It has customizable reports, including volume masks and checking for uncataloged datasets. Regards, David On 2019-07-30 07:40, Tony Thigpen wrote: > All, > > I am looking for a rexx example that takes the output from a > "DS QD,TYPE=ALL,ONLINE" (or similar) > and then generate a vtoc report for each volume that is online. > > I will then take the output and ftp it to an offsite location for DR > recovery. > > This seems something that others may have already written, so before I > started from scratch, I figured I would ask here. > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
ICETOOL problem with variable records
To all DFSORT gurus,
I am having problems with variable record lengths where minimum record length
is 211, 4 (RDW) plus 207 characters. The rest of the record is varying from 0
(zero) to max of LRECL=32756. I am just interested in the first 1000 characters
of the input records. (See below for the input record sample)
This is the JCL:
//MQ EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//RAWMQDD DISP=SHR,DSN=
//SORTSMF DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(500,500,0))
//VREPTDD SYSOUT=*,LRECL=1000
//TOOLIN DD *
SORTFROM(RAWMQ) TO(SORTSMF) USING(VLSH)
DISPLAY FROM(SORTSMF) LIST(VREPT) -
NOCC -
BETWEEN(1) -
TITLE('Extract of MQ CSQ1LOGP data') -
DATE(4MD/) -
TIME(24:)-
PAGE -
BLANK-
WIDTH(1000) -
HEADER('Date and Time') ON(5,21,CH) -
HEADER('Time Diff') ON(26,7,CH) -
HEADER('Time Log') ON(33,8,TC4,E'99:99:99.99') -
HEADER('User Id')ON(61,8,CH) -
HEADER('Time Unit') ON(69,8,TC4,E'99:99:99.99') -
HEADER('Resource') ON(77,8,CH) -
HEADER('Conn Type') ON(85,8,CH) -
HEADER('Conn Id')ON(93,8,CH) -
HEADER('Unit Work') ON(101,3,CH)-
HEADER('Q Mgr') ON(108,4,CH)-
HEADER('CSQ Queue name') ON(112,48,CH) -
HEADER('Activity') ON(180,8,CH)-
HEADER('Status') ON(188,1,CH)-
HEADER('Shunted')ON(189,1,CH)-
HEADER('CSVARDATA') ON(212,500,CH)
/*
//VLSHCNTL DD *
OPTION VLSCMP,COPY
/*
Whenever I include last field starting with 212 and omit that INREC or OUTREC
or similar statements with either VLSHRT or VLSCMP, then I get this example
message:
ICE218A 3 212 BYTE VARIABLE RECORD IS SHORTER THAN 711 BYTE MINIMUM FOR
(sic, yes, there is nothing after FOR)
If I totally omit the last field, then my job go RC=00.
I tried this statement, but the part from column 212 is unconditionally padded
fully with a blank for ALL records. Not good.
INREC IFTHEN=(WHEN=(1,2,BI,LT,999),OVERLAY=(212:X))
Question: what can I do to pad to the righ witht a blank, the part from column
212 for up to 500 characters without loss of data?
I have tried out without success with varying combination of VLSHRT, OUTFILE,
OUTREC, etc.
I have RTFM on 'Short control fields' in z/OS DFSORT Getting Started and z/OS
DFSORT: Application Programming Guide'. IBM-MAIN and Google provided some
hints, but I could not get the results I want.
Thanks in advance.
Groete / Greetings
Elardus Engelbrecht
First record is longer than 207 (211 with 4 char RDW), but second is exactly
207 (211 with 4 char RDW). You can see there is absolutely no characters or
padding to the right. This is given by MQ reporting utility.
Below snippet is starting at column 180:
Command ===>
8+9+0+1
F+F+F+F
8+9+0+1
--
T CN.2...AMD ...
E444CD2F000CDC44000
300035B200100011440
--
E1 CN.2.0.
CF44CD2F0F0
510035B23010001
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a rexx that...
Do you have any third part DASD reporting software, i.e. FDREPORT? -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, July 30, 2019 7:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a rexx that... [External Email] All, I am looking for a rexx example that takes the output from a "DS QD,TYPE=ALL,ONLINE" (or similar) and then generate a vtoc report for each volume that is online. I will then take the output and ftp it to an offsite location for DR recovery. This seems something that others may have already written, so before I started from scratch, I figured I would ask here. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Looking for a rexx that...
No. Tony Thigpen PINION, RICHARD W. wrote on 7/30/19 8:39 AM: Do you have any third part DASD reporting software, i.e. FDREPORT? -Original Message- From: IBM Mainframe Discussion List On Behalf Of Tony Thigpen Sent: Tuesday, July 30, 2019 7:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Looking for a rexx that... [External Email] All, I am looking for a rexx example that takes the output from a "DS QD,TYPE=ALL,ONLINE" (or similar) and then generate a vtoc report for each volume that is online. I will then take the output and ftp it to an offsite location for DR recovery. This seems something that others may have already written, so before I started from scratch, I figured I would ask here. -- Tony Thigpen -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN FIRST TENNESSEE Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. -- 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: Looking for a rexx that...
David, Thanks. I now have CBT 112 installed and linked. I can't find an example of the correct batch JCL to execute the command within the file. Do you have some JCL you can share? Tony Thigpen David Spiegel wrote on 7/30/19 8:01 AM: Hi Tony, Please look at the VTOC Command Processor on CBT File 112. It has customizable reports, including volume masks and checking for uncataloged datasets. Regards, David On 2019-07-30 07:40, Tony Thigpen wrote: All, I am looking for a rexx example that takes the output from a "DS QD,TYPE=ALL,ONLINE" (or similar) and then generate a vtoc report for each volume that is online. I will then take the output and ftp it to an offsite location for DR recovery. This seems something that others may have already written, so before I started from scratch, I figured I would ask here. -- 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: Looking for a rexx that...
David, Go it running. Now I need to play with the control card options. Thanks. Tony Thigpen Tony Thigpen wrote on 7/30/19 9:47 AM: David, Thanks. I now have CBT 112 installed and linked. I can't find an example of the correct batch JCL to execute the command within the file. Do you have some JCL you can share? Tony Thigpen David Spiegel wrote on 7/30/19 8:01 AM: Hi Tony, Please look at the VTOC Command Processor on CBT File 112. It has customizable reports, including volume masks and checking for uncataloged datasets. Regards, David On 2019-07-30 07:40, Tony Thigpen wrote: All, I am looking for a rexx example that takes the output from a "DS QD,TYPE=ALL,ONLINE" (or similar) and then generate a vtoc report for each volume that is online. I will then take the output and ftp it to an offsite location for DR recovery. This seems something that others may have already written, so before I started from scratch, I figured I would ask here. -- 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: [EXTERNAL] Seeking help with DFSMSrmm
Hi Sean, Have you created VRS definitions? These are used to control retention, based on a variety of factors, such as whether the dataset is catalogued. EDGRMMxx is more to do with system options and VLPOOL defs where I guess you'd set EXPDTCHECK(N) to rely on RMM volume status to govern scratch eligibility etc. thanks, Simon. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Sean Gleann Sent: 29 July 2019 08:46 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [EXTERNAL] Seeking help with DFSMSrmm WARNING: this email has originated from outside of the SSE Group. Please treat any links or attachments with caution. ** I'm having considerable difficulty getting rmm to work on my system & I wonder if anyone might be able to help. The main problem is that I can't a seem to get it to retain tapes that have unexpired files on them. I've tried numerous combinations of settings in the EDGRMMxx parmlib member, all to no avail. I can get it to release tapes, yes, but it either leaves the associated file names in the system catalog, or it unilaterally deletes them, unexpired or not... which wouldn't make users very happy, should I ever let this beast out of the sandbox. If anyone has successfully implemented rmm on their system(s), perhaps you can shed some light on this (almost certainly self-inflicted) problem. Regards Sean -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ** SSE and associated brands: Southern Electric, Scottish Hydro, SWALEC and Atlantic are all trading names of SSE Electricity Limited registered in England and Wales number 04094263 (supply of electricity and Feed-In Tariffs); Southern Electric Gas Limited registered in England and Wales number 02716495 (supply of gas); SSE Retail Telecoms Limited registered in England and Wales number 10086511 (supply of home phone and broadband); SSE Home Services Limited registered in Scotland number SC292102 (boiler and heating repair, servicing, cover, boiler Installations and electrical wiring cover); SSE Energy Solutions Limited registered in Scotland number SC386054 (energy efficiency installations and insulation products). All members of the SSE Group. The registered office of SSE Electricity Limited, Southern Electric Gas Limited and SSE Retail Telecoms Limited is No. 1 Forbury Place, 43 Forbury Road, Reading, RG1 3JH. The registered office of SSE Home Services Limited and SSE Energy Solutions Limited is Inveralmond House, 200 Dunkeld Road, Perth, PH1 3AQ. SSE Electricity Limited is an appointed representative of SSE Home Services Limited. SSE Home Services Limited is authorised and regulated by the Financial Conduct Authority (FCA) under reference number 695476. You can check this on the Financial Services Register by visiting the FCA website. ** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Syncsort support for JOIN DD's JNF1JMSG and JNF2JMSG
Does anyone know at what level of Syncsort there is support for the JNF1JMSG and JNF2JMSG DD's when performing a JOIN? We are currently at Syncsort version 2.1.6.0N. z/OS level is V2.2. Peter This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XTIOT impact?
The trouble with us darn mainframers -- we don't do change very well. __asm came along to C++ somewhere around V2R2 or V2R3. Thanks. I will have to give DEVTYPE a shot and figure out how to translate it into __asm. I've never done __asm (for the aforementioned reasons). Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of David Crayford Sent: Monday, July 29, 2019 8:04 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XTIOT impact? __asm() is perfectly valid for C++. I used it all the time. > On 30 Jul 2019, at 6:00 am, Charles Mills wrote: > > Thanks. __asm is C but not C++, unfortunately. > > Charles > > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Farley, Peter x23353 > Sent: Monday, July 29, 2019 5:37 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: XTIOT impact? > > If all you need to know is whether a DD name is allocated or not, I think the DEVTYPE macro is the simplest method. Any non-zero return code indicates non-existence once you have the macro invocation working (there is a "syntax" RC that you will never get after you have it coded to work). > > And DEVTYPE is very simple to code as an "__asm" statement in XL C/C++. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XTIOT impact?
char dvt_ddname[9];
int dvt_retcode;
long long int devtype_info;
strcpy(dvt_ddname, "MYDDNAME");
__asm(" DEVTYPE %2,%0\n ST 15,%1"
: "=m"(devtype_info), "=m"(dvt_retcode)
: "m"(dvt_ddname)
: "r0","r1","r15" );
if (dvt_retcode) {
/* DD Name is NOT present */
} else {
/* DD Name IS present */
}
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Tuesday, July 30, 2019 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
The trouble with us darn mainframers -- we don't do change very well. __asm
came along to C++ somewhere around V2R2 or V2R3.
Thanks. I will have to give DEVTYPE a shot and figure out how to translate it
into __asm. I've never done __asm (for the aforementioned reasons).
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of David Crayford
Sent: Monday, July 29, 2019 8:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
__asm() is perfectly valid for C++. I used it all the time.
> On 30 Jul 2019, at 6:00 am, Charles Mills wrote:
>
> Thanks. __asm is C but not C++, unfortunately.
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On
Behalf Of Farley, Peter x23353
> Sent: Monday, July 29, 2019 5:37 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XTIOT impact?
>
> If all you need to know is whether a DD name is allocated or not, I
> think
the DEVTYPE macro is the simplest method. Any non-zero return code indicates
non-existence once you have the macro invocation working (there is a "syntax"
RC that you will never get after you have it coded to work).
>
> And DEVTYPE is very simple to code as an "__asm" statement in XL C/C++.
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XTIOT impact?
Thx
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Farley, Peter x23353
Sent: Tuesday, July 30, 2019 11:00 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
char dvt_ddname[9];
int dvt_retcode;
long long int devtype_info;
strcpy(dvt_ddname, "MYDDNAME");
__asm(" DEVTYPE %2,%0\n ST 15,%1"
: "=m"(devtype_info), "=m"(dvt_retcode)
: "m"(dvt_ddname)
: "r0","r1","r15" );
if (dvt_retcode) {
/* DD Name is NOT present */
} else {
/* DD Name IS present */
}
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Tuesday, July 30, 2019 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
The trouble with us darn mainframers -- we don't do change very well. __asm
came along to C++ somewhere around V2R2 or V2R3.
Thanks. I will have to give DEVTYPE a shot and figure out how to translate
it into __asm. I've never done __asm (for the aforementioned reasons).
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XTIOT impact?
One caution: Make sure the DD name variable is blank-padded to 8 characters or
DEVTYPE will not work correctly (the trailing "\0" from strcpy will give you
grief).
Peter
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Tuesday, July 30, 2019 11:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
Thx
Charles
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Farley, Peter x23353
Sent: Tuesday, July 30, 2019 11:00 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
char dvt_ddname[9];
int dvt_retcode;
long long int devtype_info;
strcpy(dvt_ddname, "MYDDNAME");
__asm(" DEVTYPE %2,%0\n ST 15,%1"
: "=m"(devtype_info), "=m"(dvt_retcode)
: "m"(dvt_ddname)
: "r0","r1","r15" );
if (dvt_retcode) {
/* DD Name is NOT present */
} else {
/* DD Name IS present */
}
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Charles Mills
Sent: Tuesday, July 30, 2019 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: XTIOT impact?
The trouble with us darn mainframers -- we don't do change very well. __asm
came along to C++ somewhere around V2R2 or V2R3.
Thanks. I will have to give DEVTYPE a shot and figure out how to translate it
into __asm. I've never done __asm (for the aforementioned reasons).
--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL problem with variable records
> I am having problems with variable record lengths where minimum > record length is 211, 4 (RDW) plus 207 characters. The rest of the > record is varying from 0 (zero) to max of LRECL=32756. I am just > interested in the first 1000 characters of the input records. (See > below for the input record sample) Elardus, There are couple of ways to handle. You can pad the 712 byte with a SPACE. That would allow CSVARDATA contents as is if a record happens to have all the 550 bytes //VLSHCNTL DD * OPTION COPY INREC OVERLAY=(712:X) /* You can INCLUDE records with a minimum length of 711. Since the input is a VB file you can validate the RDW and INCLUDE those Records //VLSHCNTL DD * OPTION COPY,VLSCMP INCLUDE COND=(1,2,BI,GE,711) /* Further if you have any questions please let me know Thanks, Kolusu DFSORT Development IBM Corporation -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: [EXTERNAL] Seeking help with DFSMSrmm
A good source of information on the different retention method options in RMM is the DFSMSrmm Primer: http://www.redbooks.ibm.com/abstracts/sg245983.html?Open ... this IBM Redbook provides a highlight of the different functions within RMM including the different retention methods that can be used ... retention through VRS policies RETENTIONMETHOD(VRSEL) and retention through expiration RETENTIONMETHOD(EXPDT). After that you can look at Chapter 3 Retention Methods in the following RMM manual ... https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3sc236873/$file/idarm00_v2r3.pdf for an overview of each. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Silly DFSMShsm questions
If it happens again, open a pmr. ISPF uses device type to determine if MIGRAT'x' corresponds to ML'1', ML'2' or ML'C'. Since you are seeing a 'C', but have never targeted 'C'loud object storage, there could be a defect in which the device type is not being set appropriately. Thx. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: XTIOT impact?
If you don't care about dynamic allocation then a traditional TIOT search will work, as will RDJFCB and SWAREQ. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Bernd Oppolzer Sent: Monday, July 29, 2019 6:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XTIOT impact? It's even simpler: I want to know, if the DDNAME is present in the Job Step JCL, don't care for dynamic allocations etc. Don't even care for the dataset etc., which may be allocated with the DDNAME, because it will be DUMMY anyway in most cases. My question is: is the traditional TIOT scan valid in this case? No need to use some ASM macros or system services with more features? My guess is: yes, still valid. Maybe second question, different use case: if there is a Job Step allocation with a simple DSNAME, no concatenation: will the traditional way to get the DSNAME using RDJFCB and SWAREQ still work? (I hope, I got the macro names right, out of the head). IIRC, SWAREQ translates a 3-byte-handle to a valid 31-bit-address ... Kind regards Bernd Am 29.07.2019 um 23:36 schrieb Farley, Peter x23353: > If all you need to know is whether a DD name is allocated or not, I think the > DEVTYPE macro is the simplest method. Any non-zero return code indicates > non-existence once you have the macro invocation working (there is a "syntax" > RC that you will never get after you have it coded to work). > > And DEVTYPE is very simple to code as an "__asm" statement in XL C/C++. > > Peter > > -Original Message- > From: IBM Mainframe Discussion List On Behalf Of > Bernd Oppolzer > Sent: Monday, July 29, 2019 4:50 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: XTIOT impact? > > Most "practical" uses of TIOT searches are for user programs which try to > check if there is a certain DD statement in the job step JCL, used to control > a certain program action. > > For me, this is a sort of "third way" of parameter passing to programs, > besides normal JCL parameters and environment. > > Sort of nice, because it can be used in every language and the changes to > existing code are minimal (can be applied even very late - 20 years after > first delivery - and in emergency situations). > > Example: > > //USERRSAF DD DUMMY > > checking for existence of USERRSAF in TIOT, and do some program action > depending on this > > As far as I unterstand these postings, this use of TIOT scans (in whatever > language) is still valid. > > Any comments? > > Kind regards > > Bernd > > Am 29.07.2019 um 22:40 schrieb Seymour J Metz: >> Yes, if you use one of those options then the ddname will not be in the >> TIOT. If you open a DCB/ACB for a ddname allocated with one of those >> options, DCBTIO will be zero. >> >> > -- > > This message and any attachments are intended only for the use of the > addressee and may contain information that is privileged and confidential. If > the reader of the message is not the intended recipient or an authorized > representative of the intended recipient, you are hereby notified that any > dissemination of this communication is strictly prohibited. If you have > received this communication in error, please notify us immediately by e-mail > and delete the message and any attachments from your system. > > > -- > 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: Syncsort support for JOIN DD's JNF1JMSG and JNF2JMSG
I could be wrong, but my memory from about a years ago is not at the then most current level, and no intent to add the feature. > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Farley, Peter x23353 > Sent: Tuesday, July 30, 2019 7:26 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Syncsort support for JOIN DD's JNF1JMSG and JNF2JMSG > > Does anyone know at what level of Syncsort there is support for the > JNF1JMSG and JNF2JMSG DD's when performing a JOIN? > > We are currently at Syncsort version 2.1.6.0N. z/OS level is V2.2. > > Peter > > > This message and any attachments are intended only for the use of the > addressee and may contain information that is privileged and confidential. If > the reader of the message is not the intended recipient or an authorized > representative of the intended recipient, you are hereby notified that any > dissemination of this communication is strictly prohibited. If you have > received this communication in error, please notify us immediately by e-mail > and delete the message and any attachments from your system. > > -- > 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: XTIOT impact?
Thanks, this helps me a lot (no action required) :-) Am 30.07.2019 um 21:43 schrieb Seymour J Metz: If you don't care about dynamic allocation then a traditional TIOT search will work, as will RDJFCB and SWAREQ. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Bernd Oppolzer Sent: Monday, July 29, 2019 6:51 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: XTIOT impact? It's even simpler: I want to know, if the DDNAME is present in the Job Step JCL, don't care for dynamic allocations etc. Don't even care for the dataset etc., which may be allocated with the DDNAME, because it will be DUMMY anyway in most cases. My question is: is the traditional TIOT scan valid in this case? No need to use some ASM macros or system services with more features? My guess is: yes, still valid. Maybe second question, different use case: if there is a Job Step allocation with a simple DSNAME, no concatenation: will the traditional way to get the DSNAME using RDJFCB and SWAREQ still work? (I hope, I got the macro names right, out of the head). IIRC, SWAREQ translates a 3-byte-handle to a valid 31-bit-address ... Kind regards Bernd -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Capital One Data Breach-100 Million Customers affected
https://www.usatoday.com/story/money/2019/07/29/capital-one-data-breach-2019-millions-affected-new-breach/1863259001/ A CLOUDy day in data processing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
