MQ Archive Logs (MQ Noob question)

[Michael Knigge]

Hi,

we’re running MQ on a zPDF (preconfigured ADCD z/OS distribution) and we need 
MQ only from time to time for testing purposes… So backup, desaster recovery 
and so on is not required at our site.

Now…. Since several days, I see the following messages in the Log and the queue 
manager has stopped working:


CSQJ139I %CSQ8 LOG OFFLOAD TASK ENDED
CSQJ111A %CSQ8 OUT OF SPACE IN ACTIVE LOG DATA SETS
CSQJ073E %CSQ8 LOG ARCHIVE UNIT ALLOCATION FAILED, 829
REASON CODE=0008. ALLOCATION OR OFFLOAD OF ARCHIVE LOG DATA SET MAY FAIL
IKJ56241I DATA SET CSQARC1.B043 NOT ALLOCATED+
IKJ56241I SPECIFIED UNIT IS UNDEFINED
CSQJ008E %CSQ8  6 OF  8 ACTIVE LOGS ARE FULL, CSQ8 NEEDS ARCHIVE SCRATCH
*06 CSQJ021D %CSQ8 REPLY Y WHEN DEVICE READY OR N TO CANCEL


Now…. I’m a complete MQ noob but I’ve read the manuals and what I’ve got so far 
is, that MQ tries to offload data from the active log tot he archive log – but 
it fails… I also found some information in the log regarding the configuration 
of MQ:

CSQY110I %CSQ8 LOG parameters ...
CSQY111I %CSQ8 INBUFF=60, OUTBUFF=4000, MAXRTU=2, MAXARCH=500
CSQY112I %CSQ8 TWOACTV=YES, TWOARCH=YES, TWOBSDS=YES
CSQY113I %CSQ8 OFFLOAD=YES, WRTHRSH=20, DEALLCT=0, COMPLOG=NONE
CSQY120I %CSQ8 ARCHIVE parameters ...
CSQY121I %CSQ8 UNIT=TAPE, UNIT2=, ALCUNIT=BLK, PRIQTY=25715, SECQTY=540, 
BLKSIZE=28672
CSQY122I %CSQ8 ARCPFX1=CSQARC1, ARCPFX2=CSQARC2, TSTAMP=NO
CSQY123I %CSQ8 ARCRETN=, ARCWTOR=YES, ARCWRTC=( 1 ,3 ,4)
CSQY124I %CSQ8 CATALOG=NO, COMPACT=NO, PROTECT=NO, QUIESCE=5


So if I get all this stuff right, then MQ is configured to offload to tape 
(which I don’t have on my zPDT system)….

Well… Is there any „good way“ to tell MQ „don’t care, don’t offload“ (as said, 
we don’t care for backups etc in our use case)? Maybe something I can issue at 
runtime?

If not, can anyone tell me how to configure MQ ? I’ve found 
CSQ800.SCSQPROC(CSQ4ZPRM) on my system – I guess I have to modify this and 
assemble the load module? But the the next question:


//SYSLIN   DD *
   INCLUDE SYSP
   INCLUDE ARVP
   INCLUDE LOGP
   INCLUDE OLDLOAD(CSQZPARM)
 ENTRY CSQZMSTR
 NAME ++NAME++(R)   Your system parameter module name
/*
//

Well…. What is the name of my „system parameter module name“???


Thank you very very much…

Michael







Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Rühmkorffstraße 5
30163 Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de<mailto:michael.kni...@set.de>
https://www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Dr.-Ing. Tobias Baum, Arthur Brack, Hendrik Leder


Mit freundlichen Grüßen

Michael Knigge



SET GmbH
Rühmkorffstraße 5
30163 Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de
www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder 

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

USS "pwd" returns nothing? Maybe file system created wrong?

[Michael Knigge]

All,

have you ever came accross something like that?

I can change into an directory, „ls“ works but „pwd“ returns…. Nothing?!?   
When I’m in this particular directory a „cd ..“ returns „EDC5122I Input/output 
error.“


I’m pretty new to this „USS administration“ (I’m administering a z/OS running 
with an z/PDT)… So let me tell what I’ve done – I might have done something 
really wrong….


I need some space in USS so I’ve created some new fresh volumes (3390-9) for my 
zPDT and formatted them.

INIT UNITADDRESS(0AE0) NOVERIFY VOLID(USS010) -
   STORAGEGROUP -
   VTOC(3,0,50) -
   INDEX(1,0,30)

Now I have some volumes each with 10010 free CYLs.

Then I’ve created a Data Set for the ZFS file system:

DEFINE CLUSTER -
   (NAME (USSSET.DAT.ZFS) -
   VOLUMES (USS002 USS003 USS004 USS005  -
USS006 USS007 USS008 USS009) -
   LINEAR CYL(1 1) SHAREOPTIONS(3))

The idea was that when the file system needs to be enlarged this is done 
automatically (let z/OS allocate an additional extend of 1 CYLs from one of 
the dedicated volumes). I know that every extend neary uses the full volume – 
this is okay for me in this case…

Okay, then I’ve created the file system:

FORMAT EXEC PGM=IOEAGFMT,REGION=0M,
 PARM=(' -aggregate USSSET.DAT.ZFS -compat -perms 775 ')


Mounted… everything all right…. I saw that just one of the volumes was „used“. 
So I filled the mounted file system and saw that after some time the log 
messages

IOEZ00312I Dynamic growth of aggregate USSSET.DAT.ZFS in progress, (by user 
ADCDZ).
IOEZ00309I Aggregate USSSET.DAT.ZFS successfully dynamically grown (by user 
ADCDZ).


So for me I guess everything worked as expected… But now…. This „pwd anomaly“ 
….. Did I something wrong? Any idea how to get thigs working as expected?


Thank you,
Michael


Michael Knigge
Software Engineer

SET GmbH
Rühmkorffstraße 5
30163 Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de<mailto:michael.kni...@set.de>
https://www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Dr.-Ing. Tobias Baum, Arthur Brack, Hendrik Leder


Mit freundlichen Grüßen

Michael Knigge



SET GmbH
Rühmkorffstraße 5
30163 Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de
www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder 

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

AW: CBTTAPE - Any Automation tool for console message trap

[Michael Knigge]

IIRC, sadly AUTOMAN won't run anymore because of an internal "expiration date" 
check



Bye,
Michael


SET GmbH
Lister Straße 15
30163 Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de
www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder 
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List  Im Auftrag von 
ITschak Mugzach
Gesendet: Dienstag, 14. Januar 2020 08:44
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: CBTTAPE - Any Automation tool for console message trap

I noticed that AUTOMAN from  expans in now free anf is on file 627 of the 
cbttape. I used generalized MPF exit  file 708 to convert a client from a 
commercial product to MPF based automation and it worked very well.

ITschak

On Tue, Jan 14, 2020 at 9:33 AM Ken Bloom  wrote:

> Hi jake
>
> What are you trying to do?  There are products out there that can 
> “screen scrape” consoles and send alerts based on content.
>
> Ken
>
> Kenneth A. Bloom
> CEO
> Avenir Technologies Inc
> /d/b/a Visara International
> 203-984-2235
> bl...@visara.com
> www.visara.com
>
>
> > On Jan 13, 2020, at 11:50 PM, Jake Anderson 
> > 
> wrote:
> >
> > Hello,
> >
> > Is there any CBTTAPE file which has the solution to trap message in
> console
> > and send email ?
> >
> > Or else if there is any other method you are following please let me
> know.
> >
> > Regards
> > 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
>


--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for 
Legacy **|  *

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

Java and ACF2

[Michael Knigge]

Hi all,

can someone confirm that the Java classes in com.ibm.os390.security (z/OS SAF 
Interfaces) will also work with ACF2? In one of our applications we use the 
methods

   PlatformUser.changePassword
   PlatformUser.authenticate
   PlatformAccessControl.checkPermission
   PlatformSecurityServer.isActive
   PlatformSecurityServer.resourceTypeIsActive


for checking permissions as well as checking and changing passwords. But we 
„only“ have RACF and one of our customers asks if we can also support ACF2….


Furthermore if the ACF2 „contains“ a LDAP-Server? We currenly also use the RACF 
integrated LDAP-Server for retrieval oft he groups a user belongs to….



Thank you guys,
Michael



​Mit freundlichen Grüßen
​
Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163
Hannover

Telefon: +49 511 330 998 23
Fax: +49 511 330 998 65
michael.kni...@set.de
www.set.de

Handelsregister: Amtsgericht Hannover HRB 52778
​Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder

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

AW: how many OSes run on IBMz

[Michael Knigge]

https://en.wikipedia.org/wiki/OpenSolaris_for_System_z

But OpenSolaris for System z is dead



https://www.eweek.com/networking/ibm-to-support-windows-on-system-z-mainframes

ok... just kidding



Bye,
Knick


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: Amtsgericht Hannover HRB 52778
Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von John McKown
Gesendet: Donnerstag, 24. Januar 2019 13:18
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: how many OSes run on IBMz

This is mainly a curiosity question. I know of: z/OS, z/VSE, z/TPF, and
z/Linux. Are there any others?

OK, the real reason I'm asking is to be a bit weird in a game that I play.
It is "No Man's Sky",which is a space exploration game. When you discover a
new star system or planet, you can rename it. So I plan to find a star with
"n" planets, where "n" is the number of OSes which run on the IBMz
platform. I will name the star IBMz, and the planets after the OSes. If
there are any moons around a planet, I will try to name them after some
major subsystem which runs on the OS with that name, such as JES2 or POWER
or RSCS.

--
I just burned 2000 calories!
That's the last time I'll nap with brownies in the oven.

Maranatha! <><
John McKown

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

AW: Do I need to copy a mainframe flat file to OMVS, before I access the data from a JAVA program?

[Michael Knigge]

Cameron,

wou can then use the ZFile class (see 
https://www.ibm.com/support/knowledgecenter/en/SSYKE2_7.0.0/com.ibm.java.zsecurity.api.70.doc/com.ibm.jzos/com/ibm/jzos/ZFile.html)
 and open the DD with "//DD:MYFILE"...


Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: Amtsgericht Hannover HRB 52778
Geschäftsführer: Tobias Baum, Arthur Brack, Hendrik Leder
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Cameron Conacher
Gesendet: Donnerstag, 10. Januar 2019 23:50
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Do I need to copy a mainframe flat file to OMVS, before I access 
the data from a JAVA program?

Thank you Jerry.
Do I simply add a normal DD statement identifying my file?

//MYFILE DD DSN=HLQ.MYFILE,DISP=OLD



On Thu, Jan 10, 2019 at 4:42 PM Matt Hogstrom  wrote:

> I haven’t verified this but I think you can reference the file in Java
> using this convention for the file name from USS and not have to run in an
> STC.  I’ll try this later tonight but thought I’d offer it unverified if
> you have time.  Concur with Jerry on encoding.
>
> "//‘hlq.my.mvs.filename'"
>
> If you’re interested in z/OS specific capabilities via Java on the
> platform look here:
>
>
> https://www.ibm.com/support/knowledgecenter/en/SSYKE2_7.1.0/com.ibm.java.zsecurity.api.71.doc/com.ibm.jzos/index.html
>
> Matt Hogstrom
> m...@hogstrom.org
> PGP Key: 0x90ECB270
>
> "Aut Inveniam Viam Aut Faciam" translated -
> "I shall either find a way or make one."
>
> The phrase has been attributed to Hannibal <
> http://en.wikipedia.org/wiki/Hannibal>; when his generals told him it was
> impossible to cross the Alps by elephant <
> http://en.wikipedia.org/wiki/Second_Punic_War>,
>
> > On Jan 10, 2019, at 4:35 PM, Edgington, Jerry <
> jerry.edging...@westernsouthernlife.com> wrote:
> >
> >
> > No you don't need to copy the file to USS, if you are running a Java
> batch job. JCL something like this, which executes the JVM procedure, in
> this case Java 1.8 64bit. The STDENV DD will need the environment
> variables, like LIBPATH, CLASSPATH, Java Options,etc.
> >
> > //JAVA EXEC PROC=JVMPRC86,
> > //REGSIZE='1024M',
> > //JAVACLS='-jar "directory path"/"name of Java program
> compiled".jar'
> > //*
> > //MAINARGS DD DUMMY
> > //STDENV   DD *
> > export PATH=/bin:"${JAVA_HOME}"/bin
> > LIBPATH=/lib:/usr/lib:"${JAVA_HOME}"/bin
> > LIBPATH="$LIBPATH":"${JAVA_HOME}"/lib/s390x
> > LIBPATH="$LIBPATH":"${JAVA_HOME}"/lib/s390x/j9vm
> > export LIBPATH="$LIBPATH":
> > CLASSPATH=$CLASSPATH:${JAVA_HOME}"/lib:"${JAVA_HOME}"/lib/ext
> > export CLASSPATH="$CLASSPATH":
> > # Configure JVM options
> > IJO="-Xms16m -Xmx128m"
> >
> > As far as encoding, you will need to in account for that in your Java
> program during the read.
> >
> > Hope that helps.  Also, the OMVS segment is a RACF term for the security
> definitions when you access USS either via 3270 or something like SSH.
> >
> > Jerry
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Cameron Conacher
> > Sent: Thursday, January 10, 2019 4:11 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Do I need to copy a mainframe flat file to OMVS, before I
> access the data from a JAVA program?
> >
> > Hello Listers,
> > If I have created a flat file in some mainframe batch JOB, and I want to
> pass it through a JAVA Utility, do I need to copy the file first to my OMVS
> segment, and the run my JAVA process?
> > Or can I directly access the EBCDIC encoded flat file by my JAVA process?
> >
> > Just starting down this path.
> > Not really sure where I am going with this yet, or what I will do when I
> get there.
> >
> > Thank
> >
> > --
> > 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

AW: AW: SPFLite goes Open Source

[Michael Knigge]

So what there are so many open source tools for z/OS (see CBT Tape) and you 
need a z/OS to build

Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: Amtsgericht Hannover HRB 52778
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen und die Anmeldung finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Paul Gilmartin
Gesendet: Montag, 17. Dezember 2018 17:10
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: AW: SPFLite goes Open Source

On Mon, 17 Dec 2018 07:56:36 -0600, Dave Jones wrote:

>I can reach https://www.powerbasic.com/ now..
>
Hmmm...  "Open Source", but you need an ISV licensed tool to build it.

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

AW: SPFLite goes Open Source

[Michael Knigge]

Nice that it is open source now - but sadly SPFLite is written in PowerBasic 
and the web site https://www.powerbasic.com/ is down... I guess they are out of 
business? Don't know if it would be hard to port SPFLite to VB.Net...

Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: Amtsgericht Hannover HRB 52778
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen und die Anmeldung finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von don isenstadt
Gesendet: Samstag, 15. Dezember 2018 13:29
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: SPFLite goes Open Source

With open source could this be turned into a snap container so it would run on 
linux as well..?

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

AW: AW: "Mainframes Rule" Wallpaper

[Michael Knigge]

YES, this is the one But you're right - too low-res... I've had this in a 
much bigger size


Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber


Anstehende Termine:

Das POSY-OutputForum findet am 7. und 8. November 2018 in Hannover statt.

Weitere Informationen und die Anmeldung finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Bill Godfrey
Gesendet: Montag, 13. August 2018 15:30
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: AW: "Mainframes Rule" Wallpaper

Is this the one?

http://enterprisesystemsmedia.com/article/mainframe-trivia-contest-7

(Too low-res for wallpaper)

Bill

On Mon, 13 Aug 2018 13:02:30 +0000, Michael Knigge wrote:

>Not that hard - but I loved the design of the image
>
>-Ursprüngliche Nachricht-
>Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im 
>Auftrag von Charles Mills
>Gesendet: Montag, 13. August 2018 14:22
>An: IBM-MAIN@LISTSERV.UA.EDU
>Betreff: Re: "Mainframes Rule" Wallpaper
>
>How hard would it be to grab a stock image of a Z and add text "maindrames 
>rule"?
>

>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Michael Knigge
>Sent: Monday, August 13, 2018 07:09
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: "Mainframes Rule" Wallpaper
>
>All,
>
>several years ago on the SHARE a T-Shirt was selled with an nice vector 
>graphic (of an…. I guess z10) and the slogan “Mainframes Rule”….
>
>I’ve downloaded an image of this somewhere and usedtit as a wallpaper on my PC 
>– and guess what… seems I’ve deleted it (must be so long ago that it even is 
>not on my backups)….
>
>Does anyone of you know which image I mean and has a copy of it (and is 
>willing to send it to me)…. I loved it so much and hope someone still has it…
>
>
>Thanks,
>Michael
>

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

AW: "Mainframes Rule" Wallpaper

[Michael Knigge]

Not that hard - but I loved the design of the image


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber


Anstehende Termine:

Das POSY-OutputForum findet am 7. und 8. November 2018 in Hannover statt.

Weitere Informationen und die Anmeldung finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Charles Mills
Gesendet: Montag, 13. August 2018 14:22
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: "Mainframes Rule" Wallpaper

How hard would it be to grab a stock image of a Z and add text "maindrames 
rule"?



CharlesSent from a mobile; please excuse the brevity.
 Original message From: "Smith, Nathan (ATLANTA, GA)" 
 Date: 8/13/18  6:55 AM  (GMT-06:00) To: 
IBM-MAIN@LISTSERV.UA.EDU Subject: Re: "Mainframes Rule" Wallpaper
It would be even better if they would send it to the whole list. :)

Anthem, Inc.

Nathan A. Smith, Database Administrator Sr., Anthem Database Services
600 Peachtree St. NE, Mail Drop GA1319-A154, Atlanta, GA 30308
O: (770) 519-6496 | M: (770) 519-6496
nathanael.sm...@anthem.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Michael Knigge
Sent: Monday, August 13, 2018 07:09
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: "Mainframes Rule" Wallpaper

All,

several years ago on the SHARE a T-Shirt was selled with an nice vector graphic 
(of an…. I guess z10) and the slogan “Mainframes Rule”….

I’ve downloaded an image of this somewhere and used it as a wallpaper on my PC 
– and guess what… seems I’ve deleted it (must be so long ago that it even is 
not on my backups)….

Does anyone of you know which image I mean and has a copy of it (and is willing 
to send it to me)…. I loved it so much and hope someone still has it…


Thanks,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Anstehende Termine

Das POSY-OutputForum findet am 7. und 8. November 2018 in Hannover statt.

Weitere Informationen und die Anmeldung finden Sie auf unserer 
Homepage...<https://urldefense.proofpoint.com/v2/url?u=https-3A__www.set.de_services_events_posy-2Doutputforum=DwIGaQ=A-GX6P9ovB1qTBp7iQve2Q=mtZm8CZtpFemw8Y7pVAm7XaxI88ST87pIQqw9UhH8Ng=k-W0JoczFwge3uZQmIxCOnGWODYGC1m9gaOZ7yanw9Y=KLMMRlgbhQoz6WhggqUcrkLSN-STVwq62sjj-4euVVY=>

--
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 message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information or may otherwise be protected by law. Any
unauthorized review, use, disclosure or distribution is prohibited. If you
are not the intended recipient, please contact the sender by reply e-mail
and destroy all copies of the original message and any attachment thereto.

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

"Mainframes Rule" Wallpaper

[Michael Knigge]

All,

several years ago on the SHARE a T-Shirt was selled with an nice vector graphic 
(of an…. I guess z10) and the slogan “Mainframes Rule”….

I’ve downloaded an image of this somewhere and used it as a wallpaper on my PC 
– and guess what… seems I’ve deleted it (must be so long ago that it even is 
not on my backups)….

Does anyone of you know which image I mean and has a copy of it (and is willing 
to send it to me)…. I loved it so much and hope someone still has it…


Thanks,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Anstehende Termine

Das POSY-OutputForum findet am 7. und 8. November 2018 in Hannover statt.

Weitere Informationen und die Anmeldung finden Sie auf unserer 
Homepage...<https://www.set.de/services/events/posy-outputforum>

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

AW: AW: IP printing from JES2?

[Michael Knigge]

Thanks for clarification... sorry I've missed the sarcasm - no native speaker 
;-)


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Dana Mitchell
Gesendet: Mittwoch, 23. Mai 2018 15:01
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: AW: IP printing from JES2?

Sorry for my sarcasm,

On Wed, 23 May 2018 06:49:08 +, Michael Knigge <michael.kni...@set.de> 
wrote:

>"Priced attractively" means that it is part of Communications Server (which is 
>part of z/OS) but is not "free"? There is an additional fee?
>

Correct, no additional fee.  Part of CS

thanks
Dana




>Thank you,
>Michael
>
>
>Mit freundlichen Grüßen
>

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

AW: IP printing from JES2?

[Michael Knigge]

"Priced attractively" means that it is part of Communications Server (which is 
part of z/OS) but is not "free"? There is an additional fee?

Thank you,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Dana Mitchell
Gesendet: Dienstag, 22. Mai 2018 18:29
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: IP printing from JES2?

We have been using NPF for quite a while.  Setup is sort of non-intuitave, but 
we have a very small number of printers,  once setup it just works and doesn't 
need much attention.  Priced attractively.

Dana

On Tue, 22 May 2018 10:07:42 -0400, Tony Thigpen <t...@vse2pdf.com> wrote:

>We are going to look at IP NETWORK PRINT FACILITY since it is part of
>Communications Server.
>
>Tony Thigpen
>

--
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: Multithreaded output to stderr and stdout

[Michael Knigge]

Yes, DISP=(NEW,CATLG,DELETE)


Bye,

Michael


Am 01.07.2016 um 14:14 schrieb Kurt Quackenbush:

At our site there is no difference if I use DSN= or SYSOUT=* in my
JCL for STDOUT and STDERR. Output from all threads is written to the 
file.


At the customer site if DSN=xxx is used, only output from the main
thread is written to the file. If SYSOUT=* is used the customer can see
all output in SDSF.


What disposition is specified on the DD statement when using DSN=name? 
Are you and the customer using the same, OLD or MOD?


Kurt Quackenbush -- IBM, SMP/E Development

--
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: Multithreaded output to stderr and stdout

[Michael Knigge]

Yes


At our site there is no difference if I use DSN= or SYSOUT=* in my 
JCL for STDOUT and STDERR. Output from all threads is written to the file.



At tzhe customer site if DSN=xxx is used, only output from the main 
thread is written to the file. If SYSOUT=* is used the customer can see 
all output in SDSF.



Bye,

Michael



Am 29.06.2016 um 23:13 schrieb Clark Morris:

[Default] On 29 Jun 2016 12:37:05 -0700, in bit.listserv.ibm-main
t...@harminc.net (Tony Harminc) wrote:


On 29 June 2016 at 14:00, John McKown  wrote:


I may be blowing smoke here, if so I'm sure someone will point it out :-}.

I think you're on the right (write...?) track.

[...]

  A DD pointing to a sequential data set is _not_ designed to be
written to by two different DCBs concurrently. What I do in this case is
write to a UNIX file. Why? Because it works more like a JES2 sysout, which
is subject of the next paragraph.

Now, with JES2 (or UNIX output), what happens? Well, it's more like a data
base. You still have two DCBs, but the actual write sends the data to JES2
and tells it to place it in the SPOOL file. So JES2 is accepting and
interleaving the data for you. As JR said, this is like what would happen
on a line printer.

I don't think this part is quite accurate... JES2 doesn't work like
HASP of old, where SYSOUT data was written to a virtual line printer,
line at a time.

I suspect that the problem is that STDOUT and STDERR are written to
DSN=something at the customer site and that the poster would see the
same result at his site, the difference being in how SYSOUT=something
is handled as opposed DSN=something.

Clark Morris

It would accept and print each line as it is generated
and so would interleave the lines. This is also what happens with UNIX
files. The data is not sent to the disk, but to the UNIX kernel which
places it in a buffer and eventually writes it out. The UNIX kernel, like
JES2, is maintaining a "unified buffer" architecture behind the scenes.

Well... When you use QSAM on a JES2 SYSOUT dataset, most of the
buffering is done locally in a so-called unprotected buffer. Only when
that buffer is filled does the access method PUT routine issue SVC 111
(or a more modern PC, iirc?) to copy the buffer to one owned by JES2,
which is eventaully written to disk. Those disk writes of blocks would
be centrally serialized, so that there would be no possibility of
overlaying already-written data. But it would mean that groups of
records would be interleaved rather than individual ones, and that
might or might not be easily discernible looking at the output.

What puzzles me in all this, though, is how it works fine at the
developer's site but not at the customer's. Could it be that there is
no blocking going on locally, but large(r) buffers are in use at the
customer site?

Tony H.

--
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: Multithreaded output to stderr and stdout

[Michael Knigge]

Tony,


I've tried to reproduce it locally on our z/OS System. I've allocated a 
Data Set in RECFM=VB (and large block size) and a second test with 
an allocated RECFM=V data set. No differecne at our z/OS system. It 
works like a charm in both cases...



Bye,

Michael



Am 29.06.2016 um 21:36 schrieb Tony Harminc:

On 29 June 2016 at 14:00, John McKown  wrote:


I may be blowing smoke here, if so I'm sure someone will point it out :-}.

I think you're on the right (write...?) track.

[...]

  A DD pointing to a sequential data set is _not_ designed to be
written to by two different DCBs concurrently. What I do in this case is
write to a UNIX file. Why? Because it works more like a JES2 sysout, which
is subject of the next paragraph.

Now, with JES2 (or UNIX output), what happens? Well, it's more like a data
base. You still have two DCBs, but the actual write sends the data to JES2
and tells it to place it in the SPOOL file. So JES2 is accepting and
interleaving the data for you. As JR said, this is like what would happen
on a line printer.

I don't think this part is quite accurate... JES2 doesn't work like
HASP of old, where SYSOUT data was written to a virtual line printer,
line at a time.


It would accept and print each line as it is generated
and so would interleave the lines. This is also what happens with UNIX
files. The data is not sent to the disk, but to the UNIX kernel which
places it in a buffer and eventually writes it out. The UNIX kernel, like
JES2, is maintaining a "unified buffer" architecture behind the scenes.

Well... When you use QSAM on a JES2 SYSOUT dataset, most of the
buffering is done locally in a so-called unprotected buffer. Only when
that buffer is filled does the access method PUT routine issue SVC 111
(or a more modern PC, iirc?) to copy the buffer to one owned by JES2,
which is eventaully written to disk. Those disk writes of blocks would
be centrally serialized, so that there would be no possibility of
overlaying already-written data. But it would mean that groups of
records would be interleaved rather than individual ones, and that
might or might not be easily discernible looking at the output.

What puzzles me in all this, though, is how it works fine at the
developer's site but not at the customer's. Could it be that there is
no blocking going on locally, but large(r) buffers are in use at the
customer site?

Tony H.

--
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: Multithreaded output to stderr and stdout

[Michael Knigge]

Peter,


yes, you are right, but afaik this is nto the truth for stdout and 
stderr. IIRC I've read in the C/C++ manual that stdout and stderr are 
handled differently



bye,

Michael


Am 29.06.2016 um 20:52 schrieb Farley, Peter x23353:

In the C/C++ Programmers Guide under Input and Output there is this note:

"Avoiding Undesirable Results when Using I/O

File serialization is not provided for different tasks attempting to access the same 
file. When a C/C++ application is run on one task, and the same application or 
another C/C++ application is run on a different task, any attempts for both 
applications to access the same file is the responsibility of the application."

So the question then becomes whether or not the multiple Java threads are 
running on a single TCB or on multiple TCB's.  Not being a JVM expert I don't 
know the answer to that question.

I'm AssUMing that your "native C library" is a JNI application, so a second 
question would be whether JNI applications are allowed/disallowed from being used in 
multiple threads at the same time.  Which is something a Java guru would need to tell you.

I know I'm only asking more questions here, but I suspect that going down those 
roads may lead you to better answers.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Michael Knigge
Sent: Wednesday, June 29, 2016 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Multithreaded output to stderr and stdout

All,

I have a multithreaded Java application that writes to stdout (and
stderr) thru a native C library using fputc and fwrite. Now, at our site 
everything is all right with output to stderr and stdout from multiple threads.

At a customer site only output from the main thread is written to the "file" if 
the DD STDOUT (or STDERR) points to a MVS Data Set. All output from the other threads is 
discarded.

If the DD points to SYSOUT=* (instead of a MVS Data Set) the output from the threads is 
written to the "file" as expected

Does anyone have an idea why? LE370 settings are equal to the settings
at our site...  Maybe a special SMS Setting?? I have no idea (and no
access to the customer site)

Thank you,

Michael
--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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


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

Multithreaded output to stderr and stdout

[Michael Knigge]

All,


I have a multithreaded Java application that writes to stdout (and 
stderr) thru a native C library using fputc and fwrite. Now, at our site 
everything is all right with output to stderr and stdout from multiple 
threads.



At a customer site only output from the main thread is written to the 
"file" if the DD STDOUT (or STDERR) points to a MVS Data Set. All output 
from the other threads is discarded.



If the DD points to SYSOUT=* (instead of a MVS Data Set) the output from 
the threads is written to the "file" as expected



Does anyone have an idea why? LE370 settings are equal to the settings 
at our site...  Maybe a special SMS Setting?? I have no idea (and no 
access to the customer site)



Thank you,

Michael

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

AW: rsync anyone?

[Michael Knigge]

Dave,

a long time ago I looked at the source code of rsync and it is no trivial task 
to port it to an ebcdic platform (at least it was). A colleague of me was so 
frustrated too that he wrote a command line tool and a daemon that can be used 
to sync directories using the "rsync algorithm", but uses an own protocol.

https://github.com/tobiasbaum/jsync

Maybe you want to throw an eye on it.


Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Hansen, Dave L - Eagan, MN
Gesendet: Montag, 28. Dezember 2015 18:58
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: rsync anyone?

Hi,  I have been working with IBM to identify how to move a USS directory that 
has files and subdirectories to a different LPAR.  They said Ported Tools and 
the scp command.  However, OpenSSH has had security issues IIRC.  The other 
thing they mentioned was to port rsync over to z/OS.  I also have directions on 
how to voice this as a requirement to USS development using the RFE process.

Q).  Does anyone have a better way to move a directory that has files and 
subdirectories to a different LPAR?  Or do you just keep installing the same 
code for each instance?

Q).  Is anyone requesting rsync for z/OS via RFE or working on a port for 
rsync?  We do not have shared DASD and need something.


  Thank you,  Dave

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

Invoke AMODE31-only Code from AMODE64

[Michael Knigge]

All,

is it possible to invoke AMODE31-only code from an AMODE64 module?

To be more detailed: I’m running in USS (with XPLINK) and I need to call 
several System services that are known to not support AMODE64, in my case 
SWAREQ and OUTADD.

I know that I could write a AMODE31 load module, put it in a MVS load library, 
load it with the C function fetch() (which supports AMODE switching) and jump 
right into the module.

But I’d like to remain in USS only. So…. Is it possible to do an “AMODE-switch” 
in pure assembler without using some load modules from the MVS world? I’ve read 
some manuals over the weekend but I’m more confused than I was before reading 
the manuals (even XPLINK is new to me and the manuals are pretty confusing)….

Thank you for any help,
Michael

Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Anstehende Termine

POSY-OutputForum, 4. und 5. November 2015 in Hannover

Weitere Informationen finden Sie auf unserer Homepage...<http://www.set.de>


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

AW: SWAREQ from Java

[Michael Knigge]

All,

I guess I found my problem - I tried to call SWAREQ from AMODE64 which is not 
supported :-(

Bye,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber


Anstehende Termine:

POSY-OutputForum, 4. und 5. November 2015 in Hannover

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Tom Marchant
Gesendet: Donnerstag, 24. September 2015 14:09
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: SWAREQ from Java

On Wed, 23 Sep 2015 21:33:01 +0300, Binyamin Dissen wrote:

>I would expect that the issue is that your SWREQ plist has a bad
>address. The
>0C4 is in the middle of the SWAREQ module.

I wondered if that might be where the abend was. That's why I suggested an 
SVCDUMP or SYSMDUMP. How did you determine that the abend was in that module?

As it happens, I recently had an abend in the SWAREQ module. In my case, it was 
because I passed a bad SVA. The value that I passed was the first three bytes 
of a word containing the SVA in the last three bytes. The  low bit was zero, 
meaning that it is the address of the SWA prefix.

--
Tom Marchant

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

AW: Invoke AMODE31-only Code from AMODE64

[Michael Knigge]

Binyamin,

I guess I was lost in the woods of IBM manuals. When I started using Google to 
find the right manual I just came across some weired (at least to me) 
Branch-Statements that should be using when crossing AMODEs.

Just after I've read your reply I googled again and just found the instructions 
you've mentioned. I've just updated my code and currently it looks like 
everything is working as I would expect... But I've just finished my first 
little isolated test

So far thank you for your fast and helpful reply


Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber


Anstehende Termine:

POSY-OutputForum, 4. und 5. November 2015 in Hannover

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Binyamin Dissen
Gesendet: Montag, 12. Oktober 2015 10:30
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Invoke AMODE31-only Code from AMODE64

I do not really understand your question.

If your code is running below the bar and the data items required for the 
service are below the bar, the machine instruction SAM31 will change the amode 
to 31 bit and the machine instruction SAM64 will set 64 bit amode,.

On Mon, 12 Oct 2015 08:15:15 + Michael Knigge <michael.kni...@set.de>
wrote:

:>is it possible to invoke AMODE31-only code from an AMODE64 module?

:>To be more detailed: I’m running in USS (with XPLINK) and I need to call 
several System services that are known to not support AMODE64, in my case 
SWAREQ and OUTADD.

:>I know that I could write a AMODE31 load module, put it in a MVS load 
library, load it with the C function fetch() (which supports AMODE switching) 
and jump right into the module.

:>But I’d like to remain in USS only. So…. Is it possible to do an 
“AMODE-switch” in pure assembler without using some load modules from the MVS 
world? I’ve read some manuals over the weekend but I’m more confused than I was 
before reading the manuals (even XPLINK is new to me and the manuals are pretty 
confusing)….

--
Binyamin Dissen <bdis...@dissensoftware.com> http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you should 
preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially those 
from irresponsible companies.

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

AW: Invoke AMODE31-only Code from AMODE64

[Michael Knigge]

Don,

thanks for the hints. I already did all this - to keep the ASM part as small as 
possible I allocated all the stuff I need in the C part using __malloc31() and 
passed the pointers to the ASM module. Regarding the Save Area - I guess R13 
does not have to point to a SA when invoking a SVC, right?!? At least I didn't 
noticed anything about that in the documentation to OUTADD (which invokes SVC 
109).


Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber


Anstehende Termine:

POSY-OutputForum, 4. und 5. November 2015 in Hannover

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Don Poitras
Gesendet: Montag, 12. Oktober 2015 14:12
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Invoke AMODE31-only Code from AMODE64

Michael,
  There are some other considerations. If the routine requires a save area and 
you are running XPLINK, you need to allocate 72 bytes below the bar and point 
R13 to it. Also, any parms passed to the routine must be below the bar. Any 
parms that contain pointers used by the routine must also be below the bar, 
etc. etc. LE provides __malloc31() to get "middle" memory.

In article <9822352a8a50b84aba12bde56fcda26068953...@mail01.intranet.set.de> 
you wrote:
> Binyamin,

> I guess I was lost in the woods of IBM manuals. When I started using Google 
> to find the right manual I just came across some weired (at least to me) 
> Branch-Statements that should be using when crossing AMODEs.

> Just after I've read your reply I googled again and just found the 
> instructions you've mentioned. I've just updated my code and currently it 
> looks like everything is working as I would expect... But I've just finished 
> my first little isolated test

> So far thank you for your fast and helpful reply


> Bye,
> Michael



> Mit freundlichen Gr??en

> Michael Knigge
> Software Engineer

> SET GmbH
> Lister Stra?e 15
> 30163 Hannover

> phone: +49 511 39780-23
> fax: +49 511 39780-65

> www.set.de
> michael.kni...@set.de

> Handelsregister: HRB52778 Amtsgericht Hannover
> Gesch?ftsf?hrer: Till Dammermann, Dr. Bernd Huber


> Anstehende Termine:

> POSY-OutputForum, 4. und 5. November 2015 in Hannover

> Weitere Informationen finden Sie auf unserer Homepage...

> -Urspr?ngliche Nachricht-
> Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> Im Auftrag von Binyamin Dissen
> Gesendet: Montag, 12. Oktober 2015 10:30
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: Invoke AMODE31-only Code from AMODE64

> I do not really understand your question.

> If your code is running below the bar and the data items required for the 
> service are below the bar, the machine instruction SAM31 will change the 
> amode to 31 bit and the machine instruction SAM64 will set 64 bit amode,.

> On Mon, 12 Oct 2015 08:15:15 + Michael Knigge
> <michael.kni...@set.de>
> wrote:

> :>is it possible to invoke AMODE31-only code from an AMODE64 module?

> :>To be more detailed: I?m running in USS (with XPLINK) and I need to call 
> several System services that are known to not support AMODE64, in my case 
> SWAREQ and OUTADD.

> :>I know that I could write a AMODE31 load module, put it in a MVS load 
> library, load it with the C function fetch() (which supports AMODE switching) 
> and jump right into the module.

> :>But I?d like to remain in USS only. So?. Is it possible to do an 
> ?AMODE-switch? in pure assembler without using some load modules from the MVS 
> world? I?ve read some manuals over the weekend but I?m more confused than I 
> was before reading the manuals (even XPLINK is new to me and the manuals are 
> pretty confusing)?.

> --
> Binyamin Dissen <bdis...@dissensoftware.com>
> http://www.dissensoftware.com

> Director, Dissen Software, Bar & Grill - Israel


> Should you use the mailblocks package and expect a response from me, you 
> should preauthorize the dissensoftware.com domain.

> I very rarely bother responding to challenge/response systems, especially 
> those from irresponsible companies.

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

Re: SSH Client

[Michael Knigge]

Mark,

this is a feature of the Shell. Linux uses (mostly) the BASH as default 
Shell. The z/OS USS uses an other shell, but as far as I know there is a 
port: See http://www-03.ibm.com/systems/z/os/zos/features/unix/bpxa1ty1.html




Bye,
Michael


Am 09.10.2015 um 19:10 schrieb Mark Pace:

When I logon to a linux system
I can start typing a command and press tab and it will autocomplete a file
name or command.
If I press up arrow it will recall previous commands.

I can't figure out how to do this in Unix System Services using SSH.
Is this a daemon setup, client setup?  I've gone through z/OS OpenSSH
User's Guide and I don't see anything that looks like what I am looking for.



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

AW: SWAREQ from Java

[Michael Knigge]

Binyamin,

thanks for this hint. My dump-analytics-skills are not that good that I've been 
able to track this down so far (and I'm out of practice - it was aug 2008 when 
I've written my last asm prog)

Well I'm really sure that the PLIST is correct, but I'll x-check it 
again I assume it is a really dumb fault I've made but I'm too blind to see 
it. Maybe it is good to wait a few days and look at the code again with a 
clean and fresh mind

So... Thank you for the hint. I''l definitely x-check it.


Bye & thanks,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Binyamin Dissen
Gesendet: Mittwoch, 23. September 2015 20:33
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: SWAREQ from Java

I would expect that the issue is that your SWREQ plist has a bad address. The
0C4 is in the middle of the SWAREQ module.

I would suggest verifying that you get the PLIST you expect. If the dump is 
difficult, try passing a specific character string as a parameter and verify 
that you receive it properly.

On Tue, 22 Sep 2015 08:39:50 +0000 Michael Knigge <michael.kni...@set.de>
wrote:

:>All,
:>
:>since about 4 days I’m trying to get a simple ASM-Prog running under Java – 
in vain…. I hope someone can help me or bring me in the right direction… :> :>I 
need to get all Data Set Names that are allocated to a DD. So I step down the 
TIOT and get al SVA addresses for a DD. Then I try to call a C-Module (“the 
glue”) that calls a ASM-Prog that issues SWAREQ. Everything is working – but 
not the SWAREQ. The ASM-Prog runs fine if I run it (called by a C-dummy) in MVS 
environment. Everything works as expected.
:>
:>But when I
:>
:>-   build the same sources under USS into a shared library,
:>
:>-   load this shared library from my Java code,
:>
:>-   invoke the C-Code that will call my ASM-Module “SWAREQ”
:>
:>
:>than my module SWAREQ will crash with a S0C4. The CEEDUMP ist weired:
:>
:>Location:
:>  Program Unit: SWAREQ Entry: SWAREQ Statement:  Offset: -1E3F943A
:>  Possible Bad Branch:  Statement:   Offset: -E1C06BBA
:>
:>I could imagine that something is wrong with the R13 back chain and my module 
dies when “the macro SWAREQ returns”. But when I got the IBM manuals right, 
then the CEEENTRY Makro provides a Sava-Area and R13 will point to it.
:>
:>I hope someone has an idea… I’ll attach my code – maybe I did something 
completely wrong….
:>
:>
:>Bye & thanks for any hint!
:>Michael
:>
:>
:>R0   EQU   0
:>R1   EQU   1
:>R2   EQU   2
:>R3   EQU   3
:>R4   EQU   4
:>R5   EQU   5
:>R6   EQU   6
:>R7   EQU   7
:>R8   EQU   8
:>R9   EQU   9 ADDR OF PARM FROM CALLER
:>R10  EQU   10
:>R11  EQU   11BASE
:>R12  EQU   12COMMON ANCHOR AREA
:>R13  EQU   13DSA
:>R14  EQU   14
:>R15  EQU   15
:>*
:>* PARAMETERS (GETS ALLOCATED AMODE31 BY THE CALLER) -
:>*
:>PARM   DSECT
:>PARM_SVA_ADDR  DS  F INPUT: 24 BIT SVA
:>PARM_REAL_ADDR DS  F OUTPUT: REAL 31 BIT ADDR
:>PARM_RCDS  F OUTPUT: RC FROM SWAREQ
:>PARM_EPA_PTR   DS  F WORK: ADDRESS OF EPA
:>PARM_EPA   DS  XL28  WORK: EPA
:>PARM_SWAPARMS  DS  XL8   WORK: PARMS FOR SWAREQ
:>*
:>* ENTRY-POINT ---
:>*
:>SWAREQ   CEEENTRY PPA=MAINPPA,NAB=NO,MAIN=NO,EXPORT=NO,BASE=R11
:>*
:> USING CEECAA,R12COMMON ANCHOR AREA
:> USING CEEDSA,R13DYNAMIC STORAGE AREA
:>*
:> L R9,0(R1)  LOAD ADDR OF PARMS TO R9
:> USING PARM,R9   ADDRESS PRAMS USING R9
:>*
:> LAR7,PARM_EPA   LOAD ADDR OF EPA TO R7
:> STR7,PARM_EPA_PTR   SAVE ADDRESS TO PARM_EPA_PTR
:> USING ZB505,R7  ADDRESS EPA
:> XCSWAEPA,SWAEPA INITIALIZE EPA
:> L R6,PARM_SVA_ADDR  LOAD 24 BIT SVA IN R6
:> STCM  R6,B

SWAREQ from Java

[Michael Knigge]

All,

since about 4 days I’m trying to get a simple ASM-Prog running under Java – in 
vain…. I hope someone can help me or bring me in the right direction…

I need to get all Data Set Names that are allocated to a DD. So I step down the 
TIOT and get al SVA addresses for a DD. Then I try to call a C-Module (“the 
glue”) that calls a ASM-Prog that issues SWAREQ. Everything is working – but 
not the SWAREQ. The ASM-Prog runs fine if I run it (called by a C-dummy) in MVS 
environment. Everything works as expected.

But when I

-   build the same sources under USS into a shared library,

-   load this shared library from my Java code,

-   invoke the C-Code that will call my ASM-Module “SWAREQ”


than my module SWAREQ will crash with a S0C4. The CEEDUMP ist weired:

Location:
  Program Unit: SWAREQ Entry: SWAREQ Statement:  Offset: -1E3F943A
  Possible Bad Branch:  Statement:   Offset: -E1C06BBA

I could imagine that something is wrong with the R13 back chain and my module 
dies when “the macro SWAREQ returns”. But when I got the IBM manuals right, 
then the CEEENTRY Makro provides a Sava-Area and R13 will point to it.

I hope someone has an idea… I’ll attach my code – maybe I did something 
completely wrong….


Bye & thanks for any hint!
Michael


R0   EQU   0
R1   EQU   1
R2   EQU   2
R3   EQU   3
R4   EQU   4
R5   EQU   5
R6   EQU   6
R7   EQU   7
R8   EQU   8
R9   EQU   9 ADDR OF PARM FROM CALLER
R10  EQU   10
R11  EQU   11BASE
R12  EQU   12COMMON ANCHOR AREA
R13  EQU   13DSA
R14  EQU   14
R15  EQU   15
*
* PARAMETERS (GETS ALLOCATED AMODE31 BY THE CALLER) -
*
PARM   DSECT
PARM_SVA_ADDR  DS  F INPUT: 24 BIT SVA
PARM_REAL_ADDR DS  F OUTPUT: REAL 31 BIT ADDR
PARM_RCDS  F OUTPUT: RC FROM SWAREQ
PARM_EPA_PTR   DS  F WORK: ADDRESS OF EPA
PARM_EPA   DS  XL28  WORK: EPA
PARM_SWAPARMS  DS  XL8   WORK: PARMS FOR SWAREQ
*
* ENTRY-POINT ---
*
SWAREQ   CEEENTRY PPA=MAINPPA,NAB=NO,MAIN=NO,EXPORT=NO,BASE=R11
*
 USING CEECAA,R12COMMON ANCHOR AREA
 USING CEEDSA,R13DYNAMIC STORAGE AREA
*
 L R9,0(R1)  LOAD ADDR OF PARMS TO R9
 USING PARM,R9   ADDRESS PRAMS USING R9
*
 LAR7,PARM_EPA   LOAD ADDR OF EPA TO R7
 STR7,PARM_EPA_PTR   SAVE ADDRESS TO PARM_EPA_PTR
 USING ZB505,R7  ADDRESS EPA
 XCSWAEPA,SWAEPA INITIALIZE EPA
 L R6,PARM_SVA_ADDR  LOAD 24 BIT SVA IN R6
 STCM  R6,B'0111',SWVA   STORE 3 RIGHT BYTES TO SWVA
*
 SWAREQ FCODE=RL,  X
   UNAUTH=YES, X
   EPA=PARM_EPA_PTR,   X
   MF=(E,PARM_SWAPARMS)
*
 STR15,PARM_RC   SAVE RETURN CODE
 LTR   R15,R15   IS RC ZERO
 BNZ   EXITERR   OH NO.
*
 MVC   PARM_REAL_ADDR,SWBLKPTR SAVE REAL 31 BIT ADDR
 B EXITGO HOME...
*
EXITERR  DS0H
 MVC   PARM_REAL_ADDR,=F'0'  SET 31 BIT ADDR TO ZERO
 B EXIT  GO HOME
*
EXIT DS0H
 CEETERM RC=PARM_RC  BACK TO CALLER
*
*
* CONSTANTS -
*
 LTORG
*
MAINPPA  CEEPPA  PROGRAM PROLOG AREA
*
*
* DSECTS 
*
 CEEDSA  DSECT: DYNAMIC SAVE AREA
 CEECAA  DSECT: COMMON ANCHOR AREA
 CEEEDB  DSECT: ENCLAVE DATA BLOCK
*
 CVT DSECT=YES   DSECT: COMM. VECTOR TABLE
 IEFZB505 LOCEPAX=YESDSECT: ZB505 (EPA)
 IEFJESCTDESCT: JES CONTROL TABLE
*
 END SWAREQ


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: 

AW: SWAREQ / SVA under z/OS 2.2

[Michael Knigge]

Charles,

I'm not sure that it can be a 64 Bit address, it is just an idea


What I've investigated so far:

The QMPA (Queue Manager Parameter Area) has a new Flag-Byte (Job Status Byte) 
at Offset 16. if the bit X'04' is set, than the address of the QMAT (Queue 
Manager Address Table, which I don't know where it is documented) is 64 bit 
wide and spread up:

   Bytes 0-1 at offset 10,
   Bytes 2-3 at offset 18 and
   Bytes 4-7 at offset 24.

On my system the bytes at

   offset 10 are always 0x, at
   offset 18 always 0x0008 and at
   offset 24 always 0x8000.

This alone may be correct, but it is somehow strange to me (QMAT always at 
address 0x800 8 ).

If the bit is 0 than the address of the QMAT is 31 bit and at offset 24. On my 
z/OS 2.1 System the bit is always 0, on an z/OS 2.2 system it is always 1.

My *conclusion*, that SWAREQ may return 64 bit addresses is that the fact that 
IBM Manuals state that a JFCB can be located anywhere ("Residency: Any"). And 
the address of a JFCB can be get with SWAREQ when using the SVA-Address from 
the TIOT. But when I'm writing these lines... I guess "any" means "anywere 
above or below the 16 MB line" but does not mean "anywhere"


However... I don't understand why the code does not work under z/OS anymore. I 
guess that IBM has changed the handling of SVAs. But I can not find any manual 
that describes this


Have a nice weekend,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Charles Mills
Gesendet: Freitag, 11. September 2015 15:34
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: SWAREQ / SVA under z/OS 2.2

> the “return value” from SWAREQ may be a 64 bit address

Can you elaborate on that a little? I am looking at V2R2 SWAREQ and I don't see 
that. That would have a HUGE compatibility impact would it not?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Michael Knigge
Sent: Friday, September 11, 2015 5:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SWAREQ / SVA under z/OS 2.2

All,

I’ve reimplemented the SWAREQ-Macro in Java (my „template“ was the well known 
REXX from Gilbert Saint-Flour, see 
https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg30741.html).

Since z/OS 2.2 this implementation works no longer. The address to the QMAT can 
be a 64 bit address since z/OS 2.2. No problem so far. But it seems to me the 
complete logic

DO WHILE sva>65536
  qmat = C2D(STORAGE(D2X(qmat+12),4))
  sva=sva-65536
END
RETURN C2D(STORAGE(D2X(qmat+sva+1),4))+16

seems to work no longer…. I guess the problem is that the “return value” from 
SWAREQ may be a 64 bit address but the “old” routine only gets a 32 bit value 
at qmat+sva+1. …

Does anyone have a sample code of a SWAREQ-Implementation in a high-level 
language? Or can someone tell me in which manual the format of a SVA is 
documented, as well as the format of the QMAT (Queue Manager Address Table)? I 
was not able to find it in this really large forest of IBM manuals….

I need to do a SWAREQ from Java and I would like to do so without assembler 
“native” code from Java (which is always a little pain)….

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

AW: Add TCP/IP AFP-Printer

[Michael Knigge]

That's is!   Thanks a lot!

Bye,
Michael



Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Nims,Alva John (Al)
Gesendet: Donnerstag, 10. September 2015 22:28
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Add TCP/IP AFP-Printer

I think you should not put the "PROC=" on a separate line, not without using a 
"continuation" character.
So I think it should be:
  FSS(FSS1) PROC=APSWPROF,

Also there is a AFP list:
To join or leave the list, post to the list or browse the list archives go to 
http://listserv.uga.edu/archives/afp-l.html

Al Nims
Systems Admin/Programmer 3
Information Technology
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Michael Knigge
Sent: Thursday, September 10, 2015 4:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Add TCP/IP AFP-Printer

All,

currently I try to add an TCP/IP-Attached printer to our z/PDT System, but in 
vain… When I IPL my z/OS 2.1 I get the message:

$HASP003 RC=(04),PROC  - CONTAINS AN INVALID SUBSCRIPT

What I’ve done: I’ve added the following lines to my JES2PARM:

FSS(FSS1)
 PROC=APSWPROF,
 HASPFSSM=HASPFSSM,
 AUTOSTOP=YES

PRT1 FSS=FSS1,
 MODE=FSS,
 PRMODE=(LINE,PAGE,SOSI1),
 CLASS=A,
 UCS=0,
 SEP=NO,
 SEPDS=NO,
 CKPTPAGE=100,
 START=NO,
 MARK=YES,
 TRKCELL=YES

And in USER.PROCLIB I’ve created the member APSWPROF containing the PSF start 
procedure.

So… according to 
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.apss000/contcpip.htm%23contcpip?lang=de
 I have to create some entries to RACF. Well…. Due to a really bad knowledge of 
RACF ;-) I’ve skipped this part. I wonder if the HASP003 Message (“PROC is not 
valid”) is issued because of the missing RACF stuff or if I did something 
really wrong….

Thank you for any hint,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...<http://www.set.de>


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

SWAREQ / SVA under z/OS 2.2

[Michael Knigge]

All,

I’ve reimplemented the SWAREQ-Macro in Java (my „template“ was the well known 
REXX from Gilbert Saint-Flour, see 
https://www.mail-archive.com/ibm-main@listserv.ua.edu/msg30741.html).

Since z/OS 2.2 this implementation works no longer. The address to the QMAT can 
be a 64 bit address since z/OS 2.2. No problem so far. But it seems to me the 
complete logic

DO WHILE sva>65536
  qmat = C2D(STORAGE(D2X(qmat+12),4))
  sva=sva-65536
END
RETURN C2D(STORAGE(D2X(qmat+sva+1),4))+16

seems to work no longer…. I guess the problem is that the “return value” from 
SWAREQ may be a 64 bit address but the “old” routine only gets a 32 bit value 
at qmat+sva+1. …

Does anyone have a sample code of a SWAREQ-Implementation in a high-level 
language? Or can someone tell me in which manual the format of a SVA is 
documented, as well as the format of the QMAT (Queue Manager Address Table)? I 
was not able to find it in this really large forest of IBM manuals….

I need to do a SWAREQ from Java and I would like to do so without assembler 
“native” code from Java (which is always a little pain)….

Any ideas?


Thank you!

Bye,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...<http://www.set.de>


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

Add TCP/IP AFP-Printer

[Michael Knigge]

All,

currently I try to add an TCP/IP-Attached printer to our z/PDT System, but in 
vain… When I IPL my z/OS 2.1 I get the message:

$HASP003 RC=(04),PROC  - CONTAINS AN INVALID SUBSCRIPT

What I’ve done: I’ve added the following lines to my JES2PARM:

FSS(FSS1)
 PROC=APSWPROF,
 HASPFSSM=HASPFSSM,
 AUTOSTOP=YES

PRT1 FSS=FSS1,
 MODE=FSS,
 PRMODE=(LINE,PAGE,SOSI1),
 CLASS=A,
 UCS=0,
 SEP=NO,
 SEPDS=NO,
 CKPTPAGE=100,
 START=NO,
 MARK=YES,
 TRKCELL=YES

And in USER.PROCLIB I’ve created the member APSWPROF containing the PSF start 
procedure.

So… according to 
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.apss000/contcpip.htm%23contcpip?lang=de
 I have to create some entries to RACF. Well…. Due to a really bad knowledge of 
RACF ;-) I’ve skipped this part. I wonder if the HASP003 Message (“PROC is not 
valid”) is issued because of the missing RACF stuff or if I did something 
really wrong….

Thank you for any hint,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...<http://www.set.de>


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

Volume is offline after IPL (ADCD beginner question)

[Michael Knigge]

All,

I’m currently installing and customizing an z/OS 2.1 ADCD. Until now, nearly 
everything I’ve needed to customize is working pretty well, but there is just 
one thing I really don’t get.

I don’t understand the way how z/OS brings volumes online on IPL. The ADCD 
comes with several volumes and all are online after IPL. Now I’ve added an own 
volume, assigned an address in the devmap file and did an IPL. Now… the volume 
is always offline after IPL. I can bring it online with “V 0af1,online” but I 
don’t know what I have to do that z/OS will bring it online automatically… 
(BTW, the address I’ve choosen is present in HCD and I’ve formatted the volume 
with ICKDSF).

I’ve read about a VATLST00 Member in SYS1.PARMLIB – but….. If I have to add my 
volume to this member, why are all the ADCD-Volumes online automatically after 
IPL (as these volumes are not listed there). Where is the magic?!?

I guess this is a pure z/OS Admin Beginner Question….

Thank you for any hint,
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...http://www.set.de


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

AW: Volume is offline after IPL (ADCD beginner question)

[Michael Knigge]

Thank you all for your replies

I guess I've got it ;)

Well when I stared adding my own volumes my intention was to use device 
addresses that are far away from the addresses of the IBM supplied volume (so 
my volumes will probably never conflict/use addresses that will be used by IBM 
supplied volumes). So I've thrown an eye into the HCD and found a device 
address range for 16 devices, starting at address AF0. Well... the 
Online/Offline switch was completely new to me so I've not payed attention to 
this parameter.

And yes, I took the wrong address range :-( AF0,16 is configured to be 
completely offline at startup. I use addresses starting at AD0 now and 
everything is working like a charm

Thank you guys!


Bye,
Michael





Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Terry Sambrooks
Gesendet: Montag, 3. August 2015 18:56
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Volume is offline after IPL (ADCD beginner question)

Hi Michael,

Having added several volumes to various pre-z/OS 2.1 release of the ADCD 
without hitting the problem you have mentioned it might be worth posting you 
devmap entry from what would logically be zos21.prof (z/OS 1.13 has 
zos113s.prof which is how I derived the name.)

It may be something in here which is inhibiting initial online status, although 
I defer to the IODF comments made by more knowledge folk than I in that area.

As others have said if you wish to automate the change to online then including 
a VARY command in COMMNDnn would be prefereable to IEACMDnn which 
conventionally is reserved for IBM issued commands.

Kind Regards - Terry

Director
KMS-IT Limited
228 Abbeydale Road South
Dore
Sheffield
S17 3LA
UK

Reg : 3767263

Outgoing e-mails have been scanned, but it is the recipients responsibility to 
ensure their anti-virus software is up to date.




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

SMF-Exit IEFACTRT in SYS1.SAMPLIB does not show step name

[Michael Knigge]

[Sorry if some of you may read this twice – I had some trouble with my 
subscription to this list due to a changed E-Mail address]

All,

on my zPDT z/OS 2.1 System I’ve recently tried to get the SMF-Exit IEFACTRT 
provided in SYS1.SAMPLIB up and running. But in vain.

I’ve built with this JCL:

//ASMLNK   EXEC ASMACL,
// PARM.C='NODECK,RENT',
// PARM.L='LET,LIST,XREF,RENT,REFR,NCAL,REUS'
//*
//SYSLIB   DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=SYS1.AMODGEN
//*
//C.SYSIN   DD DISP=SHR,DSN=SYS1.SAMPLIB(IEEACTRT)
//L.SYSLMOD DD DISP=SHR,DSN=USER.LINKLIB(IEFACTRT)


And I’ve installed it with

EXIT DELETE EXITNAME(SYS.IEFACTRT) MODNAME(IEFACTRT) FORCE(YES)
EXIT ADD EXITNAME(SYS.IEFACTRT) MODNAME(IEFACTRT) ABENDNUM(1) FIRST

Now… the exit gets invoked, but the printed STEP-Name is always blank (or 
garbage sometimes).

See this as a (cut off) sample…..

-JOBNAME  STEPNAME PROCSTEPRC   EXCPTCB
-IBMUSERP  00 83 **
-IBMUSERP  04  12622 **


Did I something wrong (It’s the first time I’ve build and installed an exit)? 
Or did IBM introduced a bug in this exit with release 2.1 of z/OS? My assembler 
skills are rather bad (at least I think so). I’ve looked across the source but 
I’ve seen nothing that looks strange to me (but as said – my assembler skills 
became rather bad after several years of java coding)…


Thank you very much for any idea or hint….
Michael


Mit freundlichen Grüßen

Michael Knigge
Software Engineer

SET GmbH
Lister Straße 15
30163 Hannover

phone: +49 511 39780-23
fax: +49 511 39780-65

www.set.de
michael.kni...@set.de

Handelsregister: HRB52778 Amtsgericht Hannover
Geschäftsführer: Till Dammermann, Dr. Bernd Huber

Weitere Informationen finden Sie auf unserer Homepage...http://www.set.de


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

AW: AW: [slightly] off topic: SPFPRO on Win 8.1

[Michael Knigge]

 It's hardly fair to judge THE by how well it simulates ISPF/PDF EDIT.
 Do you have any issues with its XEDIT compatibility?

THE might be a good tool for everyone who needs/likes an XEDIT-Clone, but it is 
a bad choice for everyone who looks for an ISPF-like editor. The behavior is a 
little bit strange here and there and (last time I tried it) some line and 
primary  commands were missing. IMHO.

Bye,
Michael

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

AW: [slightly] off topic: SPFPRO on Win 8.1

[Michael Knigge]

Ah. just one more note.

As 64 Bit Versions of Windows are not able to run 16 Bit Executables any more, 
you may want to give DOSBox (http://www.dosbox.com/) a try if you really can't 
live without the ancient SPF/PRO or whatever (I assume these old applications 
are 16 Bit applications - don't know exactly)


Bye,
Michael

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

AW: [slightly] off topic: SPFPRO on Win 8.1

[Michael Knigge]

 I have _no_ desire to obtain SPF/PRO or any other Windows software. I was
 just curious how much of ISPF it actually mirrors. Only the editor?
 Editor+macros (what macro languages?)? Complete Display Manager?

SPF/SE is just an editor. The macro language is a C-like language (not Rexx). 
Further more, you can load self written DLLs from the macro language and invoke 
funtions of that DLL.

Uni-spf tries to emulate (more or less) ISPF under UNIX. It contains an 
ispf-like environment (so you can write your own panels etc), a Rexx 
Interpreter and an ISPF-Like Editor.

SPFLite is just an Editor. It has no macro language (but you can write a 
filter - you can pass the editor content to a filter and the output of the 
filter becomes the new editor content). This is far less powerfull as a real 
macro language from which you can access every single char/byte of the file in 
the editor.

A free ISPF-like editor is Hybrid Editor XE 
(http://www.geocities.jp/sakachin2/index.htm). I tried it - and disliked it. 
:-(  But: Impressive is the number of platforms it works on: DOS, OS/2, 
Windows, AIX, Linux and (no joke!) Android

Do not even think about trying THE (http://hessling-editor.sourceforge.net/). 
Okay, it supports Rexx, but it does not really feel like the editor under ISPF 
(ok, to be fair, it is a XEDIT-like editor that can be configured like the 
ISPF-editor - but not really well)



My personal favorite is SPF/SE. I need no Rexx - and the C-Like maco language 
is ok! I use it a lot. There are some gotchas with the editor, the installation 
is far away from Windows standards and the author is sometimes a little bit 
picky about what is a bug and what is the expected behavior But mostly we 
find a solution for a problem that I've found... But hey, I'm waiting for 
customizable EBCDIC/ASCII Translation tables since Decembre 2008 ;- German 
Umlauts are lost with the built in original IBM 370 EBCDIC-Codepage


Bye,
Michael

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

AW: [slightly] off topic: SPFPRO on Win 8.1

[Michael Knigge]

Steve,

I don't know what's wrong with SPFPRO on Win 8, but maybe it is time for a 
change. You may want to have a look at SPF/365 (well known as SPF/SE) that is 
now selled at a much more reduced price. The subscription for one year is at 25 
$ US (you can use it after the year, but you get no more updates and no 
support)...

See http://www.commandtechnology.com/


In my optinion it is much better than SPFLite (http://spflite.co.nr/) (because 
of the integrated Macro language - I use it a lot!) which is selled at 25 $ US, 
too. I personally use SPF/SE with the font of Tom Brennan's Vista TN3270 and it 
looks so fu* great ;-)

Bye,
Michael

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

AW: [slightly] off topic: SPFPRO on Win 8.1

[Michael Knigge]

Rob,

uni-SPF is much more like ISPF than SPF/SE - due to the fact that SPF/SE is 
missing REXX

Bye,
Michael

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

Re: Another Light goes out

[Michael Knigge]

Very disturbing. They moved to .NET environment on windoze platforms. Is that 
movement not more expensive due to licensing?


The .NET Framework is free of charge. The IDE from Microsoft is quite 
expensive (Visual Studio, starting at somewhat about $500 up to $8.000 
if I remember correctly).


But there are also free alternatives like Sharp Develop, that became a 
really good IDE. Furthermore many tools for the .NET Framework are 
freely available (for example NUnit for Unit-Testing).


So if the movement is more expensive or not depends on the size of 
the development team and the requirements of the developers.



Bye,
Michael

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