Re: SMP/E

[Steely.Mark]

Found the example that you provided. The execution that was performed was just 
the upgrade command by itself. 
Then the job was executed that performed the received and it failed. 

Then the job was executed as describe in the example as the first command then 
the receive command after the 
Upgrade command and that worked. I must have misunderstood how to use the 
UPGRADE command. 

Thanks for the assistance. 

Thank You  


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Feller
Sent: Friday, March 29, 2024 7:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

I'll ask if you did the UPGRADE in the same run as the RECEIVE process.  The 
example from the z/OS SMP/E Commands manual shows the UPGRADE command as part 
of the same run.

The following is from the SMP/E command manual.

SET BDY(ZOSTGT).
 UPGRADE.
 BYPASS(HOLDSYS)
 CHECK.

In this example, the UPGRADE command indicates incompatible changes may be made 
to SMP/E data sets.  If UPGRADE is not specified, then SMP/E stops any 
processing that would make incompatible changes to SMP/E data sets.  In this 
example, the APPLY command would very likely fail if the UPGRADE command were 
not first run.  However, once the UPGRADE command is run for a particular zone, 
then all SMP/E commands are authorized to make incompatible changes to all 
SMP/E data sets in that zone.


Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steely.Mark
Sent: Friday, March 29, 2024 5:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E

I did perform the upgrade command on the global and target zone and nothing 
happen. The SMP/e level stayed the same and the receive still failed with the 
same error.



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Marchant
Sent: Friday, March 29, 2024 5:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Just issue the UPGRADE command. IIRC FIXCAT support was added to SMP/E around 
2008.
Your global zone must have been created with a release of SMP/E before that.

--
Tom Marchant

On Fri, 29 Mar 2024 21:59:49 +, Steely.Mark  wrote:

>I recently received this message: GIM58903WSMP/E COULD NOT PROCESS A 
>++HOLD FIXCAT MCS BECAUSE IT WOULD HAVE MADE A CHANGE TO THE GLOBAL ZONE THAT
>   
>   CANNOT BE PROCESSED COMPLETELY BY PRIOR LEVELS OF SMP/E. USE THE 
> UPGRADE COMMAND TO ALLOW SMP/E TO MAKE
>   
>   SUCH CHANGES.
>
>The message says you can execute the upgrade command.  ( I am not sure 
>if I can do that without having some type of maintenance applied)
>
>It has been a while since I upgraded SMP/e independently of a Service Pack or 
>some other type of installation.
>
>I thought I would just install the new release of SMP/e - for some reason I 
>can't find it on ShopzSeries.
>
>I have tried to look all over the internet for the answer, but I always gets 
>hits on installing other products using SMP/e.
>
>We are currently at SMP/E 37.13
>Our SMP/E is 2.4 FMID - HMP1K00.
>
>What should I do ?

--
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: SMP/E

[Steely.Mark]

I did perform the upgrade command on the global and target zone and nothing 
happen. The SMP/e level stayed the same and the receive still failed with the 
same error. 



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Marchant
Sent: Friday, March 29, 2024 5:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Just issue the UPGRADE command. IIRC FIXCAT support was added to SMP/E around 
2008.
Your global zone must have been created with a release of SMP/E before that.

--
Tom Marchant

On Fri, 29 Mar 2024 21:59:49 +, Steely.Mark  wrote:

>I recently received this message: GIM58903WSMP/E COULD NOT PROCESS A 
>++HOLD FIXCAT MCS BECAUSE IT WOULD HAVE MADE A CHANGE TO THE GLOBAL ZONE THAT
>   
>   CANNOT BE PROCESSED COMPLETELY BY PRIOR LEVELS OF SMP/E. USE THE 
> UPGRADE COMMAND TO ALLOW SMP/E TO MAKE
>   
>   SUCH CHANGES.
>
>The message says you can execute the upgrade command.  ( I am not sure 
>if I can do that without having some type of maintenance applied)
>
>It has been a while since I upgraded SMP/e independently of a Service Pack or 
>some other type of installation.
>
>I thought I would just install the new release of SMP/e - for some reason I 
>can't find it on ShopzSeries.
>
>I have tried to look all over the internet for the answer, but I always gets 
>hits on installing other products using SMP/e.
>
>We are currently at SMP/E 37.13
>Our SMP/E is 2.4 FMID - HMP1K00.
>
>What should I do ?

--
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

SMP/E

[Steely.Mark]

I recently received this message: GIM58903WSMP/E COULD NOT PROCESS A ++HOLD 
FIXCAT MCS BECAUSE IT WOULD HAVE MADE A CHANGE TO THE GLOBAL ZONE THAT

 CANNOT BE PROCESSED COMPLETELY BY PRIOR LEVELS OF SMP/E. USE THE UPGRADE 
COMMAND TO ALLOW SMP/E TO MAKE

 SUCH CHANGES.   

The message says you can execute the upgrade command.  ( I am not sure if I can 
do that without having some type of maintenance applied)

It has been a while since I upgraded SMP/e independently of a Service Pack or 
some other type of installation. 

I thought I would just install the new release of SMP/e - for some reason I 
can't find it on ShopzSeries. 

I have tried to look all over the internet for the answer, but I always gets 
hits on installing other products using SMP/e.  

We are currently at SMP/E 37.13   
Our SMP/E is 2.4 FMID - HMP1K00. 

What should I do ? 

Thank You   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DFsort error message

[Steely.Mark]

The issue is with the E37 - I don't see the error code but if is an 8 this is 
the possible reason:

A multi-volume physical sequential data set was being written on a direct
access device. All space was filled on the volume, and an attempt was made
to obtain space on the next specified volume. Either the space was not
available on that volume, the data set already existed on that volume, or
there is no space available in the VTOC or the VTOC index. The message
contains the volume serial number of the last volume used.

Thank You 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas
Sent: Tuesday, March 26, 2024 12:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFsort error message



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Hi All -

We are getting a sort error on a huge file . Below are the details from log


Parm cards used
SORT FIELDS=COPY


Error Log details


ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED 
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 ITGB9059.STEP02  .SORT, INPUT LRECL = 317, BLKSIZE = 27896, TYPE =
ICE093I 0 MAIN STORAGE = (MAX,33554432,33554432) ICE156I 0 MAIN STORAGE ABOVE 
16MB = (33497072,33497072) ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 
,SPANINC=RC16,VLSCMP=N,SZERO=Y, ICE128I 0 OPTIONS: 
SIZE=33554432,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 
,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT= ICE131I 0 OPTIONS: 
TMAXLIM=33554432,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE,EXITC
ICE133I 0 OPTIONS: HIPRMAX=0  ,DSPSIZE=2000,ODMAXBF=2097152,SOLRF=N,VLLONG=N
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y,TUNE=STOR,EXPMAX=2000   ,EXPOLD=MAX,E
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=3, L=0, D=, CCW=1MAM
ICE902I 0 O   I PP11
ICE906I 1 ST=ABOVE,SR=33497072,RC=0
ICE907I 1 ST=ABOVE,SA=33497056,NF=1,LF=33497056,SF=33497056
ICE906I 1 ST=BELOW,SR=98320,RC=0
ICE907I 1 ST=BELOW,SA=49152,NF=1,LF=49152,SF=49152
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 2119680 
ICE855I 0 SORTOUT  : TX=N, R=J, L=J, B=D, BL=0, BR=0, DCT=37, VS=N, RU=X, SB=8 
ICE210I 0 SORTOUT  : EXCP USED, LRECL = 317, BLKSIZE = 27896, TYPE = FB
ICE751I 2 EF-I80638 CB-NONE   F0-NONE   DA-I76950
ICE185A 0 AN SE37  ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE


Job Step work file details . Allocated SORTWK50 files

XXSORTWK09 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK10 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK11 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK12 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK13 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK14 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK15 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK16 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK17 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK18 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))
XXSORTWK19 DD DISP=(NEW,DELETE,DELETE),SPACE=(CYL,())
IEFC653I SUBSTITUTION JCL - DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(200))


//SORTOUT  DD DSN=KGN01.PS.RPCFIL.AMT.ACTV.UNLD.FINAL1.HDR,
//SPACE=(CYL,(1200,500),RLSE),VOL=(,,,99),
//RECFM=FB,DSORG=PS,
//DISP=(NEW,CATLG,DELETE),LRECL=317,BLKSIZE=0
//SYSINDD DSN=MK.PS.PROD.PARMLIB(PSJH06P),DISP=SHR


Could someone please let us know what needs to be done here?


Regards
Ron T

--
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: Reading a scratch tape

[Steely.Mark]

I think that process is correct - but I think there is a parm in the 7700 
configuration that after a couple of days it will automatically remove the 
contents of the tape. 

So if that time has elapsed all you will get is a tape mark. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Brian Westerman
Sent: Thursday, February 08, 2024 3:06 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading a scratch tape



I think all you really need to do is change it from scratch to master in the 
ISMF tape option under ISPF/PDF.  That will tell the 7700 that it's not a 
scratch tape.

That will change it in the library.  You will then need to bypass your tape 
system (normally that's done with the special EXPDT option for tapes outside 
the library.

Remember to change it back when you are done.

Brian

--
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: Cancel BPXAS

[Steely.Mark]

Try this:   F BPXOINIT,SHUTDOWN=FORKINIT

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Darrold Usher
Sent: Tuesday, January 23, 2024 9:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Cancel BPXAS



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

I’ve never had to cancel a BPXAS. Rather, I have had to cancel a process using 
a BPXAS initiator many times. Can you start there?

Use ps -ef and kill in uss or d omvs,a=all and cancel in zos.

On Tue, Jan 23, 2024 at 9:18 AM Roberto Halais 
wrote:

> Listers:
> I need to cancel a BPXAS which is hung. It has status PROT.
> We have not been able to cancel it or kill it.
> Any ideas?
>
> Thank you,
> Roberto
>
> --
> 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: ADRDSSU COMPRESS and enq

[Steely.Mark]

Unless I am missing something why not use IEBCOPY with specifying DISP=SHR on 
the dataset name. 
I have done this with datasets that were allocated to the LNKLST. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Radoslaw Skorupka
Sent: Friday, January 19, 2024 8:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ADRDSSU COMPRESS and enq



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Gentlemen,
First, thank you for your answers. I appreciate it.

Regarding TOLENQF - it doesn't work with COMPRESS or CONSOLIDATE. The manual is 
clear here.

Regarding rename - this is the thing I wanted to avoid for several reasons:
1. There is some risk to rename wrong "copy" of the dataset, or alter ICF 
entries for wrong copy.
2. Valid copies are located on non-SMS disk, but cataloged out of regular 
catalog search (SYS1.name in some UCAT). Plus some aliases, etc.
I want to not destroy it.
3. I don't know how to rename such datasets! Yes, I could imagine access from 
another z/OS image, but it would be a series of manual ISPF r command. 
Non-repeatable, error prone. Is there any tool allowing to rename such datasets 
in batch? Wildcard support (i.e. REN SYS1.* SYS2.*) would be welcome.



--
Radoslaw Skorupka
Lodz, Poland





W dniu 19.01.2024 o 13:27, Radoslaw Skorupka pisze:
> I want to compress some system datasets like SYS1.LINKLIB, but *not* 
> real "live", rather offline copies.
> DSS ends with RC8, because of failed serialization.
> SETPROG LNKLST,UNALLOCATE will not solve all the enqueues, because 
> some datasets are serialized by other entities like TSO users.
>
> And I also want to CONSOLIDATE some datasets as well.
>
>
> Any clue?
>

--
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: EDIT MACRO REQUEST

[Steely.Mark]

I have the EDITREXX part. That works. Only need help with the EMPTREXX issue.

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mark Zelden
Sent: Tuesday, January 09, 2024 4:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EDIT MACRO REQUEST



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

On Tue, 9 Jan 2024 22:41:50 +, Steely.Mark  wrote:

>I would like to check each member of a PDS and if it is empty (0 Lines) - I 
>would like to add a line with the text of *NONE*.
>
>I would like to do this in batch using this format:
>
>//TSOBTCH1  EXEC PGM=IKJEFT01
>//SYSTSPRT  DD SYSOUT=*
>//SYSLIST   DD SYSOUT=*
>//ISPLOGDD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPPROF   DD DSN=,
>// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
>// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
>//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
>//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
>//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
>//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
>//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
>//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
>//SYSTSIN   DD *
>  PROFILE PREFIX(XX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
>  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
>Etc..
>
>EMPTREXX -  would be the ISREDIT Macro to perform the task.
>
>Any help would be appreciated.
>
>Thank You

Not sure what part you need help with.  Probably the EMPTREXX,  which I will 
leave to someone else to help you with as I don't have time, but if you need 
help with the "EDITREXX" part, see "EDMACALL" on my web site / CBT file 434.  
URL of my web site below.  The source code has a simple example of an edit 
macro.


Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 
Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: 
http://www.mzelden.com/mvsutil.html

--
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

EDIT MACRO REQUEST

[Steely.Mark]

I would like to check each member of a PDS and if it is empty (0 Lines) - I 
would like to add a line with the text of *NONE*.

I would like to do this in batch using this format:

//TSOBTCH1  EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSLIST   DD SYSOUT=*
//ISPLOGDD DSN=,
// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
//ISPPROF   DD DSN=,
// DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,10)),
// DCB=(RECFM=FB,BLKSIZE=3120,LRECL=80)
//ISPMLIB   DD DSN=ISP.SISPMENU,DISP=SHR
//ISPPLIB   DD DSN=ISP.SISPPENU,DISP=SHR
//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
//ISPTLIB   DD DSN=ISP.SISPTENU,DISP=SHR
//ISPTABL   DD DSN=XX.ISPF.ISPTLIB,DISP=SHR
//SYSPROC   DD DSN=XX.CLIST,DISP=SHR
//SYSTSIN   DD *
  PROFILE PREFIX(XX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PADM3) EMPTREXX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PPCT3) EMPTREXX)
  ISPSTART CMD(%EDITREXX XX.TSS.CTM.DATA(PCO13) EMPTREXX)
 Etc..

EMPTREXX -  would be the ISREDIT Macro to perform the task.

Any help would be appreciated.

Thank You



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Cobol Program & Kerberos

[Steely.Mark]

I set up a Kerberos Environment using TSS (Top Secret) . I would like to test 
it out and found this program.

IDENTIFICATION DIVISION.
PROGRAM-ID. KerberosAccess.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Service-Principal-Name PIC X(128).
01 User-Name PIC X(128).
01 Password PIC X(128).
01 Ticket BUFFER.
01 Ticket-Length PIC S9(9) COMP-5.

PROCEDURE DIVISION.
MOVE "service@realm" TO Service-Principal-Name.
MOVE "username" TO User-Name.
MOVE "password" TO Password.

CALL 'Kerberos_Init' USING ...   (Initialize Kerberos)

CALL 'Kerberos_GetTicket' USING ...
Service-Principal-Name
User-Name
Password
Ticket
Ticket-Length.

IF Ticket-Length > 0
DISPLAY "Ticket obtained successfully"
ELSE
DISPLAY "Failed to obtain ticket"
END-IF.

CALL 'Kerberos_Cleanup' USING ... (Cleanup resources)

STOP RUN.

Do you think it will work and does anyone have the USING code for the Kerberos 
INIT and CLEANUP calls?

The system is z/OS v2.4.

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSS & Kerberos

[Steely.Mark]

Has anyone done this ?  I have been task with setting up this environment and 
to provide some code to access this environment. 

I have been following the Kerberso Section in the TSS Administrating Guide. 

I am at the point of Map Foreign Environments/Realms. 

I don't understand exactly what is needed. Would anyone be able to provide an 
example ?

Then I need a way to test this setup. 

Any help would be appreciated. 

Thank You 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: z/OSMF

[Steely.Mark]

Thanks - -  The IZUPRMxx reference information - fixed one of the issue's 
This fixed the 2nd issue - that's was what I needed the 
UNIX directory name - missed it the first time around. Still trying to get 
familiar with it. 

Thanks for all the assistance. 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kurt Quackenbush
Sent: Friday, August 18, 2023 1:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OSMF



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

> ...  I am trying to download a software instance and z/OSMF has generated the 
> JCL.
> The JCL generated has some values that are not correct - some path's 
> that were generated either have my ID inserted with the ID being 
> uppercase - our path names are lowercase. Also one path it generated 
> had a different ID then mine. I must have missed a step somewhere - where do 
> I update the values that I would like the system to use ?

You didn't say specifically which values in the JCL are the issue, but from the 
Portable Software Instances page clicking the Add... -> From Download Server 
action opens a short wizard to generate the download JCL.  On step 1 of the 
wizard, at the bottom of the page, you enter the UNIX directory into which you 
want the files to be downloaded.  This value is used on the SMPNTS DD statement 
in the generated job.  z/OSMF derives an initial value for this field from the 
directory you used last time and the name for the Portable Software Instance 
you specify at the top of the page.  What is the value on that page?  Does it 
contain your desired directory, with the correct case?  Is it the SMPNTS DD 
statement you're having trouble with?

Kurt Quackenbush
IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com

Chuck Norris never uses CHECK when he applies PTFs.

--
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

z/OSMF

[Steely.Mark]

We are z/OS V2.4.  I am trying to download a software instance and z/OSMF has 
generated the JCL. The JCL generated has some values that are not correct - 
some path's that were generated either have my ID inserted with the ID being 
uppercase - our path names are lowercase. Also one path it generated had a 
different ID then mine. I must have missed a step somewhere - where do I update 
the values that I would like the system to use ?

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

PGP & PKWARE Smartcrypt for z/OS

[Steely.Mark]

If any one on the list uses PKWARE Smartcrypt for z/OS for PGP encryption would 
you please respond to me off the list.

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

VTOC & VTOCIX

[Steely.Mark]

Received this message: IGD17002I NO ROOM IN VTOC OR VTOC INDEX ON VOLUME XX 
 
  FOR DATA SET 
xx.x.xx

I understand the message. 
Is there a way to display the used percentage of the VTOC & VTOC INDEX ?
>From option 3.4 (Data Set List Utility) panel you can display the VTOC which 
>shows %Used. 
I would like a process  which would produce a report of all volumes with %Used 
for the VTOC & VTOC INDEX. 

One other question - just to verify what I have been reading. 

If the VTOC and/or VTOC INDEX needs to be increased the volume must be online 
to only one LPAR. 
We have 4 LPARS in the same SYSPLEX. The volume would have to be offline to 
three LPAR's and online to only one LPAR to perform the update.

Any other information would be appreciated. 

Thank You 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Q: Where is LISTDSI kept? A: Not where you think.

[Steely.Mark]

Here is a simple REXX for LISTDSI: 

/* A SIMPLE REXX TEST PROGRAM */
variable = 'data.set.name'  
x = LISTDSI(variable)   
say x   
say SYSDSNAME   
say SYSVOLUME   
say SYSUNIT 
say SYSDSORG
say SYSRECFM
say SYSLRECL
say SYSBLKSIZE  
say SYSKEYLEN   
say SYSALLOC
say SYSUSED 
say SYSUSEDPAGES
say SYSPRIMARY  
say SYSSECONDS  
say SYSUNITS
say SYSEXTENTS  
say SYSCREATE 
say SYSREFDATE
say SYSEXDATE 
say SYSPASSWORD   
say SYSRACFA  
say SYSUPDATED
say SYSTRKSCYL
say SYSBLKSTRK
say SYSADIRBLK
say SYSUDIRBLK
say SYSMEMBERS
say SYSREASON 
say SYSMSGLVL1
say SYSMSGLVL2
say SYSDSSMS  
say SYSDATACLASS  
say SYSSTORCLASS  
say SYSMGMTCLASS  

Update data.set.name with a valid DSN.  The member saved must be in the SYSEXEC 
or SYSPROC concatenation. Then execute from the command line "TSO xxxtest"   
xxxtest - is the member name that was saved. 

Thank You   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Hobart Spitz
Sent: Monday, February 20, 2023 4:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Q: Where is LISTDSI kept? A: Not where you think.



CAUTION! EXTERNAL SENDER! STOP, ASSESS, AND VERIFY Do you know this person? 
Were you expecting this email? If not, report it using the Report Phishing 
Button!

Steve;

You need to brush up on your REXX.

- TSO is the default ADDRESSing environment, in most cases.  Adding or removing 
ADDRESS TSO will not make any difference.

- The -3 you are getting means there is no such command found.  The manual 
clearly states that LISTDSI is a built-in function under z/OS and whether or 
not it will run outside A TSO environment.  You must invoke it correctly.  It 
is not a command.

- STEPLIB will not help, ever.  You are barking up the wrong tree, in the wrong 
forest, on the wrong continent.

- The syntax you are using is for a host command.  That is incorrect.  You want 
to invoke LISTDSI in an expression as a function or using the REXX CALL 
instruction..

- Blank(s) are not allowed between a function name and the left parentheses of 
the argument list.  So you are still not invoking LISTDSI correctly.

- However, just removing the blank will not work either.  TSO will get only the 
return code from LISTDSI, which is also not a valid command.  You might get 
your variables set, but TSO will still complain.

Please see also my previous response.

The great thing about REXX is that it's a small, intuitive, flexible language 
in which you can do 99 percent of what all other procedural languages can do, 
combined, and much, much more..  Unfortunately, this means that too many people 
think they know what they are doing, when they don't.

I hope this helps


On Mon, 20 Feb 2023, 16:02 Steve Thompson,  wrote:

> IRXJCL did not work.
>
> The problem is, I will have to have ISPF because I will be using the 
> ISPF Library management routines. This is why I have been working with 
> the TSO BATCH environment.
>
> At another site where I worked, I wrote a system for generating JCL to 
> do compiles and deal with DB2 BIND, the translators, CICS, DB2, 
> PROCOBOL, IDMS, and COBOL, HLASM, C++, EZTRV, Linkedit(s) etc.
>
> So this is not my first time doing this stuff.
>
> Since I got the same -3 when I attempted to do a "LINK" within REXX 
> and the STEPLIB was missing the library that had the program we wanted 
> linked to, I figured that I must be missing a library that contains 
> LISTDSI.
>
> So in Reading The Fine Manual (I went to a church college), I removed 
> the ADDRESS TSO and this is what we get:
>
>  34 *-* listdsi ('SYSUT1 FILE')
> >>>   "LISTDSI SYSUT1 FILE"
> COMMAND LISTDSI NOT FOUND
> +++ RC(-3) +++
>
>
> Tomorrow is another day.
> Steve Thompson
>
>
>
> On 2/20/2023 4:10 PM, Mike Shaw wrote:
> > Steve,
> >
> > If you change the EXEC statement to use PGM=IRXJCL instead of
> PGM=IKJEFT01
> > does the result change?
> >
> > Mike Shaw
> > QuickRef Support
> >
> > On Mon, Feb 20, 2023, 2:53 PM Steve Thompson  wrote:
> >
> >> Thankfully this time I can show the code. One needs to understand, 
> >> sometimes I'm working on something for a client that goes ape if I 
> >> show their code without getting it in writing.
> >>
> >> This is how the second step in a PROC is being done which is where 
> >> this code gets invoked:
> >>
> >> //.  EXEC PGM=IKJEFT01,..
> >>
> >> This is a capture of the code leading into the failure:
> >>
> >>
> >>
> >>ADDRESS LINKMVS 'ISPQRY' /* Verify the ISPF environ */
> >>xx = RC
> >>
> >>IF xx > 0 THEN DO
> >>   SAY "ISPQRY did not find a 

JES2EDS

[Steely.Mark]

Is there a way to just shutdown JES2EDS ?   (JES2 Email Delivery Services (EDS) 
is a JES2 function that accepts email messages from JES2 interfaces and 
delivers them to the intended recipients, the email addresses.)

I already purged all the e-mail. Would like to shutdown the task also. 

Thank You



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

z/OSMF

[Steely.Mark]

We have z/OSMF active on one of ours LPAR's. Now we would like to add another 
LPAR.

I know their were instructions on how to perform this - I am unable to find the 
instructions.

If you have done this and would provide the documentation it would be 
appreciated.

We are z/OS v2.4

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IDC3009I & IDC1566I with a weird dsn

[Steely.Mark]

This is what I used for the SYSIN:

//SYSINDD  *   
CMD=DELBCSR;XXX.DSNCPY.X  ;  
/* 
// 
//* NOTE: DSN MUST BE 44 CHARACTERS PADDED WITH BLANKS 

For some reason it took me a long time to figure out the DSN format for the 
DELBCSR command. 

Warning:  Use at you own risk 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jack Zukt
Sent: Wednesday, August 31, 2022 11:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IDC3009I & IDC1566I with a weird dsn

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Hi Mark,

Thank you for the suggestion.
There is FIXVVDS on SYS1.LINKLIB with a description on SYS1.SAMPLIB. I am going 
to read and maybe give it a try.
Regards
Jack

On Wed, 31 Aug 2022 at 17:01, Steely.Mark  wrote:

> Check this link:
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> ibm.com%2Fsupport%2Fpages%2Fvvdsfix-unsupported-vsam-utility-used-corr
> ect-problems-catalogs-and-vvds-entriesdata=05%7C01%7CSteely.Mark%
> 40aaa-texas.com%7C0b4c39d54e974eae13b608da8b6d6e08%7Cd5f618ff295149048
> f7e999c2dd97ab2%7C0%7C0%7C637975599375288953%7CUnknown%7CTWFpbGZsb3d8e
> yJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C30
> 00%7C%7C%7Csdata=AEcV2zpFaJDFTgdOx%2BgQzPAHNOcELTqSiDuxPtJJJLw%3D
> reserved=0
>
> It talks about VVDS Fix utility - I am not sure if you can download it 
> any more - I have not been able to find a current download site.
>
> I have the load module. I might be able to add as an attachment and 
> send in an e-mail.
>
> Let me know.
>
> Thanks
>
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Gibney, Dave
> Sent: Wednesday, August 31, 2022 10:49 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IDC3009I & IDC1566I with a weird dsn
>
> ATTENTION: This e-mail came from an external source. Do not open 
> attachments or click on links from unknown or unexpected emails.
>
>
> Try a free trial of one of the Catalog utility addons.  Rocket has the 
> Mainstar product. Dinosoft has one.
>
> > -Original Message-
> > From: IBM Mainframe Discussion List  On 
> > Behalf Of Jack Zukt
> > Sent: Wednesday, August 31, 2022 3:42 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: IDC3009I & IDC1566I with a weird dsn
> >
> > [EXTERNAL EMAIL]
> >
> > Hi Joe,
> >
> > Thank you for you input.  I had seen that.We are running 2.4 in 
> > which that APAR PTF  (UJ00743) has already been SUP (UJ02056) I have 
> > 34 pairs of those messages for 7 usercats, on a job that lists 66 
> > usercats. I think that if this was a bug t would affect all the listcats.
> > I do not know how these entries got there. Probably some utility 
> > that did not end as expected. But as the "dataset name" does not 
> > adhere to MVS rules, I cannot find a way to get ride of them.
> > Regards
> > Jack
> >
> >
> > On Tue, 30 Aug 2022 at 17:36, Joe Monk  wrote:
> >
> > > Might be this:
> > https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fur
> > ld 
> > efense.com%2Fv3%2F__https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fpages%2Fap
> > ar 
> > %2FOdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cc5a2914e21564f
> > ae
> > 855608da8b686bc7%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637975
> > 57 
> > 7843502184%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luM
> > zI 
> > iLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=EYxok8JRgE
> > 3O
> > 9XJEbwHA5VupkEsG19M51YqyqODNTWQ%3Dreserved=0
> > A57619__;!!JmPEgBY0HMszNaDT!qbrh2jxLqNZygDoVJ62dAkhZOvSQxuhv78u
> > bqh78z7GtnLWv1yIQyvd8gcrIKNPkHzKfBPotP9zFHQ$
> > >
> > > Users of CSI and LISTCAT Level may receive inconsistent errors on 
> > > entries that have no problem otherwise due to uninitialized 
> > > workarea data.
> > >
> > >
> > > Joe
> > >
> > > On Tue, Aug 30, 2022 at 9:04 AM Jack Zukt  wrote:
> > >
> > > > Hi all,
> > > >
> > > > Another situation that come up. Is anyone of you familiar with 
> > > > these
> > > > messages:
> > > >
> > > > IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS
> > IGG0CLFF-5
> > > > IDC1566I ** .|. ...8..U...2. NOT 
> > > > LISTED
> > > >
> >

Re: IDC3009I & IDC1566I with a weird dsn

[Steely.Mark]

Check this link: 
https://www.ibm.com/support/pages/vvdsfix-unsupported-vsam-utility-used-correct-problems-catalogs-and-vvds-entries

It talks about VVDS Fix utility - I am not sure if you can download it any more 
- I have not been able to find a current download site. 

I have the load module. I might be able to add as an attachment and send in an 
e-mail. 

Let me know.  

Thanks



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Gibney, Dave
Sent: Wednesday, August 31, 2022 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IDC3009I & IDC1566I with a weird dsn

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Try a free trial of one of the Catalog utility addons.  Rocket has the Mainstar 
product. Dinosoft has one.

> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Jack Zukt
> Sent: Wednesday, August 31, 2022 3:42 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IDC3009I & IDC1566I with a weird dsn
>
> [EXTERNAL EMAIL]
>
> Hi Joe,
>
> Thank you for you input.  I had seen that.We are running 2.4 in which 
> that APAR PTF  (UJ00743) has already been SUP (UJ02056) I have 34 
> pairs of those messages for 7 usercats, on a job that lists 66 
> usercats. I think that if this was a bug t would affect all the listcats.
> I do not know how these entries got there. Probably some utility that 
> did not end as expected. But as the "dataset name" does not adhere to 
> MVS rules, I cannot find a way to get ride of them.
> Regards
> Jack
>
>
> On Tue, 30 Aug 2022 at 17:36, Joe Monk  wrote:
>
> > Might be this:
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Furld
> efense.com%2Fv3%2F__https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fpages%2Fapar
> %2FOdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cc5a2914e21564fae
> 855608da8b686bc7%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C63797557
> 7843502184%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzI
> iLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=EYxok8JRgE3O
> 9XJEbwHA5VupkEsG19M51YqyqODNTWQ%3Dreserved=0
> A57619__;!!JmPEgBY0HMszNaDT!qbrh2jxLqNZygDoVJ62dAkhZOvSQxuhv78u
> bqh78z7GtnLWv1yIQyvd8gcrIKNPkHzKfBPotP9zFHQ$
> >
> > Users of CSI and LISTCAT Level may receive inconsistent errors on 
> > entries that have no problem otherwise due to uninitialized workarea 
> > data.
> >
> >
> > Joe
> >
> > On Tue, Aug 30, 2022 at 9:04 AM Jack Zukt  wrote:
> >
> > > Hi all,
> > >
> > > Another situation that come up. Is anyone of you familiar with 
> > > these
> > > messages:
> > >
> > > IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS
> IGG0CLFF-5
> > > IDC1566I ** .|. ...8..U...2. NOT 
> > > LISTED
> > >
> > > As far as I can see, there is not one dataset with such a name on 
> > > any of the available DASD. And yet I have 34 of those messages 
> > > across 7 user catalogs (and they can be there for a long time) 
> > > Aside from a RC(04) on the LISTCAT CAT(), there seems to be no 
> > > other
> > issue.
> > > However, I cannot find a way to get rid of those as the dataset 
> > > name
> does
> > > not adhere to restrictions.
> > > Any ideas?
> > > jack
> > >
> > > --
> > >  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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IDC3009I & IDC1566I with a weird dsn

[Steely.Mark]

I remember at one time IBM had a free / shareware tool that could delete bad 
DSN entries. I used it a couple of times - but it has been years and I can't 
remember the name or where it is. 

I will keep looking. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jack Zukt
Sent: Wednesday, August 31, 2022 8:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IDC3009I & IDC1566I with a weird dsn

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Hi Carmen
Thank you for the input. I have tried IDCAMS DELETE but to no avail.
As for FDR, you are probably right. It might be something left from a job 
running FDR that ended abnormally. But considering the number of "lost"
entries, some of those jobs must have considered complete even with the errors.
Regards,
Jack

On Wed, 31 Aug 2022 at 13:58, Carmen Vitullo  wrote:

> Jack, 2 things some to mind,  have you tried to use IDCAMS to delete 
> the entry using NVR (non vsam) file
>
> DELETE FILE(DD1) -
>
> 'COMPONENT' NVR
>
> also I recall, you use FDR to compact volumes, and one volume during 
> compaction fails it leaves a 'pointer' for the lack of a better term 
> as an non standard data set name that cannot be deleted by normal 
> methods, to get rid of the file you need to run the compact job again 
> to a successful end
>
>
> Carmen
>
> On 8/31/2022 5:50 AM, Jack Zukt wrote:
> > Hi Allan,
> > This "thing" has got no description; it is not a NONVSAM nor a VSAM
> entry.
> > There is no VOLSER associared with it. I tried using IDCAMS DELETE
> NONVSAM
> > but all I got in return was
> > IDC3203I ITEM '.|.' DOES NOT ADHERE TO RESTRICTIONS. Which is 
> > not surprising considering that it does have spaces in it.
> >
> > Regards
> > Jack
> >
> >
> > On Tue, 30 Aug 2022 at 21:28, Allan Staller < 
> > 0387911dea17-dmarc-requ...@listserv.ua.edu> wrote:
> >
> >> Classification: Confidential
> >>
> >> LISTCAT ENT(entryname) ALL
> >> Select the component (cluster index) and volume (xx)
> >>
> >> Use IDCAMS in batch:
> >> //STEP EXEC IDCAMS
> >> //SYSPRINT  DD *
> >> //DD1   DD UNIT=SYSDA,DISP=SHR,VOL=SER=xx
> >> //SYSIN DD  *
> >>   DEL componentname VVR FILE(DD1)
> >> /*
> >>
> >> HTH,
> >>
> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> Behalf
> >> Of Jack Zukt
> >> Sent: Tuesday, August 30, 2022 9:04 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: IDC3009I & IDC1566I with a weird dsn
> >>
> >> [CAUTION: This Email is from outside the Organization. Unless you 
> >> trust the sender, Don’t click links or open attachments as it may 
> >> be a
> Phishing
> >> email, which can steal your Information and compromise your 
> >> Computer.]
> >>
> >> Hi all,
> >>
> >> Another situation that come up. Is anyone of you familiar with 
> >> these
> >> messages:
> >>
> >> IDC3009I ** VSAM CATALOG RETURN CODE IS 50 - REASON CODE IS 
> >> IGG0CLFF-5 IDC1566I ** .|. ...8..U...2. 
> >> NOT LISTED
> >>
> >> As far as I can see, there is not one dataset with such a name on 
> >> any of the available DASD. And yet I have 34 of those messages 
> >> across 7 user catalogs (and they can be there for a long time) 
> >> Aside from a RC(04) on
> the
> >> LISTCAT CAT(), there seems to be no other issue.
> >> However, I cannot find a way to get rid of those as the dataset 
> >> name
> does
> >> not adhere to restrictions.
> >> Any ideas?
> >> jack
> >>
> >> ---
> >> --- For IBM-MAIN subscribe / signoff / archive access instructions, 
> >> send
> email
> >> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >> ::DISCLAIMER::
> >> 
> >> The contents of this e-mail and any attachment(s) are confidential 
> >> and intended for the named recipient(s) only. E-mail transmission 
> >> is not guaranteed to be secure or error-free as information could 
> >> be
> intercepted,
> >> corrupted, lost, destroyed, arrive late or incomplete, or may 
> >> contain viruses in transmission. The e mail and its contents (with 
> >> or without referred errors) shall therefore not attach any 
> >> liability on the
> originator
> >> or HCL or its affiliates. Views or opinions, if any, presented in 
> >> this email are solely those of the author and may not necessarily 
> >> reflect the views or opinions of HCL or its affiliates. Any form of 
> >> reproduction, dissemination, copying, disclosure, modification, 
> >> distribution and / or publication of this message without the prior 
> >> written consent of
> authorized
> >> representative of HCL is strictly prohibited. If you have received 
> >> this email in error please delete it and notify the sender immediately.
> Before
> >> opening any email and/or attachments, please check them for viruses 
> >> and other defects.
> >> 
> >>
> >> 

Re: IEA061E replacement ASID shortage

[Steely.Mark]

You can try this REXX exec. 

/* REXX -
 +--+
 ¦ Name:   LSTJOBS  ¦
 ¦ Type:   REXX exec¦
 ¦ Purpose:Display a list of Address Spaces that are active ¦
 ¦ Release:MVS/ESA v4.1   and TSO/E v2.1¦
 ¦ Programmer: Paul S. Waterhouse   ¦
 ¦ Date:   1/24/92  ¦
 ¦ Abstract:   A REXX EXEC to list jobs or find an executing¦
 ¦ address space.   ¦
 ¦  ¦
 ¦ Call Format:  LSTJOBS({V¦N¦S},{G¦J¦X¦D},{jobname¦asid})  ¦
 ¦  ¦
 ¦   When: Args are null LSTJOBS()  ¦
 ¦ a list of jobs is displayed. ¦
 ¦  ¦
 ¦ V = View List¦
 ¦ Displays list of address spaces on CRT.  ¦
 ¦ N = No View  ¦
 ¦ Nothing is displayed ¦
 ¦ S = Stack Table  ¦
 ¦ Places table entries on data stack.  ¦
 ¦ Does not display results.¦
 ¦  ¦
 ¦ G = Generic Jobname Match¦
 ¦ J = Explicit Jobname Match   ¦
 ¦   Returns a 1 if one or more names   ¦
 ¦   meet criteria. ¦
 ¦   Returns a 0 if no names meet criteria. ¦
 ¦ X = Hexadecimal ASID ¦
 ¦ D = Decimal ASID ¦
 ¦   Returns a 0 if ASID not active ¦
 ¦   Retunrs a 1 if ASID is active  ¦
 ¦  ¦
 ¦  ¦
 ¦  ¦
 ¦ Logic: Extracts address of CVT (at x'10')¦
 ¦Extracts address of ASVT (CVTASVT) CVT+556¦
 ¦Invoke GETSMFID to get SMF-ID of this system  ¦
 ¦Get maximum number of users.  ¦
 ¦Get address of masters ASCB.  ¦
 ¦Display all ACTIVE or UNUSEABLE ASVT entries. ¦
 ¦ - A Table is built containing:   ¦
 ¦   c_ascb_name. = stc/jobname ¦
 ¦   c_ascb_asid. = ASID (decimal)  ¦
 ¦   c_ascb_asix. = ASID (Hex)  ¦
 ¦If arg1 is null then table is displayed.. ¦
 ¦If arg1 is J then table is scanned for name   ¦
 ¦   if name not found then RC = 0  ¦
 ¦  else exit rc 1  ¦
 ¦If arg1 is X then table is scanned for ASID x'arg2' (hex) ¦
 ¦If arg1 is d then table is scanned for ASID arg2 (dec)¦
 ¦  else exit rc 1  ¦
 +--+ */
/* CLRSCRN */
"clear"
trace

 /*-+
  ¦  Parse Arguments and Verify Values  ¦
  *-*/

  parse upper arg c_view, c_type, c_value .

 /*-+
  ¦  Set numeric digits to accomodate BIG hex numbers in decimal¦
  *-*/

  numeric digits 10

 /*-+
  ¦  Check Syntax and Set Defaults  ¦
  *-*/

 /*-+
  ¦  arg1 - VIEW¦
  ¦ Must be null, V(iew) N(o view) or S(tack results)   ¦
  *-*/

  select
when c_view = "" then
 do
   c_view = "V"
 end
when c_view ¬= "S" & c_view ¬= "V" & c_view ¬= "N" then
 do
   exit 16
 end
  otherwise
 

Password Resets

[Steely.Mark]

Does your site use a Self Help Password Reset Tool for RACF or TSS ?

We would like the customer to be able to perform this function without 
involving the Help Desk.

Any suggestions ?

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: z/OSMF again

[Steely.Mark]

This shop is TSS - not so easy.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Steve Beaver
Sent: Thursday, July 21, 2022 10:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OSMF again

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


On a RACF system it’s a cakewalk

Sent from my iPhone

No one said I could type with one thumb

> On Jul 21, 2022, at 10:06, Steely.Mark  wrote:
>
> I can't believe it was that easy. The 2 Icons were there and dragged them to 
> the desktop.
>
> Now the hard part starting the installation process..
>
> Thanks
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Kurt J. Quackenbush
> Sent: Wednesday, July 20, 2022 6:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: z/OSMF again
>
> ATTENTION: This e-mail came from an external source. Do not open attachments 
> or click on links from unknown or unexpected emails.
>
>
>> There are 2 missing icons that I need - Software Management  & Software 
>> Updates.
>
>> I been through several manuals and have performed additional setup and SAF 
>> rules that are suppose to provide this function.
>
> Did you check the "App Center" folder in the lower left corner of the z/OSMF 
> desktop?  I don't know why, but some application icons do not get displayed 
> on the desktop by default, but you can drag them from the App Center folder 
> to the desktop.  If they are not in the App Center folder then I suggest open 
> a support case.
>
> Kurt Quackenbush
> IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com
>
> Chuck Norris never uses CHECK when he applies PTFs.
>
> --
> 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: z/OSMF again

[Steely.Mark]

I can't believe it was that easy. The 2 Icons were there and dragged them to 
the desktop. 

Now the hard part starting the installation process..

Thanks 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Kurt J. Quackenbush
Sent: Wednesday, July 20, 2022 6:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OSMF again

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


> There are 2 missing icons that I need - Software Management  & Software 
> Updates.

> I been through several manuals and have performed additional setup and SAF 
> rules that are suppose to provide this function.

Did you check the "App Center" folder in the lower left corner of the z/OSMF 
desktop?  I don't know why, but some application icons do not get displayed on 
the desktop by default, but you can drag them from the App Center folder to the 
desktop.  If they are not in the App Center folder then I suggest open a 
support case.

Kurt Quackenbush
IBM  |  z/OS SMP/E and z/OSMF Software Management  |  ku...@us.ibm.com

Chuck Norris never uses CHECK when he applies PTFs.

--
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

z/OSMF again

[Steely.Mark]

When I logon to z/OSMF all I see is 16 ICONS.

There are 2 missing icons that I need - Software Management  & Software Updates.

I been through several manuals and have performed additional setup and SAF 
rules that are suppose to provide this function.

Any ideas of what I can check first ?

Open a case with IBM is the next step.

We are z/OS v2.4 and I have a product to install that is only delivered z/OSMF 
format from IBM.

Any help would be appreciated.

Thank You


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: sys1.parmlib compare

[Steely.Mark]

This is the way I do it all the time:

//PARMLIB  EXEC PGM=ISRSUPC,
// PARM=(DELTAL,FILECMP) -this will just tell you if there 
is a difference(uncomment the one you want)   
//*PARM=(DELTAL,LINECMP)   -this will show you what the 
difference are
//NEWDDDD  DISP=SHR,DSN=SYS1.PARMLIB  
//OLDDDDD  DISP=SHR,DSN=SYS1.PARMLIB.NEW  
//*  
//OUTDDDD  SYSOUT=*  
//SYSINDD  DUMMY 
//*

Thanks  

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Burrell, Todd
Sent: Wednesday, July 06, 2022 10:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: sys1.parmlib compare

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


You will probably have to generate member lists for both PDS's and then you can 
use REXX to generate the compare JCL member by member.  There may be a quicker 
way with something like PDSTOOLS, but this is how I would attempt it.

Thanks

Todd Burrell | Sr. IT Systems Engineer | Mainframe

todd.burr...@bcbsfl.com
M 404.723.2017



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Wednesday, July 6, 2022 10:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: sys1.parmlib compare

≫ I am trying to compare members of sys1.parmlib from two different Operating 
systems (using SuperCE), Any other simple ways to do this, Like mass compare of 
members?

Run SuperC in Batch

//SUPERC  EXEC PGM=ISRSUPC,PARM=(DELTAL,ALLMEMS,FILECMP,'','')
//NEWDD   DD DISP=SHR,DSN=Your.PDS1
//OLDDD   DD DISP=SHR,DSN=Your.PDS2
//OUTDD   DD SYSOUT=*
//SYSIN   DD DUMMY


Thanks,
Kolusu


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN We comply with 
applicable Federal civil rights laws and do not discriminate.

You may access the Non-Discrimination and Accessibility Notice here 
.

Language Assistance Available:

Español, Kreyol Ayisien, Tiếng Việt, Português, 中文, Français, Tagalog, русский, 
Italiano, Deutsche, 한국어, Polskie, Gujarati, ไทย, العربية, 日本語, فارسی 


Florida Blue is a trade name of Blue Cross and Blue Shield of Florida, Inc.  
Blue Cross and Blue Shield of Florida, Inc., and its subsidiary and affiliate 
companies are not responsible for errors or omissions in this e-mail message. 
Any personal comments made in this e-mail do not reflect the views of Blue 
Cross and Blue Shield of Florida, Inc.  The information contained in this 
document may be confidential and intended solely for the use of the individual 
or entity to whom it is addressed.  This document may contain material that is 
privileged or protected from disclosure under applicable law.  If you are not 
the intended recipient or the individual responsible for delivering to the 
intended recipient, please (1) be advised that any use, dissemination, 
forwarding, or copying of this document IS STRICTLY PROHIBITED; and (2) notify 
sender immediately by telephone and destroy the document. THANK YOU.


--
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: zFS compress failure

[Steely.Mark]

To make the ZFS file one extent - you could unmount the ZFS file move it to 
another volume using ADRDSSU something like this:

  COPY DATASET( - 
   INCLUDE( - 
SYSX.ZFS  -
  ))- 
   OUTDYNAM((vv))   - 
   CANCELERROR  - 
   CATALOG  - 
   DELETE PURGE - 
   NULLSTORCLAS BYPASSACS(**) -   
   ALLDATA(*)   - 
   ALLEXCP  - 
   PROCESS(SYS1,UNDEF)  - 
   TGTALLOC(SRC) 

You  may need to update STORCLASS & BYPASSACS if SMS managed. 

Make sure the receiving volume has enough free space to create the file in one 
extent.  

Then you can move the volume back to the original volume. 

This may not help if something else is wrong with the file.

Thanks   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mike Schwab
Sent: Thursday, May 26, 2022 11:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: zFS compress failure

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Unmount, defrag (or migrate / recall), remount.
Or, create a replacement zfs, mount at a new point, copy with Unix commands, 
unmount both, mount new file system, delete old file system.

On Thu, May 26, 2022 at 9:28 PM Mark Jacobs 
<0224d287a4b1-dmarc-requ...@listserv.ua.edu> wrote:
>
> I've been trying to compress a zFS file system that's near 100% utilized. 
> It's at 123 extents, and almost out of free blocks. I'm getting this message, 
> IOEZ00901E Error compressing aggregate x, error code 133 reason 
> code=EF046068.
>
> I know what the reason code means, PFS control command failed, but can't get 
> any further than that.
>
> Mark Jacobs
>
> Sent from 
> [ProtonMail](https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fprotonmail.com%2Fdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cb75c789e84a546bdfc3808da3f95f50a%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637892210542586488%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=wYNsL1bWpLZrFZMRE1U%2B%2FTjbjOuFap%2FRgwU%2BksitW4M%3Dreserved=0),
>  Swiss-based encrypted email.
>
> GPG Public Key - 
> https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fapi.
> protonmail.ch%2Fpks%2Flookup%3Fop%3Dget%26search%3Dmarkjacobs%40proton
> mail.comdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7Cb75c789e84a5
> 46bdfc3808da3f95f50a%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C6378
> 92210542586488%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2l
> uMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=4d8Uvaj9
> YVY771%2F87xi7cmQUpTLdA1o83ZBAYkhoY60%3Dreserved=0
>
> --
> 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

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SDSF & TSS (RACF)

[Steely.Mark]

Thanks for the update - yes I did forget the custom parameter. It may work for 
what I need. When I select the complete report it comes back as unauthorized. 
If I expand the report with a ? and select a report it still get the violation 
and after several attempt it suspend the ID. 
Is there anything for that ? 

Thank You 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Robert S. Hansel (RSH)
Sent: Wednesday, May 25, 2022 5:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: FW: SDSF & TSS (RACF)

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Mark,

I'm surprised it didn't work. Did you code a CUSTOM(proplist) parameter in 
_all_ your GROUP statements that points to the PROPLIST NAME(proplist) 
statement with the PROPERTY parameter? And did you refresh the ISFPARMS in all 
the SDSF servers?

Regards, Bob

Robert S. Hansel35 years of RACF Experience
Lead RACF Specialist
RSH Consulting, Inc.
617-969-8211
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.linkedin.com%2Fin%2Froberthanseldata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=2p%2FVhwtS2wmMiwR5fCqnKzxRS25XLKssIwHQysYGDRo%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.twitter.com%2FRSH_RACFdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=qHDXl9r%2Byff2po89gcCtFs3DsZD%2B5%2Bwv3OSmmgnsek0%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rshconsulting.com%2Fdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=ZyxHROF4eUWuXPXBbIR8Rls0H8o6qizNf9Ve6E7RWuA%3Dreserved=0

-Original Message-
Date:Tue, 24 May 2022 15:02:50 +
From:    "Steely.Mark" 
Subject: Re: SDSF & TSS (RACF)

Thanks for the link for the output violations - it doesn't appear to work for 
TSS (Top Secret).


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Robert S. Hansel (RSH)
Sent: Tuesday, May 24, 2022 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SDSF & TSS (RACF)

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Hi Mark,

When a user attempts to select a job, SDSF does an authorization check for each 
individual SYSOUT DDNAME associated with the job and can generate multiple 
violations like this.

To address this issue, see article " Avoiding Output Browse Violation Messages 
in SDSF" in the July 2008 issue of our RACF Tips newsletter.

https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.rshconsulting.com%2Fracftips%2FRSH_Consulting__RACF_Tips__July_2008.pdfdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=Ri6qk0FquenWot%2B7NtNwp4PQXBlpbgSzxcwFsX8E0UQ%3Dreserved=0

Regards, Bob

Robert S. Hansel35 years of RACF Experience
Lead RACF Specialist
RSH Consulting, Inc.
617-969-8211
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.linkedin.com%2Fin%2Froberthanseldata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=2p%2FVhwtS2wmMiwR5fCqnKzxRS25XLKssIwHQysYGDRo%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.twitter.com%2FRSH_RACFdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=qHDXl9r%2Byff2po89gcCtFs3DsZD%2B5%2Bwv3OSmmgnsek0%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rshconsulting.com%2Fdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C343f2a1ca2e946e91dd008da3e41120f%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637890746614106925%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=ZyxHROF4eUWuXPXBbIR8Rls0H8o6qizNf9Ve6E7RWuA%3Dr

Re: SDSF & TSS (RACF)

[Steely.Mark]

Thanks for the link for the output violations - it doesn't appear to work for 
TSS (Top Secret). 


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Robert S. Hansel (RSH)
Sent: Tuesday, May 24, 2022 8:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SDSF & TSS (RACF)

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Hi Mark,

When a user attempts to select a job, SDSF does an authorization check for each 
individual SYSOUT DDNAME associated with the job and can generate multiple 
violations like this.

To address this issue, see article " Avoiding Output Browse Violation Messages 
in SDSF" in the July 2008 issue of our RACF Tips newsletter.

https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.rshconsulting.com%2Fracftips%2FRSH_Consulting__RACF_Tips__July_2008.pdfdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C09fc8b5679ff48b440c108da3d87b17c%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637889950261872224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=ReJ7GWolmeh4hc2MkFDbyahA0i5EVDrdN7qsfXgAKW4%3Dreserved=0

Regards, Bob

Robert S. Hansel35 years of RACF Experience
Lead RACF Specialist
RSH Consulting, Inc.
617-969-8211
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.linkedin.com%2Fin%2Froberthanseldata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C09fc8b5679ff48b440c108da3d87b17c%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637889950261872224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=U7odhzAml3JLOoHEPMB0H%2BugsJ0Rls0Z%2Fpk8Ht9KnPc%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.twitter.com%2FRSH_RACFdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C09fc8b5679ff48b440c108da3d87b17c%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637889950261872224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=E8kbU8IAtv56Y%2BoiaQn%2BRuFS0IfJ6YswSdVy12zWCUo%3Dreserved=0
https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rshconsulting.com%2Fdata=05%7C01%7CSteely.Mark%40aaa-texas.com%7C09fc8b5679ff48b440c108da3d87b17c%7Cd5f618ff295149048f7e999c2dd97ab2%7C0%7C0%7C637889950261872224%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=%2BF%2BtoZaedniGmSARZrgDspVsvtLk624fxaEllI4har0%3Dreserved=0

-Original Message-
Date:Mon, 23 May 2022 20:55:48 +0000
From:    "Steely.Mark" 
Subject: SDSF & TSS (RACF)

I am trying to convert our SDSF from using ISFPARMS to TSS for security.

I need some direction on how to provide security for reports.

Currently I am trying to use JESSPOOL to control access.
The customer is allowed to view all currently active and held output jobs but 
may only look at certain JOBS & REPORTS.

During testing I have this occurring:

The customer is trying to view this job (which the customer is not authorized)

COMMAND INPUT ===>
PREFIX=*  DEST=(ALL)  OWNER=*  SYSNAME=
NP   DDNAME   StepName ProcStep DSID OwnerC Dest
 JESMSGLG JES2 2 TS0242   R LOCAL
 JESJCL   JES2 3 TS0242   R LOCAL
 JESYSMSG JES2 4 TS0242   R LOCAL

The above is displayed when I put a ? in the Held output screen.
This is just to show you the report has 3 different reports.

Then the customer goes back to the screen which shows the job name:

SDSF HELD OUTPUT DISPLAY ALL CLASSES LINES 55  LINE 1
COMMAND INPUT ===>
PREFIX=B1*  DEST=(ALL)  OWNER=*  SORT=JOBNAME/A  SYSNAME=
NP   JOBNAME  JobIDOwnerPrty C ODisp Dest
 B100042B JOB09087 TS0242144 R HOLD  LOCAL


Then select the job and receives the following messages:

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7141E Use of Accessor ID Suspended
TSS7191E Job/Session Cancelled - Excessive Violations TSS7192E Session Locked - 
Excessive Violations: Signoff
CS0042 LOGGED OFF TSO AT 14:57:54 ON MAY 23, 2022 IKJ56453I SESSION CANCELLED
**

I would hate to think someone would accidently try to look at an  output they 
are not authorized to view and get their ID suspended.

Maybe I am going at this all wrong.

Is there a different way I should be doing this?

Any help would be appreciated.

We are currently at z/OS v2.4.

Thank You

--
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

SDSF & TSS (RACF)

[Steely.Mark]

I am trying to convert our SDSF from using ISFPARMS to TSS for security.

I need some direction on how to provide security for reports.

Currently I am trying to use JESSPOOL to control access.
The customer is allowed to view all currently active and held output jobs but 
may only look at certain JOBS & REPORTS.

During testing I have this occurring:

The customer is trying to view this job (which the customer is not authorized)

COMMAND INPUT ===>
PREFIX=*  DEST=(ALL)  OWNER=*  SYSNAME=
NP   DDNAME   StepName ProcStep DSID OwnerC Dest
 JESMSGLG JES2 2 TS0242   R LOCAL
 JESJCL   JES2 3 TS0242   R LOCAL
 JESYSMSG JES2 4 TS0242   R LOCAL

The above is displayed when I put a ? in the Held output screen.
This is just to show you the report has 3 different reports.

Then the customer goes back to the screen which shows the job name:

SDSF HELD OUTPUT DISPLAY ALL CLASSES LINES 55  LINE 1
COMMAND INPUT ===>
PREFIX=B1*  DEST=(ALL)  OWNER=*  SORT=JOBNAME/A  SYSNAME=
NP   JOBNAME  JobIDOwnerPrty C ODisp Dest
 B100042B JOB09087 TS0242144 R HOLD  LOCAL


Then select the job and receives the following messages:

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7257E Unauthorized Access Level for JESSPOOL 

TSS7141E Use of Accessor ID Suspended
TSS7191E Job/Session Cancelled - Excessive Violations
TSS7192E Session Locked - Excessive Violations: Signoff
CS0042 LOGGED OFF TSO AT 14:57:54 ON MAY 23, 2022
IKJ56453I SESSION CANCELLED
**

I would hate to think someone would accidently try to look at an  output they 
are not authorized to view and get their ID suspended.

Maybe I am going at this all wrong.

Is there a different way I should be doing this?

Any help would be appreciated.

We are currently at z/OS v2.4.

Thank You






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

directory backup

[Steely.Mark]

I would like to back up a directory and then execute SKULKER to clean out the 
old files.

I really don't want to backup the complete HFS/ZFS file - DFDSS doesn't backup 
the fie if it can't perform the quiesce on the file.

I tried using the PAX command which worked great except that it updates the 
LAST CHANGED date which prevent SKULKER from selecting that file for deletion.

I thought about using DFDSS but it will only backup a single file that must be 
specified - wildcards not allowed.

Any thing else out there to back up  a directory which will not affect the 
dates & times for the file.

Any other suggestion would be appreciated.

Thank You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

dequeue program

[Steely.Mark]

There was a program that when executed would prevent the ENQ on a dataset. This 
was used for jobs which would FTP a file and then use that file in steps after 
the FTP.

This was the JCL used:

//JS010   EXEC PGM=FTPDEQ,
//PARM='data.set.name.here'
//SYSUDUMP DD SYSOUT=*

This would be the first step in the job.

Any one remember this program and  would share a copy of it ?

Than You

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SDSF Process

[Steely.Mark]

I would like to be able to have SDSF perform a DA and sort CPU% D every 15 
seconds  and store it to a file.

Does anyone have a process that does something similar - batch, started task 
etc.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: z/OS ISPF Panel to include System Name

[Steely.Mark]

Go to Settings - Identifier (Top Line) - Option 4 Screen Name - Put a / in 
front of Display system name  and option 2 for default setting for SYSNAME. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Ed 
Jaffe
Sent: Thursday, February 24, 2022 3:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: z/OS ISPF Panel to include System Name

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


On 2/24/2022 12:49 PM, Farley, Peter x23353 wrote:
> That must be a relatively new ISPF command.  On our z/OS V2.3 system it gets 
> "Invalid Command" error.

SYSNAME has been around for decades.

Any chance some knucklehead removed it from your ISPCMDS command table?

If so, you can always add it back in on your private command table.

  |Verb  T  Action
| SYSNAME   0  SYSNAME


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/



This e-mail message, including any attachments, appended messages and the 
information contained therein, is for the sole use of the intended 
recipient(s). If you are not an intended recipient or have otherwise received 
this email message in error, any use, dissemination, distribution, review, 
storage or copying of this e-mail message and the information contained therein 
is strictly prohibited. If you are not an intended recipient, please contact 
the sender by reply e-mail and destroy all copies of this email message and do 
not otherwise utilize or retain this email message or any or all of the 
information contained therein. Although this email message and any attachments 
or appended messages are believed to be free of any virus or other defect that 
might affect any computer system into which it is received and opened, it is 
the responsibility of the recipient to ensure that it is virus free and no 
responsibility is accepted by the sender for any loss or damage arising in any 
way from its opening or use.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Unable to delete uncataloged migrated datasets

[Steely.Mark]

Did you try to just do a delete noscratch command ?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Max 
Smith
Sent: Monday, February 21, 2022 4:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Unable to delete uncataloged migrated datasets

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Hi Fred,

For uncataloged data sets I would have expected HSEND DELETE dsn would work to 
clean up the CDS entries, MCD/MCA & TTOC. You say it didn't seem to work, why?  
Any errors?

Also the steps you listed should also delete the MCD/MCA records and the data 
set if it still existed on an ML1 volume.  Why do you say they didn't?

Another thing you could do is use a simple IDCAMS DEFINE to define the catalog 
entry of the data set.  You could then see if they RECALL or you could use the 
HSEND DELETE or HDELETE to delete the data set.

Sample SYSIN

 DEF  -
   NONVSAM  -
 (NAME(data.set.name) -
 DEVT(3390) -
 VOL(MIGRAT)

Max Smith
DFSMS Development

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Cobol V4.2 to V6.3

[Steely.Mark]

We are in the process of going to Cobol V6.3. We are taking our current process 
and trying to make the updates required for 6.3.

When a program is compiled the OBJECT compile option is used - which creates a 
SYSLIN file.

The SYSLIN files look completely different between the two versions.

V4.2

.ESD  ..  ..@@DOPLNKWUS10001
.END ...  ..15655S7100 420021354WUS10002
.XSD  ..@@XINIT@WUS10003
.END ...  ..15655S7100 420021354WUS10004
.XSD  ..WUS110  WUS10005
Etc..

V6.3

.0..
...-WUS110..
.Ø...Ø..C_CEESG0
Etc

Then we take this file and execute through the PRELINK step.
The prelink program name is EDCPRLK.

This is where the problem occurs.

V4.2 - produces:

===
| Writable Static Map
===

  OFFSETLENGTH  FILE ID  INPUT NAME

   020   4   
  2020   4   
  4020   4   
  6020   4   
  8020   4   
Etc.


V6.3 - produces:


| Writable Static Map  |


INFORMATIONAL EDC4013: No map displayed as no writable static was found.


I found one mention that the pre-link  step is not needed for V6.3

Then when the link step is executed the following messages are seen:

V6.3
IEW2456E 9207 SYMBOL AuInterface_Create UNRESOLVED.  MEMBER COULD NOT BE 
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL xs_Make UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE 
DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL AuInterface_LoadPolicy UNRESOLVED.  MEMBER COULD NOT BE 
INCLUDED FROM THE DESIGNATED CALL LIBRARY.
IEW2456E 9207 SYMBOL AuInterface_LoadPolicyCodes UNRESOLVED.  MEMBER COULD NOT 
BE INCLUDED FROM THE DESIGNATED CALL
 LIBRARY.


V4.2 - link is successful.

Is there a different process for v6.3 programs.

Any help would be appreciated.

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

MQ V92 BACKMIG

[Steely.Mark]

I am trying to test the BACKMIG of MQ V9.2.

The directions says to use the START QMGR command.
For some reason I can't get this to work. To tired.
This is command I usually use to start the QMGR:  +MQSI START QMGR 
PARM(MQSIZPRM)
I did try this command:  +MQSI START QMGR PARM(MQSIZPRM) BACKMIG(900) - did not 
work.  ABEND=S5C6 U REASON=00E8000F
So that's when I looked up the START QMGR command.
I tried this:  START QMGR ENVPARM(MQSIMSTR) PARM(MQSIZPRM) BACKMIG(900) - did 
not work.
PROC QMGR not found.
What am I doing wrong.
Any help would be appreciated,

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Can I sense the LIBDEF status?

[Steely.Mark]

Issue command ISPLIBD on the command line. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Bob 
Bridges
Sent: Friday, June 11, 2021 11:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Can I sense the LIBDEF status?

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Coïncidentally, I have an iSPF-related question this morning.  I find I want to 
write a REXX that can turn on or off a sort of test mode, by doing an ALTLIB 
and LIBDEF (one each).  When this test mode is on, ALTLIB and LIBDEF are active 
and the commands I invoke will come from the ALTLIB library; when I'm done, 
I'll turn the test mode off and the REXX will clear the datasets.

I can easily enough create an ISPF variable to track the current status.  But 
is there a way to look at the ALTLIB and/or LIBDEF status without it?  I mean, 
is there some command I can execute that'll determine whether an ALTLIB or 
LIBDEF statement is (so to speak) active?

---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313

/* School that day consisted of a field trip to see a live performance of "A 
Christmas Carol".  This incensed my son, who believes cultural benefit can only 
be found in entertainment that involves gruesome death.  "I hate the whole 
thing," he fumed when he found out about it.  "I hate the ghost of Christmas 
presents, I hate the guy who baas 'humbug,' and I hate Emily Dickinson."  -W 
Bruce Cameron, May 2002 */

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jesse 1 Robinson
Sent: Friday, June 11, 2021 11:33

Now with some content. At one time ISPF-L was in the hands of Leonard Woren. 
Something indeed has gone wrong. I saw Leonard at SHARE in San Jose--along with 
his wife!!! Sounds like a job for Super Tom.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Conley
Sent: Friday, June 11, 2021 5:28 AM

The ISPF-L listserver is broken, it's some kind of mailing list now.  Pretty 
sure it's no longer hosted at Notre Dame.  I had NOMAIL set on the listserver, 
now I get mailbombed whenever someone posts to it.  ISPF-L should be put out of 
its misery.

--- On 6/10/2021 5:39 PM, Bob Bridges wrote:
> I'm a little incredulous that no one mentioned it already, but yes, there is 
> an ISPF-L listserv; check out ispf-l-l...@nd.edu.
>
> But it's not nearly as active as IBM-MAIN is, and you got excellent answers 
> here.  I'm not complaining, just answering your question.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CBT - SMF

[Steely.Mark]

Yes - we have MXG

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Seymour J Metz
Sent: Monday, May 24, 2021 12:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CBT - SMF

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


What data are you lookimg for? DAF is for DASD; there are other tools for, e.g, 
CPU.

Do you have MXG?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
Steely.Mark 
Sent: Monday, May 24, 2021 12:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CBT - SMF

There was a SMF program which I downloaded from CBT along time ago. This SMF 
program had parms you could provide. The report would provide a lot of job 
information.
I thought it was DAF -  but that doesn't look like what I remember.
I have seen it mention here before but I was unable to find it.

Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CBT - SMF

[Steely.Mark]

There was a SMF program which I downloaded from CBT along time ago. This SMF 
program had parms you could provide. The report would provide a lot of job 
information.
I thought it was DAF -  but that doesn't look like what I remember.
I have seen it mention here before but I was unable to find it.

Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Software Inventory

[Steely.Mark]

This is a general question what do you use for software inventory - package, 
ISPF, excel spreadsheet etc   for Mainframe only.

Below is the type of inventory I am looking for.

This is what I found so far on the Internet : (This is a PDF document and looks 
a lot better then what is displayed)


Mainframe Software Inventory List

Vendor/Desc.  Product   
  Rel.  Latest VersionEnd Of Service
   Note



CA  CA 1 Tape Management - MVS  
 12.6  12.6

CA 1 Tape Management (CA 1) is designed to simplify and unify the management 
and protection of z/OS(r) tape data sets and volumes.



CA   CA COMMON SERVICES - MVS 14.1

CA Common Services for z/OS (CCS) includes distributed services common to CA 
Technologies implementations and solutions specific to z/OS. CCS provides a 
common interface and event services to create multiple, unified resource 
views.This z/OS hosted enterprise management architecture expands the choice of 
what and where to manage, similar to how CCS works on Windows and UNIX 
platforms. CCS also contains the essential components and functionality to 
enable integrated management of z/OS.



CA   CA Compress Data Compression for IMS - MVS 
   5.2.5 5.2.7

CA Compress(tm) Data Compression for IMS is designed to minimize the direct 
access storage device (DASD) space requirements for IMS(tm) databases and 
compress files with minimal disruption, reduce your costs and simplify DASD 
management. This IMS database management solution can also improve efficiency 
by performing compression simulation for analysis purposes before actually 
compressing an IMS database-a process that can achieve compression yields as 
high as 70 to 80 percent.



CA   CA DATACOM/AD MVS  
   1415 
 In process of installing v15 on z/OS 2.1.

A reliable database repository with enterprise-wide, high-volume workload and 
fault-tolerant capabilities. CA Datacom(r), and its family of rDBMS products, 
provides you with that repository.



Etc...


Thank You



*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: MQ For z/os

[Steely.Mark]

Thanks for the response - I do have a question about the backwards migration 
PTF. I found conflicting documentation that this is required:

https://www.ibm.com/docs/en/ibm-mq/9.1?topic=tasks-backward-migration-earlier-supported-releases-mq-zos
The backward migration APARs are PI95928 for IBM MQ 8.0.0, and PI95939 for IBM 
MQ 9.0.0.

This was documentation for reverting back from 9.1.   But I seemed to recall 
this same statement from reverting back from 9.2.   
Also found documentation that states nothing needs to be done for backwards 
compatibility from 9.2. 

I also found this:

Backwards migration is normally only performed immediately after a migration 
fails for some reason. 
However, it is possible to perform backwards migration at any time if the 
CSQY039I message is output at queue manager start up.

If a queue manager issues the CSQY040I message at start up, backwards migration 
is not supported, and the procedure described in the following text is not 
applicable.
If you have a back up of the queue manager data, prior to the migration, you 
could use that data to start the queue manager up at the earlier release.

I assume these messages are displayed during start of MQ 9.2 because I don’t 
see these messages in the startup of MQ 9.0. 

Is this correct ?

Thank You 

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Colin Paice
Sent: Wednesday, April 28, 2021 6:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MQ For z/os

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Mark,

Backwards migration is supported between LTS releases (i.e. 9.0.0, 9.1.0, 
9.2.0), so it's not correct that the upgrade process is not reversible, unless 
the question is about a CD release.

IBM always suggested being up-to-date with all maintenance before migrating to 
a new release. The backwards migration process has changed in 9.2, and there is 
no need to apply a specific backwards migration PTF before migrating. The 
backwards migration process in 9.2 is documented here:
https://www.ibm.com/docs/en/ibm-mq/9.2?topic=92-reverting-queue-manager-previous-version-zos
.

All the MQ on z/OS migration information is documented under this topic:
https://www.ibm.com/docs/en/ibm-mq/9.2?topic=mq-migrating-zos


The question about backing up your page sets and logs is an interesting one.

If you backed up your page sets, and restored a pageset,  (and did not restore 
your logs from backup) then when you restart the queue manager it would replay 
the logs and bring the restored page set(s) up to date.

If you back them up, go to the next release, run for a day and then decide to 
use your backups of page sets AND LOGS ( so your logs now do not have any 
updates since the backup) This causes problems like Messages which had been in 
the system, and processed - now appear again (from the backup) - so where the 
message said "PAY COLIN $100" would get processed twice.
Any new messages which were not processed before shutting down and restoring 
would be overwritten by the restore.
Any channels going to other queue managers which had sent messages, will get 
sequence number mismatches and you will have to reset the channels.

So the lesson is, you can ( and should backup) your pages sets, but *do not try 
to restore the logs from backups* except under IBM's guidance.
(As a good sysprog you will have tested the backup and restore of a page set - 
and have JCL already written to do this!)

regards

Colin





If you were on LTS, you could go from 9.0 to 9.1 and back to 9.0 without losing 
any messages.






On Tue, 27 Apr 2021 at 16:52, Steely.Mark  wrote:

> Has anyone upgraded from MQ 9.0 to 9.2 ?
>
> Is there any PTF's that need to be applied to 9.0 before going to 9.2.
> This is the only thing I have found:
>
> While at MQ 9.0, take a full backup of the queue managers. Why? 
> Because the upgrade process is NOT reversible. If you need to revert 
> back from MQ
> 9.1 to 9.0, then you must delete the queue managers and restore the 
> backup taken at MQ 9.0.
>
> I know this statement is talking about 9.1 but I think it would also 
> relate going to 9.2.
>
> Any information relating to upgrading MQ would be appreciated.
>
> Thank You
>
>
>
>
> *** Disclaimer ***
> This communication (including all attachments) is solely for the use 
> of the person to whom it is addressed and is a confidential AAA communication.
> If you are not the intended recipient, any use, distribution, 
> printing, or copying is prohibited. If you received this email in 
> error, please immediately delete it and notify the sender.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

MQ For z/os

[Steely.Mark]

Has anyone upgraded from MQ 9.0 to 9.2 ?

Is there any PTF's that need to be applied to 9.0 before going to 9.2. This is 
the only thing I have found:

While at MQ 9.0, take a full backup of the queue managers. Why? Because the 
upgrade process is NOT reversible. If you need to revert back from MQ 9.1 to 
9.0, then you must delete the queue managers and restore the backup taken at MQ 
9.0.

I know this statement is talking about 9.1 but I think it would also relate 
going to 9.2.

Any information relating to upgrading MQ would be appreciated.

Thank You




*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Help with non-existent catalog

[Steely.Mark]

You can also try: DELETE CATALOG..NAME  USERCATALOG RECOVERY

Since it was deleted with recovery you should define a new catalog and then do 
the delete without the recovery.

Thank You

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Chuck Kreiter
Sent: Tuesday, January 26, 2021 12:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Help with non-existent catalog

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


IDCAMS DELETE dsn NOSCRATCH

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, January 26, 2021 1:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Help with non-existent catalog

I've got a catalog problem. I have no reason to believe it is the most obscure 
problem in the world; it's just that I am a catalog ignoramus.

I *think* the problem is that the catalog is cataloged but the underlying 
dataset does not exist. Does that make sense? If I enter an ISPF 3.4 D against 
it ISPF tells me "Dataset not found." That's a problem, right?

If I enter a U against it ISPF tells me Catalog/uncatalog request via SVC 26 
failed, return code = 60, reason code = 4, module id = FM.

Thanks for your help. I believe I would be fine if I could just delete it and 
start over. I don't know quite how this situation came to be.


Charles

--
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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: TSO timeout S622

[Steely.Mark]

Also check your JES PARM JOBCLASS(TSU). That has a TIME option.

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Michael Brennan
Sent: Monday, December 28, 2020 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO timeout S622

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Also suggest you check your security system.  ACF2 has a setting that can 
influence S622 time outs at both a global level and an individual id level.  
Not sure if RACF and Top Secret have the same ability.

Michael


From: IBM Mainframe Discussion List  on behalf of 
Lizette Koehler 
Sent: Monday, December 28, 2020 10:04 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO timeout S622

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don't click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

I would start with D SMF,O in SDSF LOG function on the system getting the
S622

What you think is in SMF may be something else when displayed.

Next I would work with an ID (Hopefully yours) that is getting S622.

Then logon the ID and start a stop watch.  Make sure you can repeat the error

Next - are you using a Session Manager?  Can it control length of time of 
inactivity and cause a S622

Lastly - any changes since the last time it worked and when it first started to 
get S622?

Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Nai, Dean
Sent: Monday, December 28, 2020 5:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TSO timeout S622

Morning,

 Our TSO sessions are timing out in less than 15 minutes even though we has 
SMFPRM00 set to JWT(0030). Any thoughts on what else could be causing this?

0090  IKT100I USERID SYSxxxCANCELED DUE TO UNCONDITIONAL LOGOFF
0090  EZZ6034I TN3270 CONN 0010269E LU TCP00059 CONN DROP  INACT-S 894
0090IP..PORT: 10.250.214.220..19745
0281  IKT122I IPADDR..PORT 10.250.214.220..19745
0285  IEA989I SLIP TRAP ID=X622 MATCHED.  JOBNAME=SYSxxx  , ASID=00DD.
0285  IEA989I SLIP TRAP ID=X13E MATCHED.  JOBNAME=SYSxxx  , ASID=00DD.
0285  IEA989I SLIP TRAP ID=X13E MATCHED.  JOBNAME=SYSxxx  , ASID=00DD.
0090  EZZ6034I TN3270 CONN 00101B55 LU MULTIPLE CONN DROP  INACT-S 900
0090IP..PORT: 10.250.214.209..60713
0090  IEF450I SYSxxx IKJACCNT IKJSYS - ABEND=S622 U REASON= 901
0090  TIME=07.19.08
0090  $HASP395 SYSxxx  ENDED - ABEND=S622

--
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
::DISCLAIMER::

The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only. E-mail transmission is not guaranteed to be 
secure or error-free as information could be intercepted, corrupted, lost, 
destroyed, arrive late or incomplete, or may contain viruses in transmission. 
The e mail and its contents (with or without referred errors) shall therefore 
not attach any liability on the originator or HCL or its affiliates. Views or 
opinions, if any, presented in this email are solely those of the author and 
may not necessarily reflect the views or opinions of HCL or its affiliates. Any 
form of reproduction, dissemination, copying, disclosure, modification, 
distribution and / or publication of this message without the prior written 
consent of authorized representative of HCL is strictly prohibited. If you have 
received this email in error please delete it and notify the sender 
immediately. Before opening any email and/or attachments, please check them for 
viruses and other defects.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Members Deleted was (Offsets SMF17)

[Steely.Mark]

At one time did IBM says that SMF reporting would also be done at the member 
level. I need to find the date, time & ID  a member was deleted.

If this is the case does anyone have a process to do this.

Thank You

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Sri 
h Kolusu
Sent: Friday, November 06, 2020 10:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Offsets SMF17

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


> I want to make a list of the files that have been deleted, from SMF
> record 17, and it must be offsets but nothing comes out.
> can you help me?


Jordi,

As others mentioned, your offsets are off.  SMF17 layout is pretty straight 
forward. So you can code DFSORT symbols and use them instead of hard coding the 
offsets. So use the following job

//STEP1EXEC PGM=ICETOOL
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//SYMNOUT  DD SYSOUT=*
//SYMNAMES DD *
SMF17RDW,1,04,BI
  SMF17LEN,=,02,BI
  SMF17SEG,*,02,BI
SMF17FLG,*,01,BI
SMF17RTY,*,01,BI
SMF17TME,*,04,BI
SMF17DTE,*,04,PD
SMF17SID,*,04,CH
SMF17JBN,*,08,CH
SMF17RST,*,04,BI
SMF17RSD,*,04,PD
SMF17UID,*,08,CH
SMF17RIN,*,02,BI
SMF17DSN,*,44,CH
 SMF17DSNF,=,04,CH
 SMF17DSNR,*,40,CH
SMF17RV1,*,03,BI
SMF17NVL,*,01,BI
SMF17RV2,*,02,BI
SMF17FVL,*,06,CH
/*
//RAWSMF   DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0001V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0002V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0003V00
// DD DISP=SHR,DSN=SA$SF.ALL.M.GEN1.YEAR2011.DATA.G0004V00
//SMF  DD DSN=&,SPACE=(CYL,(15,15)),UNIT=SYSDA
//SMFREP   DD DSN=SA80855.GENX.SMF17.TXT,
//UNIT=3390,DISP=(,CATLG),
//SPACE=(CYL,(2,2),RLSE)
//TOOLIN   DD *
  COPY FROM(RAWSMF) TO(SMF) USING(SMFI)
  DISPLAY FROM(SMF) LIST(SMFREP) -
  BETWEEN(2) -
  LINES(999) -
  BLANK  -
  TITLE('SMF-17 : WHO DELETED DATASETS') DATE TIME PAGE  -
  HEADER('SMF')   ON(SMF17RTY)   -
  HEADER('SYS')   ON(SMF17SID)   -
  HEADER('DATE')  ON(SMF17DTE,DT1,E'/99/99') -
  HEADER('TIME')  ON(SMF17TME,TM1,E'99:99:99')   -
  HEADER('JOB')   ON(SMF17JBN)   -
  HEADER('USER')  ON(SMF17UID)   -
  HEADER('DATASET DELETED') ON(SMF17DSN) -
  HEADER('-VOLS') ON(SMF17NVL)   -
  HEADER('VOLSER') ON(SMF17FVL)
/*
//SMFICNTL DD *
  OPTION VLSCMP,SPANINC=RC0
  INCLUDE COND=(SMF17RTY,EQ,17,AND,  $ TYPE 17
SMF17DSN,EQ,C'UCAT')  $ SMF17DSN = UCAT

  SORT FIELDS=(SMF17DTE,A,   $ SMF17DTE
   SMF17TME,A)   $ SMF17TME
/*


Just in case the format is messed up here, I am going to send the solution as a 
text mail offline.

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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Edit Macro

[Steely.Mark]

Thanks for the ISREDIT END suggestion. 

I did add that - but the process is not executing the macro. 

So that is not the problem. 

Thanks



-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Joe 
Monk
Sent: Thursday, August 06, 2020 5:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Edit Macro

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Well...

The first thing youve got to do is fix your edit macro. When you run an edit 
macro in batch, it has to end with "ISREDIT END".

So, you might have two different versions, one for batch and one for online.

Second, when you run ISREDIT in batch, you have to use a macro to supply the 
input. So, you'll probably need to rethink how youre invoking ISREDIT in batch.

Joe



On Thu, Aug 6, 2020 at 5:40 PM Steely.Mark 
wrote:

> Send again hope it keeps the formatting.
>
> I have this edit macro EICUPDT:
>
> * Top of Data  ISREDIT MACRO 
> (NUM1) ISREDIT COPY EICLIST 20 20 BEFORE 1 ISREDIT COPY EICLIST  
>  BEFORE 1
> EXIT: +
> EXIT CODE(0)
>  Bottom of Data **
>
> When I am in a edit member session and I enter this command "EICUPDT 3"
> from the command line the Macro works as expected. All this does is 
> copy 2 lines from EICLIST. It always copies line 20 but I supply a 
> number for the other line to copy.
>
> I am trying to execute this in batch. I have done this in the past but 
> I never needed to pass a parm.
>
> //TSOBTCH1  EXEC PGM=IKJEFT01
> //SYSTSPRT  DD SYSOUT=*
> ...
> //SYSTSIN   DD *
> PROFILE PREFIX(xx)
> ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1))
> /*
> //*
>
> Here is EDITREX1:
> * Top of Data 
> *
> /* REXX */
> TRACE IR
> /* -- 
> */
> /* All REXX reserved words are shown in CAPS and all user */
> /* defined variables are shown in 'lower case'.   */
> /* -- 
> */ PARSE ARG filename macro1 macro2 ADDRESS ISPEXEC "EDIT 
> DATASET('"filename"') MACRO("macro1") "macro2
>  Bottom of Data 
> ***
>
> I added macro2 to accept the parm value.
>
> This is the results:
>
>>O>   "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT)
> PARM(1)" <---This is the last line that the trace produced
>   ISRP124 Macro parameter error   -/-The parameter specified by PARM
> keyword of the EDIT service could not be resolved.
> READY
>
> I have tried several different ways. Too many to show here.
>
> Any help would be appreciated.
>
> Thank You
> *** Disclaimer ***
> This communication (including all attachments) is solely for the use 
> of the person to whom it is addressed and is a confidential AAA communication.
> If you are not the intended recipient, any use, distribution, 
> printing, or copying is prohibited. If you received this email in 
> error, please immediately delete it and notify the sender.
>
> --
> 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

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Edit Macro

[Steely.Mark]

Send again hope it keeps the formatting.

I have this edit macro EICUPDT:

* Top of Data 
ISREDIT MACRO (NUM1)
ISREDIT COPY EICLIST 20 20 BEFORE 1
ISREDIT COPY EICLIST   BEFORE 1
EXIT: +
EXIT CODE(0)
 Bottom of Data **

When I am in a edit member session and I enter this command "EICUPDT 3" from 
the command line the Macro works as expected. All this does is copy 2 lines 
from EICLIST. It always copies line 20 but I supply a number for the other line 
to copy.

I am trying to execute this in batch. I have done this in the past but I never 
needed to pass a parm.

//TSOBTCH1  EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
...
//SYSTSIN   DD *
PROFILE PREFIX(xx)
ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) - EICUPDT PARM(1))
/*
//*

Here is EDITREX1:
* Top of Data *
/* REXX */
TRACE IR
/* -- */
/* All REXX reserved words are shown in CAPS and all user */
/* defined variables are shown in 'lower case'.   */
/* -- */
PARSE ARG filename macro1 macro2
ADDRESS ISPEXEC "EDIT DATASET('"filename"') MACRO("macro1") "macro2
 Bottom of Data ***

I added macro2 to accept the parm value.

This is the results:

   >O>   "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)"  
   <---This is the last line that the trace produced
  ISRP124 Macro parameter error   -/-The parameter specified by PARM keyword of 
the EDIT service could not be resolved.
READY

I have tried several different ways. Too many to show here.

Any help would be appreciated.

Thank You
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Edit Macro

[Steely.Mark]

I have this edit macro EICUPDT:

* Top of Data 
ISREDIT MACRO (NUM1)
ISREDIT COPY EICLIST 20 20 BEFORE 1
ISREDIT COPY EICLIST   BEFORE 1
EXIT: +
EXIT CODE(0)
 Bottom of Data **

When I am in a edit member session and I enter this command "EICUPDT 3" from 
the command line the
Macro works as expected. All this does is copy 2 lines from EICLIST. It always 
copies line 20 but I supply a number for the other line to copy.

I am trying to execute this in batch. I have done this in the past but I never 
needed to pass a parm.

//TSOBTCH1  EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
...
//SYSTSIN   DD *
PROFILE PREFIX(xx)
ISPSTART CMD(%EDITREX1 XXX0111.DATA(DATAXX) -
EICUPDT PARM(1))
/*
//*

Here is EDITREX1:
* Top of Data *
/* REXX */
TRACE IR
/* -- */
/* All REXX reserved words are shown in CAPS and all user */
/* defined variables are shown in 'lower case'.   */
/* -- */
PARSE ARG filename macro1 macro2
ADDRESS ISPEXEC
"EDIT DATASET('"filename"') MACRO("macro1") "macro2
 Bottom of Data ***

I added macro2 to accept the parm value.

This is the results:

   >O>   "EDIT DATASET('XXX0111.DATA(DATAXX)') MACRO(EICUPDT) PARM(1)"  
   <---This is the last line that the trace produced
  ISRP124 Macro parameter error   -/-The parameter specified by PARM keyword of 
the EDIT service could not be resolved.
READY

I have tried several different ways. Too many to show here.

Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Started task stopping immediately. No error messages.

[Steely.Mark]

Add TIME=1440 to the EXEC DD. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Skippy the Ancient
Sent: Friday, July 24, 2020 2:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Started task stopping immediately. No error messages.

ATTENTION: This e-mail came from an external source. Do not open attachments or 
click on links from unknown or unexpected emails.


Has anyone seeing a started task immediately after you start it?  No ACF2 
messages. No error codes.
Nothing.

Help?

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ISPW Question

[Steely.Mark]

Anyone on this list have experience upgrading Compuware ISPW from v17 to v18?

Is there a  listserv for Compuware and / or ISPW ?

Google couldn't find anything.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

z/OSMF & TSS

[Steely.Mark]

Does anyone have z/OSMF active using TSS (Top Secret) ?  I have been using the  
"Convert z/OS 2.3 member IZUSEC from RACF to TSS commands".

z/OSMF still has problems activating - I would like to see how other sites have 
setup the ID's IBM requires.

My main concern is IZUADMIN. The documentation says to set this up as a profile 
but z/OSMF uses that ID as a USER.

If you prefer you may contact me offline.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CICS & Omegamon

[Steely.Mark]

There used to be a CICS ID sample report that Omegamon provided.  REPORT USERID 
DETAIL

We are currently Omegamon 5.5 and CICS TS 5.2 and z/OS v2.2. .

All the documentation I have found reference members and proc's that are not in 
the documented file.

I have search all the libraries looking for the files.

Is this report  still available and would you be able to provide the JCL to 
create this report.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ZFS Files Compare

[Steely.Mark]

Thanks for the information. This seems to do what I needed.

Thanks

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Leonardo Vaz
Sent: Tuesday, December 17, 2019 11:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ZFS Files Compare

**
ATTENTION: This e-mail came from an external source.  Do not open attachments 
or click on links from unknown or unexpected emails.
**
Bill Schoen's FSCP is what I used in the past:

https://github.com/IBM/zos-tools-and-toys/blob/master/fscp/fscp.rexx

Regards,
Leo

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steely.Mark
Sent: Tuesday, December 17, 2019 12:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ZFS Files Compare

I have 2 ZFS files I would like to compare. I have tried the diff command but 
that has length limit of 2048 and does not compare binary files.

What else is available ?

z/OS v2.2

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
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

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ZFS Files Compare

[Steely.Mark]

I have 2 ZFS files I would like to compare. I have tried the diff command but 
that has length limit of 2048 and does not compare binary files.

What else is available ?

z/OS v2.2

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Sign on Activity Top Secret

[Steely.Mark]

Does someone have a program that can be shared - that will list all TSO sign-on 
?

I know it is SMF 80 record. I can write a program but I don't want to re-invent 
the wheel.

The program can be SAS, EARL, ASM etc
We are z/OS v2.2 and TSS v16. I looked at TSSUTIL but it only listed violations.
CA / Broadcom documentation states: Use a report generator or program to 
produce customized reports based on the credential types used during signon 
activity.
Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Compuware z/Adviser and CA Top Secret (TSS)

[Steely.Mark]

Does anyone on the list-serv have this setup?   Compuware z/Adviser and  CA Top 
Secret (TSS)

I would like to ask for assistance offline from the list-serv (no offense).

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSS Certificate Process

[Steely.Mark]

I got this request from a customer:

I need a keyring on the SYSX top secret database for XXID01. I have a 
Certificate Authority key at XX.CER
and a personal key at XX.PFX.
This is for SMPE RECEIVE ORDER processing.

What are the steps to get this setup. I did execute a CHKCERT on  XX.CER 
and it  did display the Certificate.

THIS CERTIFICATE IS NOT REGISTER WITH CA-TOP SECRET
SERIAL# = xx
ISSUER DISTINGUISHED NAME:
 .CN=xxl CA.O=.C=US
SUBJECT DISTINGUISHED NAME:
 CN=xxl CA.O=xx.C=US
PUBLIC KEY SIZE = 2048
PUBLIC KEY TYPE = RSA
ALGORITHM = sha-1WithRSAEncryption
NOT BEFORE = 2002/05/21 04:00:00 UTC
NOT AFTER = 2022/05/21 04:00:00 UTC
TSS0300I CHKCERT FUNCTION SUCCESSFUL

I then tried to do a GENCERT but the error stated that I need to provide 
SIGNWITH.

Not sure what information to provide.

I need step by step instructions.

Any help would be appreciated. I have never worked with CERTS.

Thank You


*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: $HASP250 JOB Purged

[Steely.Mark]

Is it being picked up by a product like SAR ?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of McCabe, Ron
Sent: Friday, March 01, 2019 11:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: $HASP250 JOB Purged

No it is not.

Thanks,
Ron McCabe
Manager of Mainframe/Midrange Systems
Mutual of Enumclaw


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Rugen, Len
Sent: Friday, March 01, 2019 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: $HASP250 JOB Purged

Is the msgclass / sysout class one setup for purge?

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
McCabe, Ron
Sent: Friday, March 1, 2019 10:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: $HASP250 JOB Purged

Hello List,

Is there a way to override the system so I do not lose output from a job?  When 
I run a job after it ends it immediately comes up with "$HASP250 JOB Purged - 
(Job Key was D5C1B47F) so I do not get any output in SDSF which I need to send 
to Software AG support.

Thanks,
Ron McCabe
Mutual of Enumclaw


Confidentiality Notice: This e- mail and all attachments may contain 
CONFIDENTIAL information and are meant solely for the intended recipient. It 
may contain controlled, privileged, or proprietary information that is 
protected under applicable law and shall not be disclosed to any unauthorized 
third party. If you are not the intended recipient, you are hereby notified 
that any unauthorized review, action, disclosure, distribution, or reproduction 
of any information contained in this e- mail and any attachments is strictly 
PROHIBITED. If you received this e- mail in error, please reply to the sender 
immediately stating that this transmission was misdirected, and delete or 
destroy all electronic and paper copies of this e-mail and attachments without 
disclosing the contents. This e- mail does not grant or assign rights of 
ownership in the proprietary subject matter herein, nor shall it be construed 
as a joint venture, partnership, teaming agreement, or any other formal 
business relationship.

--
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
Confidentiality Notice: This e- mail and all attachments may contain 
CONFIDENTIAL information and are meant solely for the intended recipient. It 
may contain controlled, privileged, or proprietary information that is 
protected under applicable law and shall not be disclosed to any unauthorized 
third party. If you are not the intended recipient, you are hereby notified 
that any unauthorized review, action, disclosure, distribution, or reproduction 
of any information contained in this e- mail and any attachments is strictly 
PROHIBITED. If you received this e- mail in error, please reply to the sender 
immediately stating that this transmission was misdirected, and delete or 
destroy all electronic and paper copies of this e-mail and attachments without 
disclosing the contents. This e- mail does not grant or assign rights of 
ownership in the proprietary subject matter herein, nor shall it be construed 
as a joint venture, partnership, teaming agreement, or any other formal 
business relationship.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: increasing the size of a zFS file system...

[Steely.Mark]

This is from IBM: 

Figure 1. Sample job to copy the physical blocks of an aggregate to a larger 
data set//SUIMGVMB JOB ,'EXPAND AGGR WITH REPRO',
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFINE   EXEC   PGM=IDCAMS
//SYSPRINT DD SYSOUT=H
//SYSINDD *
 DEFINE CLUSTER (NAME(PLEX.NEW.AGGR002.LDS0002) -
LINEAR CYL(100 5) SHAREOPTIONS(3) -
VOLUMES(CFC000 CFC001))
/*
//LCAT1EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//* This step should show a HI-U-RBA of 0 
//* for PLEX.NEW.AGGR002.LDS002
//SYSINDD  *
  LISTCAT ENTRIES(PLEX.OLD.AGGR002.LDS0002) -
  ALL
  LISTCAT ENTRIES(PLEX.NEW.AGGR002.LDS0002) -
  ALL
/*
//REPRO1   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=H
//* The next line guarantees that the file system is not mounted
//IN1   DD DSN=PLEX.OLD.AGGR002.LDS0002,DISP=OLD
//SYSIN DD *
  REPRO -
 INFILE(IN1) -
 OUTDATASET(PLEX.NEW.AGGR002.LDS0002)
/*
//LCAT2EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//* This step should show the HI-U-RBA of 
//* PLEX.NEW.AGGR002.LDS002 equal to the HI-U-RBA
//* of PLEX.OLD.AGGR002.LDS002
//SYSINDD  *
  LISTCAT ENTRIES(PLEX.OLD.AGGR002.LDS0002) -
  ALL
  LISTCAT ENTRIES(PLEX.NEW.AGGR002.LDS0002) -
  ALL
/*

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Tuesday, December 11, 2018 11:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: increasing the size of a zFS file system...

I also use this command in batch to display how my zFS files are in size

//ZFCACHE1 EXEC PGM=BPXBATCH, 
// PARM='sh df -kP /appl/ars/Prod/cache' 
//SYSPRINT DD SYSOUT=* 
//SYSTSPRT DD SYSOUT=* 
//STDOUT DD SYSOUT=*


Good for batch or OMVS usage

But as others will point out, for User zFS/HFS files, use one per user.  With 
FTP and other processes using more and more USS services, some will grow really 
big and others will stay small.  You will also have an easier clean up process 
by using individual files for the file system.



Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Lizette Koehler
> Sent: Tuesday, December 11, 2018 10:37 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: increasing the size of a zFS file system...
> 
> I use this in Batch.  This grows the zFS based on the secondary allocation.
> 
> 
> 
> //XPT001 EXPORT SYMLIST=*
> //*
> //SYM001 SET NZFS='MY.MVS.DATA.SET.NAME.HERE'
> //*
> //ZFSGROW EXEC PGM=BPXBATCH,
> // PARM='sh zfsadm grow -aggregate  -size 0'
> //SYSPRINT DD SYSOUT=*
> //SYSTSPRT DD SYSOUT=*
> //STDOUT DD SYSOUT=*
> 
> I put the zFS MVS Dataset name in a symbol as it makes my JCL easier to work
> with
> 
> 
> Lizette
> 
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of DJ
> > Sent: Tuesday, December 11, 2018 7:28 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: increasing the size of a zFS file system...
> >
> > Hello, all.
> > Does anyone happen to have handy a cheat sheet type document on how to
> > increase the size of a zFS file system, specifically the ZFS.USERS
> > (mounted at "/u") one?
> > Thanks in advance.
> > DJ
> 
> --
> 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

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IFASMFDP

[Steely.Mark]

I think you can specify the volsers you just want to read -- 
VOL=SER=(UC4622,UI0455).

This may cause an error but you will have the data needed .

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Tuesday, December 04, 2018 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IFASMFDP

In my opinion, you cannot do much using IFASMFDP.  Fairly stable (can you say
no real enhancement potential).

You could look at using LOGSTREAM for SMF Data (which I am told is nicer) -
Logstream provides a possibility of better search criteria.

>From my experience, when you have HUGE SMF files (offloaded) it is difficult to
manage with better tools like ASPG SMFUTIL or CA SMF Director.

Just using SMF IFASMFDP, makes the process more prone to difficulties.

Just my humble opinion - and I have just converted to a new series of SMF jobs
to do the collection, interim dumps to Daily files and Daily Mod'd onto Monthly.
We do not have WEEKLY.

When the process runs, it is great.  When it fails, I have to spend many, many
days recovering the SMF data.

Sometimes you need to review the SMF Collection process and see what makes
sense.  Do you need to keep all Records (and z/OS V2.3 adds more new SMF record
Types) or just specific ones.  I can only see SMF Data getting bigger and bigger
as the years to come.  What is needed for AUDIT functions and what is needed for
Capacity Planning/Performance Tuning.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Sankaranarayanan, Vignesh
> Sent: Tuesday, December 04, 2018 9:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: IFASMFDP
>
> Hello!
>
> Say there's a file called SMF.WEEKLY and it is a huge, multi-volume file, and
> is an aggregate of all SMF.DAILY files (data is sequential).
> If I want to pick out data from just the first day of the week from
> SMF.WEEKLY, using IFASMFDP, apart from specifying DATE(yyddd,yyddd), is there
> a more efficient way?
>
> That is, knowing that the data I need ends within the first few vols of the
> multi-vol SMF.WEEKLY, is there a way to avoid the cost of going through the
> whole SMF.WEEKLY file?
>
> As always, thanks for your inputs.
>
> - Vignesh
> Mainframe Infrastructure
>
>
> MARKSANDSPENCER.COM
> 
> Unless otherwise stated above:
> Marks and Spencer plc
> Registered Office:
> Waterside House
> 35 North Wharf Road
> London
> W2 1NW
>
> Registered No. 214436 in England and Wales.
>
> Telephone (020) 7935 4422
> Facsimile (020) 7487 2670
>
> www.marksandspencer.com
>
> Please note that electronic mail may be monitored.
>
> This e-mail is confidential. If you received it by mistake, please let us
> know and then delete it from your system; you should not copy, disclose, or
> distribute its contents to anyone nor act in reliance on this e-mail, as this
> is prohibited and may be unlawful.
>
> --
> 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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ASMA034E

[Steely.Mark]

Thank You - those worked.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Cieri, Anthony
Sent: Wednesday, November 14, 2018 4:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASMA034E

There is a sample z/OS FTP client user exit in TCPIP.SEZAINST(EZAFCEXT).

In this sample exit, there are two "in-stream" macros called ABCINIT 
and ABCTERM. The ABCINIT macro supports setting multiple base registers.

Hth
Tony


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steely.Mark
Sent: Wednesday, November 14, 2018 4:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: ASMA034E

The assembler program I am working on is receiving several  of these messages:

ASMA034E Operand =X' beyond active USING range by 148 bytes


I have tried all the examples to add a second register to the USING statement.
When the program executes it gets a S0C1.

Currently I have a macro call ENTER which sets up all the register and 
generates a USING statement with 1 register.

Does anyone have a macro or  a piece of code which will setup a USING statement 
with 2 registers.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ASMA034E

[Steely.Mark]

The assembler program I am working on is receiving several  of these messages:

ASMA034E Operand =X' beyond active USING range by 148 bytes


I have tried all the examples to add a second register to the USING statement.
When the program executes it gets a S0C1.

Currently I have a macro call ENTER which sets up all the register and 
generates a USING statement with 1 register.

Does anyone have a macro or  a piece of code which will setup a USING statement 
with 2 registers.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IEF196I msg in JESMSGLG

[Steely.Mark]

When I execute a batch job which uses a JES2 init I get the following  job 
messages:

   J E S 2  J O B  L O G  --  S Y S T E M  X X X X  --  N O 
D E  X X X X

09.00.18 JOB12252  FRIDAY,09 NOV 2018 
09.00.18 JOB12252  TSS7000I XX0042 Last-Used 09 Nov 18 00:01 System=SYSA 
Facility=
09.00.18 JOB12252  $HASP373 XX004215 STARTED - INIT S- CLASS S- SYS 

09.00.18 JOB12252  XX004215  JS010(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS020(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS030(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS040(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS050(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS060(IEFBR14 )  
09.00.19 JOB12252  XX004215  JS070(IEFBR14 )  
09.00.19 JOB12252  $HASP395 XX004215 ENDED - RC=

The job step messages are produced by the IEFACTRT exit.

When I execute the same batch job - but it uses a WLM init I get job messages:

   J E S 2  J O B  L O G  --  S Y S T E M  X X X X  --  N O 
D E  X X X X

08.49.06 JOB11630  FRIDAY,09 NOV 2018 
08.49.06 JOB11630  TSS7000I XX0042 Last-Used 09 Nov 18 00:01 System=SYSA 
Facility=
08.49.06 JOB11630  $HASP373 XX004215 STARTED - WLM INIT  - SRVCLASS BATWLMB  - 
SYS 
08.49.06 JOB11630  XX004215  JS010(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS010(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS020(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS020(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS030(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS030(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS040(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS040(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS050(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS050(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS060(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS060(IEFBR14 )  
08.49.06 JOB11630  XX004215  JS070(IEFBR14 )  
08.49.06 JOB11630  IEF196I XX004215  JS070(IEFBR14 )  
08.49.06 JOB11630  $HASP395 XX004215 ENDED - RC=

This execution also gets the IEF196I messages.

I tried using an OPS/MVS rule to suppress the MSG but that only removed the 
message from the console.

Is there any way to get rid of the IEF196I messages from the JESMSGLG.

Thank You


*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CA PDSMAN and dynamic additions to APF list

[Steely.Mark]

To be clear, the data set is being accessed via a private DD statement:  Is 
this the only Dataset specified on the DD statement ?

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gord Tomlin
Sent: Wednesday, October 17, 2018 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CA PDSMAN and dynamic additions to APF list

On 2018-10-17 11:56, Carmen Vitullo wrote:
> so you question is just 'in general' ?
> It's been a while since I was at a site that used CA-PDSMAN but I'm thinking, 
> if managed, it would automatically refresh LLA, not sure about the linklist, 
> that refresh sometime causes issues with some vendor software, or at least it 
> use to.

It's a specific problem we are looking at, in which a BLDL is failing 
with ABEND306-4 despite the data set being in the APF list. To be clear, 
the data set is being accessed via a private DD statement, not via the 
lnklst.

--

Regards, Gord Tomlin
Action Software International
(a division of Mazda Computer Corporation)
Tel: (905) 470-7113, Fax: (905) 470-6507
Support: https://actionsoftware.com/support/

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: EDIT Macro

[Steely.Mark]

I really don't want to do that but may be the only option.

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Monday, October 08, 2018 5:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: EDIT Macro

A more simple solution is to create an ALIAS for the main entry

JJ
Then create an ALIAS JJ1, JJ2, JJ3 all pointing to JJ


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Steely.Mark
> Sent: Monday, October 08, 2018 3:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: EDIT Macro
>
> I have a JCL Check product that uses an EDIT Macro to check the JCL. This
> EDIT Macro has been copied under different member names through the years.
> The customers uses whatever  process was provided when hired.
>
> The question is can I call another edit macro within another edit macro.
>
> Ex.   JJ1 JJ2 JJ3 are all exactly the same.
> How can I leave JJ1 alone and have JJ2 & JJ3 call  JJ1.
>
> The manuals were not very informative.
>
> I tried EXEC 'aaa.aaa.aaa(JJ1)'Cant exec an edit macro that way.
>
> I really don't want to use PDS ALIAS technique.
>
> Any help would be appreciated.
>
> Thank You
>
>
> *** Disclaimer ***
> This communication (including all attachments) is solely for the use of the
> person to whom it is addressed and is a confidential AAA communication. If
> you are not the intended recipient, any use, distribution, printing, or
> copying is prohibited. If you received this email in error, please
> immediately delete it and notify the sender.
>
> --
> 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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

EDIT Macro

[Steely.Mark]

I have a JCL Check product that uses an EDIT Macro to check the JCL. This EDIT 
Macro has been copied under different member names through the years. The 
customers uses whatever  process was provided when hired.

The question is can I call another edit macro within another edit macro.

Ex.   JJ1 JJ2 JJ3 are all exactly the same.
How can I leave JJ1 alone and have JJ2 & JJ3 call  JJ1.

The manuals were not very informative.

I tried EXEC 'aaa.aaa.aaa(JJ1)'Cant exec an edit macro that way.

I really don't want to use PDS ALIAS technique.

Any help would be appreciated.

Thank You


*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ISPF command for owner of DSN enqueue

[Steely.Mark]

I have this as member WHI in SYSPROC concatenation.

PROC 1 DSN 
/* CLRSCRN */  
ISRDDN E   


Option 3.4 enter WHI beside DSN. Provides information requested. 

Thanks


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Edward Finnell
Sent: Friday, September 07, 2018 4:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF command for owner of DSN enqueue

ISPF has a built-in WHOHAS. If you get Dataset in use. Just PF1 and it will 
show enques. 


In a message dated 9/7/2018 3:50:30 PM Central Standard Time, 
jesse1.robin...@sce.com writes:

 
We have run a version of WHOHAS since the 1980s. Origin unknown. If CBT has a 
version, it would probably do the trick.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CF - CFRM Question.

[Steely.Mark]

We are z/OS V2.2. While I was updating the IODF It was decided to change the 
Couple Facility Partition Identifier (CFA) from 8 to 9. Nothing else about that 
partition was changed. 

Also another CF Partition was created as  CFB with Partition Identifier 9. At 
this point nothing is attached to this partition.

I was informed since the partition ID was changed that the CFRM needed to be 
updated. 

So I added the additional CF NAME  and updated the PARTITION #. 
CF NAME(CFA) 
   TYPE(00)
   MFG(IBM)
   PLANT(02)   
   SEQUENCE(00094037)  
   PARTITION(9)
   CPCID(00)   
   DUMPSPACE(367002)   
   
CF NAME(CFB) 
   TYPE(00)
   MFG(IBM)
   PLANT(02)   
   SEQUENCE(00094037)  
   PARTITION(8)
   CPCID(00)   
   DUMPSPACE(367002)   

Also updated all STRUCTURE's with PREFLIST with CFA & CFB. 

STRUCTURE NAME(XX__X)   
   SIZE(172128)  
   INITSIZE(114752)  
   FULLTHRESHOLD(90) 
   ALLOWAUTOALT(NO)  
   REBUILDPERCENT(1) 
   DUPLEX(DISABLED)  
   PREFLIST(CFA,CFB)

Then executed the utility and received a Cond code 0. 

During the IPL the following message was received:

IXC518I SYSTEM  not using CF

Reason: Not in the CFRM active policy
Reason Flag: 1332.

NOT IN THE CFRM ACTIVE POLICY. REASON FLAG: reason.
The CFRM active policy does not have this coupling facility defined. The 
coupling facility is connected to the system but will not be used since not in 
CFRM active policy.

After that re-occurring error messages . 

At this point I decide to change the partition number back to 8 in the HMC and 
re-activated the CF. 
I also put back in place the old CFRM. RE-IPL and was able to successfully 
bring the system back up. 

What would be the correct way to update this ?  What I have been able to find 
is to create a new CFRM and then perform a SETXCF 
START,POLICY,TYPE=CFRM,POLNAME=CFRM.
Do I update the current CFRM? 
Can I use the same POLNAME ?
How do I switch to the updated CFRM ?

Any help would be appreciated. 

We were also wondering  how the system was able to use the partition # defined 
in the CFRM  as partition 8 but the IODF has it defined as partition 9.

Thank You 

   
 

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: JES2 Spool Data Set Browse (SDSB) sample

[Steely.Mark]

What about this:

//JS010   EXEC PGM=SDSF
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSTERM  DD  SYSOUT=*
//SYSINDD  DUMMY   
//FILEOUT  DD  DSN=..SEARCH,DISP=(,CATLG,DELETE),  
// UNIT=3390,SPACE=(CYL,(10,1)),   
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=0)  
//*ISFOUT   DD  SYSOUT=*   
//ISFOUT   DD  DUMMY   
//ISFINDD  *   
PREFIX CICS*   
DA 
F 'CICSPXX1'   
++?
F 'JESMSGLG'   
++S
PRINT FILE FILEOUT 
PRINT  
DA 
F 'CICSPXX2'   
++?   
F 'JESMSGLG'  
++S   
PRINT FILE FILEOUT
PRINT 
DA
F 'CICSPXX3'  
++?   
F 'JESMSGLG'  
++S   
PRINT FILE FILEOUT
PRINT 
DA
F 'CICSPXX4'  
++?   
F 'JESMSGLG'  
++S   
PRINT FILE FILEOUT
PRINT 
DA
F 'CICSPXX5'  
++?   
F 'JESMSGLG'   
++S
PRINT FILE FILEOUT 
PRINT  
DA 
F 'CICSPXX6'   
++?
F 'JESMSGLG'   
++S
PRINT FILE FILEOUT 
PRINT  
PRINT CLOSE
//*  

This prints the JESMSGLG put you could change that to JESJCL. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Thursday, August 16, 2018 9:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JES2 Spool Data Set Browse (SDSB) sample

A short answer is check out the SSI (Subsystem Interface) manual. Not for the 
feint-hearted.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chris Cantrell
Sent: Thursday, August 16, 2018 8:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: JES2 Spool Data Set Browse (SDSB) sample

Does anyone have a somple program which reads the currently running jobs JCL 
using the Spool Data Set Browse (SDSB) function? I would be extremely greatful 
in anyone could post a sample! Thanks!

--
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

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SPOOL Volumes

[Steely.Mark]

We are z/OS v2.2.  During a DR exercise most times a cold start is performed 
for JES2. I noticed that a volume (that is currently online but not currently  
used by JES2 in production)  was discovered and put into use by the JES2 cold 
start.

This was not a problem at DR but is there a way to specify not to allocate this 
volume during the cold start.  I know I could vary the volume offline , or 
rename the dataset on the volume or rename the volume.

Any other ways to do this.

Thank You

Mark Steely
AAA - Auto Club Enterprises.
Mainframe Support
Phone: 469-221-7350Email: 
steely.m...@aaa-texas.com


*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IOEZ00793E Error=111 reason=EF016015 received while attempting to convert directory / to version 5 format

[Steely.Mark]

zFS Thu Jan 26 14:45:58 EST 2017
Description: SAF CKACC returned error.  

Action: The user did not have the correct permission on the object for the  
operation requested. Change the permissions on the object or have a user that   
is authorized execute the operation.
*** 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Conley
Sent: Wednesday, June 27, 2018 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IOEZ00793E Error=111 reason=EF016015 received while attempting to 
convert directory / to version 5 format

On 6/27/2018 12:01 PM, Jantje. wrote:
> Dear Listers,
> 
> Can anyone please point me to some documentation where the error code and/or 
> reason code for the above error message is?
> 
> I am converting directories in a zFS to version 1.5 and for some directories 
> this is not working. I get the above error message, but the manual says only:
> 
> IOEZ00793E   Error=ReturnCode reason=ReasonCode received while attempting to 
> convert directory name to version 5 format

TSO BPXMTEXT EF016015.  If that doesn't work, run it directly from 
SYS1.SBPXEXEC or whatever name you call that dataset.

Regards,
Tom Conley

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: unexpected tape issue with RETAIN

[Steely.Mark]

I usually use UNIT=AFF=SMFIN - Maybe you can try that instead.  

Not sure of the syntax but it always works for me.

Thank You 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tony Thigpen
Sent: Friday, May 04, 2018 2:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: unexpected tape issue with RETAIN

I have a 50+ step backup job (using real 3590s) that has steps like:

//STEP049 EXEC PGM=ADRDSSU
//SYSPRINT DD  SYSOUT=*
//DASD DD  DISP=SHR,UNIT=3390,VOL=SER=HKYTD4
//BACKUP   DD  DSN=DR.T.DSS.HKYTD4.,DISP=(NEW,KEEP,DELETE),
// UNIT=3590,VOL=(,RETAIN,REF=*.STEP048.BACKUP),
// LABEL=(49,SL,RETPD=),DCB=(MODEL.DSCB,BLKSIZE=0)
//SYSINDD  *
  DUMP FULL INDD(DASD) OUTDD(BACKUP) ALLD(*) ADMIN TOL(IOER) ALLE
/*
//*
//STEP050 EXEC PGM=ADRDSSU
//SYSPRINT DD  SYSOUT=*
//DASD DD  DISP=SHR,UNIT=3390,VOL=SER=HKYTD5
//BACKUP   DD  DSN=DR.T.DSS.HKYTD5.,DISP=(NEW,KEEP,DELETE),
// UNIT=3590,VOL=(,RETAIN,REF=*.STEP049.BACKUP),
// LABEL=(50,SL,RETPD=),DCB=(MODEL.DSCB,BLKSIZE=0)
//SYSINDD  *
  DUMP FULL INDD(DASD) OUTDD(BACKUP) ALLD(*) ADMIN TOL(IOER) ALLE
/*

This job always worked on OS/390 2.10, but under z/OS 1.13, randomly, 
when going to a new step, it wants the current tape mounted on a 
different 3590. Additionally, it does not unload the tape from the first 
drive.

Also: If I have only one drive online, it runs to completion. If I have 
two drives, but the other one is busy, it runs to completion.

Info: This system is using RMM as a tape manager, but the files being 
created on the tape are not defined in any storage group or RMM.

It is driving me batty. I have to be 'not seeing' something.


-- 
Tony Thigpen

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Finding a member in a DD concatenation

[Steely.Mark]

I have a REXX EXEC named ZOOM. While in edit mode type in ZOOM and put the 
cursor on the DD name (in the example anywhere under the name PARMS) and hit 
enter. Then it  will display the member where it is found.
When you end out of that member it continues the search. 

I am not sure who the author was , but it has been around for some time. 

Let me know if you would like a copy. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: Friday, April 06, 2018 1:23 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding a member in a DD concatenation

On Fri, 6 Apr 2018 17:50:48 +, Frank Swarbrick wrote:

>I'm pretty sure the answer to this is no (at least not easily), but can't hurt 
>to ask.
>
>The following, of course, works:
>//PARMS DD DISP=SHR,DSN=PROD.APPLIB.PARMS(ABC)
>
>Is there some way I could specify a DD concatenation where the system 
>would search the DD's in order until it found a named member?

I don't know a way to do it just with JCL, but a program can do it easily. 
You could have a program that accepted a PARM of the member name that you want. 
The program would open a PDS concatenation and get the member that you want, 
then copy it to a temporary data set that your other program read. Maybe you 
can find a utility that will do it for you.

--
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: VBSFIX Program

[Steely.Mark]

Attached is the VBSFIX program. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Carmen Vitullo
Sent: Monday, April 02, 2018 10:34 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: VBSFIX Program

DFsort and syncsort can correct some bad record formats in SMF 



//SYSIN DD *
INCLUDE COND=ALL
OPTION COPY,VLSHRT 





Carmen Vitullo 

- Original Message -

From: "Veryl Ellis" 
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Monday, April 2, 2018 10:22:23 AM
Subject: VBSFIX Program 

Does anyone have a copy of the IBM module VBSFIX? 

I have short record(s) in my SMF dump dataset, which is prohibiting me from 
doing my monthly SCRT thing. 

I've seen information that this program can resolve this issue. 

Anyone out there have this program and are willing to share? 

Thanks, 

S. Veryl Ellis
Sungard Availability Services. 

--
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

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
VBSF TITLE 'PROGRAM TO READ VBS RECORDS AND CLEAN UP BAD SEGMTS'
***
* *
*  THIS PROGRAM IS DISTRIBUTED ON AN "AS IS" BASIS.  IBM MAKES NO *
*  WARRANTIES, EITHER EXPRESSED OR IMPLIED, AS TO ITS USABILITY OR*
*  SUITABILITY FOR ANY PURPOSE WHATSOEVER.  THE USER OF THIS PROGRAM  *
*  ACCEPTS FULL RESPONSIBILITY FOR ANY DAMAGES THAT MAY RESULT FROM   *
*  THE USE OF THIS PROGRAM, AND IBM SHALL NOT BE HELD LIABLE FOR ANY  *
*  DAMAGES -- EITHER DIRECT OR CONSEQUENTIAL -- WHICH MAY RESULT FROM *
*  ITS USE.   *
* *
***
* *
* *
* FUNCTION - THIS PROGRAM IS DESIGNED TO READ A VBS DATASET (NON- *
*VSAM) AND CHECK ON VALID SDW'S.  *
*INVALID SEGMENTS ARE CONVERTED TO VB OUTPUT IN FILE 'BADRECS'.   *
*VALID RECORDS ARE COPIED TO FILE 'OUTPUT'.   *
* *
* EXEC PARMS: 'SMF' - THIS CAUSES THE PROGRAM TO DISPLAY THE SMF  *
* RECORD ID (BYTE 2) AS PART OF ERROR MESSAGES.   *
* *
* INPUT - VBS FILE TO BE CHECKED   : 'INPUT'  *
* *
* OUTPUT- VBS FILE FOR GOOD RECORDS: 'OUTPUT' *
* V(B) FILE WITH BAD SEGMENTS  : 'BADRECS'*
* ERROR MESSAGE FILE   : 'SYSPRINT'   *
* *
* METHODOLOGY - THE INPUT FILE IS READ IN ONE SEGMENT AT A TIME   *
* (LOCATE MODE).  *
* SEGMENTS ARE CHECKED MANUALLY, AND A NEW LOGICAL*
* RECORD IS CREATED AND WRITTEN TO OUTPUT.*
* SEGMENTS WHICH DON'T MATCH UP ARE WRITTEN INTACT TO FILE*
* BADRECS FOR LATER ANALYSIS. *
* A DESCRIPTIVE ERROR MESSAGE IS WRITTEN TO SYSPRINT FOR EACH *
* BAD RECORD DETECTED.*
* *
* AUTHOR - B. K. PIERCE, WASHINGTON SYSTEMS CENTER.   *
* *
* MAINTENANCE HISTORY - (ORIGINAL DATE - 4/28/80) *
* V1M1 (12/06/81): ERROR IN RECORD UNSTACK ROUTINE.   *
*  SUPPORT FOR SYNAD EXIT AND ERROR MESSAGES  *
* V1M2 (02/05/82): ADD SYNAD SUPPORT FOR OUTPUT DATASET   *

Re: EXIT to control use of Class

[Steely.Mark]

Here is the JES2 Exit 50 we used.  

If the ID is CA7ONL class U was forced. 

Thanks

HASX50A  TITLE 'USER EXIT 50 MODULE -- PROLOG (MODULE COMMENT BLOCK)'   0001
*** 0014
* * 0015
* MODULE NAME = HASX50A  (HASX50A load module)* 0016
* * 0017
* DESCRIPTIVE NAME = JOB STATEMENT SCAN   * 0018
* * 0019
* STATUS = OS/VS2 - SEE $MODULE EXPANSION BELOW FOR FMID, VERSION * 0020
* * 0021
* FUNCTION =  * 0022
* * 0023
* * 0023
* * 0023
* * 0023
* * 0026
* * 0042
*REGISTER CONVENTIONS = SEE ENTRY POINT DOCUMENTATION * 0043
* * 0044
*PATCH LABEL = NONE   * 0045
* * 0046
* MODULE TYPE = Procedure ( CSECT type )  * 0047
* * 0048
*PROCESSOR = IBM High Level Assembler/MVS 1.5.0@Z07LASM 0049
* * 0050
*MODULE SIZE = SEE $MODEND MACRO EXPANSION AT END OF ASSEMBLY * 0051
* * 0052
*ATTRIBUTES = JES2 REENTRANT, RMODE ANY, AMODE 31 * 0053
* Supervisor state, protect key of JES2's (1) * 0054
* * 0055
* ENTRY POINT = EXIT50A   * 0056
* * 0057
*PURPOSE = SEE FUNCTION   * 0058
* * 0059
*LINKAGE = STANDARD MVS LINKAGE   * 0060
* * 0061
* EXIT-NORMAL = RETURN TO CALLER (HASPRDR)* 0062
* * 0063
* EXIT-ERROR = NONE   * 0064
* * 0065
* EXTERNAL REFERENCES = SEE BELOW * 0066
* * 0067
*ROUTINES = MISCELLANEOUS JES2 SERVICE ROUTINES   * 0068
* * 0069
*DATA AREAS = SEE $MODULE MACRO EXPANSION * 0070
* * 0071
*CONTROL BLOCKS = SEE $MODULE MACRO EXPANSION * 0072
* * 0073
* TABLES = SEE $MODULE MACRO DEFINITION (BELOW)   * 0074
* * 0075
* MACROS = JES2 - $DOGBERT, $ENTRY, $JCTXGET, $MODEND, $MODULE,   * 0076
* $RETURN * 0077
* * 0078
* MACROS = MVS  - none* 0079
* * 0080
* CHANGE ACTIVITY:* 0081
* * 0082
* $Z07LASM=NJETCP   HJE7720 050203 CLW:  HLASM 5.0 support* 0083
* * 0084
* A00-99CREATED FOR JES2 z/OS 1.7  @Z07LTCP 0085
*** 0086
 TITLE 'USER EXIT 50 MODULE -- PROLOG 

Transmitting a job

[Steely.Mark]

We are trying to transmit a job from the current system to another system. The 
job
transmit and executes successfully if it connected directly to the other node. 
When the job needs to
go through one node to get to the other node it fails.

Scenario :  A to B success , B to A success. D to B success. B to D Success.  A 
to B to D fails. D to
B to A fails. We receive the following messages on B:

$HASP329 TS0242DD JOB VALIDATION FAILED WITHOUT ACCOMPANYING MESSAGE
SECURITY PRODUCT RETURN CODE = 0008  REASON CODE = 
$HASP250 TS0242DD PURGED -- (JOB KEY WAS D404982C)

I did a TSSTRACK and received:

B 0828 00JES2 J F *MISSING ACSCD   *07*   VFX HA$PSUBS  *BELOW*
   NAME=** UNDEFINED ACID **

07 = PASSWORD MISSING

We are not sure when this stopped working but we did upgrade from R15 to R16 of 
TSS several weeks ago.

We do not have any nodes defined in TSS.

Any help would be appreciated.   We are z/OS V2.2.

Thanks

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CA-TSS Question

[Steely.Mark]

Thanks for the information. The example command ' TSS PER(USER1) 
DSNAME(ACCT.FILE.DATA) DSKEY(AES_SECURE_KEY) SYMCPACFRET(YES)'  the SYMCPACFRET 
option does not work

The command without the  SYMCPACFRET option is successful.

Waiting for customer to test.

Thank You

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Wednesday, March 07, 2018 9:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CA-TSS Question

Took a little bit, but I have an answer from TSS development:

DSKEY Keyword-Dataset Encryption Key Label Last update September 28, 2017 Valid 
on z/OS.

Use the DSKEY keyword to specify the key label that encrypts/decrypts the data 
in the z/OS Integrated Cryptographic Service Facility (ICSF) cryptographic key 
data set (CKDS).

This keyword has the following format:

TSS PER(acid) DSNAME(dataset_resource) DSKEY(key_label)

key_label

Specifies a 1- to 64-character data set key label.

This keyword is used with:

PERMIT command
ACID types User, DCA, VCA, ZCA, LSCA, and SCA DSNAME resource class only
Resource(XAUTH) authority to specify ACTION for resources that are owned within 
their scope
Example: Associate a Key Label with a Data Set This example associates a data 
set key label with ACCT.FILE.DATA and-through the SYMCPACFRET setting-allows 
ICSF to return a protected key in a wrapped form:

TSS PER(USER1) DSNAME(ACCT.FILE.DATA) DSKEY(AES_SECURE_KEY) SYMCPACFRET(YES)


And here is the link to our doc on the enhancement:


https://docops.ca.com/ca-top-secret-for-z-os/16-0/en/product-information/ca-
top-secret-version-16-product-enhancements#CATopSecretVersion16ProductEnhanc
ements-DataSetEncryptionSupport(RO97892)

Sorry if IBMMAIN breaks that link. Try this one if so: http://bit.ly/2FgCxbr


Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steely.Mark
Sent: Tuesday, March 6, 2018 10:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CA-TSS Question

We are z/OS v2.2 and CA-TSS V16.

Does CA-TSS support the encryption key label in the DFP segment.

This is the sample for RACF.

/*---*/
/* Specify the encryption key label in the DFP segment.  */
/*---*/
ALTDSD 'EYSHA.ICSF.ENCRYPT.ME.*'   +
   DFP(DATAKEY(DATASET.EYSHA.ICSF.ENCRYPT.ME.ENCRKEY.0001))

All my searches came up empty.

Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
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
*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

CA-TSS Question

[Steely.Mark]

We are z/OS v2.2 and CA-TSS V16.

Does CA-TSS support the encryption key label in the DFP segment.

This is the sample for RACF.

/*---*/
/* Specify the encryption key label in the DFP segment.  */
/*---*/
ALTDSD 'EYSHA.ICSF.ENCRYPT.ME.*'   +
   DFP(DATAKEY(DATASET.EYSHA.ICSF.ENCRYPT.ME.ENCRKEY.0001))

All my searches came up empty.

Any help would be appreciated.

Thank You

*** Disclaimer ***
This communication (including all attachments) is solely for the use of the 
person to whom it is addressed and is a confidential AAA communication. If you 
are not the intended recipient, any use, distribution, printing, or copying is 
prohibited. If you received this email in error, please immediately delete it 
and notify the sender.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

LNKLST Question

[Steely.Mark]

This is the steps to add and remove PDS/E from the LNKLST from an IBM document:
http://www-01.ibm.com/support/docview.wss?uid=isg3T1010789

To remove a PDSE in LNKLST:

SETPROG LNKLST,DEFINE,NAME=LNKLST2,COPYFROM=LNKLST1
SETPROG LNKLST,DELETE,NAME=LNKLST2,DSNAME=YOUR.LINKLIST.PDSE
SETPROG LNKLST,ACTIVATE,NAME=LNKLST2
SETPROG LNKLST,UPDATE,JOB=*
F LLA,REFRESH

To add it back, do the following:

SETPROG LNKLST,DEFINE,NAME=LNKLST3,COPYFROM=LNKLST2
SETPROG LNKLST,ADD,NAME=LNKLST3,DSNAME=YOUR.LINKLIST.PDSE
SETPROG LNKLST,ACTIVATE,NAME=LNKLST3
SETPROG LNKLST,UPDATE,JOB=*
F LLA,REFRESH

This would need to be done on all LPARs that share the link listed PDSE.

My question is would it be possible to activate LNKLST1 again instead of 
defining LNKLST3 ?

We are z/OS v2.2.

Thank You


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: DLIB volume for SAD

[Steely.Mark]

A little off topic - when is the last time anyone  had  to perform a SAD ?  I 
haven’t done one in 20+ years. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Wednesday, September 27, 2017 4:11 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DLIB volume for SAD

My comment was meant more for z/OS release upgrades. In some of our sysplexes, 
we run both old and new releases for some period before full migration. I guess 
it's somewhat risky, but we generally rebuild SAD when the first member gets 
upgraded. If we were shot at, we were missed. ;-)

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jim Mulder
Sent: Wednesday, September 27, 2017 12:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: DLIB volume for SAD

  I don't know of any SADMP PTFs that were not downward compatible within the 
same release of z/OS, and we would certainly try to avoid creating that 
scenario.

Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
Poughkeepsie NY

> In addition the SAD IPL volume should in principle be compatible with 
> the level of z/OS that might use it. Periodically changes are made to 
> SAD by a PTF whose ++HOLD instructs you to rebuild SAD. It could 
> conceivably happen that an older level of z/OS might have trouble with 
> a higher level SAD IPL volume, but I've never seen it.


--
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: MERGECAT QUESTION

[Steely.Mark]

I just executed Mergecat  process over the weekend and processed several VSAM 
entries and I did not have to supply any FILE DD statements. 

Thanks

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of esmie moo
Sent: Tuesday, September 26, 2017 12:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MERGECAT QUESTION

 Kevin,
Now I am worried.  I am the origin of the post.  I checked and so far I haven't 
processed any VSAM dsns.  If I understand your recommendation, I would need to 
add the DD statement FILE if VSAM files are to be processed?

On Tuesday, September 26, 2017, 12:54:30 PM EDT, Neubert, Kevin 
 wrote:  
 
 DFSMS Access Method Services Commands (SC23-6846), REPRO, REPRO Parameters.

FILE(ddname)

specifies the name of a DD statement that identifies all the volumes that 
contain the VVDSs to be updated. If you do not specify FILE, VSAM will try to 
dynamically allocate the required volumes.

Regards,

Kevin

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of retired mainframer
Sent: Tuesday, September 26, 2017 9:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MERGECAT QUESTION

Since you are not accessing the datasets, why would you care what volume they 
are on.  MERGECAT moves catalog entries from one catalog to another.  If any of 
the entries being moved require the VVDS be updated, the information to access 
that VVDS is already available and there is no need for the user to provide it.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of John Dawes
> Sent: Tuesday, September 26, 2017 9:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: MERGECAT QUESTION
> 
> Jesse,
> 
> I noticed that in your example you do not have the DD1 statements 
> which indicate on which disks the dsns exist.
> 
> Is it no longer required?  I remember that in the past I had to code 
> in the jcl several DD1 statements when I was doing a REPRO MERGECAT.
> 
> Could you or somebody confirm?  I ran test using your example and it 
> worked.  Just want to be sure.
> 
> Sorry to sound like a doubting Thomas.  Catalog maintenance makes me nervous.

--
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

PDS/E issue

[Steely.Mark]

We are z/OS 2.2.  For a DR test our current volumes are flashed ( I may not be 
using the correct term) and we IPL from these volumes. The DR test is also 
performed on a separate CPU not connected to the current environment. After the 
IPL we have a process which updates several members in a PDS/E .
We use a file-aid job to update the members - this PDS/E is a  JES2 proc. The 
job received the following messages : PDSE MEMBER IN USE, UNABLE TO PROCESS 
MEMBER 1234.  I tried several ways to determine what was using the data set 
and/or member. I was able to edit the data set and member. I used a MXI enq 
display and D GRS,RES=(*,xxx.x) command and nothing was found.

I was able to allocate a new pds/e using ISPF 3.2 and copy the members using 
ISPF 3.3. Then I was able to rename the datasets and resume processing. After 
the rename - with the old dataset - I tried to run the update job and it still 
failed with the in use message.  With  the new pdse the job ran as expected.

I didn't have any more time to investigate.

Has anyone else had this type of issue ?

Any other idea's what to do if this occurs again?

Thank You


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Linking module in SMP/E with ++JCL

[Steely.Mark]

Have you tried the ASSEM option on the apply. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Fred Kaptein
Sent: Monday, August 28, 2017 4:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Linking module in SMP/E with ++JCL

Sorry, there is a period in the ++USERMOD statement.
++USERMOD (LM2TBT0). 

There are no error messages, the USERMOD is RECEIVED and APPLIED successfully. 
However, it does not link.

SYSMOD STATUS REPORT FOR APPLY PROCESSING  SYSMODS APPLIED  - 1
SYSMOD   STATUSTYPE  FMID

LM2TBT0  APPLIED   USERMOD   HDZ2210 


ELEMENT  ELEMENT ELEMENTCURRENTCURRENTDISTLIB  SYSLIB  
ASSEM   LOAD   LMOD SYSMOD SYSMOD 
TYPENAME  STATUS  FMID  RMID  LIBRARY 
LIBRARY NAMES   MODULE  SYSLIB   NAME STATUS 
  
SRC IGGPRE00APPLIED HDZ2210LM2TBT0 AVPSSRC SMPSTS   
 IGGPRE00IGGPRE00  LPALIBLM2TBT0APPLIED

note there is no MOD element

--
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

XTIOT info

[Steely.Mark]

We are z/OS v2.2 and I would like to add NON_VSAM_XTIOT=YES to DEVSUP. I have 
already done this on our sandbox system without any problems.

I would like to be able to test this out. Does anyone have a program or 
anything else that will allocated a dataset using  XTIOT. 

Any help would be appreciated. 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SDSF in Batch

[Steely.Mark]

I know this has been discussed before but I can't find anything that I am 
looking for.

The only thing I found close was SDSFEXT from file 313 on the CBTAPE.

I would like the batch SDSF job to perform PREFIX CICS*.  Then DA.  Then from 
that list print the JESMSGLG from each one listed.

I have been able to do this successfully  for 1 job.

Any help would be appreciated.

Thanks


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: ICSF Again

[Steely.Mark]

Dan - IBM sent my SR to their Q  group. IBM is already had our options and 
wants dumps of the CKDS and the keys.
Hopefully they will have an answer for me.

Thanks 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dan Little
Sent: Wednesday, May 10, 2017 5:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ICSF Again

Can you show the job output?    And are you able to get into ICSF panels?

What are your installation options?

Dan


--

On May 10, 2017, 12:51 PM -0400, Steely.Mark <steely.m...@aaa-texas.com>, wrote:
> I was trying to rename a key in the CKDS. I was using 
> PGM=CSFKGUP,PARM=('SSM').
>
> I received this error:
>
> The master key verification patterns in the CKDS do not match the 
> verification patterns of the active DES and AES master keys.
>
> We do not have any crypto hardware and no coprocessor's defined.
> We do not have an active TKDS. CSF has no error message and starts 
> successfully.
> This is not causing an operational issue - but from the error message 
> something is not in sync.
> Also I was able to perform this function on our sandbox system - so the JCL 
> is correct.
>
> This is the answer from IBM:
>
> The following information should help to get you started. Your 
> displays show that you have no active cryptographic coprocessors. 
> Unless your target CKDS (specified by "CSFCKDS" value in your KGUP 
> data definition
> statement) is configured as a clear-key CKDS, you will need to load 
> and set the appropriate Master Keys (DES and/or AES) under which your 
> CKDS is encrypted to access and alter its contents. This requires the 
> use of cryptographic hardware. (Which we don't have)
>
> This doesn't help me at all. I still don't have any idea's how to start. I am 
> just a rookie with ICSF.
> How do I display the master key verification patterns ?
> Where is this ? specified by "CSFCKDS" value in your KGUP data 
> definition statement
>
> We are z/OS V2.2.
>
> Any help would be appreciated.
>
> Thanks
>
>
>
>
>
>
> --
> 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

ICSF Again

[Steely.Mark]

I was trying to rename a key in the CKDS. I was using  PGM=CSFKGUP,PARM=('SSM').

I received this error:

The master key verification patterns in the CKDS do not match the
verification patterns of the active DES and AES master keys.

We do not have any crypto hardware and no coprocessor's defined.
We do not have an active TKDS.  CSF has no error message and starts 
successfully.
This is not causing an operational issue - but from the error message something 
is not in sync.
Also I was able to perform this function on our sandbox system - so the JCL is 
correct.

This is the answer from IBM:

The following information should help to get you started. Your displays
show that you have no active cryptographic coprocessors.  Unless your
target CKDS (specified by "CSFCKDS" value in your KGUP data definition
statement) is configured as a clear-key CKDS, you will need to load and
set the appropriate Master Keys (DES and/or AES) under which your CKDS
is encrypted to access and alter its contents. This requires the use of
cryptographic hardware. (Which we don't have)

This doesn't help me at all. I  still don't have any idea's how to start. I am 
just a rookie with ICSF.
How do I display the master key verification patterns ?
Where is this ?  specified by "CSFCKDS" value in your KGUP data definition 
statement

We are z/OS V2.2.

Any help would be appreciated.

Thanks






--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ICSF -CKDS Question

[Steely.Mark]

I have several keys defined in the CKDS. 

I have been able to rename the keys using program CSFKGUP and refresh the keys 
using program CSFEUTIL.

I would like to make a copy of  a key and rename it and store it in the CKDS.   
 EX. Keya.test   copy and make Keyb.test.  Both keys are now available. 

Is there an easy way to do this. IBM documentation makes reference that it can 
be done - but can't find anything to demonstrate how to perform this. 

Thanks   

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

TSS - TSSINSTX

[Steely.Mark]

Cross posted in CA-Communities

Does anyone have a sample RESOURCE ACCESS VALIDATION EXIT (TSSINSTX)? We are 
trying to determine the best way to protect keys in ICSF. We have a resource 
class defined as CSFKEYS. The CICS regions are bypassing  the CSFKEYS check due 
to the option of NORESCHK. Can  the exit could force a check if CSFKEYS 
resource is requested. I have the sample provided by CA but it doesn't have any 
code for the resource access validation section.

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Read SMF using COBOL

[Steely.Mark]

The solution was to change the file system to :

 FD  SMF-RECORDS-IN  
RECORDING MODE S
LABEL RECORDS ARE STANDARD  
BLOCK CONTAINS 0 CHARACTERS   Change this to 0 char  
RECORD CONTAINS 0 CHARACTERSChange this to 0 char
 DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC 
 SMF-TYPE17-REC 
 SMF-TYPE65-REC 
 SMF-MAX-REC.


Thanks for all the suggestions. 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Read SMF using COBOL

[Steely.Mark]

I am trying to read SMF data using COBOL for z/OS  4.2.0. This setup use to 
work but that was in a past life.

This input is Record Format. . . : VBS, Record Length. . . : 32760 & Block Size 
  . . . : 32760. Program IFASMFDP

Cobol File Section:

FD  SMF-RECORDS-IN
RECORDING MODE S
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 32760 CHARACTERS
RECORD CONTAINS 14 TO 32760 CHARACTERS
DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC
 SMF-TYPE17-REC
 SMF-TYPE65-REC
 SMF-MAX-REC.
SKIP1
01  SMF-MIN-REC.
12  FILLER  PIC X.
12  SMF-RECORD-TYPE PIC X.
12  FILLER  PIC X(12).
SKIP3
01  SMF-TYPE14-REC.
12  FILLER  PIC X(284).
SKIP3
01  SMF-TYPE17-REC.
12  FILLER  PIC X(232).
SKIP3
01  SMF-TYPE65-REC.
12  FILLER  PIC X(208).
SKIP3
01  SMF-MAX-REC.
12  FILLER  PIC X(32760).
EJECT

Receive error:
IGZ0201W A file attribute mismatch was detected. File SMF-RECORDS-IN in program 
 SMFXTRCT had a record length of 32771 and the file specified   
   in the ASSIGN  clause had a record length of 32760.
IGZ0035S There was an unsuccessful OPEN or CLOSE of file SMFIN in program 
SMFXTRCT at  relative location X'0416'. Neither FILE STATUS nor an ERROR 
declarative were   specified. The status code was 39. From compile unit 
SMFXTRCT at entry point  SMFXTRCT at compile unit offset +0416 at address 
7786.
<> LEAID ENTERED (LEVEL 11/20/2015 AT 08.13)
<> LEAID PROCESSING COMPLETE. RC=0

I tried changing to RECORD CONTAINS  to 32771 but receive error message:   
IGYGR1224-E  SMF-RECORDS-IN" was greater than the maximum allowable size 32767

Is there a way to do this with COBOL.

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

ICSF Question

[Steely.Mark]

Is there anything out there that will generate a report of what is in the 
variable length CKDS ? 

I am able to browse the file but some type of report would be nice. 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: TSS or RACF case sensitive

[Steely.Mark]

You are correct about option 6. While investigating  the responses the TSS 
clist I was using  to issue the commands was switching everything to uppercase. 
When I don’t use the TSS clist to issue the commands the lowercase parms are 
retained. 

Thanks for all you help. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Friday, December 23, 2016 1:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSS or RACF case sensitive

On 12/23/2016 10:25 AM, Steely.Mark wrote:
> I need to define stuff to TSS which is case sensitive. When I enter the 
> command from option 6 it converts it to uppercase.

No, it doesn't. I just tested this and proved command operands are _not_ 
converted to uppercase.

I get the same results from READY and from ISPF 6 under z/OS 2.2.

You can prove this for yourself. Just set a breakpoint at the start of your 
program. At entry, R1 points to the CPPL. The first word is CPPLCBUF which 
points to the command buffer. List that data to satisfy yourself.

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.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

TSS or RACF case sensitive

[Steely.Mark]

I need to define stuff to TSS which is case sensitive. When I enter the command 
from option 6 it converts it to uppercase. 

If I execute from a member it appears to do the same thing. 

Quotes don’t seem to alter the results. 

We are z/OS v2.2.

Any help would be appreciated. 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Operational Decision Manager for z/OS®

[Steely.Mark]

This may not be the best place to ask this but maybe someone can direct me to a 
TSS listserv.

The RACF stuff needs to be converted to TSS. 

I can't find anything is TSS that reference class(server). 

I am new to the TSS world. We are z/OS v.2.2  and  I think TSS is R15. 

Any help would be appreciated. 

Thanks

The Liberty Profile server requires multiple SAF profiles in the STARTED and 
SERVER classes. Proceed as follows to create them.
Procedure
1.  The user ID that the angel process runs under needs the SAF STARTED 
profile, for example: 

2.  RDEFINE STARTED BBGZANGL.* UACC(NONE) STDATA(USER())
SETROPTS RACLIST(STARTED) REFRESH
The Operational Decision Manager for z/OS zRule Execution Server for z/OS 
Liberty server runs under the authority of the zRule Execution Server for z/OS 
started task user ID. This user ID needs to be able to connect to the angel 
process to use authorized services.

3.  To allow the zRule Execution Server for z/OS Liberty server to connect 
to the angel process, create a profile for the angel process (BBG.ANGEL) in the 
SERVER class. Give the zRule Execution Server for z/OS started task user ID 
() authority to access it, for example, in RACF: 

4.  RDEFINE SERVER BBG.ANGEL UACC(NONE)
PERMIT BBG.ANGEL CLASS(SERVER) ACCESS(READ) ID()

5.  To allow a Liberty server to use the z/OS authorized services, create a 
SERVER profile for the authorized module BBGZSAFM and allow the zRule Execution 
Server for z/OS started task user ID () to the profile. This 
action allows a Liberty server to use the z/OS Authorized services, for 
example, in RACF: 

6.  RDEFINE SERVER BBG.AUTHMOD.BBGZSAFM UACC(NONE)
PERMIT BBG.AUTHMOD.BBGZSAFM CLASS(SERVER) ACCESS(READ) ID()

7.  To allow the zRule Execution Server for z/OS Liberty server to access 
the services necessary for security, create a profile for the SAF authorized 
user registry services and SAF authorization services (SAFCRED) in the SERVER 
class. Give the zRule Execution Server for z/OS started task user ID 
() authority to access it, for example, in RACF: 

8.  RDEFINE SERVER BBG.AUTHMOD.BBGZSAFM.SAFCRED UACC(NONE)
PERMIT BBG.AUTHMOD.BBGZSAFM.SAFCRED CLASS(SERVER) ACCESS(READ) 
ID()

9.  Refresh the SERVER resource: 
SETROPTS RACLIST(SERVER) REFRESH

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: concat

[Steely.Mark]

Thanks to everyone that replied:  I think the best solution for my needs was 
CONCAT from CBT File 831. 

I had fun trying out all the options suggested.

Thanks again


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

concat

[Steely.Mark]

Would anyone be able to provide a way to concatenate a library to the SYSPROC 
allocation. 

I have tried the concat program from the CBT tape file 134 that abend with a 
S0c4.
I have tried a rexx exec called ALLOCREX. This sort of works ( it adds my ds to 
SYSPROC) but does not keep the same setup of SYSPROC before the addition. 
I have tried clist SPROC from IBM but for some reason it is not working. 



Does anyone have something they can share for z/os V2.2. 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

SAS 9.4

[Steely.Mark]

I am new to SAS - does anyone have a SAS IVP program for DB2. The non DB2 
program works - need something to test DB2. 

Any help would be appreciated. 

Thanks 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN