Re: How can I generate a UUID in a z/OS COBOL Program

2019-11-13 Thread Timothy Sipples
Frank Swarbrick wrote: >The SWIFT payments network has a field called the UETR >(Unique End-to-end Transaction Reference), which is a >Version 4 UUID. Will the new Enterprise COBOL feature >be able to generate a Version 4 UUID? You can already generate version 4 UUIDs via INVOKE to a small --

Re: DFDSS backup retore

2019-11-13 Thread Mark Jacobs
Execute a DFDSS restore with a PARM='TYPRUN=NORUN' on the exec card. Mark Jacobs Sent from ProtonMail, Swiss-based encrypted email. GPG Public Key - https://api.protonmail.ch/pks/lookup?op=get=markjac...@protonmail.com ‐‐‐ Original Message ‐‐‐ On Wednesday, November 13, 2019 8:42 PM,

Re: DFDSS backup retore

2019-11-13 Thread Edward Finnell
Is there a DSS function to list the contents of the backup? We were FDR and it was straight forward. In a message dated 11/13/2019 6:59:32 PM Central Standard Time, retired-mainfra...@q.com writes: The error has nothing to do with labels.  DFDSS processed 32 blocks of data and reported a

Re: Dynamically detect if CBLQDA is active from a COBOL program?

2019-11-13 Thread Clark Morris
[Default] On 13 Nov 2019 16:05:58 -0800, in bit.listserv.ibm-main frank.swarbr...@outlook.com (Frank Swarbrick) wrote: >Do you have any reason to believe that CBLQDA(ON) is ever used in your shop? >If CBLQCA is not already set to ON as default in your shop it seems unlikely >to me that anyone

Re: DFDSS backup retore

2019-11-13 Thread retired mainframer
The error has nothing to do with labels. DFDSS processed 32 blocks of data and reported a problem when reading the 33rd. > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Jesse 1 Robinson > Sent: Wednesday, November 13, 2019 4:18 PM > To:

Re: How can I generate a UUID in a z/OS COBOL Program

2019-11-13 Thread Frank Swarbrick
It looks like the Enterprise PL/I UID BIF only generates a Version 5 UUID. The SWIFT payments network has a field called the UETR (Unique End-to-end Transaction Reference), which is a Version 4 UUID. Will the new Enterprise COBOL feature be able to generate a Version 4 UUID? Here's the

Re: DFDSS backup retore

2019-11-13 Thread PINION, RICHARD W.
Reminds me of the original STK RVA, before IBM got involved with the microcode. The box would crash, and all of the data disappeared. And there was no way to recover it. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Jesse 1 Robinson Sent: Wednesday, November 13,

Re: Peter Relson Article

2019-11-13 Thread scott Ford
Mike, Absolutely, a lot of real creative people not just nerds. Scott On Wed, Nov 13, 2019 at 3:55 PM Mike Schwab wrote: > https://www.huffpost.com/entry/composing-code-why-musici_b_10714288 > > And many other articles. > > On Wed, Nov 13, 2019 at 11:23 AM Seymour J Metz wrote: > > > > I

Re: DFDSS backup retore

2019-11-13 Thread Jesse 1 Robinson
Unlikely to be your problem, but we actually had the following scenario recently. We use 'STK' virtual tape VSMx. After a system crash of some sort, we got the ubiquitous warning to 'run a tape audit'. We've seen this message for years. Somehow it was overlooked in this case, and no 'audit' was

Re: Dynamically detect if CBLQDA is active from a COBOL program?

2019-11-13 Thread Frank Swarbrick
Do you have any reason to believe that CBLQDA(ON) is ever used in your shop? If CBLQCA is not already set to ON as default in your shop it seems unlikely to me that anyone is setting it explicitly somewhere. But I only have my own shop to go by, so who knows...

Re: Dynamically detect if CBLQDA is active from a COBOL program?

2019-11-13 Thread Farley, Peter x23353
Hi Tom, thanks for the reply. The specific problem I am trying to address is whether or not in the startup code for an application-wide utility subroutine I can safely test for the presence of a COBOL OPTIONAL output file used only for certain event-specific processing. If CBLQDA is ON then I

Re: DFDSS backup retore

2019-11-13 Thread Edward Finnell
Only way to find out is run TAPEMAP on INDD1 VOLSER. In a message dated 11/13/2019 5:11:20 PM Central Standard Time, dean@doit.nh.gov writes: ADR012I (SCH)-DSSU (01), 2019.317 14:11:07 DFSMSDSS PROCESSING COMPLETE. HIGHEST RETURN CODE IS 0008 FROM:                         TASK    001

Dynamically detect if CBLQDA is active from a COBOL program?

2019-11-13 Thread Tom Ross
>Is it possible for a COBOL program to dynamically detect if LE option CBLQDA > is active? Not easily...but I would be surprised if it is different for different programs in the same region. You can run a program with RPTOPTS(ON) to get an "options in effect" report from LE. You could search

Re: DFDSS backup retore

2019-11-13 Thread retired mainframer
Since the JCL specified the volser, why do you think the catalog was used at all? > -Original Message- > From: IBM Mainframe Discussion List On > Behalf Of Carmen Vitullo > Sent: Wednesday, November 13, 2019 12:57 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: DFDSS backup retore > >

Re: DFDSS backup retore

2019-11-13 Thread Nai, Dean
Sorry about that. I was just making up a tape number. The actual number was the one the list cat stated. Dean Nai On 11/13/19, 4:24 PMEST, "IBM Mainframe Discussion List on behalf of Bill Bishop (TMNA)" wrote: > EXTERNAL: Do not open attachments or click on links unless you

Re: DFDSS backup retore

2019-11-13 Thread Bill Bishop (TMNA)
Sorry, late to the game. Thought it was the serial number mis-matched. Thanks Bill Bishop Consultant, Mainframe Engineer Mainframe and Scheduling | Infrastructure Technology Services Toyota Motor North America bill.bis...@toyota.com Office: (469) 292-5149 Cell: (502) 316-4386

Re: DFDSS backup retore

2019-11-13 Thread Bill Bishop (TMNA)
Your JCL said vol=ser=TAP001, but your catalog entry says the serial number is T000523. Are you trying to restore this tape on to a system other than where it was created and is this tape not cataloged there or in that systems tape management environment? Thanks Bill Bishop Consultant,

Re: DFDSS backup retore

2019-11-13 Thread Leonardo Vaz
Single volume beats any chance of multivolume being the problem, I'd open a PMR at this point. Regards, Leo -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nai, Dean Sent: Wednesday, November 13, 2019 4:18 PM To:

Re: DFDSS backup retore

2019-11-13 Thread Nai, Dean
NONVSAM --- BACKUP.DLY.SMFLGB.G0449V00 IN-CAT --- CATALOG.PRODCAT.VOEMP01 HISTORY DATASET-OWNER-(NULL) CREATION2019.311 RELEASE2 EXPIRATION--.000 ENCRYPTIONDATA DATA SET ENCRYPTION-(NO) VOLUMES

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Mike Schwab
http://www.longpelaexpertise.com.au/ezine/SoftwareUsageWithoutTADz.php For many years IBMs Peter Relson has offered a free ‘as is, no warranty’ tool to monitor program fetch activity: the Module Fetch Monitor. Contact Peter directly at rel...@us.ibm.com. On Wed, Nov 13, 2019 at 10:07 AM Steff

Re: DFDSS backup retore

2019-11-13 Thread Leonardo Vaz
Is the dataset on a single tape volume or multiple? Can you provide the LISTCAT ENT(/) ALL of the file? Leo -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Nai, Dean Sent: Wednesday, November 13, 2019 4:00 PM To:

Re: DFDSS backup retore

2019-11-13 Thread Nai, Dean
Looked at Ca1 catalog and os catalog. Label is correct. We are running 2.3 Dean Nai Senior z/OS Systems Programmer Technical Services Group Department of Information Technology State of New Hampshire 27 Hazen Drive Concord, NH 03301 work: 603-271-1529 Statement of Confidentiality:

Re: DFDSS backup retore

2019-11-13 Thread Carmen Vitullo
I want to assume the tapes used to restore the volume are cataloged and you are using the catalog? During a RESTORE, the sequence number of the record read, 2 (in hexadecimal) did not match the previous record processed, 1 (in hexadecimal). If there is an end of volume involved, a

Re: Peter Relson Article

2019-11-13 Thread Mike Schwab
https://www.huffpost.com/entry/composing-code-why-musici_b_10714288 And many other articles. On Wed, Nov 13, 2019 at 11:23 AM Seymour J Metz wrote: > > I wouldn't go that far, but I have certainly seen a correlation. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > >

Re: DFDSS backup retore

2019-11-13 Thread Nai, Dean
ADR101I (R/I)-RI01 (01), TASKID 001 HAS BEEN ASSIGNED TO COMMAND 'RESTORE ' ADR109I (R/I)-RI01 (01), 2019.317 14:10:45 INITIAL SCAN OF USER CONTROL STATEMENTS COMPLETED ADR016I (001)-PRIME(01), RACF LOGGING OPTION IN EFFECT FOR THIS TASK ADR006I (001)-STEND(01), 2019.317 14:10:45 EXECUTION BEGINS

Re: DFDSS backup retore

2019-11-13 Thread retired mainframer
Please provide the complete error message. The error message does not address tape labels. (A wrong label would produce a system error before DFDSS got to the tape.) It says the sequence number of data records is wrong. This may indicate a corrupt file. What system level are you at. There

DFDSS backup retore

2019-11-13 Thread Nai, Dean
Has anyone ever run into a problem where they have full volume backups that produce a ADR370E message when trying to restore? That message says the label and DSN on the tape don't match although I know they do. Any thoughts? Control cards: Restore - Admin - Inddname(indd1) outddname(outdd1) -

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Scott Barry
Consider solution P-Tracker (ESAi Group, developer: UBS-Hainer) for IBM z/OS software/application program invocation tracking for audit, compliance, asset-management. Link: http://www.esaigroup.com/products/ptracker.htm Scott Barry SBBWorks, Inc. On Wed, 13 Nov 2019 18:06:12 +0200, Steff

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Gord Tomlin
On 2019-11-13 11:06, Steff Gladstone wrote: We would like to clean up our load libraries by deleting unused programs. Is there any way to use SMF data to track real-time usage of programs which are not main programs but are called by other programs? We were under the impression that only

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Salva Carrasco
My two cents: - Update every program to make a trace call. I'll prefer General tracking facility than Generic Trace. - http://www.longpelaexpertise.com.au/ezine/SoftwareUsageWithoutTADz.php -- For IBM-MAIN subscribe / signoff

Re: Peter Relson Article

2019-11-13 Thread R.S.
W dniu 2019-11-12 o 20:07, Dale R. Smith pisze: Not sure how many people on the list read the Mainframe Edition of the IBM Systems Magazine, but I saw this article recently in the September/October 2019 edition online: https://ibmsystemsmag.com/IBM-Z/09/2019/peter-relson I assume his

Re: I saw 7 new college mainframe hires!

2019-11-13 Thread R.S.
W dniu 2019-11-10 o 17:01, Tom Brennan pisze: Last week I was invited to an IBM z15 meeting for a particular customer.  There were 7 younger folks in the row behind me who stood out among all the (let's say) "older" people there.  I was amazed when I found out they were recently hired out of

Re: Peter Relson Article

2019-11-13 Thread Seymour J Metz
I wouldn't go that far, but I have certainly seen a correlation. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Mike Schwab Sent: Tuesday, November 12, 2019 7:21 PM To:

Re: AUTHPGM in IKJTSOxx

2019-11-13 Thread Seymour J Metz
Not only AC(1) from an authorized library, but from an authorized concatenation. But see LNKAUTH=LNKLST. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Jeffrey Holst

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Seymour J Metz
GTF -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Steff Gladstone Sent: Wednesday, November 13, 2019 11:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Tracking called (non-main) programs using

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Leonardo Vaz
If you are using ACF2 you can set LOG to the program on the PROGRAM class, I think RACF doesn’t log FASTAUTH requests but ACF2 does. T R(PGM) RECKEY myprog ADD(UID(*) LOG) We actually use a homegrown ICHRTX00 exit to log program usage which works very well and it's "free" but like Charles

Re: Tracking called (non-main) programs using SMF records

2019-11-13 Thread Charles Mills
Similar topics have been kicked around here several times. You are basically correct -- SMF will not do the job you want it to do. SMF 30 reports the "high CPU usage" program of the jobstep. That might be a different program than the jobstep program. It's an additional clue, but it is not the

Tracking called (non-main) programs using SMF records

2019-11-13 Thread Steff Gladstone
We would like to clean up our load libraries by deleting unused programs. Is there any way to use SMF data to track real-time usage of programs which are not main programs but are called by other programs? We were under the impression that only executions of main programs (PGM=) were recorded

Re: AUTHPGM in IKJTSOxx

2019-11-13 Thread Rob Scott
For a TSO program to get control via CALL in an authorized state, it must be in IKJTSOxx AUTHPGM, it must be linked AC(1) and come from an APF authorized library. You can also use AUTHTSF to invoke a program via IKJEFTSR if you require more flexibility with the parameter lists (but the AC(1)

AUTHPGM in IKJTSOxx

2019-11-13 Thread Jeffrey Holst
Does AUTHPGM require that the specified program have a non-zero AC or that it be in an APF authorized library? I ask because it appears that a very clever user may have written a program whose name matches a program in the AUTHPGM list. The program executes a macro instruction that requires

Re: Sort in a multitasking address space

2019-11-13 Thread Sri h Kolusu
> Won't DFSORT manage the SORTWORKs? Gil/John, Dave Betten already answered the question below. "You use SORTDD= in the parameter lists to pass a separate prefix for each sort. For example you might pass SORTDD=SRT1 for the first one, SORDD=SRT2 for the second, etc. That way each will allocate

Re: Sort in a multitasking address space

2019-11-13 Thread John McKown
On Tue, Nov 12, 2019 at 1:21 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Tue, 12 Nov 2019 12:43:26 -0600, John McKown wrote: > >On Tue, Nov 12, 2019 at 12:18 PM Tom Marchant wrote: > > > >> We have a multitasking address space in which we would like to > >>

Re: Peter Relson Article

2019-11-13 Thread David Crayford
Cool shirt! On 2019-11-13 3:07 AM, Dale R. Smith wrote: Not sure how many people on the list read the Mainframe Edition of the IBM Systems Magazine, but I saw this article recently in the September/October 2019 edition online: https://ibmsystemsmag.com/IBM-Z/09/2019/peter-relson I assume