Re: How to set time parameter in TSO/E REXX getmsg function

[Willy Jensen]

You might be missing something. This is (one of) my TSO console pgms. The delay 
of 2 seconds could be a variaible.

/*  Issue command, receive response via the TSO CONSOLE commandrexx  */ 
   
  
 cons = userid()'C'   
 cart = 'C'right(time('s'),7,0)   
 parse arg cmd
 cc= XTSO("Console deactivate")   
 cc= XTSO("CONSOLE SYSCMD("cmd") CART("cart") NAME("cons")")  
 if cc>0 then do  
   say 'Console rc' cc
   if datatype($.0)='NUM' then do n=1 to $.0  
 say $.n  
   end
   Call close 20  
 end  
  
 Do cn=1 to 2/* #2 is sometimes needed to pick up all messages */ 
   cm.0=0 
   cc= GETMSG('CM.','SOL',cart,,2)
   if cc>4 then call close 8 "GETMSG error retrieving message, rc" cc 
   if cm.0=0 then leave   
   do cmsgi=1 to cm.0 
 say strip(cm.cmsgi,'t')  
   end
   if cm.0>1 then leave   
 End  
 call close 0 
  
Close:
 parse arg crc cmsg   
 crc=word(crc 0,1)
 if cmsg<>'' then call line cmsg  
 cc= XTSO("Console deactivate")   
 Exit crc 
XTSO: trace off; zz=outtrap(word(arg(2) '$.',1))  
address tso arg(1);zz=outtrap('off');xtsorc=rc;return rc 

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Seymour J Metz]

The getmsg() is valid; the problem is before that.

You're not showing enough of your code to diagnose the problem. Include a trace 
i before the CONSOLE command.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 1:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?
For example, when I coded as follows,

T=60
msghsm = getmsg('resp.','SOL','HSM',,T)

the following messages appeared.

IKJ55303I THE CONSOLE COMMAND HAS TERMINATED.+
IKJ55303I AN ERROR OCCURRED DURING CONSOLE INITIALIZATION.  THE MCSOPER
RETURN CODE WAS X'0004' AND THE REASON CODE WAS X''.
 25 *-* address console "CART HSM"
+++ RC(-3) +++
 31 *-* address console "F "hsmid","hsmcmd
+++ RC(-3) +++
IKJ55323I GETMSG PROCESSING HAS TERMINATED.  A CONSOLE SESSION IS NOT
ACTIVE.
IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/16 13:33, Seymour J Metz wrote:
> There is nothing special about getmsg; the time parameter can be any 
> expression that evaluates to a positive number.
>
> Note: specifying the CART in hexadecimal is certainly valid, but it makes the 
> code harder to read.
>
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Nobuhiko Furuya 
> Sent: Monday, August 15, 2022 9:54 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: How to set time parameter in TSO/E REXX getmsg function
>
> Hi all,
>
> Can we set variable time parameter in TSO/E REXX getmsg function ?
> We would like to specify wait time value from argue.
> But getmsg seems to accept only specific numeric seconds as follows.
>
> msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60)
>
> time
> the amount of time, in seconds, that GETMSG should wait, if the requested
> message has not yet been routed to the user's console. If you specify a time
> value and the time expires before the message is routed to the user's
> console, GETMSG does not retrieve the message. Otherwise, if the message
> is available before the time expires, GETMSG retrieves the message.
> If you do not specify time, GETMSG uses a time value of 0 seconds. If the
> message has not been routed to the user's console, GETMSG does not
> retrieve the message.
>
> Best regarss,
>
> Nobuhiko Furuya(古谷信彦)
> V-SOL Inc.
>
> --
> 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: How to set time parameter in TSO/E REXX getmsg function

[Willy Jensen]

In any case, I will strongly recommend that you use the REXX/SDSF API rather 
than TSO GETMSG, i.e.:

 /* Demo REXX/SDSF API system command */
 zz=isfcalls('ON')  
 isfdelay=2  /* value for WAIT */
 Address SDSF ISFSLASH "'d prog,apf' (WAIT)"
 if rc<>0 then say 'Console failed rc' rc   
 else do n=1 to isfulog.0   
  say '->'isfulog.n 
 end


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

Automatic ftp process

[Jake Anderson]

Hi

We have requirement whenever someone saves a  record(non-mainframe user) in
Linux.We automatically wants to get those record and ftp to mainframe and
and pull all details from database then save it back to the same location
where the user saves his Initial record.

Has anyone tried this similar exercise and would like to share your
experience or provide me some pointers on where I can start this with

Jake

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

Re: Automatic ftp process

[Carmen Vitullo]

any record? any file?

maybe there's some DASD replication tool for this ?  we do this for DASD 
subsystems to another subsystem for DR


for Data bases there's IBM's Info-sphere change data capture

Carmen

On 8/16/2022 8:24 AM, Jake Anderson wrote:

Hi

We have requirement whenever someone saves a  record(non-mainframe user) in
Linux.We automatically wants to get those record and ftp to mainframe and
and pull all details from database then save it back to the same location
where the user saves his Initial record.

Has anyone tried this similar exercise and would like to share your
experience or provide me some pointers on where I can start this with

Jake

--
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: Automatic ftp process

[Jake Anderson]

It's basically we run a non IBM Database in mainframe

The user(management) have a list of employees code where they want to know
some of their personal data of employees from mainframe Database.

So here management or the requestor doesn't have mainframe access and we as
mainframer will pick the list from repository from where they save and we
fetch all the data from Mainframe database and save it back to the same
repository.

On Tue, Aug 16, 2022, 5:35 PM Carmen Vitullo  wrote:

> any record? any file?
>
> maybe there's some DASD replication tool for this ?  we do this for DASD
> subsystems to another subsystem for DR
>
> for Data bases there's IBM's Info-sphere change data capture
>
> Carmen
>
> On 8/16/2022 8:24 AM, Jake Anderson wrote:
> > Hi
> >
> > We have requirement whenever someone saves a  record(non-mainframe user)
> in
> > Linux.We automatically wants to get those record and ftp to mainframe and
> > and pull all details from database then save it back to the same location
> > where the user saves his Initial record.
> >
> > Has anyone tried this similar exercise and would like to share your
> > experience or provide me some pointers on where I can start this with
> >
> > Jake
> >
> > --
> > 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: Automatic ftp process

[Carmen Vitullo]

CDC IIRC supports DB's other than DB2, on the Mainframe, I worked with a 
product from Oracle that performed about the same task, running in Unix 
System Services, it supported Oracle and DB2 IIRC on the mainframe. I 
forget the product since it's been about 12 years since we did a POC for 
the product


Carmen


On 8/16/2022 8:54 AM, Jake Anderson wrote:

It's basically we run a non IBM Database in mainframe

The user(management) have a list of employees code where they want to know
some of their personal data of employees from mainframe Database.

So here management or the requestor doesn't have mainframe access and we as
mainframer will pick the list from repository from where they save and we
fetch all the data from Mainframe database and save it back to the same
repository.

On Tue, Aug 16, 2022, 5:35 PM Carmen Vitullo  wrote:


any record? any file?

maybe there's some DASD replication tool for this ?  we do this for DASD
subsystems to another subsystem for DR

for Data bases there's IBM's Info-sphere change data capture

Carmen

On 8/16/2022 8:24 AM, Jake Anderson wrote:

Hi

We have requirement whenever someone saves a  record(non-mainframe user)

in

Linux.We automatically wants to get those record and ftp to mainframe and
and pull all details from database then save it back to the same location
where the user saves his Initial record.

Has anyone tried this similar exercise and would like to share your
experience or provide me some pointers on where I can start this with

Jake

--
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: Problems caused by Health Checker?

[Peter Relson]

HC infrastructure does not access datasets other than those that you tell it to 
(such as logstream dataset(s) and the persistent data dataset).
I can't speak about the check routines themselves, but well-behaved health 
checks running within the HZSPROC address space do not open datasets (and I 
know of no IBM-owned checks that violate that). I differentiate that from 
"remote" checks (which, as their designation suggests, run in a "remote" 
address space).


my coworkers stopped HZSPROC because it was repeatedly issuing the message that 
ECSA usage was high


The message is issued only as frequently as the check is configured by you to 
run, and only according to the threshold that you have identified.
Stopping HZSPROC is surely the wrong reaction to this specific situation. If 
you simply don't want this check to run because you're aware of the problem 
then deactivate the check or change its parameters.


It looked like batch jobs were stuck in allocation or deallocation...


That is simply not going to happen due to anything HC itself does.
But if you have not gathered diagnostic data to try to figure out what truly is 
happening, you're only going to be able to guess.

Peter Relson
z/OS Core Technology Design


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

Re: Automatic ftp process

[Angel Jara]

As far as the Linux side goes, I use python and it's FTP module on the linux 
server to send files from a user directory on the linux server to the mainframe 
which is then accessible. Once you do the changes on the mainframe, then you 
can also use python on the linux server to ftp down the new/changed dataset 
from the mainframe and have it stored in the user's repository. You could set 
this up as a cronjob on the linux server so it occurs at specific times, 
hourly, daily, weekly, or monthly 

Thanks,
Angel

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Carmen Vitullo
Sent: Tuesday, August 16, 2022 9:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Automatic ftp process


WARNING: This email originated outside of North Carolina Farm Bureau. DO NOT 
CLICK links or attachments unless you recognize the sender and know the content 
is safe.

CDC IIRC supports DB's other than DB2, on the Mainframe, I worked with a 
product from Oracle that performed about the same task, running in Unix System 
Services, it supported Oracle and DB2 IIRC on the mainframe. I forget the 
product since it's been about 12 years since we did a POC for the product

Carmen


On 8/16/2022 8:54 AM, Jake Anderson wrote:
> It's basically we run a non IBM Database in mainframe
>
> The user(management) have a list of employees code where they want to 
> know some of their personal data of employees from mainframe Database.
>
> So here management or the requestor doesn't have mainframe access and 
> we as mainframer will pick the list from repository from where they 
> save and we fetch all the data from Mainframe database and save it 
> back to the same repository.
>
> On Tue, Aug 16, 2022, 5:35 PM Carmen Vitullo  wrote:
>
>> any record? any file?
>>
>> maybe there's some DASD replication tool for this ?  we do this for 
>> DASD subsystems to another subsystem for DR
>>
>> for Data bases there's IBM's Info-sphere change data capture
>>
>> Carmen
>>
>> On 8/16/2022 8:24 AM, Jake Anderson wrote:
>>> Hi
>>>
>>> We have requirement whenever someone saves a  record(non-mainframe 
>>> user)
>> in
>>> Linux.We automatically wants to get those record and ftp to 
>>> mainframe and and pull all details from database then save it back 
>>> to the same location where the user saves his Initial record.
>>>
>>> Has anyone tried this similar exercise and would like to share your 
>>> experience or provide me some pointers on where I can start this 
>>> with
>>>
>>> Jake
>>>
>>> 
>>> -- 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: Automatic ftp process

[Jake Anderson]

Hello Angel

Thanks for your sharing.

Do you have a sample python script for this process or you would be able to
point me in the right direction for sample python script from some GIT ?

On Tue, Aug 16, 2022, 7:34 PM Angel Jara <
0444f3c91457-dmarc-requ...@listserv.ua.edu> wrote:

> As far as the Linux side goes, I use python and it's FTP module on the
> linux server to send files from a user directory on the linux server to the
> mainframe which is then accessible. Once you do the changes on the
> mainframe, then you can also use python on the linux server to ftp down the
> new/changed dataset from the mainframe and have it stored in the user's
> repository. You could set this up as a cronjob on the linux server so it
> occurs at specific times, hourly, daily, weekly, or monthly
>
> Thanks,
> Angel
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Carmen Vitullo
> Sent: Tuesday, August 16, 2022 9:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Automatic ftp process
>
>
> WARNING: This email originated outside of North Carolina Farm Bureau. DO
> NOT CLICK links or attachments unless you recognize the sender and know the
> content is safe.
>
> CDC IIRC supports DB's other than DB2, on the Mainframe, I worked with a
> product from Oracle that performed about the same task, running in Unix
> System Services, it supported Oracle and DB2 IIRC on the mainframe. I
> forget the product since it's been about 12 years since we did a POC for
> the product
>
> Carmen
>
>
> On 8/16/2022 8:54 AM, Jake Anderson wrote:
> > It's basically we run a non IBM Database in mainframe
> >
> > The user(management) have a list of employees code where they want to
> > know some of their personal data of employees from mainframe Database.
> >
> > So here management or the requestor doesn't have mainframe access and
> > we as mainframer will pick the list from repository from where they
> > save and we fetch all the data from Mainframe database and save it
> > back to the same repository.
> >
> > On Tue, Aug 16, 2022, 5:35 PM Carmen Vitullo 
> wrote:
> >
> >> any record? any file?
> >>
> >> maybe there's some DASD replication tool for this ?  we do this for
> >> DASD subsystems to another subsystem for DR
> >>
> >> for Data bases there's IBM's Info-sphere change data capture
> >>
> >> Carmen
> >>
> >> On 8/16/2022 8:24 AM, Jake Anderson wrote:
> >>> Hi
> >>>
> >>> We have requirement whenever someone saves a  record(non-mainframe
> >>> user)
> >> in
> >>> Linux.We automatically wants to get those record and ftp to
> >>> mainframe and and pull all details from database then save it back
> >>> to the same location where the user saves his Initial record.
> >>>
> >>> Has anyone tried this similar exercise and would like to share your
> >>> experience or provide me some pointers on where I can start this
> >>> with
> >>>
> >>> Jake
> >>>
> >>> 
> >>> -- 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
>

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

Question about z16 allowed cores

[Horne, Jim]

Does anyone know if you can have more than 39 total cores configured on a z16 
sub-capacity model with the MAX82 feature?  I know you can have a max of 39 
GCPs, but can zIIPs spill over to the second book?  What about ICFs and IFLs?

Thanks,
Jim Horne

NOTICE: All information in and attached to the e-mails below may be 
proprietary, confidential, privileged and otherwise protected from improper or 
erroneous disclosure. If you are not the sender's intended recipient, you are 
not authorized to intercept, read, print, retain, copy, forward, or disseminate 
this message. If you have erroneously received this communication, please 
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy 
all copies of this message electronic, paper, or otherwise. By transmitting 
documents via this email: Users, Customers, Suppliers and Vendors collectively 
acknowledge and agree the transmittal of information via email is voluntary, is 
offered as a convenience, and is not a secured method of communication; Not to 
transmit any payment information E.G. credit card, debit card, checking 
account, wire transfer information, passwords, or sensitive and personal 
information E.G. Driver's license, DOB, social security, or any other 
information the user wishes to remain confidential; To transmit only 
non-confidential information such as plans, pictures and drawings and to assume 
all risk and liability for and indemnify Lowe's from any claims, losses or 
damages that may arise from the transmittal of documents or including 
non-confidential information in the body of an email transmittal. Thank you.

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

Re: Question about z16 allowed cores

[P H]

Simple answer, Yes for any flavour of speciality engine. However if you want 
more than 39 CPs then you can't have sub-capacity CPs.

Get Outlook for Android

From: IBM Mainframe Discussion List  on behalf of 
Horne, Jim 
Sent: Tuesday, August 16, 2022 5:43:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Question about z16 allowed cores

Does anyone know if you can have more than 39 total cores configured on a z16 
sub-capacity model with the MAX82 feature?  I know you can have a max of 39 
GCPs, but can zIIPs spill over to the second book?  What about ICFs and IFLs?

Thanks,
Jim Horne

NOTICE: All information in and attached to the e-mails below may be 
proprietary, confidential, privileged and otherwise protected from improper or 
erroneous disclosure. If you are not the sender's intended recipient, you are 
not authorized to intercept, read, print, retain, copy, forward, or disseminate 
this message. If you have erroneously received this communication, please 
notify the sender immediately by phone (704-758-1000) or by e-mail and destroy 
all copies of this message electronic, paper, or otherwise. By transmitting 
documents via this email: Users, Customers, Suppliers and Vendors collectively 
acknowledge and agree the transmittal of information via email is voluntary, is 
offered as a convenience, and is not a secured method of communication; Not to 
transmit any payment information E.G. credit card, debit card, checking 
account, wire transfer information, passwords, or sensitive and personal 
information E.G. Driver's license, DOB, social security, or any other 
information the user wishes to remain confidential; To transmit only 
non-confidential information such as plans, pictures and drawings and to assume 
all risk and liability for and indemnify Lowe's from any claims, losses or 
damages that may arise from the transmittal of documents or including 
non-confidential information in the body of an email transmittal. 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: Problems caused by Health Checker? [EXTERNAL]

[Pew, Curtis G]

On Aug 15, 2022, at 5:42 PM, Feller, Paul 
<02fc94e14c43-dmarc-requ...@listserv.ua.edu>
 wrote:

I've not seem this type of behavior as far as I recall.  Depending on the level 
of z/OS you are running there are lots of different checks being done these 
days.  I believe some of those try to "touch" datasets (maybe) to look at 
allocation information.  Others may know better.  Could that type of situation 
be causing the recall situation?

Thanks. I should have mentioned that we’re still at z/OS 2.3. (Not by choice; 
it’s a long story.)


--
Curtis Pew
ITS Campus Solutions
curtis@austin.utexas.edu




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

Re: Automatic ftp process

[Angel Jara]

Sure this is the doc for the python FTP module: 
https://docs.python.org/3/library/ftplib.html

That contains some sample syntax for the python module, this is a quick generic 
script I wrote up. You will need to make sure python, ftplib, and io libraries 
are downloaded on the linux server. You can basically copy and paste this into 
a script.py on the server and "chmod 775 script.py" to give it write access. 
The you can do crontab -e to setup the cronjob for scheduled runs 
(https://crontab.guru/ is great tool to translate the cron syntax to time)

This script is written to do both but  if you see in the main() function one of 
the lines is commented out ( #upload() ) meaning it won't run the upload() 
function. You could take the comment so both upload and download happen right 
after each other but it sounded like you wanted to wait on the user to do their 
thing first. Or you could split this up into separate download.py and upload.py 
and schedule them via crontab appropriately. Or you could add in args = 
sys.argv[1:] under main() and setup flags so it only runs based on the flag in 
cronjob Python has got a million ways to do one thing so feel free to 
evolve this 

P.S the space indents are important so make sure the copy/paste contains those

#!/usr/bin/python3
from ftplib import  FTP
import io 

userfile = "/home/user/file1.txt"

def download():
ftp = FTP('192.168.1.1') #
ftp.login('username', 'password')
dataset = []
ftp.retrlines('RETR \'DATA.SET.NAME.HERE\'', dataset.append)

download = ""

for x in dataset:
download += x + "\n"

with open(userfile, 'w+', encoding="utf-8") as a:
a.write(download)

def upload():
ftp = FTP('192.168.1.1')
ftp.login('username', 'password')

with open(userfile, 'r') as b:
fixed = b.read()

b = io.BytesIO()
b.write(fixed.encode())
b.seek(0)

ftp.storlines("STOR \'DATA.SET.NAME.HERE\'", B)

def main():
download()
#upload()

if __name__ == "__main__":
main()

Thanks,
Angel Jara
Systems Programmer I
NC Farm Bureau Mutual Insurance Co. Inc.
5301 Glenwood Ave, Raleigh, NC 27612
919-782-1705 | Ext 3588


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Jake Anderson
Sent: Tuesday, August 16, 2022 12:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Automatic ftp process


WARNING: This email originated outside of North Carolina Farm Bureau. DO NOT 
CLICK links or attachments unless you recognize the sender and know the content 
is safe.

Hello Angel

Thanks for your sharing.

Do you have a sample python script for this process or you would be able to 
point me in the right direction for sample python script from some GIT ?

On Tue, Aug 16, 2022, 7:34 PM Angel Jara < 
0444f3c91457-dmarc-requ...@listserv.ua.edu> wrote:

> As far as the Linux side goes, I use python and it's FTP module on the 
> linux server to send files from a user directory on the linux server 
> to the mainframe which is then accessible. Once you do the changes on 
> the mainframe, then you can also use python on the linux server to ftp 
> down the new/changed dataset from the mainframe and have it stored in 
> the user's repository. You could set this up as a cronjob on the linux 
> server so it occurs at specific times, hourly, daily, weekly, or 
> monthly
>
> Thanks,
> Angel
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Carmen Vitullo
> Sent: Tuesday, August 16, 2022 9:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Automatic ftp process
>
>
> WARNING: This email originated outside of North Carolina Farm Bureau. 
> DO NOT CLICK links or attachments unless you recognize the sender and 
> know the content is safe.
>
> CDC IIRC supports DB's other than DB2, on the Mainframe, I worked with 
> a product from Oracle that performed about the same task, running in 
> Unix System Services, it supported Oracle and DB2 IIRC on the 
> mainframe. I forget the product since it's been about 12 years since 
> we did a POC for the product
>
> Carmen
>
>
> On 8/16/2022 8:54 AM, Jake Anderson wrote:
> > It's basically we run a non IBM Database in mainframe
> >
> > The user(management) have a list of employees code where they want 
> > to know some of their personal data of employees from mainframe Database.
> >
> > So here management or the requestor doesn't have mainframe access 
> > and we as mainframer will pick the list from repository from where 
> > they save and we fetch all the data from Mainframe database and save 
> > it back to the same repository.
> >
> > On Tue, Aug 16, 2022, 5:35 PM Carmen Vitullo 
> wrote:
> >
> >> any record? any file?
> >>
> >> maybe there's some DASD replication tool for this ?  we do this for 
> >> DASD subsystems to another subsystem for DR
> >>
> >> for Data bases there's IBM's Info-sphere change data capture
> >>
> >> Carmen
> >>
> >> On 8/16/2022 8:24 AM, Jake Anderson wrote:
> >>> Hi
> >>>

Re: How to set time parameter in TSO/E REXX getmsg function

[Mark Zelden]

On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:

>Thanks. But I can't find how to code it.
>I would line to change time value depend on the logic.
>How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://www.ibm.com/docs/en/zos/2.4.0?topic=expression-using-interpret-instruction


Best 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

Simple JOBGROUP or Simple User

[Tom Longfellow]

My forehead is bruised from beating it against the wall.  I am trying to set up 
a simple JOBGROUP with two simultaneous jobs.  Here is my JCL (excerpted for 
brevity)
 //DRCPYFC  JOBGROUP 
 //DRCPYFC1 GJOB 
 //   CONCURRENT=DRCPYFC2
 //DRCPYFC2 GJOB 
 //   CONCURRENT=DRCPYFC1
 //DRCPYFC  ENDGROUP 
 //* --- 
 //DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A, 
 // MSGCLASS=X,REGION=800M   
 // SCHEDULE JOBGROUP=DRCPYFC
 //* stuff to do
 //DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A, 
 // MSGCLASS=X,REGION=800M   
 // SCHEDULE JOBGROUP=DRCPYFC
//*  more stuff to do

Jes is rejecting this masterpiece with: 

$HASP100 DRCPYFC  ON INTRDRFROM TSU17899
TECHXXX 
$HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not 
valid within JOBGROUP   
$HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not 
valid within JOBGROUP   
IRR010I  USERID TECH905  IS ASSIGNED TO THIS JOB.   
$HASP DRCPYFC  -- ENDGROUP card - JOBGROUP DRCPYFC  contains errors 

I tweak, I read the manual (many times).   But must be missing something.  It 
did run once, but sequentially - not concurrently.  I added CONCURRENT cards 
and this is where I am.

What funny little JES syntax did I miss?   I modeled this on the sample in the 
book.

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

Re: LINK monitor status for OSA HMC

[Mark Zelden]

Jumping in at the middle, so I apologize. I probably missed something.   

Is this something that just stopped working or isn't working with a CPU 
upgrade?  In a recent upgrade 
I did we had some OSA OSE ports that wouldn't activate and that is due to the 
1G speed but after
talking to the LAN / WAN network team I found the switch was hard coded at 
100M.  No one knows
why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or 
something had to have that
long ago. (OSA OSE ports support SNA and TCPIP for those not in the know).  

Anyway, changing it to auto negotiate on the switch fixed it. I did have to 
disable / re-enable the
port on the HMC for it to connect, so it wasn't just a switch change to fix it. 
  Luckily we ran into
the problem on our DR box upgrade first where it wasn't a real problem and we 
knew what to do for 3 CPCs
in production (2 OSE ports on each) and actually swapped them all to 1G prior 
to the z15 upgrades.  

Now onto the next challenge in that z/OS 2.6 will not support the SNA 
connections currently in use on
the OSEs.  Turns out none are really used any more except on 2 LPARs to connect 
to
AIX machines and those connections need to be migrated to Enterprise Extender.  
We have a little
time though. :) 

Best 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
Systems Programming expert at http://search390.techtarget.com/ateExperts/




On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan  
wrote:

>Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't negotiate
>speed, from what I've seen.
>
>On 8/15/2022 10:21 PM, Jake Anderson wrote:
>> Hi
>>
>> The OSA port is connected with working cable LC-LC MM fibre to the 1g
>> switch. From the Cisco switch it has been set as auto negotiate to yes.
>>
>> Still from the mainframe the port doesn't show up the LED indication at
>> all. I tried toggling standby/online but still no luck. Ran port
>> diagnostics too with no error.
>>
>>
>> Not sure where to look. Has anyone faced a similar issue and have any idea
>> on what needs to be done?
>>
>> Jake
>>
>> On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka 
>> wrote:
>>
>>> What's your question?
>>> Link monitor means no physical connection to the switch, which means you
>>> card will not work.
>>> Reason? A lot of, including broken cable, improper cable (MM instead of
>>> SM and vice versa), bad connection (Tx to Tx...), disabled port on the
>>> switch...
>>>
>>>
>>> --
>>> Radoslaw Skorupka
>>> Lodz, Poland
>>>
>>>
>>>
>>> W dniu 10.08.2022 o 07:19, Jake Anderson pisze:
 Hello

 Cross posted

 I apologize for my ignorance.

 I was looking for the status of one of our OSA card under OSA advanced
 facilities under HMC. For one of their PCHPID belonging to OSA shows the
 port status as 'LINK MONITOR'

 When I checked with my network team if their switch sees the MAC address
>>> of
 my OSA port but they don't see it.

   From the physical cabling perspective what do I need to do?

 Z14 zr1

 Jake

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

Re: Simple JOBGROUP or Simple User

[Roger W Suhr]

Hi,


Maybe you can try this:

//DRCPYFC  JOBGROUP 
 //DRCPYFC1 GJOB 
 //   CONCURRENT NAME=DRCPYFC2   

 I'm not sure you need two CONCURRENT statement 

Roger W. Suhr

suhr...@gmail.com

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tom 
Longfellow
Sent: Tuesday, August 16, 2022 16:40
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Simple JOBGROUP or Simple User

My forehead is bruised from beating it against the wall.  I am trying to set up 
a simple JOBGROUP with two simultaneous jobs.  Here is my JCL (excerpted for 
brevity)
 //DRCPYFC  JOBGROUP 
 //DRCPYFC1 GJOB 
 //   CONCURRENT=DRCPYFC2
 //DRCPYFC2 GJOB 
 //   CONCURRENT=DRCPYFC1
 //DRCPYFC  ENDGROUP 
 //* --- 
 //DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A, 
 // MSGCLASS=X,REGION=800M   
 // SCHEDULE JOBGROUP=DRCPYFC
 //* stuff to do
 //DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A, 
 // MSGCLASS=X,REGION=800M   
 // SCHEDULE JOBGROUP=DRCPYFC
//*  more stuff to do

Jes is rejecting this masterpiece with: 

$HASP100 DRCPYFC  ON INTRDRFROM TSU17899
TECHXXX 
$HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not 
valid within JOBGROUP   
$HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not 
valid within JOBGROUP   
IRR010I  USERID TECH905  IS ASSIGNED TO THIS JOB.   
$HASP DRCPYFC  -- ENDGROUP card - JOBGROUP DRCPYFC  contains errors 

I tweak, I read the manual (many times).   But must be missing something.  It 
did run once, but sequentially - not concurrently.  I added CONCURRENT cards 
and this is where I am.

What funny little JES syntax did I miss?   I modeled this on the sample in the 
book.   

--
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: Question about z16 allowed cores

[Joe Monk]

See here: https://www.ibm.com/downloads/cas/6NW3RPQV

* If ordering a zIIP, one or more general purpose processor (CP) per the
specialty engine is required. IBM has modified the ratio of zIIP to CPs to
be 2:1. Up to two zIIP processors may be purchased for every general
purpose processor purchased on the server.
So, if you have a MAX82, and 39 CP, you have have a max of 43 zIIP. But
note the limit in that chart: a MAX82 can have a max of 54 zIIP.

Joe

On Tue, Aug 16, 2022 at 11:44 AM Horne, Jim  wrote:

> Does anyone know if you can have more than 39 total cores configured on a
> z16 sub-capacity model with the MAX82 feature?  I know you can have a max
> of 39 GCPs, but can zIIPs spill over to the second book?  What about ICFs
> and IFLs?
>
> Thanks,
> Jim Horne
> 
> NOTICE: All information in and attached to the e-mails below may be
> proprietary, confidential, privileged and otherwise protected from improper
> or erroneous disclosure. If you are not the sender's intended recipient,
> you are not authorized to intercept, read, print, retain, copy, forward, or
> disseminate this message. If you have erroneously received this
> communication, please notify the sender immediately by phone (704-758-1000)
> or by e-mail and destroy all copies of this message electronic, paper, or
> otherwise. By transmitting documents via this email: Users, Customers,
> Suppliers and Vendors collectively acknowledge and agree the transmittal of
> information via email is voluntary, is offered as a convenience, and is not
> a secured method of communication; Not to transmit any payment information
> E.G. credit card, debit card, checking account, wire transfer information,
> passwords, or sensitive and personal information E.G. Driver's license,
> DOB, social security, or any other information the user wishes to remain
> confidential; To transmit only non-confidential information such as plans,
> pictures and drawings and to assume all risk and liability for and
> indemnify Lowe's from any claims, losses or damages that may arise from the
> transmittal of documents or including non-confidential information in the
> body of an email transmittal. 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

rexx and IDCAMS functions

[Lizette Koehler]

I am going to write a process in REXX using things like DCOLLECT  LISTC
etc..

 

I am running into S913-70

 

I am trying to figure out what I need to do to resolve it

 

Something in RACF? Pads  IKJTSOxx??

 

 

Anu guidance appreciated

 

Lizette


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

Re: rexx and IDCAMS functions

[Mike Schwab]

RACF, DSN authorization.

On Tue, Aug 16, 2022, 16:19 Lizette Koehler  wrote:

> I am going to write a process in REXX using things like DCOLLECT  LISTC
> etc..
>
>
>
> I am running into S913-70
>
>
>
> I am trying to figure out what I need to do to resolve it
>
>
>
> Something in RACF? Pads  IKJTSOxx??
>
>
>
>
>
> Anu guidance appreciated
>
>
>
> Lizette
>
>
> --
> 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

HMC and zombie USB device

[Radoslaw Skorupka]

As many of us know HMC reports all external devices connected via USB - 
mice, keyboards, pendrives, etc.

That's good from security point of view.
However I noticed some HMC (2.15) report *non-existent* device. Yes, I 
checked it thoroughly. Imagine pizza-box HMC machine and all the cables 
and ports clearly visible. No place to hidden plug or USB hub. However 
the HMC reports Gemalto SmartCard Reader.
SmartCard reader is typical equipment of TKE, but not HMC. And it is 
*not connected* externally. And I strongly doubt it could be connected 
internally - 1U chassis cannot contain SmartCard reader hidden inside.
Yes, I'm pretty sure the HMC reports that device - I restarted HMC and 
observed all the messages. There is absolutely no way someone 
plugged/unplugged it during the process.


Any clue?

--
Radoslaw Skorupka
Lodz, Poland

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

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: rexx and IDCAMS functions

[Paul Gilmartin]

On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:

>I am going to write a process in REXX using things like DCOLLECT  LISTC
>etc..
>
>I am running into S913-70
>
Have you looked at: 
?

>I am trying to figure out what I need to do to resolve it
>
>Something in RACF? Pads  IKJTSOxx??
> 
More details?  What is your code so far?

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

-- 
gil

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

Re: Password Resets

[Steve Beaver]

OKTA

Sent from my iPhone

No one said I could type with one thumb 

> On Aug 16, 2022, at 16:33, Steely.Mark  wrote:
> 
> 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

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

Re: Problems caused by Health Checker?

[Pew, Curtis G]

On Aug 16, 2022, at 9:24 AM, Peter Relson 
mailto:rel...@us.ibm.com>> wrote:

HC infrastructure does not access datasets other than those that you tell it to 
(such as logstream dataset(s) and the persistent data dataset).
I can't speak about the check routines themselves, but well-behaved health 
checks running within the HZSPROC address space do not open datasets (and I 
know of no IBM-owned checks that violate that). I differentiate that from 
"remote" checks (which, as their designation suggests, run in a "remote" 
address space).

It looks like it’s also looking at APF authorized libraries? When we just 
restarted HZSPROC, it recalled an APF library — an older version of a vendor 
library we’d left APF authorized in case we needed to go back and never cleaned 
up.



my coworkers stopped HZSPROC because it was repeatedly issuing the message that 
ECSA usage was high


The message is issued only as frequently as the check is configured by you to 
run, and only according to the threshold that you have identified.
Stopping HZSPROC is surely the wrong reaction to this specific situation. If 
you simply don't want this check to run because you're aware of the problem 
then deactivate the check or change its parameters.

Unfortunately, the person who actually knew anything about Health Checker here 
was forced to retire early, and no one else has had time to learn about it. 
We’ve had problems keeping a full staff. As I mentioned, I’ve been semi-retired 
(working less than half time) since January. Our management contracted a 
third-party support company to supposedly fill in our gaps, but to say that’s 
been a disappointment would be an understatement. (They were supposed to have 
upgraded us to z/OS 2.5 by now.) Their excuse seems to be that they have 
trouble keeping their staffing complete too.

Sorry to kind of rant about this, but it’s been frustrating. I’m sure Health 
Checker is great if you know what you’re doing, but we don’t and can’t seem to 
get the resources to get there easily.


--
Curtis Pew
ITS Campus Solutions
curtis@austin.utexas.edu




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

Re: HMC and zombie USB device

[Mike Schwab]

Might have been included on the USB subsystem and not connected.  You could
look up the schematics or observe the circuit boards and chips.

On Tue, Aug 16, 2022, 16:33 Radoslaw Skorupka 
wrote:

> As many of us know HMC reports all external devices connected via USB -
> mice, keyboards, pendrives, etc.
> That's good from security point of view.
> However I noticed some HMC (2.15) report *non-existent* device. Yes, I
> checked it thoroughly. Imagine pizza-box HMC machine and all the cables
> and ports clearly visible. No place to hidden plug or USB hub. However
> the HMC reports Gemalto SmartCard Reader.
> SmartCard reader is typical equipment of TKE, but not HMC. And it is
> *not connected* externally. And I strongly doubt it could be connected
> internally - 1U chassis cannot contain SmartCard reader hidden inside.
> Yes, I'm pretty sure the HMC reports that device - I restarted HMC and
> observed all the messages. There is absolutely no way someone
> plugged/unplugged it during the process.
>
> Any clue?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Simple JOBGROUP or Simple User

[Peter Vels]

Roger is correct; you don't need both CONCURRENT statements.  In fact,
you'll get an error with two.  Note that the syntax is CONCURRENT *NAME=*
*job.*

Also, what does *$D GRPDEF* show?
If you are seeing CONCURRENT_MAX=0 (which is the default) then change it to
2 (or more if you like) with command: *$T GRPDEF,CONCURRENT_MAX=2*



This worked for me:



//DRCPYFC  JOBGROUP

//DRCPYFC1 GJOB

//   CONCURRENT NAME=DRCPYFC2

//DRCPYFC2 GJOB

//DRCPYFC  ENDGROUP

//* ---

//DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A,

// MSGCLASS=X,REGION=800M

// SCHEDULE JOBGROUP=DRCPYFC

//STUFF1 EXEC PGM=IEFBR14

//DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A,

// MSGCLASS=X,REGION=800M

// SCHEDULE JOBGROUP=DRCPYFC

//STUFF2 EXEC PGM=IEFBR14


Regards,

Peter


On Wed, 17 Aug 2022 at 06:52, Roger W Suhr  wrote:

> Hi,
>
>
> Maybe you can try this:
>
> //DRCPYFC  JOBGROUP
>  //DRCPYFC1 GJOB
>  //   CONCURRENT NAME=DRCPYFC2
>
>  I'm not sure you need two CONCURRENT statement
>
> Roger W. Suhr
>
> suhr...@gmail.com
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Tom Longfellow
> Sent: Tuesday, August 16, 2022 16:40
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Simple JOBGROUP or Simple User
>
> My forehead is bruised from beating it against the wall.  I am trying to
> set up a simple JOBGROUP with two simultaneous jobs.  Here is my JCL
> (excerpted for brevity)
>  //DRCPYFC  JOBGROUP
>  //DRCPYFC1 GJOB
>  //   CONCURRENT=DRCPYFC2
>  //DRCPYFC2 GJOB
>  //   CONCURRENT=DRCPYFC1
>  //DRCPYFC  ENDGROUP
>  //* ---
>  //DRCPYFC1 JOB (ACCT#),'DR COPY  ',CLASS=A,
>  // MSGCLASS=X,REGION=800M
>  // SCHEDULE JOBGROUP=DRCPYFC
>  //* stuff to do
>  //DRCPYFC2 JOB (ACCT#),'DR COPY  ',CLASS=A,
>  // MSGCLASS=X,REGION=800M
>  // SCHEDULE JOBGROUP=DRCPYFC
> //*  more stuff to do
>
> Jes is rejecting this masterpiece with:
>
> $HASP100 DRCPYFC  ON INTRDRFROM TSU17899
> TECHXXX
> $HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
> $HASP1110 DRCPYFC  -- Illegal JOBGROUP card -  card not
> valid within JOBGROUP
> IRR010I  USERID TECH905  IS ASSIGNED TO THIS JOB.
> $HASP DRCPYFC  -- ENDGROUP card - JOBGROUP DRCPYFC  contains errors
>
> I tweak, I read the manual (many times).   But must be missing something.
> It did run once, but sequentially - not concurrently.  I added CONCURRENT
> cards and this is where I am.
>
> What funny little JES syntax did I miss?   I modeled this on the sample in
> the book.
>
> --
> 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: rexx and IDCAMS functions

[Hobart Spitz]

IDCAMS commands, like RACF commands are TSO commands.  No need for LINKMVS;
I 've never done it, so it might not even work.

Be sure to follow TSO dataset name syntax: Fully qualified names in
apostrophes or unqualified names without.

"listc ent(ispf.ispprof)"

for example.

On Tue, 16 Aug 2022, 16:36 Paul Gilmartin, <
042bfe9c879d-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:
>
> >I am going to write a process in REXX using things like DCOLLECT  LISTC
> >etc..
> >
> >I am running into S913-70
> >
> Have you looked at: <
> https://www.ibm.com/docs/en/zos/2.3.0?topic=messages-iec150i>?
>
> >I am trying to figure out what I need to do to resolve it
> >
> >Something in RACF? Pads  IKJTSOxx??
> >
> More details?  What is your code so far?
>
> Is this something that can't be done with ADDRESS LINKMVS IDCAMS?
>
> --
> gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: How to set time parameter in TSO/E REXX getmsg function

[Nobuhiko Furuya]

Hi Willy,

Thank you for your suggestion.
I have confirmed that delay time(isfdeley) can be set from argue indirectly.
But why do you recommend the REXX/SDSF API rather than TSO GETMSG, i.e ?

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/16 21:22, Willy Jensen wrote:

In any case, I will strongly recommend that you use the REXX/SDSF API rather 
than TSO GETMSG, i.e.:

  /* Demo REXX/SDSF API system command */
  zz=isfcalls('ON')
  isfdelay=2  /* value for WAIT */
  Address SDSF ISFSLASH "'d prog,apf' (WAIT)"
  if rc<>0 then say 'Console failed rc' rc
  else do n=1 to isfulog.0
   say '->'isfulog.n
  end
  


--
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: How to set time parameter in TSO/E REXX getmsg function

[Nobuhiko Furuya]

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in 
getmsg as follows.

But the following code gets errors as I reported.

ARG hsmcmd':'seconds                                    <- get wait 
seconds as a parameter

hsmid = 'DFHSM'                                             <- set hsmid
address console "F "hsmid","hsmcmd    <- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:

On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:


Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://www.ibm.com/docs/en/zos/2.4.0?topic=expression-using-interpret-instruction


Best 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

Re: Simple JOBGROUP or Simple User

[kekronbekron]

SDSF folks at Rocket... job groups need some love too.
This feature could be very useful when used in ad-hoc job suites or workflows.
Ones that are too infrequent to warrant going into the scheduler.
Too frequent that submitting one job after another is a bore.

Kicking off a chain and letting jobs do their magic, parallel where parallel is 
needed, serial where serial is, etc.

- KB

--- Original Message ---
On Wednesday, August 17th, 2022 at 6:54 AM, Peter Vels  
wrote:


> Roger is correct; you don't need both CONCURRENT statements. In fact,
> you'll get an error with two. Note that the syntax is CONCURRENT NAME=
> job.
>
> Also, what does $D GRPDEF show?
> If you are seeing CONCURRENT_MAX=0 (which is the default) then change it to
> 2 (or more if you like) with command: $T GRPDEF,CONCURRENT_MAX=2
>
>
>
> This worked for me:
>
>
>
> //DRCPYFC JOBGROUP
>
> //DRCPYFC1 GJOB
>
> // CONCURRENT NAME=DRCPYFC2
>
> //DRCPYFC2 GJOB
>
> //DRCPYFC ENDGROUP
>
> //* ---
>
> //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A,
>
> // MSGCLASS=X,REGION=800M
>
> // SCHEDULE JOBGROUP=DRCPYFC
>
> //STUFF1 EXEC PGM=IEFBR14
>
> //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A,
>
> // MSGCLASS=X,REGION=800M
>
> // SCHEDULE JOBGROUP=DRCPYFC
>
> //STUFF2 EXEC PGM=IEFBR14
>
>
> Regards,
>
> Peter
>
>
> On Wed, 17 Aug 2022 at 06:52, Roger W Suhr suhr...@gmail.com wrote:
>
> > Hi,
> >
> > Maybe you can try this:
> >
> > //DRCPYFC JOBGROUP
> > //DRCPYFC1 GJOB
> > // CONCURRENT NAME=DRCPYFC2
> >
> > I'm not sure you need two CONCURRENT statement
> >
> > Roger W. Suhr
> >
> > suhr...@gmail.com
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf
> > Of Tom Longfellow
> > Sent: Tuesday, August 16, 2022 16:40
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Simple JOBGROUP or Simple User
> >
> > My forehead is bruised from beating it against the wall. I am trying to
> > set up a simple JOBGROUP with two simultaneous jobs. Here is my JCL
> > (excerpted for brevity)
> > //DRCPYFC JOBGROUP
> > //DRCPYFC1 GJOB
> > // CONCURRENT=DRCPYFC2
> > //DRCPYFC2 GJOB
> > // CONCURRENT=DRCPYFC1
> > //DRCPYFC ENDGROUP
> > //* ---
> > //DRCPYFC1 JOB (ACCT#),'DR COPY ',CLASS=A,
> > // MSGCLASS=X,REGION=800M
> > // SCHEDULE JOBGROUP=DRCPYFC
> > //* stuff to do
> > //DRCPYFC2 JOB (ACCT#),'DR COPY ',CLASS=A,
> > // MSGCLASS=X,REGION=800M
> > // SCHEDULE JOBGROUP=DRCPYFC
> > //* more stuff to do
> >
> > Jes is rejecting this masterpiece with:
> >
> > $HASP100 DRCPYFC ON INTRDR FROM TSU17899
> > TECHXXX
> > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not
> > valid within JOBGROUP
> > $HASP1110 DRCPYFC -- Illegal JOBGROUP card - card not
> > valid within JOBGROUP
> > IRR010I USERID TECH905 IS ASSIGNED TO THIS JOB.
> > $HASP DRCPYFC -- ENDGROUP card - JOBGROUP DRCPYFC contains errors
> >
> > I tweak, I read the manual (many times). But must be missing something.
> > It did run once, but sequentially - not concurrently. I added CONCURRENT
> > cards and this is where I am.
> >
> > What funny little JES syntax did I miss? I modeled this on the sample in
> > the book.
> >
> > --
> > 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: rexx and IDCAMS functions

[Lizette Koehler]

I am actually using LINKMVS  and that is getting the error

I want my general user to be able to do things without knowing idcams

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Tuesday, August 16, 2022 2:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:

>I am going to write a process in REXX using things like DCOLLECT  LISTC 
>etc..
>
>I am running into S913-70
>
Have you looked at: 
?

>I am trying to figure out what I need to do to resolve it
>
>Something in RACF? Pads  IKJTSOxx??
> 
More details?  What is your code so far?

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
gil

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

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

Re: rexx and IDCAMS functions

[Paul Gilmartin]

On Tue, 16 Aug 2022 20:31:43 -0500, Hobart Spitz  wrote:

>IDCAMS commands, like RACF commands are TSO commands.  No need for LINKMVS;
>I 've never done it, so it might not even work.
>
Is that true  for  *all* IDCAMS commands, such as I find in the Ref,   
SC23-6846-50:

IF MAXCC=0
  THEN DO
LISTCAT  CATALOG (AMASTCAT/MST27) ENT (MN01.B005)
PRINT INFILE (AJK006)
END
  ELSE DO
SET MAXCC=12
CANCEL
END

>Be sure to follow TSO dataset name syntax: Fully qualified names in
>apostrophes or unqualified names without.
>
>"listc ent(ispf.ispprof)"
>
>for example.

-- 
gil

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

Re: LINK monitor status for OSA HMC

[Jake Anderson]

So I did wrap plug test to ensure the ports were fine and they were good

So after finally replacing the 10g SFP with 1G SFP from  z14 fixed this
issue. Unfortunately the auto negotiate didn't helped.



On Wed, Aug 17, 2022, 12:42 AM Mark Zelden  wrote:

> Jumping in at the middle, so I apologize. I probably missed something.
>
> Is this something that just stopped working or isn't working with a CPU
> upgrade?  In a recent upgrade
> I did we had some OSA OSE ports that wouldn't activate and that is due to
> the 1G speed but after
> talking to the LAN / WAN network team I found the switch was hard coded at
> 100M.  No one knows
> why... lost history from z9, z196, z12, z13 upgrades.. Maybe printers or
> something had to have that
> long ago. (OSA OSE ports support SNA and TCPIP for those not in the
> know).
>
> Anyway, changing it to auto negotiate on the switch fixed it. I did have
> to disable / re-enable the
> port on the HMC for it to connect, so it wasn't just a switch change to
> fix it.   Luckily we ran into
> the problem on our DR box upgrade first where it wasn't a real problem and
> we knew what to do for 3 CPCs
> in production (2 OSE ports on each) and actually swapped them all to 1G
> prior to the z15 upgrades.
>
> Now onto the next challenge in that z/OS 2.6 will not support the SNA
> connections currently in use on
> the OSEs.  Turns out none are really used any more except on 2 LPARs to
> connect to
> AIX machines and those connections need to be migrated to Enterprise
> Extender.  We have a little
> time though. :)
>
> Best 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
> Systems Programming expert at http://search390.techtarget.com/ateExperts/
>
>
>
>
> On Mon, 15 Aug 2022 23:14:49 -0700, Tom Brennan <
> t...@tombrennansoftware.com> wrote:
>
> >Is it a 10G (1 port) or 1G (2 port) OSA card?  10G cards won't negotiate
> >speed, from what I've seen.
> >
> >On 8/15/2022 10:21 PM, Jake Anderson wrote:
> >> Hi
> >>
> >> The OSA port is connected with working cable LC-LC MM fibre to the 1g
> >> switch. From the Cisco switch it has been set as auto negotiate to yes.
> >>
> >> Still from the mainframe the port doesn't show up the LED indication at
> >> all. I tried toggling standby/online but still no luck. Ran port
> >> diagnostics too with no error.
> >>
> >>
> >> Not sure where to look. Has anyone faced a similar issue and have any
> idea
> >> on what needs to be done?
> >>
> >> Jake
> >>
> >> On Sat, Aug 13, 2022, 1:57 AM Radoslaw Skorupka  >
> >> wrote:
> >>
> >>> What's your question?
> >>> Link monitor means no physical connection to the switch, which means
> you
> >>> card will not work.
> >>> Reason? A lot of, including broken cable, improper cable (MM instead of
> >>> SM and vice versa), bad connection (Tx to Tx...), disabled port on the
> >>> switch...
> >>>
> >>>
> >>> --
> >>> Radoslaw Skorupka
> >>> Lodz, Poland
> >>>
> >>>
> >>>
> >>> W dniu 10.08.2022 o 07:19, Jake Anderson pisze:
>  Hello
> 
>  Cross posted
> 
>  I apologize for my ignorance.
> 
>  I was looking for the status of one of our OSA card under OSA advanced
>  facilities under HMC. For one of their PCHPID belonging to OSA shows
> the
>  port status as 'LINK MONITOR'
> 
>  When I checked with my network team if their switch sees the MAC
> address
> >>> of
>  my OSA port but they don't see it.
> 
>    From the physical cabling perspective what do I need to do?
> 
>  Z14 zr1
> 
>  Jake
>
> --
> 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: rexx and IDCAMS functions

[Seymour J Metz]

The TSO commands that front-end IDCAMS expect a CPPL; you need ADDRESS TSO.;


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Lizette Koehler [stars...@mindspring.com]
Sent: Tuesday, August 16, 2022 10:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

I am actually using LINKMVS  and that is getting the error

I want my general user to be able to do things without knowing idcams

Lizette

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Gilmartin
Sent: Tuesday, August 16, 2022 2:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: rexx and IDCAMS functions

On Tue, 16 Aug 2022 14:18:54 -0700, Lizette Koehler  wrote:

>I am going to write a process in REXX using things like DCOLLECT  LISTC
>etc..
>
>I am running into S913-70
>
Have you looked at: 
?

>I am trying to figure out what I need to do to resolve it
>
>Something in RACF? Pads  IKJTSOxx??
>
More details?  What is your code so far?

Is this something that can't be done with ADDRESS LINKMVS IDCAMS?

--
gil

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

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

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