Re: Compile error and also possible library bug with Metal/C metal.h

2021-01-11 Thread Don Poitras
I've never used Metal C, but for the first problem (undeclared __MEMSET), I
would look to see if there's a string.h that can be used. That's normally
where memcmp is defined.

As for the runtime problem, I'd guess it had something to do with using 
'sizeof' incorrectly. It looks as if you are compiling 64-bit which would
mean that 'sizeof(xarg)' is going to be 8. If you replace all the sizeofs
with strlens, I think you'd see it work.


In article 

 you wrote:
> I'm a developer working with a client to develop Metal C functions for their 
> products. Up until recently I've defined __METAL_STATIC and linked with 
> SCCR3BND. I decided recently to play with the dynamic library in LPALIB so I 
> removed that #define. What I'm getting is compile errors on the substitution 
> macros from metal.h. That is the first problem. I decided to try and 
> circumvent the compile errors and I think I found a bug in the memcmp library 
> function. That is the second problem. I'm really hoping someone will tell me 
> I missed something really obvious or missed some maintenance.

> I created a trivial sample program to demonstrate:

> /*
>   Sample for Metal C
> */

> #include 
> #include 

> int main(int argc, char** argv)
> {
>   char* xarg = "abcd";
>   void *mem = malloc(64);
>   memset(mem, 0x0f, 64);
>   memcpy(mem, xarg, sizeof(xarg));
>   int mcmp = memcmp(mem, xarg, sizeof(xarg));
>   free(mem);
> }


-- 
Don Poitras

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


Re: Preparing for a short z/OS contract

2020-11-30 Thread Don Poitras
In article 

 you wrote:
> Rupert Reynolds wrote:
> >Thinking further, I now remember that their only debugger was TSO TEST! I
> >wrote a mixture of Rexx and CLIST commands to extend it a bit (show regs
> >and disassemble the next instruction, every breakpoint).
> >
> >Is there anything more /modern/ that's given away with z/OS?

> Steve Thompson wrote:
> >TSO TEST is all that comes free with the system.

> z/OS also includes dbx, described here (z/OS 2.4 link, subject to change, 
> watch the wrap):

> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxa500/bpxa50021.htm


> The very first release of OS/390 (generally available on March 29, 1996, 
> per IBM Announcement Letter 296-018) included an earlier version of dbx, 
> so dbx will very soon reach a full quarter century of history in the base 
> operating system. dbx also had a short, earlier history as a separately 
> chargeable OpenEdition MVS option ("OpenEdition Debugger feature"). Do try 

> to keep up, please. :-)

> According to Wikipedia, dbx's original developer was Mark Linton at the 
> University of California, Berkeley. He wrote dbx in the period 1981 to 
> 1984, and then it percolated through the BSD ecosystem. TSO TEST first 
> appeared no later than 1972, so dbx is about a decade younger. Whether dbx 

> is more "modern" is a separate question. :-)

> Another debugger, IBM z/OS Debugger, is the successor to the IBM 
> Integrated Debugger and IBM Debug Tool. There are lots of IBM software 
> products that include IBM z/OS Debugger -- 6 if I'm counting correctly -- 
> so it's possible or even likely you already have a license. Of course if 
> you don't have a license it's possible to acquire one.

> - - - - - - - - - -
> Timothy Sipples
> I.T. Architect Executive
> Digital Asset & Other Industry Solutions
> IBM Z & LinuxONE
> - - - - - - - - - -
> E-Mail: sipp...@sg.ibm.com

The successor to TSO TEST is ASMIDF. It's still being updated, so can be
considered "modern". While the HLASM Toolkit isn't free, it's so cheap, it
might as well be considered so. 

HLASM Toolkit Feature Interactive Debug Facility User's Guide
https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/kc_gen/com.ibm.hlasm.v1r6.asm_asm-gen7.html


-- 
Don Poitras

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


Re: Dr. John Ehrman

2020-10-16 Thread Don Poitras
Sunil,
  You can find the PDF on this Marist page (first link on the page):

https://idcp.marist.edu/assembler-resources

In article  you wrote:
> On Wednesday, 21 February 2018 at 09:18:12 UTC-5, Don Poitras wrote:
> > I worked with John back in the 90s when I was part of the languages 
> > group that he headed at Share. I always made it a point to attend 
> > his pitches as they were full of information that I could use and 
> > the hand-outs were always excellent. I just found that he had updated 
> > his excellent "Assembler Language Programming for IBM z System Servers" 
> > book: 
> > 
> > http://idcp.marist.edu/enterprisesystemseducation/assemblerlanguageresources-1.html
> >  
> > 
> > I'm proud to say that I contributed to this. I found what I think 
> > is the smallest error possible in the version one of the book. There 
> > was a table where the bits were described for floating point values 
> > and one of the bits was wrong. :) 
> > 
> > He will be very missed.
> > In article <5a8c8a7e...@vse2pdf.com> you wrote: 
> > > Those of you who have followed this list for years know well that Dr. 
> > > John Ehrman was the motivating force behind the development of the 
> > > High-Level Assembler (I often referred to him as the God Father of 
> > > HLASM). 
> > > I am deeply saddened to report that John passed away this morning 
> > > (Tuesday, 20 February 2018) following a protracted battle with cancer. 
> > > His wife, Tineke, reports: "He died in his sleep, and is now at peace and 
> > > pain free. John will be cremated; in the near future there will be a 
> > > memorial service at our church in Palo Alto." 
> > > I will convey any further information on the memorial to this listing. 
> > 
> > --
> > Don Poitras - SAS Development - SAS Institute Inc. - SAS Campus Drive 
> > sas...@sas.com (919) 531-5637 Cary, NC 27513
> > -- 
> > For IBM-MAIN subscribe / signoff / archive access instructions, 
> > send email to list...@listserv.ua.edu with the message: INFO IBM-MAIN
> I got to know John today while I was trying to learn Assembler via a youtube 
> video. The link said there was a petition to request IBM for FREE/ XA. That 
> link was removed and now I see 
> http://idcp.marist.edu/enterprisesystemseducation/assemblerlanguageresources-1.html
>  is also not accessible. I hope it is available freely now as John intended 
> it to be.

> Let  me know.

> Was shocked to read that he passed away almost three years back. May his soul 
> rest in peace.

-- 
Don Poitras

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


Re: BPXP018I message when STC cancelled

2020-09-19 Thread Don Poitras
Try mvsprocclp:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxb100/mpc.htm

In article <4960377789730171.wa.prf51videotron...@listserv.ua.edu> you wrote:
> I have an authorized STC that shuts down normally when it is stopped (/P).
> When I cancel the STC, my ESTAEs are driven from newest to oldest.
> But I get the message shown below after the ESTAEs are finished.
> I do TCP/IP calls using IEZASMI in 2 sub-tasks.
> The 2 sub-tasks that do TCPIP cleanup and issue TERMAPI in their ESTAEs.
> The thread id is for the JOB STEP TCB.
> I'd like to undub my address space but don't know what to do.
> The Unix Callable Services doesn't seem to have a function to do that.
> I'd set a SLIP trap but this situation doesn't seem slipable.
> Any help would be appreciated.
> Thanks in advance, Pierre.
> 14.33.43 STC00663  BPXP018I THREAD 1B216000, IN PROCESS 33620001, 
> ENDED  039
>039 WITHOUT BEING UNDUBBED WITH COMPLETION CODE 40222000
>    039     , AND REASON CODE .

-- 
Don Poitras

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


Re: ESTAEX exit WAIT question

2020-07-31 Thread Don Poitras
And you probably always got a 13E abend message on the console. :) The
normal thing to do is to tell the subtask to end (usually by posting
an ECB the subtask can wait on) and when the ATTACH ECB is posted,
the parent wakes up and issues DETACH to clean up.

In article <02d201d66750$066475e0$132d61a0$@mcn.org> you wrote:
> I know for a fact that DETACH causes (via some route) the ECB to be posted.
> I always WAIT on the ATTACH ECB and it always works.

> Whether that WAIT is superfluous or not is something I have no way of
> testing.

> I believe you (of course!) but the WAIT is harmless at worst so I think I
> will leave it in place.

> Charles


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Relson
> Sent: Friday, July 31, 2020 7:15 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: ESTAEX exit WAIT question

> If I remember correctly, DETACH of a subtask does not return to the 
> invoker until that task has completely terminated (and I mean completely 
> -- all resmgrs have run, the TCB is freemained). If so, there is no reason 
> to have an ECB to wait upon. In fact I think the ATTACH ECB is not even 
> used once DETACH is done. (I'm hoping that my thought does not pertain 
> only to the branch-entry DETACH that RTM does, but also pertains to the 
> SVC-entry DETACH that you would be doing.)

> If you want your recovery to
> -- end the task
> -- upon end, attach a new task
> then
> -- detach
> -- attach

> Peter Relson
> z/OS Core TEchnology Design

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Trying to find documentation for LE reason code

2020-07-29 Thread Don Poitras
Are you perhaps running some program via /bin/tso? That ends up calling 
mvssigsetup. If 
so, try changing to /bin/tsocmd. At least, that's the error we got and how we 
got around
it, six years ago.


In article  you wrote:
> Hi Charles, 

> Not sure why, but the reason code looked very familiar to me. Googling 
> returned this link... 
> https://www.ibm.com/support/pages/cee1000s-4093-90-cee5101c-bpx1mss-failed-when-using-posix
>  

> HTH,
> Mike 

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Charles Mills
> Sent: Wednesday, July 29, 2020 4:35 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Trying to find documentation for LE reason code

> Caution! This message was sent from outside your organization.

> I am getting the following error when starting a UNIX program:

> CEE5101C During initialization, the callable service BPX1MSS failed. The 
> system return code was 000156, the reason code was 0D070201 . The 
> application will be terminated.


> There is a lot of this and that on the Web, but I would like to read the 
> actual documentation for that reason code. Where do I find it? I look up the 
> message in LE M and find

> Programmer response: See z/OS UNIX System Services Programming: Assembler 
> Callable Services Reference for the appropriate action to take for this 
> return code and reason code. Consult with your z/OS UNIX System Services 
> (z/OS UNIX) support personnel if necessary. One possibility is the 
> application was not authorized to use z/OS UNIX. If this is true, contact 
> your system administrator to have the ID registered with z/OS UNIX to use 
> these services.
> Symbolic Feedback Code: CEE4VD

> Nice of them to refer you to a 1300-page book with no clue as to which 
> chapter to look at, huh? Anyway I search the referenced book on CEE5101C, on 
> 0D070201, and on CEE4VD and get no hits. I didn't find anything under BPX1MSS.

> Anyone have any clues? This seems more difficult than it ought to be.

> (Yes, the userid *does* have an OMVS segment.)

> Charles

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: SuperWylbur Users

2020-07-09 Thread Don Poitras
In article <1298199795294174.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Thu, 9 Jul 2020 13:02:20 -0400, Don Poitras wrote:
> >...
> >> (Are there DBCS terminals?  Does ISPF support them?)
> >
> >Yes and yes. Condor (from Phoenix) does too since I added the support.
> >
> This?: https://phoenixsoftware.com/condor.htm
> Doesn't seem to be a terminal emulator.

It's not. The "too" referred to ISPF, not a terminal. And I'm talking
about real terminals obviously, not emulators, but ISPF and Condor
should work on any emulator that supports DBCS.

> What CP/CCSID?  Does it expect a file containing SI/SO, or a
> plain old UTF-8 file with ISPF supplying SI/SO if needed?

No idea. DBCS supports Korean, Japanese and "simplified" Chinese. In my
testing, I just hit random three buttons to create glyphs. The files
contain the SI/SO and double-byte characters. You can have EBCDIC as
double-byte chars too. They just take up two positions on the screen/
paper. Good for drawing attention to things. :)

> >... a bottle of Windex, ...
> >
> Windex?  Is that CDC approved?  I guess it has ammonia and alcohol.

> >While I was testing the code, I used ISPF to make sure I was covering
> >all the edge cases (in this case, "edge" was literal in that you could
> >shift text right or left and end up with the shift-in/shift-out characters
> >un-paired). 
> >
> that sounds like a defect.

Certainly. I'm sure it got fixed in the last 30 years at some point.

> -- gil

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: SuperWylbur Users

2020-07-09 Thread Don Poitras
In article <8236998877318111.wa.paulgboulderaim@listserv.ua.edu> you wrote:
...
> (Are there DBCS terminals?  Does ISPF support them?)

Yes and yes. Condor (from Phoenix) does too since I added the support.
We got a Korean 3270 shipped from some factory floor to test with. My
boss shows up at my door and says, "Make sure you clean that thing of
viruses"
  "Viruses? It's a dumb terminal, what are you talking about?"
  He lifts his hands from behind the door where he had been holding
a roll of paper towels and a bottle of Windex, "Not that kind of
virus!" 

While I was testing the code, I used ISPF to make sure I was covering
all the edge cases (in this case, "edge" was literal in that you could
shift text right or left and end up with the shift-in/shift-out characters
un-paired). I actually had a case where ISPF got messed up and I had to
restart the session. I should have opened a PMR, but in those days, I
probably didn't know how to do that.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: AT-TLS ? Very Basic Questions

2020-06-30 Thread Don Poitras
In article  you 
wrote:
> I've tried to skim some of the AT-TLS doc, and even attended an IBM 
> webinar last week, but I'm still missing what I imagine are important 
> background points.  Maybe someone here can explain things, but don't 
> worry too much about it.

> Client and server programs like SSH/SSHD call programs such as OpenSSL 
> to handle the encryption handshake and processing.  So when you set 
> those up, there is no AT-TLS needed for encryption.  Same with the 
> TN3270 server and client, as long as you set that up with keys and 
> parameters on the host side, and settings on the client side.

> I'm thinking because of the name "Application Transparent" that AT-TLS 
> was made for programs that DON'T have their own logic to call OpenSSL 
> (or whatever) to do their own encryption.  Let's use clear-text FTP as 
> an example.  So somehow, AT-TLS hooks into the processing and provides 
> an encrypted "tunnel", kind of like VPN does, but only for that one 
> application.  Does that sound correct?

> If so, then the encryption is "transparent" to the FTP server code and 
> FTP does not need to be changed, which I think is the whole idea here. 
> Yet we now have an encrypted session.  Does that sound correct?

> Then if so, what happens on the FTP client side?  I certainly can't use 
> the Windows FTP command, for example, because it's not setup for any 
> kind of encryption.  That's kind of my big question here.

I can't see that anyone answered your last question. Yes, the default Windows
FTP doesn't support encryption. There are third-party FTPS client programs you 
can purchase that do so. Or your could run lftp on the Windows Ubuntu shell.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Reading a dump

2020-06-21 Thread Don Poitras
Since the program is written in C, SYSUDUMP really isn't the easiest place to 
look for info.
CEEDUMP will show the regs and a traceback which is usually all that's needed. 
See TERMTHDACT
option for how to generate a CEEDUMP. Alternatively, use SYSMDUMP and IPCS. 
There's a learning
curve, but for a simple 0C4, it's really not that difficult to get the psw/regs 
and a traceback.
Do:

 ip verbx ledata 'ceedump'

for the traceback and:

 ip verbx ledata 'cm'

for the PSW and regs. Look for last 'CIBH:' block.

ABCD: = Abend code (i.e. 0C4)
INT: = Interrupt address (address of failing inst)
MCH_GPRxx: = registers at abend
MCH_PSW: = psw at abend (usually just past the INT: address)


In article <590uefpgmu7409rv5v3ufbesol401h8...@4ax.com> you wrote:
> Scan the dump looking for RTM2WA

> That will have the PSW, the registers and the last branch location.

> After looking at those you start debugging.

> On Fri, 19 Jun 2020 22:23:49 + Ze'ev Atlas
> <004b34e7c98a-dmarc-requ...@listserv.ua.edu> wrote:

> :>I admit that I am rusty and did not look at any dump for decades, and when 
> I did I was coding either Assembler or COBOL and I knew how to decipher the 
> thing.I am porting a C library libxc to classic z/OS and it compiles cleanly 
> (most of it, at least).? As is implied by the description, most users of that 
> thing are running it on Linux or Windows.? Maybe a few on Unix machines.
> :>I tried to run its modules on my z/OS machine (genuine IBM, z/OS 2.4),? and 
> I get S0C4, with nice SYSUDUMP!
> :>I have no idea how to begin to look and I am afraid that I compiled it with 
> wrong options.? Is there any C maven in the audience that could please try to 
> guide me where to begin looking.
> :>I tried to avoid compiling it as dll (that much I sort of knew) but I am 
> not sure any more.?
> :>Ze'ev Atlas
> :>
> :>
> :>--
> :>For IBM-MAIN subscribe / signoff / archive access instructions,
> :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

> --
> Binyamin Dissen 
> http://www.dissensoftware.com

> Director, Dissen Software, Bar & Grill - Israel

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: USS: su: User ID "SH" does not exist

2020-05-15 Thread Don Poitras
> SH unmount -fv ZOS240.SYS1.OMVS.SYSRES.OS240971.FNT.ZFS
> > 
> > Here is the contents of STDERR when the job runs.
> > 
> > FSUM5023 su: User ID "SH" does not exist, or the RACF profile does not 
> > contain an OMVS segment.
> > 
> > 
> > Thanks.
> > 
> > Best regards,
> > 
> > Jon Bathmaker
> > 
> > z/OS Systems Programmer
> > 
> > 
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

> In case you have a very long cmd you want to continue over more then one line 
> then you can do that by using a + sign like this

> //JAVAMTST EXEC PGM=IKJEFT01   
> //SYSPRINT DD SYSOUT=* 
> //SYSUDUMP DD SYSOUT=* 
> //SYSTSPRT DD SYSOUT=* 
> //STDOUT DD SYSOUT=*   
> //STDERR DD SYSOUT=*   
> //SYSTSIN DD * 
>   BPXBATCH SH +
>cd /usr/lpp/ja+ 
>va/J8.0_64/bin ; +  
>./java -version 

> Above produced this output to show that it worked

> READY 
>   
>   BPXBATCH SH cd /usr/lpp/java/J8.0_64/bin ; ./java -version  
>   
> READY 
>   
> END   
>   
> java version "1.8.0_241"  
>   
> Java(TM) SE Runtime Environment (build 8.0.6.7 - 
> pmz6480sr6fp7-20200312_01(SR6 F
> IBM J9 VM (build 2.9, JRE 1.8.0 z/OS s390x-64-Bit Compressed References 
> 20200219
> OpenJ9   - 3088245
>   
> OMR  - eb95a4d
>   
> IBM  - 83517b6)   
>  

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Using Windows ssh with z/OS

2020-05-04 Thread Don Poitras
In article <6673472942485742.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Mon, 4 May 2020 17:39:39 -0500, Wendell Lovewell wrote:
> >
> >Installing Rocket's bash provided the cursor history scrolling I was looking 
> >for.   
> >
> >I don't perceive a difference between TERM=xterm+256color and TERM=xterm in 
> >the command-line-only functions I use.  (I don't see any coloring in the ls 
> >or other output for either value.)
> >
> >I have "bash" as the last line in /etc/profile.  This seems to work, but I 
> >do have to enter "exit" twice to close the window.  Is there a way to invoke 
> >bash so that this is not necessary?  I'm also not sure if this matters, but 
> >"echo $SHELL" still shows "/bin/sh", not "/bin/bash".
> >
> SHELL=/bin/bash exec $SHELL
> -- gil

If you have permission (or know someone that has permission), do:

TSO ALTUSER userid OMVS(PROGRAM('/path/to/bin/bash'))

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Using Windows ssh with z/OS

2020-05-02 Thread Don Poitras
In article <6643888504611180.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Sat, 2 May 2020 18:26:48 +0200, Mike Beer wrote:
> >Maybe using putty might help:
> >https://www.putty.org/
> >https://www.ssh.com/ssh/putty/putty-manuals/0.68/Chapter4.html
> >
> >Best regards
> >Mike
> >
> >-Urspr??ngliche Nachricht-
> >Von: IBM Mainframe Discussion List  Im Auftrag von 
> >Wendell Lovewell
> >Gesendet: Saturday, May 02, 2020 17:54
> >An: IBM-MAIN@LISTSERV.UA.EDU
> >Betreff: Using Windows ssh with z/OS
> >
> >When connecting to z/OS (USS) using ssh, I'd like the USS shell to handle 
> >keys the same way Ubuntu does. I have these settings:
> >
> >echo $TERM displays xterm-color256
> >echo $SHELL displays /bin/sh
> >
> >Specifically, I'd like:
> >
> >a) The cursor-up key to perform the "history-search-backward" function
> >b) The cursor-down key to perform the "history-search-forward" function
> >c) The cursor-left and cursor-right keys to move thru the command just 
> >retrieved
> >d) To be able to change the command by moving the cursor and typing over the 
> >retrieved command
> > 
> Those are bash-isms.  They may be unavailable in /bin/sh.
> EXC-k and ESC-j are alternatives.
> -- gil

bash is available from Rocket:

https://www.rocketsoftware.com/product-categories/mainframe/bash-zos

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: XL C\C ++ sizeof of datatypes

2020-04-26 Thread Don Poitras
In article <006301d61bd2$bf391680$3dab4380$@gmail.com> you wrote:
> HI 
>I am looking in the XL C docs lang reference user guide programming guide
> For the length of the following data types 
>   Short , int long and I cannot seem to find it
> frustrated 
>   I coded a program
> Int len; 
> Unsigned short shortype;
> Int len = sizeof(shorttype);
>  
>But the compiler seemed to comment the above statement
> and not generate the assembler ps (I am running metal c);
> Any help appreciate it

It depends. For 31-bit, it's ILP32, for 64-bit, it's LP64. See:

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.cbcpx01/datatypesize64.htm

(short is always 2 bytes. SAS/C uses the same scheme.)

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Vector Packed Decimal instructions experiences

2020-04-24 Thread Don Poitras
In article  
you wrote:
> Just wondering if any shops have taken advantage of these new instructions
> on the Z14 and Z15 and if so, how is your real world experience?
> https://ibmsystemsmag.com/IBM-Z/01/2018/vector-facility-z14
> Looking at IBM's benchmarks they look pretty good and could have a postive
> effect on reducing your 4HRA.

The z/Linux C compiler uses them. I was debugging a problem and was 
surprised to see the vector instructions used. In that case, it wasn't
really needed as it was dealing with a single element, but perhaps the
compiler generated the code to use the vector register rather than saving/
reloading a general register. I can't recall if I've seen them used
with the z/OS C compiler, but it wouldn't surprise me.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Mesh Router

2020-04-03 Thread Don Poitras
You should look into dropping the "phone" part. Save a monthly charge and 
convert to Google
Voice. Buy an OBi200 for $50 to drive your POTS phones. If you want to keep 
your land-line
phone number, there's a little dance you have to do, but you can transfer it to 
Google
Voice and until Google starts charging, it's just a one-time $20 fee.

In article 

 you wrote:
> The first question you need to answer for yourself is do you need a router, 
> or will the ISP supplied router work for what you want to do.

> There have been a few other suggestions for a set up that includes a router.

> I have ATT, and use their modem/router/phone/AP device. I just turn off the 
> wireless.

> One port on the ATT router gets connected to a Ubiquiti Networks Networks 
> UniFi Switch 8-Port 150 Watts (about $200)
> The other ports on the POE switch then get connected to Ubiquiti Networks 
> Unifi 802.11ac Dual-Radio PRO Access Point (UAP-AC-PRO-US) (about $140)

> You can get as many APs as you need, I have a wide single story ranch style 
> home and have probably overdone the install using 3 of the APs on the main 
> floor. I have a couple older APs, one is in an open unfinished basement, and 
> I may put one in the garage just to be sure my Rachio sprinkler controller 
> and WeMo light switches and plugs in the far corner have a bit better signal. 
> Yes, definitely over kill. But no dead spots anywhere.

> Tom Chicklon

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> Steve Beaver
> Sent: Friday, April 3, 2020 9:23 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Mesh Router

> **CAUTION EXTERNAL EMAIL**

> **DO NOT open attachments or click on links from unknown senders or 
> unexpected emails**

> Does anyone have an opinion on which of the various mesh router extenders to 
> purchase?

> TIA
> Steve 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: strange python announcement

2020-03-29 Thread Don Poitras
In article 

 you wrote:
> Does SAS/C actually open as BPAM and use point, or does it just stuff the 
> member name in the JFCB and use BSAM/QSAM?

Yes, POINT, STOW, etc. etc.

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


> 
> From: IBM Mainframe Discussion List  on behalf of 
> Don Poitras <028977cc0221-dmarc-requ...@listserv.ua.edu>
> Sent: Sunday, March 29, 2020 4:57 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: strange python announcement

> In article <0086720150876766.wa.paulgboulderaim@listserv.ua.edu> you 
> wrote:
> > On Sun, 29 Mar 2020 19:52:50 +, Seymour J Metz wrote:

> > >xSAM? I don't know of any language on z/OS* other than HLASM that supports 
> > >BPAM.
> > >
> > I believe that SAS/C (ISV) support{s|ed} a construct such as fopen( 
> > "DD:"ddname"("member")", ... );
> > presumably employing BPAM.

> Yes, SAS/C uses BPAM.

> > And early in the development of the QSAM/BSAM interface to allocated
> > HFS files the facility was referred to as xSAM.  The name was deprecate
> > as an overload.

> > >At this point, if I invest the time to master** a new language, I'd be 
> > >looking at Java, Ruby or Rust rather than Python.
> > >
> > >*  Assembler E, F, XF, H and H V2 don't count; they're not supported. It 
> > >might, however
> > >   be fun to see if thy will still run.
> > >
> > >** I mean a lot more than just Hello world

> > -- gil

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: strange python announcement

2020-03-29 Thread Don Poitras
In article <0086720150876766.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Sun, 29 Mar 2020 19:52:50 +, Seymour J Metz wrote:

> >xSAM? I don't know of any language on z/OS* other than HLASM that supports 
> >BPAM.
> >
> I believe that SAS/C (ISV) support{s|ed} a construct such as fopen( 
> "DD:"ddname"("member")", ... );
> presumably employing BPAM.

Yes, SAS/C uses BPAM.

> And early in the development of the QSAM/BSAM interface to allocated
> HFS files the facility was referred to as xSAM.  The name was deprecate
> as an overload.

> >At this point, if I invest the time to master** a new language, I'd be 
> >looking at Java, Ruby or Rust rather than Python.
> >
> >*  Assembler E, F, XF, H and H V2 don't count; they're not supported. It 
> >might, however
> >   be fun to see if thy will still run.
> >
> >** I mean a lot more than just Hello world

> -- gil

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: DSPSERV CREATE, is ORIGIN parm a relic?

2020-03-07 Thread Don Poitras
ZAD is to deal with base registers (register 0 can never be a base register)
loaded with 0 being incorrectly used to read data in the first 4k by 
instructions
with a base/12-bit displacement.  While long-displacement instructions could
incorrectly read data in the first 512K of a dataspace, I doubt there has been
much evidence of this happening. The whole point of using HideZero is to reduce
the false-positives in the zad reports. It's not as if there's anything wrong
with actually looking at that storage if there's some reason to do so. Just use
R0 when you do. The first 8K of a dataspace is not unique to each processor.

In article  
you wrote:
> With 64 bit machines, each processor now has 8K unique to it.  Do they
> need to avoid the first 8K?

> On Sat, Mar 7, 2020 at 7:25 AM Peter Relson  wrote:
> >
> > Answer: Not totally
> >
> > It is true that all current machines support page 0 in a data space, and
> > for them the "normal" origin returned would be 0.
> > That is not a guarantee that all future machines would have such support,
> > but I find it hard to believe any would not.
> >
> > However, we have found it highly desirable to avoid using page 0 of the
> > data space, in order to avoid ZAD events (which in turn make it more
> > difficult to spot ZAD errors).
> > The best way to do that is to use HideZero=YES on DSPSERV CREATE
> > (available since z/OS 2.1). And when that is done, the origin returned is
> > x'1000'. With HideZero=YES, any reference to the first 4K will fail, so
> > that you don't even need ZAD to find erroneous references.
> >
> > For us, best practice is to create a 2G data space (not 2G-4K), treat RC=0
> > and RC=4 as OK, use HideZero=YES, and use an Origin of x'1000'.
> >
> > So you never really need to use the Origin keyword if you simply start at
> > x'1000'. There is a non-zero but miniscule risk if you assume that it is
> > OK to use an origin of 0.
> >
> > Peter Relson
> > z/OS Core Technology Design

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: UTF16 to EBCDIC

2020-02-10 Thread Don Poitras
Be careful _which_ utf-16 you've got. This example is "big-endian". If you do a 
binary
copy of a file from Windows it's going to be "little-endian" and you need to do 
the 
iconv using 1202 instead of 1200.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.cunu100/uniccsi.htm


In article <7673993116478651.wa.bgodfrey.gzgmail@listserv.ua.edu> you wrote:
> Given a USS file utf16.txt containing 6 UTF-16 characters, 12 bytes:

> >od -tx1 -An utf16.txt
> 00  28  20  1C  00  61  20  1D  00  29  00  0A

> U+0028 is left parenthesis
> U+201C is left double quotation mark
> U+0061 is small letter "a"
> U+201D is right double quotation mark
> U+0029 is right parenthesis

> There are no correstponding quotation marks in EBCDIC 1047.
> The iconv command converts them to hex 3F.

> >iconv -f 1200 -t ibm-1047  4D  3F  81  3F  5D  15
>  ( 077   a 077   )  \n

> The EDCICONV program, using data sets, produces the same results, with return 
> code 0 and no message.

> Bill

> On Sat, 8 Feb 2020 16:44:50 -0600, Paul Gilmartin  
> wrote:

> >On Sat, 8 Feb 2020 16:31:56 -0500, Phil Smith III wrote:
> >>
> >>>How does it handle characters absent from IBM-037?
> >>
> >>I expect it will throw an error. This is, as you (Gil) know, one of the 
> >>problems with OP???s query: you can???t stuff thousands of pounds of 
> >>potatoes into a 256-pound sack. (OK, characters, not potatoes.)  ...
> >>
> >The Command Ref. says:
> >If the input contains a character that is not valid in the destination 
> > code set, behavior
> >depends on the system's iconv() function. See z/OS XL C/C++ Runtime 
> > Library Reference
> >for more information about the character that is used for converting 
> > incorrect characters.
> >Which says:
> >If iconv() encounters a character in the input buffer that is valid, but 
> > for which
> >a conversion is not defined in the conversion descriptor, cd, then 
> > iconv() performs
> >a nonidentical conversion on this character. The conversion is 
> > implementation-defined.
> >
> >But no indication that it throws an error.  Of course the iconv utility 
> >could check
> >the output of iconv() and report its own error.
> >
> >"implementation-defined"?  This is the document that's supposed to provide 
> >that
> >definition.  I'll submit an RCF.  And a minor one.  "nonidentical" is 
> >invented nonsense.
> >the correct term is "injective:"  
> >https://en.wikipedia.org/wiki/Injective_function
> >
> >> ...
> >>>I wonder what was the motivation to require preallocated data set
> >>>names rather than the more flexible alternative of DDNAMEs?
> >>
> >>I believe it???s using ICONV on the USS side under the covers, which takes 
> >>a data set name.
> >> 
> >Appendix K of the Command Ref. does not list iconv as among the
> >utilities that accept data set names.  Of course, IBM is allowed to use
> >non-GUPI interfaces internally.
> >
> >-- gil

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Enterprise COBOL 6.3 and IBM Programmer Tools

2020-01-09 Thread Don Poitras
In article <02331572-ae6a-e896-0023-9bd6e64cf...@gmail.com> you wrote:
> On Thu, 9 Jan 2020 17:23:51 +1100, Attila Fogarasi 
> wrote abour Re: Enterprise COBOL 6.3 and IBM Programmer Tools:
> > There is a 64-bit ODBC driver so Db2 does provide a 64 bit API today, just
> > not for embedded SQL :)
> The ODBC driver runs on the client machine, not the host. The host
> interface is almost certainly accessing DB2 in 31-bit AMODE.
> -- 
> Regards,
> Dave  [RLU #314465]

There's just one machine/host. There are various APIs to get to DB2 
data. Internally, I'm sure that most of DB2 by now is AMODE 64 as 
lots of internal control areas have been moving above the bar since
version 9 at least. We looked at converting to ODBC to allow us to
not have to do all the work required when using the CAF API, but 
there were just too many things that CAF can do that ODBC doesn't.
Programs that just do simple SQL should probably convert to ODBC
if AMODE 64 is required. The manual for that is at:

https://www.ibm.com/support/knowledgecenter/SSEPEK_12.0.0/pdf/db2z_12_odbcbook.pdf

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Looking for tn3270 emulator that can run on macOS 10.15.2 (Catalina)

2020-01-07 Thread Don Poitras
In article <29e2159a-8aed-07b9-c4cf-7e521f172...@gmail.com> you wrote:
> On 2020-01-08 12:32 AM, Steve Smith wrote:
> > I like Vista TN3270 a lot better than anything else I have available now.
> > I slightly prefer Bluezone, but I wouldn't pay $30 for it over $20 Vista.
> > And it's a lot more than that.

> BlueZone is good although it crashed when I set a custom screen size of 
> 62 * 160. It's one of the few emulators
> where you can map the mouse wheel to F7/F8 for scrolling (standard in 
> Vista).


> > It would be nice if Tom B. would port it to Mac & Linux.  That might be
> > enough to convert me to Mac, as I'm thoroughly disgusted with
> > Microsoft-ware.

> No need to port it. It works fine with Wine.

> Microsoft are not the same company they were 10 years ago. IMO, Windows 
> 10 is a great OS and Office 365 is peerless and great value for money. I 
> have a Mac at home and they're great machines.
> I recently had a choice between a PC or a Mac for a new work machine and 
> chose the PC. I spend a lot of time in a shell and find Windows 10 WSL 
> with Ubuntu to be better than using brew on a mac.

Apparently, the osx binary for wine won't run under Catalina as 32-bit
apps are no longer supported. I've heard that it works if built from
source though. Not sure if Vista will then run.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Looking for tn3270 emulator that can run on macOS 10.15.2 (Catalina)

2020-01-07 Thread Don Poitras
In article <5625468136063305.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Tue, 7 Jan 2020 12:00:01 -0500, scott Ford wrote:

> >I have been using QWS3270 for years . X3270 is not bad for script
> >automation we use it in our CI process with Jenkins.
> > 
> When I've been called on for troubleshooting I much prefer screen
> snapshots as text rather than image.  X3270 can copy a screen either
> as text or as full-color HTML.  Either is suitable for copy-and-paste
> of text snippets.
> Most frequently, I'd receive Hummingbird bitmap screenshots.  Grrr.
> H. can snap a screen as text, but it's neither the default nor well
> documented.
> Can other emulators copy a screen as text?
> -- gil

The Vista TN3270 emulator can copy a screen (or part of a screen) as
text.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Looking for tn3270 emulator that can run on macOS 10.15.2 (Catalina)

2020-01-07 Thread Don Poitras
He's not talking about Vista the Windows OS, but rather Vista, Tom Brennan's
emulator. Wine is a light-weight app that can run Windows programs by 
converting API calls on the fly. I used it years ago, so I don't know how
well it works these days. I actually run the Vista emulator under VMware
Fusion (running Windows 10) as I needed the VM for a separate product (that
I'm pretty sure wouldn't work under Wine as it does serial I/O).

In article <9612299174345260.wa.jimracf.g...@listserv.ua.edu> you wrote:
> I don't really like Vista and always prefer a native solution if possible, 
> although admittedly that's something of a logical fallacy when you are 
> emulating 3270 terminals!


> Jim

> On Fri, 3 Jan 2020 21:02:35 +0800, David Crayford  wrote:

> >Why not just run Vista over Wine?
> >
> >On 2020-01-03 7:18 PM, Joe Monk wrote:
> >> I use ZOC as well. I found Mocha to be lacking.
> >>
> >> Joe
> >>
> >> On Fri, Jan 3, 2020 at 4:43 AM Jim Taylor  wrote:
> >>
> >>> I agree with the comments about c3270/x3270 but disagree when you say
> >>> there aren't any good macOS emulators - I really like ZOC and found it 
> >>> much
> >>> nicer to user than PComms on my Windows machine.
> >>>
> >>>
> >>> Jim
> >>>
> >>> On Fri, 3 Jan 2020 18:36:56 +0800, David Crayford 
> >>> wrote:
> >>>
> >>>> Unfortunately, x3270 and c3270 really suck! You won't find a native 3270
> >>>> emulator on macOS that's any good. That may change as the web based 3270
> >>>> emulators get better (Zowe has one).
> >>>>
> >>>> Guys with Macs in my team use Windows 3270 emulators running on Wine.
> >>>> There are a few quirks like macOS keyboard shortcuts not working
> >>>> properly but they can be worked around. Other than that
> >>>> they work exactly like they do on Windows.
> >>>>
> >>>>
> >>>> On 2020-01-01 1:24 AM, Mark Regan wrote:
> >>>>> Since the Catalina version of macOS is 64-bit only, any 32-bit tn3270
> >>>>> emulators no longer work on the macOS. I found ZOC, and I'm trying it
> >>> out
> >>>>> but was wondering if there are any other products out there.
> >>>>>
> >>>>> Another option is to try and build a copy x3270 or c3270 for use on
> >>> macOS.
> >>>>> Not being a programmer, I have no clue how to use 'make' to build it.
> >>>>>
> >>>>> Regards,
> >>>>>
> >>>>> *Mark T. Regan, K8MTR*
> >>>>> CTO1 USNR-Retired, 1969-1991
> >>>>> Nationwide Insurance, Retired, 1986-2017

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Enterprise COBOL 6.3 and IBM Programmer Tools

2020-01-06 Thread Don Poitras
In article 

 you wrote:
> >So what can you do *today* if you have an immediate requirement for an AMODE 
> >64 COBOL program per Tom Savor's comment, a program that must run both in 
> >CICS >Transaction Server for z/OS and in non-CICS batch mode? Tom Marchant 
> >provides one answer that works today and is fully IBM supported:
> >compile both AMODE 31 and AMODE 64 versions of the same COBOL program from 
> >the same source code. Invoke the former within CICS TS, and invoke the 
> >latter in (non->CICS) batch, assuming the program can otherwise run both 
> >inside and outside CICS TS. Before you dismiss this idea out of hand, let's 
> >recognize that many software vendors >already do this and have for many 
> >years, for example when they compile and distribute "performance tuned" and 
> >"compatible" releases of their software products, each using >different 
> >compiler parameters (ARCH, TUNE, etc., as applicable). Also, "debug" and 
> >"non-debug" versions, and "ABO'ed" and "non-ABO'ed." Importantly, it's not 
> >two versions >of source code; it's only two versions post-compilation.

> For us, the programs that run in Batch and Online are DB2 i/o programs.  So 
> your solution wont work for us as SQL and LP(64) are in-compatible.
>  

> Thanks,

> Tom Savor

There is a painful work-around. Use an assembler stub to call the DB2
API in amode 31. Allocate all storage that will be written to or read
from DB2 in storage allocated below the bar. I've done this in C, so
I have to think it's possible to do in COBOL. I see there is an 
ALLOCATE statement that can be used to get dynamic storage below the
bar. In C, we use __malloc31().

Of course, it would be much better if DB2 would provide a 64-bit API.
Now that C, COBOL and PL1 are able to run amode=64, I think there's
a good argument to be made that this should be a priority.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: multi-line STDPARM shell script for BPXBATCH

2019-10-30 Thread Don Poitras
When I looked into this a while back, here's what I came up with. I really don't
like the semi-colons and I really want to see the output along with the 
commands.
I'm also a fan of having everything contained in one member so that I don't have
to maintain stuff in different spots. 

---
//DONBPX2 JOB (,R282),POITRAS,NOTIFY=SASDTP,TIME=(0,10),CLASS=A,
//REGION=1M,MSGCLASS=A  
//* 
//*  The idea here is that I'd like to see the commands printed 
//*  along with the output. set -x will do that (while printing 
//*  a "+" in front of the commands, but that's ok), but sends  
//*  it's debugging output to stderr. By setting stdout and 
//*  stderr to the same file, the output is interleaved and the 
//*  final step prints the result.  
//* 
//COPY1EXEC PGM=IEBGENER
//SYSINDD DUMMY 
//SYSUT1   DD * 
set -x  
cd /u/sasdtp/temp   
pwd 
ls -Fartl   
date
/*  
//SYSUT2   DD PATH='/u/sasdtp/donbpx2.txt', 
//PATHOPTS=(ORDWR,OTRUNC,OCREAT),PATHMODE=SIRWXU,   
//PATHDISP=(KEEP,DELETE),FILEDATA=TEXT  
//SYSPRINT DD SYSOUT=*  
//BPXBAT   EXEC PGM=BPXBATCH,PARMDD=PARMINDD
//STDINDD DUMMY 
//STDOUT   DD PATH='/u/sasdtp/donbpx2.out.txt', 
//PATHOPTS=(OWRONLY,OTRUNC,OCREAT),PATHMODE=SIRWXU, 
//PATHDISP=(KEEP,DELETE),FILEDATA=TEXT  
//STDERR   DD PATH='/u/sasdtp/donbpx2.out.txt', 
//PATHOPTS=(OWRONLY,OTRUNC,OCREAT),PATHMODE=SIRWXU, 
//PATHDISP=(KEEP,DELETE),FILEDATA=TEXT  
//PARMINDD DD * 
sh /u/sasdtp/donbpx2.txt
/*  
//COPY2EXEC PGM=IEBGENER
//SYSINDD DUMMY 
//SYSUT1   DD PATH='/u/sasdtp/donbpx2.out.txt', 
//PATHOPTS=(ORDONLY),   
//RECFM=VB,LRECL=1024,BLKSIZE=3000  
//SYSUT2   DD SYSOUT=*  
//SYSPRINT DD SYSOUT=*  
//  
---

Running this job sends the output to sysout:

---
+ cd /u/sasdtp/temp  
+ pwd
/u/sasdtp/temp   
+ ls -Fartl  
total 20172  
-rw-r--r--1 SASDTP   CCD 5797 Jan 19  2011 hexdump.C 
-rwxr-xr-x1 SASDTP   CCD   118784 Jan 19  2011 hexdump*  
-rwx--1 SASDTP   CCD   129024 Jan 20  2011 hexdump.pax*  
-rw-r--r--1 SASDTP   CCD  1000 Jul 30  2018 tmp.txt  
drwxr-xr-x2 SASDTP   CCD 8192 Jul 30  2018 ./
drwxr-xr-x  130 SASDTP   CCD32768 Oct  4 15:29 ../   
+ date   
Wed Oct 30 09:34:09 EDT 2019 
---

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Best way for a task to give up the CPU and let other tasks run?

2019-10-22 Thread Don Poitras
In article  you wrote:
> On 2019-10-22 7:42 PM, Peter Relson wrote:
> > You can spin for a while, but then really need to "wait" (or pause) until
> > "posted" (or released) when the resource becomes available..
> The code snippets I posted show that the code sleeps rather than waiting 
> to be signaled which I suspect may be
> cheaper on those platforms.
> > Note that this is not the same as a CS loop which loops until successful
> > but only re-does things if something has changed.
> This is quite common in the assembler code I see. A CS loop with a timer 
> (but no wait/post backoff).
> >
> > And for things like "enabled resources" (ENQ, LOCAL lock), the system may
> > attempt to manage the work unit priorities to give the "holder" some extra
> > CPU time.
> This is interesting for ENQ. Windows has a mechanism in place to raise 
> the priority of waiters to mitigate "priority inversion".
> https://docs.microsoft.com/en-us/windows/win32/procthread/priority-inversion
> Is "priority inversion" not an issue on z/OS. I know that swapped out 
> address spaces go to the top of the dispatcher queue but
> how does it work for tasks?

You can call CHAP.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.ieaa700/chap.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: SWAREQ REXX fails with SWA=ABOVE, works with SWA=BELOW

2019-10-18 Thread Don Poitras
The current CBT 183 has a fix for this. See SWAREQ22 (it was z/OS 2.2 
where the breaking change was introduced.) It works on pre-2.2 as
well, so there's no need to hold on to the original SWAREQ.

In article <3385731727254339.wa.pbishop23dxc@listserv.ua.edu> you wrote:
> Bad form to reply to myself, but I should have added this.
> This gave me a hint:  
> https://www.ibm.com/support/pages/abend0c4-or-other-problems-retrieving-dataset-names-cobol
> This gave me the answer:  
> https://www-01.ibm.com/support/docview.wss?uid=swg1PI58751
> We're moving to z/OS 2.3 which was the source of the environment change.
> best regards,
> Peter
> On Thu, 17 Oct 2019 22:34:44 -0500, Peter Bishop  wrote:
> >Hi,
> >
> >in case anyone else is having failures using the old SWAREQ REXX that is 
> >floating around (originally from Gilbert Saint Flour), in our case as part 
> >of a REXX that compares catalogues via the IGGCSI00 program and various 
> >other methods, you will need to change your job class to SWA=BELOW to get it 
> >to work.
> >
> >After I did that, the mysterious errors relating to rubbish dataset names 
> >that SWAREQ was returning vanished, and normal processing resumed.
> >
> >Hope this saves some time for others.
> >
> >best regards,
> >Peter


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Best way for a task to give up the CPU and let other tasks run?

2019-10-17 Thread Don Poitras
CALLDISP

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.ieaa100/clldis.htm

In article <066301d584f2$b397cdc0$1ac76940$@mcn.org> you wrote:
> #1, MVS manages that sort of thing with its wisdom, right? If it thought
> someone else should run, it would pre-empt you and give control to that
> other task.
> #2, any SVC (or PC?) type system service call will cause MVS to re-evaluate
> who should be dispatched *I think*.
> Charles
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Thomas David Rivers
> Sent: Thursday, October 17, 2019 8:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Best way for a task to give up the CPU and let other tasks run?
> Does anyone happen to know the best way for a running task
> to give up running and let another task run?

> But - this isn't "give up" as in ending the task, just giving up
> the CPU to allow another task to run and then returning to this
> task.
> Sorta like "I'm done for the moment if something else would like to run".

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: PDS Member updating via COBOL Program

2019-10-08 Thread Don Poitras
In article <2000189509316059.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Tue, 8 Oct 2019 16:28:30 +, Jesse 1 Robinson wrote:
> >This is a classic problem endemic to traditional PDS since the dawn of MVS. 
> >IBM's solution to this problem is PDSE. If you convert the data set to 
> >Library (PDSE) you may reduce problem occurrence to negligible. OTOH PDSE 
> >may introduce its own set of problems, chief of which is the inability to 
> >share the data set across sysplex boundaries. If that restriction is 
> >unacceptable, you might try adding in your RYO enqueue program as you 
> >suggest. Be aware, however, that DISP=SHR is unlikely to provide much if any 
> >protection against concurrent update. 
> > 
> I have used ISPF LM services for this purpose.  But that requires a TSO
> environment.  Otherwise, you may simulate the ISPF technique, as in:
> 
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.4.0/com.ibm.zos.v2r4.f54pc00/isppcmmnamen.htm
> Whatever you do, all players must follow the same rules.  Any
> nonconformists must be re-coded.
> I have tested using LMPUT to write multiple members concurrently.
> It works, but only within a single job because ISPF LMPUT reqiuires
> ENQ EXC on the DSN.
> -- gil

If you do the ENQ as shown in the link above, be sure to also issue the
RESERVE which is documented just before this. (ISPF Data set integrity
enqueue).

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Phoenix Software International Announces IBM?? JES3 Licensing Agreement

2019-10-02 Thread Don Poitras
Just wow.

In article  you wrote:
> El Segundo, CA???October 2, 2019: Phoenix Software International, Inc., 
> today announced they have entered into an agreement with IBM?? under 
> which Phoenix Software International has licensed the source code for 
> IBM???s z/OS JES3 spooling subsystem, offering a solution to clients 
> wishing to remain on JES3.

> Read the press release here: http://bit.ly/spooler-news

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

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: deduce program language

2019-10-02 Thread Don Poitras
I've only written LE programs in C and assembler. I would have guessed that 
COBOL had the same requirements for DLLs having the CEESTART entry point,
but it's not something I've looked into. Sorry. Tom Ross can answer if
he sees this. 

In article  
you wrote:
> Don,
> Thanks for the info. I'm familiar with the LE Vendor Interfaces, but I
> guess I need to dig deeper.
> With all of my test with COBOL and Assembler have been successful. However,
> it always abends when I intercept a C program; usually with the CEE3550
> message. Occasionally it is a 0C4 in the intended program.
> Does LE have stricter requirements with CEESTART in C programs?
> Thank you,
> Brian Chapman

> On Tue, Oct 1, 2019 at 1:23 PM Don Poitras  wrote:
> > In article  > t1cmgbfaka497yhff...@mail.gmail.com> you wrote:
> > > I created a trace facility to intercept external interface calls (MQ,
> > DB2,
> > > IMS, etc) and dynamic calls.
> > > For dynamic calls, I intercept the load request and replace the entry
> > point
> > > address with an entry point address of my own program. I then save the
> > > original entry point address to later branch to the intended program. The
> > > interception works for assembler and COBOL programs, but it fails for C
> > > programs. When intercepting a C program, the process abends with a 4038
> > > (CEE3550S  The DLL cannot be loaded because it does not contain a
> > CEESTART
> > > CSECT).
> > > Is there a write-up on how the program load point is mapped and how to
> > > deduce the loaded program's language?
> > > I hoped to clone my assembler intercept program and create a second copy
> > > that includes the CEESTART macro to resolve this issue. However, I read
> > > that the CEESTART, CEEMAIN, and CEEFMAIN should not be used within an
> > > assembler program because it will produce unpredictable behavior. Must I
> > > write a C program?
> > > Thank you,
> > > Brian Chapman
> >
> > I'm not sure how COBOL is working for you as it's an LE program the same
> > as C, but perhaps you're not using standard LE DLL's for your COBOL
> > programs. CEESTART is not a macro, it's a module/CSECT that gets linked
> > from the LE bind library when you compile an LE program or DLL. It's
> > always linked as the entry point as that's where the WSA is allocated
> > and other housekeeping before the user code is called (either main() or
> > the DLL function). LE doc is kind of spread all over the place, but
> > for writing an assembler front-end as you're doing, I think the LE
> > Vendor Interfaces book is something you should look at.
> >
> >
> > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.ceev100/abstract.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: deduce program language

2019-10-01 Thread Don Poitras
In article  
you wrote:
> I created a trace facility to intercept external interface calls (MQ, DB2,
> IMS, etc) and dynamic calls.
> For dynamic calls, I intercept the load request and replace the entry point
> address with an entry point address of my own program. I then save the
> original entry point address to later branch to the intended program. The
> interception works for assembler and COBOL programs, but it fails for C
> programs. When intercepting a C program, the process abends with a 4038
> (CEE3550S  The DLL cannot be loaded because it does not contain a CEESTART
> CSECT).
> Is there a write-up on how the program load point is mapped and how to
> deduce the loaded program's language?
> I hoped to clone my assembler intercept program and create a second copy
> that includes the CEESTART macro to resolve this issue. However, I read
> that the CEESTART, CEEMAIN, and CEEFMAIN should not be used within an
> assembler program because it will produce unpredictable behavior. Must I
> write a C program?
> Thank you,
> Brian Chapman

I'm not sure how COBOL is working for you as it's an LE program the same
as C, but perhaps you're not using standard LE DLL's for your COBOL
programs. CEESTART is not a macro, it's a module/CSECT that gets linked
from the LE bind library when you compile an LE program or DLL. It's
always linked as the entry point as that's where the WSA is allocated
and other housekeeping before the user code is called (either main() or
the DLL function). LE doc is kind of spread all over the place, but
for writing an assembler front-end as you're doing, I think the LE
Vendor Interfaces book is something you should look at.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.ceev100/abstract.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Submitting batch if you don't have TSO

2019-09-12 Thread Don Poitras
You mean like a BPX function? Not that I see. The 'submit' from Gil's link is 
just
a rexx program (/bin/submit) that calls the Rexx 'submit' built-in. Before this
version, Bill Schoen used to have a version that used:

---
call bpxwdyn 'alloc dd(sub) sysout writer(intrdr) recfm(f)',
'lrecl(80) msg(2)'
address mvs 'execio' s.0 'diskw sub (fini stem s.'
call bpxwdyn 'free dd(sub) msg(2)'
---

I'm sure that still works.


In article 

 you wrote:
> ObNit submit() is a Unix System Services function that is written to be 
> called from REXX. There are a bunch of them. 

> ObRaisedEyebrows For some reason IBM added the ANSI functions for stream I/O 
> for REXX under Unix but not for REXX under TSO.


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


> 
> From: IBM Mainframe Discussion List  on behalf of 
> Don Poitras 
> Sent: Wednesday, September 11, 2019 3:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Submitting batch if you don't have TSO

> In article <9767139758844518.wa.paulgboulderaim@listserv.ua.edu> you 
> wrote:
> > On Wed, 11 Sep 2019 13:40:42 -0500, Len DiCristofano wrote:

> > >IBM Explorer for z/OS using the z/OS perspective is also an alternative to 
> > >TSO in submitting batch jobs.
> > >
> > Could do likewise with UNIX System Services:
> > 
> > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.bpxa400/jclsub.htm
> > The submit command submits JCL from the shell. By using this command
> > you do not need to open a TSO session to submit JCL.
> > -- gil

> The 'submit' command itself is just a REXX program wrapping the REXX
> 'submit' function.

> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxb600/subm.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: APAR OA56180 / RUCSA

2019-09-12 Thread Don Poitras
>From other posts, it seems this was intended to allow customers running
programs they either lost, or never had, source code for. In that case, I
don't think there is a "nice simple way" to get around the restriction.

In article  
you wrote:
> You ignored the context of my statement, and your response doesn't address
> it. I don't see much added value of a new and complicated way of bypassing
> the restriction, when there was already a nice simple way.  While it may be
> intended for particular customers, the "feature" is public.  And while it's
> common knowledge big customers tend to get what they want, I'm not clear
> why RUCSA is what they wanted (vs. the parm).
> Regardless, I'm only idly curious, this has no effect on my business.
> sas
> On Wed, Sep 11, 2019 at 5:48 PM Mark Zelden  wrote:

> > On Tue, 10 Sep 2019 12:06:59 -0400, Steve Smith  wrote:
> >
> >
> > > So, I'm not sure why
> > >IBM is going to all this trouble to ban it, then unban it a little bit.
> > >
> >
> > I think I alluded to it in my OP and IBM also responded that it was for "a
> > particular set
> > of customers".  It wasn't because IBM thought "hey, this sounds like a
> > good idea" and
> > did all the development work to take a step backwards.
> >
> > Big customers paying IBM big money have big voices.  It may have just been
> > one big
> > customer, who knows (other than IBM).
> >
> > Regards,

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Submitting batch if you don't have TSO

2019-09-11 Thread Don Poitras
In article <9767139758844518.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Wed, 11 Sep 2019 13:40:42 -0500, Len DiCristofano wrote:

> >IBM Explorer for z/OS using the z/OS perspective is also an alternative to 
> >TSO in submitting batch jobs.
> > 
> Could do likewise with UNIX System Services:
> 
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.bpxa400/jclsub.htm
> The submit command submits JCL from the shell. By using this command
> you do not need to open a TSO session to submit JCL.
> -- gil

The 'submit' command itself is just a REXX program wrapping the REXX
'submit' function.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxb600/subm.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: XL C\C++ missing DLL for fopen

2019-09-02 Thread Don Poitras
That all looks as though you're mixing 31-bit and 64-bit objects. Was SYSADATA
compiled with the LP64 and DLL options?

In article <006901d561e6$72682d60$57388820$@gmail.com> you wrote:
> These are the error messages or some of them honestly I just went thru every 
> CBC a CEE  library and cannt find CELQV003

>  IEW2322I 1220  8934IMPORT CODE64,'IOSX64','WS__FR7istream'   
>   
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO fread FROM SECTION SYSADATA DO 
> NOT MATCH THE ATTRIBUTES OF THE TARGET   
>  SYMBOL. REASON  2
>  
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO fopen FROM SECTION SYSADATA DO 
> NOT MATCH THE ATTRIBUTES OF THE TARGET   
>  SYMBOL. REASON  2
>  
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO malloc FROM SECTION SYSADATA 
> DO NOT MATCH THE ATTRIBUTES OF THE TARGET  
>  SYMBOL. REASON  2
>  
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO fread FROM SECTION SYSADATA DO 
> NOT MATCH THE ATTRIBUTES OF THE TARGET   
>  SYMBOL. REASON  2
>  
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO fopen FROM SECTION SYSADATA DO 
> NOT MATCH THE ATTRIBUTES OF THE TARGET   
>  SYMBOL. REASON  2
>  
> IEW2469E 9907 THE ATTRIBUTES OF A REFERENCE TO malloc FROM SECTION SYSADATA 
> DO NOT MATCH THE ATTRIBUTES OF THE TARGET  
>  SYMBOL. REASON  2
>  
> IEW2439E 9228 THE AMODE OF THE REFERENCING ESD FOPEN DOES NOT MATCH THAT 
> SPECIFIED ON THE IMPORT STATEMENT.
> IEW2439E 9228 THE AMODE OF THE REFERENCING ESD FREAD DOES NOT MATCH THAT 
> SPECIFIED ON THE IMPORT STATEMENT.
> IEW2439E 9228 THE AMODE OF THE REFERENCING ESD MALLOC DOES NOT MATCH THAT 
> SPECIFIED ON THE IMPORT STATEMENT.   



> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> Jon Perryman
> Sent: Monday, September 2, 2019 7:03 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C++ missing DLL for fopen

>  You've missed the point. We need real details. For instance, the error 
> message should always be included instead of your interpretation of the 
> message. 

> You could look in SMP/E and find out where CELQV003 is located. Maybe you are 
> missing the library.

> Jon.

> On Monday, September 2, 2019, 03:13:36 PM PDT, Joseph Reichman 
>  wrote:  
>  
>  The syslin which the following IMPORT cann't find the DLL CELQV003


>  BROWSECEE.SCEELIB(CELQS003) Command ===> IMPORT 
> CODE64,CELQV003,'FFLUSH',068 IMPORT CODE64,CELQV003,'fopen',069  

> I have the following SYSLIB

> //SYSLIB  DD DISP=SHR,DSN=CEE.SCEEBND2 //DD DISP=SHR,DSN=CEE.SCEELKEX 
> //DD DISP=SHR,DSN=CEE.SCEELKED //DD DISP=SHR,DSN=CEE.SCEECPP 
> //DD DISP=SHR,DSN=CBC.SCLBDLL2

> The IBM proc  link for 64 BIT only has only CEE.SCEEBND2 I added some hoping 
> it would be found 

> Have you done C AMODE64 compile would you know where the DLL for fopen,malloc 
> for amode 64 lives

> Thanks  

> BROWSECBC.SCCNPRC(CBCQB)  Line 30 Col 001
> 080
>  Command ===>  Scroll ===> 
> CSR //BIND EXEC PGM=IEWL,REGION=,

> //  PARM='MAP,RENT,DYNAM=DLL,CASE=MIXED,'

> //STEPLIB  DD  DSN=,DISP=SHR

> //DD  DSN=,DISP=SHR

> //SYSLIB  DD  DSN=,DISP=SHR

> //SYSLIN  DD  DSN=,DISP=SHR

> //DD  DSN=(CELQSCPP),DISP=SHR

> //DD  DSN=(CELQS003),DISP=SHR

> //DD  DSN=(C64),DISP=SHR

> //DD  DSN=(IOSX64),DISP=SHR

> //    DD  DDNAME=SYSIN

> //SYSLMOD  DD  DSN=

> //SYSDEFSD DD  DUMMY

> //SYSPRINT DD  SYSOUT=*

> //SYSINDD  DUMMY

>   -EDIT*DSLIST

>   
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> Don Poitras
> Sent: Monday, September 2, 2019 6:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C++ missing DLL for fopen

> I'm sure the compiler has deficiencies. You're previous error prog

Re: XL C\C++ missing DLL for fopen

2019-09-02 Thread Don Poitras
I still don't see an error message. There is no DLL CELQV003. The import
statement just tells the binder how to link the program to find the 
executable at run time. If you do a search inside CEE.SCEEBND2, you will
find eyecatchers for fopen (and other library routines). The run-time
code is going to be somewhere in there or linked in from bnd2. If your
SYSLIN contains CELQS003 and your SYSLIB contains SCEEBND2, then you
shouldn't be getting a link error from just calling fopen. DLLs don't
get linked, they get loaded and executed at run time. The side deck
with the IMPORT statements is all that needs to be passed to the binder
to get successful output. 


In article <005f01d561db$a5de0260$f19a0720$@gmail.com> you wrote:
> The syslin which the following IMPORT cann't find the DLL CELQV003


>  BROWSECEE.SCEELIB(CELQS003) 
> Command ===>
> IMPORT CODE64,CELQV003,'FFLUSH',068 
> IMPORT CODE64,CELQV003,'fopen',069  

> I have the following SYSLIB

> //SYSLIB   DD DISP=SHR,DSN=CEE.SCEEBND2 
> // DD DISP=SHR,DSN=CEE.SCEELKEX 
> // DD DISP=SHR,DSN=CEE.SCEELKED 
> // DD DISP=SHR,DSN=CEE.SCEECPP  
> // DD DISP=SHR,DSN=CBC.SCLBDLL2 

> The IBM proc  link for 64 BIT only has only CEE.SCEEBND2 I added some hoping
> it would be found 

> Have you done C AMODE64 compile would you know where the DLL for
> fopen,malloc for amode 64 lives

> Thanks   

> BROWSECBC.SCCNPRC(CBCQB)   Line 30 Col 001
> 080 
>  Command ===>  Scroll ===>
> CSR  
> //BIND EXEC PGM=IEWL,REGION=,

> //   PARM='MAP,RENT,DYNAM=DLL,CASE=MIXED,'

> //STEPLIB  DD  DSN=,DISP=SHR

> // DD  DSN=,DISP=SHR

> //SYSLIB   DD  DSN=,DISP=SHR

> //SYSLIN   DD  DSN=,DISP=SHR

> // DD  DSN=(CELQSCPP),DISP=SHR

> // DD  DSN=(CELQS003),DISP=SHR

> // DD  DSN=(C64),DISP=SHR

> // DD  DSN=(IOSX64),DISP=SHR

> // DD  DDNAME=SYSIN

> //SYSLMOD  DD  DSN=

> //SYSDEFSD DD  DUMMY

> //SYSPRINT DD  SYSOUT=*

> //SYSINDD  DUMMY

>-EDIT*DSLIST

>   
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Don Poitras
> Sent: Monday, September 2, 2019 6:01 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: XL C\C++ missing DLL for fopen

> I'm sure the compiler has deficiencies. You're previous error program showed
> one.  While it would be nice to claim to be able to catch every possible
> coding error, that's just not realistic.  A "huge" number of them? That
> would be news to us. We've been using this compiler/library for many years
> and we've encountered a few problems, especially in the early days of
> 64-bit. But IBM (unlike other places I could name) responds quickly and
> intelligently to any issue we bring to them.

> In your latest problem, the question doesn't make sense. I can't tell if
> you're seeing a compiler error, a pre-link error, a link-error or a run-
> time error. The run-time library for 64-bit is in CEE.SCEERUN2. Do you have
> that in your steplib when you run your program? Most shops put that in LLA
> for better performance. If it's a build error, show the jcl and the error
> message. 


> In article <710f339f-a985-4152-83ca-fb86f440b...@gmail.com> you wrote:
> > I saw that???s but all the said he re-did application

> > Probably told him to go to amode 31

> > I have lots of storage so I want get above bar storage so the only way 
> > to do  that is amode 64

> > Figured when you do a malloc it would be above the bar

> > The XL C\C++ compiler has a huge number of deficiencies




> > > On Sep 1, 2019, at 8:17 PM, Jon Perryman  wrote:
> > > 
> > > IBM PI68779: An customer PL/I 64bit application failed with CEE3501S.
> > > 
> > > | 
> > > | 
> > > |  | 
> > > IBM PI68779: An customer PL/I 64bit application failed with CEE3501S.
> > > 
> > > Error Description PL/I 64bit customer has an application that is failing
> with
> > > |
> > > 
> > > |
> > > 
> > > |
> > > 
> > > 
> > > 
> > > Jon.
> > >On Sunday, September 1, 2019, 11:49:05 AM PDT, Joseph Reichman
>  wrote:  
> > > 
> > > Hi
> > > 
> > > 
> > > 
> > > I am trying  to compile a AMODE 64 DLL which has a fopen
> > > 
> > > 
> > > 
> > > And cann't find its associated DLL
> > > 
> > > 
> > > 
> > > CELQV003
> > > 
> > > 
> > > 
> > >   IMPORT CODE64,CELQV003,'fopen',069

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: XL C\C++ missing DLL for fopen

2019-09-02 Thread Don Poitras
I'm sure the compiler has deficiencies. You're previous error program
showed one.  While it would be nice to claim to be able to catch every
possible coding error, that's just not realistic.  A "huge" number of
them? That would be news to us. We've been using this compiler/library
for many years and we've encountered a few problems, especially in the
early days of 64-bit. But IBM (unlike other places I could name) responds
quickly and intelligently to any issue we bring to them.

In your latest problem, the question doesn't make sense. I can't tell if
you're seeing a compiler error, a pre-link error, a link-error or a run-
time error. The run-time library for 64-bit is in CEE.SCEERUN2. Do you have
that in your steplib when you run your program? Most shops put that in
LLA for better performance. If it's a build error, show the jcl and the
error message. 


In article <710f339f-a985-4152-83ca-fb86f440b...@gmail.com> you wrote:
> I saw that???s but all the said he re-did application 

> Probably told him to go to amode 31

> I have lots of storage so I want get above bar storage so the only way to do  
> that is amode 64

> Figured when you do a malloc it would be above the bar 

> The XL C\C++ compiler has a huge number of deficiencies 




> > On Sep 1, 2019, at 8:17 PM, Jon Perryman  wrote:
> > 
> > IBM PI68779: An customer PL/I 64bit application failed with CEE3501S.
> > 
> > | 
> > | 
> > |  | 
> > IBM PI68779: An customer PL/I 64bit application failed with CEE3501S.
> > 
> > Error Description PL/I 64bit customer has an application that is failing 
> > with
> > |
> > 
> > |
> > 
> > |
> > 
> > 
> > 
> > Jon.
> >On Sunday, September 1, 2019, 11:49:05 AM PDT, Joseph Reichman 
> >  wrote:  
> > 
> > Hi
> > 
> > 
> > 
> > I am trying  to compile a AMODE 64 DLL which has a fopen
> > 
> > 
> > 
> > And cann't find its associated DLL
> > 
> > 
> > 
> > CELQV003
> > 
> > 
> > 
> >   IMPORT CODE64,CELQV003,'fopen',069

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Omegamon CICS Installation error

2019-08-21 Thread Don Poitras
Is the dataset on an EAV volume? That's not supported by SAS/C.


In article  you wrote:
> A couple of things that I would look at.

> >  2019/08/21 11:05:11 KPDINDS: Initialization started  for DataStore file 
> > DSN:OMEGAMON.TIVOLI.OMEGCICS.RPDSGRP1
> > 0LSCX545  WARNING  ERRNO = EDEVICE  
> > 
> >  Generated inFOPEN called from line157 of 680484(FLIO)  
> >  , offset 000110   
> >  Open failed due to physical I/O error: UNKNOWN COND.   
> > 

> - is there any issues with disk devices, because of the physical I/O error?
> - Is the dataset in multiple extends? If so, try reducing the number of 
> extents?
> - Check the REGION?  
> - Has the DataStore been properly formatted? 



> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of 
> PIETIN Jean-Loup
> Sent: Wednesday, August 21, 2019 9:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Omegamon CICS Installation error

> I'm trying to install the Omegamon CICS V 5.5

> I have open an ETR with IBM but in the meantime I wanted to know if anyone 
> had ever faced this problem.

> -Message d'origine-----
> De?: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] De la 
> part de Don Poitras Envoy??: mercredi 21 ao?t 2019 14:13 ??: 
> IBM-MAIN@LISTSERV.UA.EDU Objet?: Re: Omegamon CICS Installation error

> What version of Omegamon are you trying to install? Omegamon hasn't been 
> built with SAS/C (all the L$C messages are from the SAS/C runtime) in many 
> years. If this is a current release, you should open an ETR with IBM.


> In article <8704833990123269.wa.jlpietinverspieren@listserv.ua.edu> you 
> wrote:
> > Hi all

> > I have a problem when i run a job from parmgen to install Omegamon CICS.

> > The error is in the C execution but i don't understand and i don't know if 
> > it was a CEE parm to change or not.

> > The PDS create is on a SMS storage Group.

> > Anybody help me?

> > This is the log message where the error appeared

> > +LSCX075 Command line parameter truncated to 1000 bytes.
> > 
> > +LSCX042 C runtime storage usage statistics for program ugas:   
> > 
> > +36864 bytes of stack allocated.
> > 
> > +33554432 bytes of heap allocated, 648 used.
> > 
> > +3 system allocate requests, 1 system free request. 
> > 
> > + Stack: allocated below the line.  
> > 
> > + Heap : allocated primarily above the line.
> > 
> > +LSCX099 XDAP ERROR (rel) DIAGNOSTIC INFO 
> > +,JOB,KC5JPALQ,7959,D,SYS00011,**-
> >  00,EXCP
> > 
> > -JOB  KC5JPALQ  4095   2065.00.00.03   7809   0 
> >  0 

> >  2019/08/21 11:05:11 KPDINDS: Initialization started  for DataStore file 
> > DSN:OMEGAMON.TIVOLI.OMEGCICS.RPDSGRP1
> > 0LSCX545  WARNING  ERRNO = EDEVICE  
> > 
> >  Generated inFOPEN called from line157 of 680484(FLIO)  
> >  , offset 000110   
> >  Open failed due to physical I/O error: UNKNOWN COND.   
> > 
> >  Calling trace: 
> > 
> >  FunctionLineOffsetContext  
> > 
> >   L$CRPSO(L$CRPOS)   000ADC 
> > 
> >   L$COREL(L$COREL)   00075A 
> > 
> >AMOPEN(L$CAMOP)   000916Opening file 
> > "DSN:OMEGAMON.TIVOLI.OMEGCICS.RPDSGRP1" 
> >  AFREOPEN(L$CFOPN)   0002B2 
> > 
> > FOPEN(L$CFOPN)   66 
> > 
> >  680484(FLIO)   157000110   
> >   
> >  636982(INDS)   1460001B4   
> >   
> >  473258(CNFG)   244000330   
> >   
> >   _DYNAMN(MANE)  1021000EFA 
> > 
> >  MAIN(ARES)   25486 
> > 
> >  

Re: Omegamon CICS Installation error

2019-08-21 Thread Don Poitras
What version of Omegamon are you trying to install? Omegamon hasn't been 
built with SAS/C (all the L$C messages are from the SAS/C runtime) in
many years. If this is a current release, you should open an ETR with
IBM.


In article <8704833990123269.wa.jlpietinverspieren@listserv.ua.edu> you 
wrote:
> Hi all

> I have a problem when i run a job from parmgen to install Omegamon CICS.

> The error is in the C execution but i don't understand and i don't know if it 
> was a CEE parm to change or not.

> The PDS create is on a SMS storage Group.

> Anybody help me?

> This is the log message where the error appeared

> +LSCX075 Command line parameter truncated to 1000 bytes.  
>   
> +LSCX042 C runtime storage usage statistics for program ugas: 
>   
> +36864 bytes of stack allocated.  
>   
> +33554432 bytes of heap allocated, 648 used.  
>   
> +3 system allocate requests, 1 system free request.   
>   
> + Stack: allocated below the line.
>   
> + Heap : allocated primarily above the line.  
>   
> +LSCX099 XDAP ERROR (rel) DIAGNOSTIC INFO 
> ,JOB,KC5JPALQ,7959,D,SYS00011,**-
>  00,EXCP  
>   
> -JOB  KC5JPALQ  4095   2065.00.00.03   7809   0  
> 0 

>  2019/08/21 11:05:11 KPDINDS: Initialization started  for DataStore file 
> DSN:OMEGAMON.TIVOLI.OMEGCICS.RPDSGRP1
> 0LSCX545  WARNING  ERRNO = EDEVICE
>   
>  Generated inFOPEN called from line157 of 680484(FLIO)   
> , offset 000110   
>  Open failed due to physical I/O error: UNKNOWN COND. 
>   
>  Calling trace:   
>   
>  FunctionLineOffsetContext
>   
>   L$CRPSO(L$CRPOS)   000ADC   
>   
>   L$COREL(L$COREL)   00075A   
>   
>AMOPEN(L$CAMOP)   000916Opening file 
> "DSN:OMEGAMON.TIVOLI.OMEGCICS.RPDSGRP1" 
>  AFREOPEN(L$CFOPN)   0002B2   
>   
> FOPEN(L$CFOPN)   66   
>   
>  680484(FLIO)   157000110 
> 
>  636982(INDS)   1460001B4 
> 
>  473258(CNFG)   244000330 
> 
>   _DYNAMN(MANE)  1021000EFA   
>   
>  MAIN(ARES)   25486   
>   
>  KFAPERR : error 14202
>   
>  KFAPERR :  Function OffsetLineContext
>   
>  KFAPERR : 397395(SUBS)A8  41 
> 
>  KFAPERR : 680484(FLIO)00013A 162 
> 
>  KFAPERR : 636982(INDS)0001B4 146 
> 
>  KFAPERR : 473258(CNFG)000330 244 
> 
>  KFAPERR :  _DYNAMN(MANE)000EFA1021   
>   
>  KFAPERR : MAIN(ARES)86 254   
>   
>  2019/08/21 11:05:11 KPDMANE: Persistent DataStore initialization failed in 
> KPDCNFG(2), rc = 14202 
>  2019/08/21 11:05:11 KPDMANE: Persistent DataStore facility terminating.  
>   

> Thanks in advance

> Jean-Loup PIETIN

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


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: 64 bit Assembler DLL app PSECT parm

2019-08-21 Thread Don Poitras
R5 points to the WSA. In a 64-bit xplink assembler routine, it's required to
be passed in from the caller. Just like R4 points to the stack and R12 points
to the CAA. See:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.cbcpx01/cbc1p2179.htm

In article <007201d557c8$5238af60$f6aa0e20$@gmail.com> you wrote:
> Not sure if that it seems like in the CELQCALL register 5 should be
> initialized to something which it is not either by CELQCALL macros or the
> CELQPRLG macros

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Charles Mills
> Sent: Tuesday, August 20, 2019 9:12 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: 64 bit Assembler DLL app PSECT parm

> There is more here
> https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/com.ibm.hlasm.v1r6.
> asma400/xatrsyn.htm
> but not much. (Watch the fold.)

> This seems pretty good:
> https://www.ibm.com/support/knowledgecenter/SSENW6_1.6.0/com.ibm.hlasm.v1r6.
> asma400/adaattr.htm 

> Charles


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Joseph Reichman
> Sent: Tuesday, August 20, 2019 5:47 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: 64 bit Assembler DLL app PSECT parm

> Hi

>  

> I have a 64 bit C DLL being called by a 64 BIT Assembler program the
> following is an example I saw in the LE 64 bit guide

>  

> DLLAPPL  CELQPRLG PSECT=ADLA6IFP I searched for the text ADLA6IFP and this
> was the only occurrence

>  

> I am wondering what the value is for the PSECT parm 

>  

> I seem to be abending in CELQCALL macro which is somehow related to the
> PSECT parm or its address

>  

> Looking up the documentation on the parm  

> *

> Not quite sure what this means

>  

> PSECT

> The name to be assigned to the AMODE 64 assembler routine PSECT area. The
> PSECT is used to

> establish this routines 64-bit XPLINK environment. For more information
> about the PSECT area, see

> High Level Assembler and Toolkit Feature in IBM Knowledge Center
> (www.ibm.com/support/

> knowledgecenter/SSENW6).

>  

> thanks

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: logstream read/copy utility

2019-08-15 Thread Don Poitras
In article <00c201d5536f$e7e1d530$b7a57f90$@gmail.com> you wrote:
> Is there a generic utility anywhere to read a logstream and write it to a
> data set or report?
>  
>  
> Lionel B. Dyck <
> Website:  <http://www.lbdsoftware.com/> http://www.lbdsoftware.com

IDCAMS?

//DONLOGP JOB (,R214),POITRAS,NOTIFY=SASDTP,TIME=(1,59),CLASS=A  
//REPRO   EXEC  PGM=IDCAMS,REGION=20M 
//SYSUT1   DD  DISP=SHR,DSN=SASDTP.SAS.LOG,   
// SUBSYS=(LOGR), 
// DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760)  
//SYSUT2   DD  SYSOUT=*,  
// DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760)  
//SYSPRINT DD SYSOUT=*
//SYSINDD *   
 REPRO INFILE(SYSUT1) OFILE(SYSUT2)   
/*
//        

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: FAST PATH (IEWBFDAT) SQ CALL Fail 10800029

2019-08-07 Thread Don Poitras
Greg was asking if you are trying to get info about load modules or
program objects. The former isn't supported using IEWBFDAT.

In article  you wrote:
> I tried two load modules using the load macro to load them into memory  that 
> I know execute 
> And got the same error 
> > On Aug 6, 2019, at 10:03 PM, Greg Price  wrote:
> > 
> >> On 2019-08-07 5:37 AM, Joseph Reichman wrote:
> >> The program is not a program object, anomalies were found in its
> >> structure, or the program is PO1 (program object, version 1) and the
> >> program contains overlay structures. The request was rejected
> > 
> > So, would you swear on a stack of PLMs that MYMOD is neither a load module 
> > from a PDS nor a segment overlay program object?
> > 
> > If so, then it is time to post the entire parameter list passed to IEWBFDAT.
> > 
> > Cheers,
> > Greg

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: XL C\C+ DLL Storage

2019-07-28 Thread Don Poitras
Heap storage is owned by the enclave not any particular DLL. It exists until it
is deliberately freed. Global storage in C/C++ is data defined as extern or 
(when compiled RENT) static and is allocated when the main module or DLL is 
loaded in the Writable Static Area (WSA). The WSA for a DLL will be freed when
a DLL is unloaded.

In article <00cf01d545b2$1a0491e0$4e0db5a0$@gmail.com> you wrote:
> Hi
>  
>  
> I have written DLL's on Windows Platform the persistent storage (storage
> needed between calls to exported functions)
>  
> I save in something called Thread Local Storage
>  
> Looking at the examples in the XL C\C++ all the storage seems to be
> allocated on the Stack, meaning once it leaves on exported functions it wont
> be available to others, would anyone know 
>  
> Where global or Heap Storage is stored for a DLL
>  
>  
>  
> thanks

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Abend entry LE Assembler

2019-07-18 Thread Don Poitras
> WORKAREA DSECT  
>  ORG  *+CEEDSASZ LEAVE SPACE FOR THE DSA FIXED PART 
>  DS 0D  
> WORKSIZE EQU *-WORKAREA 
>  CEEDSA MAPPING OF THE DYNAMIC SAVE AREA
>  CEECAA MAPPING OF THE COMMON ANCHOR AREA   
>  CEEEDB MAPPING OF THE ENCLAVE DATA BLOCK   
>  END
> /*  
> //* 
> //* LINK EDIT THE PROGRAM * 
> //* 
> //STEP0200 EXEC PGM=IEWL,COND=(0,LT,STEP0100),  
> // PARM='AMODE(31),LIST,MAP,XREF,CASE=MIXED'
> //SYSPRINT DD SYSOUT=*  
> //SYSDEFSD DD SYSOUT=*  
> //OBJ  DD DSN=&,DISP=(OLD,PASS)  
>  //SYSDEFSD DD SYSOUT=*

> //OBJ  DD DSN=&,DISP=(OLD,PASS)  
> //SYSLIB   DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB  
> // DD DISP=SHR,DSN=CEE.SCEELKED 
> //SYSLMOD  DD DISP=SHR,DSN=IBMUSER.DBGR.DLLLIB  
> //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=  
> //SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)  
> //SYSLIN   DD * 
>   IMPORT CODE,SYSADATA,opendata 
>   INCLUDE OBJ(TESTPRGD) 
>   INCLUDE SYSLIB(SYSADATA)  
>   ENTRY TESTPRGD
>   NAME TESTPRGD(R)          
> /*  
> //

> 

> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf Of
> Don Poitras
> Sent: Thursday, July 18, 2019 12:57 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Abend entry LE Assembler

> In your link-edit, what did you set the entry point to? You were previously
> using 64-bit, and CELQSTRT is what I mentioned would be correct for that.
> Now that you're 31-bit, it needs to be CEESTART. 

> In article <834432fa-2af1-4e01-abc7-ad0fa62c4...@gmail.com> you wrote:
> > As I told Binyamin I got a clean link
> > > On Jul 18, 2019, at 12:26 PM, Charles Mills  wrote:
> > > 
> > > PSW 078D1400 8002   
> > > 
> > > GPR C-F 1F7D9188 1F7E1688 8002EC7C 8000 
> > > 
> > > A wild guess would be that you took a BALR 14,15 from address 2EC7C 
> > > to an unresolved EXTRN.
> > > 
> > > Charles
> > > 
> > > 
> > > -Original Message-
> > > From: IBM Mainframe Discussion List 
> > > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > > Sent: Wednesday, July 17, 2019 10:26 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Abend entry LE Assembler
> > > 
> > > That is the reason I pasted the CEEENTRY macro I did get a clean 
> > > return code from the binder
> > > 
> > > 
> > > 
> > > 
> > >> On Jul 17, 2019, at 11:28 PM, Binyamin Dissen 
> > >> 
> > > wrote:
> > >> 
> > >> This should be a clue.
> > >> 
> > >> PSW 078D1400 8002
> > >> 
> > >> Follow normal debugging techniques.
> > >> 
> > >> 
> > >> On Wed, 17 Jul 2019 22:10:20 -0400 Joseph Reichman 
> > >> 
> > >> wrote:
> > >> 
> > >> :>Hi
> > >> :>
> > >> :>
> > >> :>
> > >> :>
> > >> :>
> > >> :>I am getting the following abend  in the beginning of CEEETRY 
> > >> macro
> > > seems
> > >> :>like the call to CEEINIT
> > >> :>
> > >> :>
> > >> :>
> > >> :>
> > >> :>
> > >> :>This is

Re: Abend entry LE Assembler

2019-07-18 Thread Don Poitras
> >> :>   LR2,1  
> >> :>
> >> :>   L 14,752(,12)  
> >> :>
> >> :>   OI8(14),X'80'  
> >> :>
> >> :>   L 1,CEEDSANAB-CEEDS
> >> :>
> >> :>   IILH  0,CEEY0002/65536 
> >> :>
> >> :>   IILL  0,CEEY0002-(CEEY0
> >> :>
> >> :>       ALR   0,1  
> >> :>
> >> :> 
> >> :>
> >> :>  
> >> :>
> >> :> 
> >> :>
> >> :>
> >> :>--
> >> :>For IBM-MAIN subscribe / signoff / archive access instructions,
> >> :>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >> 
> >> --
> >> Binyamin Dissen 
> >> 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
> > 
> > --
> > 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


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: XL C\C++ COMPILE PRELINK and LINK

2019-07-07 Thread Don Poitras
odule generated by the compile  

> //* step as input to the prelinker.

> //*

> //SYSINDD  DSN=*.COMPILE.SYSLIN,DISP=(MOD,DELETE)  

> // DD  DSN=CBC.SCLBSID(IOSTREAM),DISP=SHR  

> //*

> //* SYSMOD DD specifies the output dataset to contain the prelinked

> //* object module generated by the prelinker.  

> //*

> //SYSMOD   DD  DSN=&,UNIT=,DISP=(NEW,PASS),  

> // SPACE=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=) 

> //SYSOUT   DD  SYSOUT=* 

> //SYSPRINT DD  SYSOUT=* 

> //SYSDEFSD DD  DSN=IBMUSER.TEST.SIDEDECK(TSTEXPORT),DISP=SHR 

> //* 

> //*---  

> //* LINKEDIT STEP:  

> //*---  

> //LKED   EXEC PGM=HEWL,COND=((4,LT,COMPILE),(4,LT,PLKED)),  

> //PARM='' 

> //STEPLIB  DD  DSN=CEE.SCEERUN2,DISP=SHR

> // DD  DSN=CEE.SCEERUN,DISP=SHR 

> //SYSLIB   DD  DSN=CEE.SCEEBND2,DISP=SHR

> // DD  DSN=CEE.SCEELKED,DISP=SHR

> //*DD  DSN=CEE.SCEEOBJ,DISP=SHR 

> // DD  DSN=CBC.ACLBDLL,DISP=SHR 

> // DD  DSN=CBC.ACLBDLL2(IOSX64),DISP=SHR

> //SYSLIN   DD  DSN=*.PLKED.SYSMOD,DISP=(OLD,DELETE) 

> //*DD  DSN=CEE.SCEELIB(CELQSCPP),DISP=SHR   

> // DD  DSN=CEE.SCEELIB(C64),DISP=SHR

> //
> T


> // DD  DSN=CBC.SCLBSID(IOSX64),DISP=SHR   

> // DD  DDNAME=SYSIN   

> //*   

> //* SYSLIN DD specifies the prelinked object module as input to the   

> //* linker.   

> //*   

> //*   

> //* SYSLMOD DD specifies the output dataset to contain the load module

> //* generated by the linker.  

> //*   

> //SYSLMOD  DD  DSN=IBMUSER.TEST.LOADLIB(TESTDLL),DISP=SHR

> //SYSUT1   DD  UNIT=,SPACE=

> //SYSPRINT DD  SYSOUT=*       

> //SYSIN DD DUMMY  

> //   

>  

>  

>  

>  

>  

>  

>  

>  


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

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Handy U.S. gov site - Gregorian calendar with DOY

2019-06-05 Thread Don Poitras
In article  
you wrote:
> https://www.esrl.noaa.gov/gmd/grad/neubrew/Calendar.jsp
> This site displays a yearly calendar with the Day Of Year used by z/OS in a
> normal Gregorian calendar.
> -- 
> This is clearly another case of too many mad scientists, and not enough
> hunchbacks.
> Maranatha! <><
> John McKown

Do you not like the ISPF one? When I removed the menu line from all my
panels, I still wanted a way to see the calendar, so I made some 
commands to swap. Here's my current list:

---
Display USERCMDS   Row 1 to 5 of 5
Command ===>  Scroll ===> CSR 
  
The command table is currently open, it cannot be modified. Use the view(V)   
row command to see an entire entry.   
  
 Verb  T  Action  
 ED0  SELECT CMD(EPDF ) NEWAPPL(SDS) PASSLIB
 BR0  SELECT CMD(EPDF  BROWSE)  
 CAL   0  ALIAS ISRROUTE CAL  
 SES   0  ALIAS ISRROUTE SES  
 USER  0  ALIAS ISRROUTE USER 
---

So at the primary menu, I just enter 'ses' or 'user' to swap the display.
The 'ed' and 'br' are just for bringing up a quick browse or edit of
a dataset from any panel.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: BNDRY=PAGE possible CPU hit?

2019-05-31 Thread Don Poitras
Expanding the ... leads one to (there might be more, but this is the one
I found):

https://www.ibm.com/developerworks/community/files/form/anonymous/api/library/ff4563be-756e-49bf-9de9-6a04a08026f1/document/07c69512-ac74-4394-87b9-a61ea201347e/media/IBMzSystemsProcessorOptimizationPrimerv2.pdf

Gratuitous wrap noted.

Other files in this "community" can be found at:

https://www.ibm.com/developerworks/community/groups/service/html/communityview?communityUuid=9a17556c-6094-4201-acd0-d8125a3fa0db



In article 

 you wrote:
> See page 31 in this document:

> https://www.ibm.com/.../IBMzSystemsProcessorOptimizationPrimerv2.pdf 

>  Whether use of the near-memory engine helps or hurts your performance
> depends on how/when you were using the storage before the MVCL/MVCLE, and 
> how/when you use it after the MVCL/MVCLE. 

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

> "IBM Mainframe Discussion List"  wrote on 
> 05/30/2019 11:12:13 PM:

> > From: "Michael Hochee" 
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 05/31/2019 12:31 AM
> > Subject: BNDRY=PAGE possible CPU hit?
> > Sent by: "IBM Mainframe Discussion List" 
> > 
> > Hi, 
> > I recently added the BNDRY=PAGE parameter to a set of STORAGE 
> > OBTAINS which acquire storage areas of various sizes from several 
> > low private  subpools. My intent was a reduction of CPU used by 
> > subsequent MVCLE instructions, as ADM would more likely be employed 
> > for MVCLE executes, since the storage areas involved were page 
> > aligned (apparently an ADM pre-req.)  Unfortunately my initial 
> > testing revealed a significant increase in CPU consumption, rather 
> > than a reduction. 
> > 
> > I did a few searches of the IBM-MAIN archive and found nothing 
> > involving increased CPU overhead resulting from BNDRY=PAGE usage. 
> > Any thoughts on what might be causing the elevated CPU?  Again, the 
> > only change made was adding BNDRY=PAGE. (I have since backed the 
> > change off, tested, reapplied the change and tested with the same 
> results) 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: 64-bit C++ calling assembler

2019-05-29 Thread Don Poitras
I'm sure there are lots of ways to do this. I did it in C, not C++, but I
think the following would still work:

('nargs' below can't be > 8 and I obfuscated a bit, so no guarantees...)

void callhli(int hli, long nargs, ...)
{
  va_list ap; 
  int *args; 
  int i, j; 
  args = __malloc31(36); 
  va_start(ap, nargs); 
  for (i = 0; i < nargs; i++) 
  { 
j = (int) va_arg(ap, long); 
args[i] = j;
  } 
  va_end(ap); 
  args[i-1] |= 0x8000;  
  call31(hli, args); 
  free(args); 
  return;
}

CALL31
 LRR15,R1
 LRR1,R2
 LAR13,SAVEPoint R13 at a save area
 SAM31
 BASR  R14,R15
 SAM64




In article <5481683216760893.wa.prf51videotron...@listserv.ua.edu> you wrote:
> I have an assembler routine that gets called by 64-bit C++. The assembler 
> routine uses CELQPRLG and CELQEPLG and calls DSNALI. The C++ function 
> prototype has a variable number of arguments, the first being the number of 
> parameters that follow in the argument list. The C++ program passes the count 
> of 7 followed by 7 31-bit pointers. These were dumped prior to the call. I 
> forced an S0C3 at entry to the assembler routine. R01 contains a valid 64-bit 
> address. It points to a doubleword containing 7. But the 7 31-bit addresses 
> do NOT follow the value of 7. They are at +A8 from r01. I want to move the 
> pointers into 31-bit memory and call DSNALI to do a CONNECT (Hence a prior 
> post about DB2 manuals). I can't figure out what I've done wrong. There is 
> precious little doc on this and it's in the LE bookshelf, LE Programming 
> Guide for 64-bit Virtual Addressing Mode. Is there other doc somewhere else ? 
> I've looked but can't find anything.

> R01 points has 50_082FEBF8 and the 7 addresses are at 82FECA0.

>  _82FEBF8    0007   !  !
>  _82FEC00      2B0DBB88   0050   29E54920   ! ...h...&.V.. !
>  _82FEC10   0050   082FED20         ! ...& !
>  _82FEC20      297ED1C6   0050   29E55330   ! .=JF...&.V.. !
>  _82FEC30      2B1D1B60      2B0DB74A   ! ...-...?? !
>  _82FEC40      2B0DBB88      281B72A0   ! ...h !
>  _82FEC50      2B0DCD88   0050   29D29640   ! ...h...&.Ko  !
>  _82FEC60   0050   29E2EB60      25218CF0   ! ...&.S.-...0 !
>  _82FEC70      2B14D808      2B1D152A   ! ..Q. !
>  _82FEC80      2B0DBB88      281B72A0   ! ...h !
>  _82FEC90      2B0DCD88   0050   29D29640   ! ...h...&.Ko  !
>  _82FECA0      297ED0A2      297ED198   ! .=??s.=Jq !
>  _82FECB0      297ED180      297ED184   ! .=J..=Jd !
>  _82FECC0      297ED188      297ED190   ! .=Jh.=J. !
>  _82FECD0      297ED194         ! .=Jm !

> Registers at abend are :

> General purpose register values
>0-1  _297ED194  0050_082FEBF8
>2-3  _297ED0A2  _297ED198
>4-5  0050_082FD940  _
>6-7  _2B14B778  _2B1D9088
>8-9  _2B1D971E  _281B72A0
>   10-11 _2B1D9B58  0050_29E55330
>   12-13 _297ED188  _297ED184
>   14-15 _297ED180  _24D50010




> Thanks in advance, Pierre.

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


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Sort - File split

2019-05-23 Thread Don Poitras
In article <7197268685388649.wa.elardus.engelbrechtsita.co...@listserv.ua.edu> 
you wrote:
> Sri h Kolusu wrote:
> > ...  I am picking the first 5 PO's
> >I used Symbols for the number of PO's to be picked, so that you don't have 
> >to change the control cards all the time. 
> >// EXPORT SYMLIST=*
> >// SET NUMPO=5
> ...
> >  INCLUDE=(5001,8,UFF,LE,)
> Amazing! Using a SET and use that in your INCLUDE. Hmmm, very interesting, 
> that alone opens up a whole lot of possible things to do in SORT.
> Thanks for sharing this magic wand! Much appreciated!
> Goete / Greetings
> Elardus Engelbrecht

Not just SORT. I have several jobs where I like to use inline data. This
was a pain before the SYMLIST stuff. e.g. here's my SPUFI job now:

// EXPORT SYMLIST=*
//*SET VER='10',SSID='DB2X'
//*SET VER='11',SSID='DB2U'
// SET VER='12',SSID='DB2' 
//DSNTIST EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB  DD  DSN=DBI.DB2.V,DISP=SHR
//SYSTSIN  DD  *,SYMBOLS=JCLONLY   
  DSN SYSTEM()   
  RUN PROGRAM(DSNTEP2) PLAN(DSNTEP) - 
  LIB('DBI.DB2.V')
  END  
/* 
//SYSINDD  *,SYMBOLS=JCLONLY   
SELECT * FROM DSN8 FOR FETCH ONLY   
/* 

All I need to do is change the comment and run a different version of
DB2.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: z/OS Container Extensions

2019-05-21 Thread Don Poitras
>From the IBM page:
https://www.ibm.com/support/z-content-solutions/container-extensions/

look at the video and see that it works just like any other Linux box,
i.e. docker exec -it  /bin/bash

I don't think the network stuff is going to work any different than z/Linux
running under VM or LPAR. The main advantage to me is the WLM control of
the address space so that all the tuning stuff that's been added for the
last umpteen decades are now available to z/Linux (as long as all the stuff
you want to do with z/Linux fits in the "container" world.) I think this 
is definitely aimed toward production. Getting z/Linux closer to the valuable
data owned by z/OS is the goal as I see it.



In article <8b38123b-80d6-5866-df20-a3e0d4e69...@gmail.com> you wrote:
> To be more specific - how can I connect via SSH to a docker container 
> running under zCX?
> Also, how does networking work? If I provision a zCX container running 
> an nginx web server it still uses the host network stack so won't be able
> to take advantage of Linux APIs like epoll etc. I guess the design is 
> for spinning up development images and not deploying in production right?
> On 21/05/2019 7:11 pm, David Crayford wrote:
> > Dumb question: How to we shell into a docker container running on z/OS?
> >
> > On 21/05/2019 6:25 pm, Anthony Giorgio wrote:
> >> If you would like to build your own s390x Docker container, the 
> >> recommended paths are to either use a zCX instance on z/OS, or a 
> >> Linux on Z environment.
> >>
> >> As for your specific question - I did some digging, and it looks like 
> >> Docker isn't really designed for cross-compiling containers. 
> >> Apparently it's *possible* to build an ARM container on an Intel 
> >> system, but that involves QEMU to emulate a Linux-on-ARM flavor of 
> >> the docker build commands.?? Perhaps something similar could be done 
> >> with running Linux-on-s390x on Intel.
> >>
> >> On 5/20/19 1:00 PM, John McKown wrote:
> >> >
> >>> I know nothing about Docker at present. Would it be possible for me 
> >>> to use
> >>> a Linux/Intel system and the s390x cross-build tools to make a Docker
> >>> "image" which I could then deploy on z/OS?

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: ind$file - omvs copy equivalent

2019-05-09 Thread Don Poitras
In article <981761000637.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Wed, 8 May 2019 20:40:12 +, Seymour J Metz wrote:
> >Yes, but you can FTP to an MVS file, which you can allocate with attributes. 
> >
> "MVS file"?  Do you mean a data set, or as TSO overloads the term, a DDNAME?
> But the OP seemed to be interested in a UNIX file.
> Mike didn't say where this was coming from or going.  A UNIX file seems to
> be a roundabout way, but allocating a DDNAME and RECEIVE INDD() is
> straightforward and avoids the need for YA temporary storage.
> >>
> >>From: Mike Stramba
> >>Sent: Wednesday, May 8, 2019 3:59 PM
> >>Is there is an OMVS "copy-to-mvs-fb80" equivalent to an "ind$file" upload ?
> >>
> >>Scenario :
> >>
> >>1) While in OMVS :   ftp (receive) an XMI file to the z/os system.  (z/os  
> >>2.3)
> >>  ...
> -- gil

I think it's the 2) step that Seymour is referring to:

2) Now copy (cp ?) to a FB80  file.

Just use ftp with 'quote site' commands. e.g.

ftp host
user/pass
bin
quote site lrecl=80
quote site blocksize=0
put file.xmi
quit


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Creating tar file for use on Linux

2019-05-03 Thread Don Poitras
Yes, the z/OS scp is BAD. Grant seemed to think that scp on other platforms
was also not-good. That's what I was asking about.

In article <71e3e36b-a792-4307-b6b8-67f2ced4a...@hogstrom.org> you wrote:
> IBM???s OpenSSL impl??mentation ???attempted??? to fix transfers via scp by 
> treating all files like they were character and does a code conversion from 
> 1047 to 8859 or some such nonsense.  
> Scp will not work without some calestentics that are just plain frustrating 
> but Z makes sure it will be consistently frustrating for 50 years so there is 
> that :)   Don???t expect a fix.
> Use sftp using binary transfer and your life will be better (not perfect, 
> there are code pages 1047, 37, ??? 
> Matt Hogstrom
> m...@hogstrom.org
> +1-919-656-0564
> PGP Key: 0x90ECB270
> ???It may be cognitive, but, it ain???t intuitive."
> ??? Hogstrom
> > On May 3, 2019, at 4:13 PM, Don Poitras  wrote:
> > 
> > In article 
> >  you 
> > wrote:
> >> On 5/3/19 1:00 PM, Don Poitras wrote:
> >>> z/OS scp is BAD. There's no way to tell it to do binary without doing 
> >>> something like Paul's piping conniptions.
> >> Many will tell you that scp itself is not-good and that you should use 
> >> sftp instead.
> >> Perhaps z/OS's scp is worse than scp by itself.
> >> -- 
> >> Grant. . . .
> >> unix || die
> > 
> > Well, no one told me till today. :) Seriously, what's wrong with scp?
> > The problem with sftp is that it's interactive. I can write scripts where
> > I call scp over and over with a syntax that is simple and intuitive. 
> > Everywhere _but_ z/OS, it is the most useful way I know to transfer 
> > files.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Creating tar file for use on Linux

2019-05-03 Thread Don Poitras
In article  
you wrote:
> On 5/3/19 1:00 PM, Don Poitras wrote:
> > z/OS scp is BAD. There's no way to tell it to do binary without doing 
> > something like Paul's piping conniptions.
> Many will tell you that scp itself is not-good and that you should use 
> sftp instead.
> Perhaps z/OS's scp is worse than scp by itself.
> -- 
> Grant. . . .
> unix || die

Well, no one told me till today. :) Seriously, what's wrong with scp?
The problem with sftp is that it's interactive. I can write scripts where
I call scp over and over with a syntax that is simple and intuitive. 
Everywhere _but_ z/OS, it is the most useful way I know to transfer 
files.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Creating tar file for use on Linux

2019-05-03 Thread Don Poitras
In article <0294809266169973.wa.nealesinenomine@listserv.ua.edu> you wrote:
> I use scp which I assumed defaulted to binary. So I did it with sftp and 
> explicitly used binary and all was good. The scp/sftp utility we wrote for 
> CMS defaults to binary so I had made an incorrect assumption. Thanks all for 
> the help.
> Neale

z/OS scp is BAD. There's no way to tell it to do binary without doing
something like Paul's piping conniptions.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Creating tar file for use on Linux

2019-05-03 Thread Don Poitras
In article <68c2e717-9481-48c0-b6a2-855c33c44...@sinenomine.net> you wrote:
> What incantation of tar or pax do I need to use to create a tar ball under 
> Unix System Services such that it can be transferred to a Linux system and 
> untarred there? Just the straight -cf doesn???t seem to do the trick nor 
> using the -U -X option.
> Neale

You don't say what error you're receiving. If it's a permission problem,
use the -o option to disable tar from passing the owner across. I do

tar -cvof a.tar dir

and untar on linux with

tar -xvf a.tar

with no isssues. 

Whenever I extract a tar file on z/OS, I do the same kind of thing. e.g.

tar -xvof a.tar

If I don't do that, the sender's UID is set and I can't delete the
files and I have to get someone with root to delete them. 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Bigotry against mixed case was Re: Upper case for ISPF and SDSF

2019-05-01 Thread Don Poitras
ICU covers collation and lots more. Open source.

http://userguide.icu-project.org/collation


In article 

 you wrote:
> The collating sequence for a code page is neither right nor wrong, it just 
> is. The appropriate way to sort is to take locale into account. That implies 
> that two sorts of the same data in the same code page on the same machine may 
> be different.
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> Sent: Tuesday, April 30, 2019 9:09 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Bigotry against mixed case was Re: Upper case for ISPF and SDSF
> On Tue, 30 Apr 2019 21:05:00 -0300, Clark Morris wrote:
> >
> >A more important reason was that addition of mixed case in either
> >ISO/ASCII changed a compare from a simple Compare Logical Character
> >into a subroutine.  While this was always true if a true dictionary or
> >phone book sort is wanted, this would make it true for virtually all
> >compares.  Should A = a?  If not should the sequence be A,a,B,b ?
> >
> IBM 7030 did something like the latter, but neither is right; it's worse.
> An example:
> 1234
> camel
> Camel
> CAMEL
> canary
> Canary
> CANARY
> cat
> Cat
> CAT
> ... Note that "CAMEL" comes after "Camel" but before "canary".  So you can't
> simply say either that Aa.
> But would you argue that computers should scorn English lexical conventions?
> -- gil


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-10 Thread Don Poitras
In article <0451fc8d-792f-4df2-964c-2691e4e76...@googlegroups.com> you wrote:
> On Monday, April 8, 2019 at 10:27:24 PM UTC+3, Grant Taylor wrote:
> > On 4/8/19 1:22 PM, Dan Kalmar wrote:
> > > I tried the same Java program on an Ubuntu system and it sends mail to 
> > > Gmail just fine.
> > 
> > I take it that the Java was portable without modifications between your 
> > Ubuntu system and a Mainframe.  -  Good to know.  -  I should be, but 
> > I've not seen first hand experience before this.
> > 
> > > So I tend to agree that CERTs are missing on RACF to enable the TLS 
> > > session to work properly against the Gmail server.
> > > 
> > > I'll look around for any hints on how to get those CA certs installed 
> > > on RACF.
> > 
> > Take a look at the links that Don P. posted about 8 (?) hours ago.  I 
> > think at least one of the links had a link to adding certs to RACF keyring.
> > -- 
> > Grant. . . .
> > unix || die
> I found a post where the following command would extract a certificate from 
> the target SMTP server:
> openssl s_client -connect smtp.gmail.com:465 -showcerts  2>/dev/null|openssl x509 -outform PEM >mycertfile.pem
> This comnmand actually works and I get a certificate created in 
> mycertfile.pem.
> I can take this certificate and add it to RACF but not sure under what 
> credentials ? 

You don't want to add the gmail cert to RACF, you just need the CA cert
to validate it. See (this is for SMP/E, but I think also applies to your
problem):

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.gim3000/acac.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-08 Thread Don Poitras
In article  you wrote:
> On 4/8/19 11:59 AM, Don Poitras wrote:
> > Well, it sounds like Google requires TLS. I don't see how CSSMTP is going 
> > to validate Google's cert if all he has in his RACF is self-signed certs.
> I think the crux is "all he has in his RACF is self-signed certs".
> I'm getting the impression that the RACF keyring (?) doesn't include or 
> have access to Root CA (public) certificates like other platforms have.
> In that case, the appropriate public root certificate from the CA that 
> Google uses will need to be added to the RACF keyring.
> > A very small percentage of us read via the newsgroup. Most use the 
> > listserv. It used to be bi-directional, but that changed years ago. 
> > If you look in the archive, you'll see that only my replies are there.
> I believe it is (again) bi-directional.  I'm reading & replying from the 
> newsgroup.  If you're reading & replying from email, then it is in fact 
> working bi-bidirectionally.

I use a news server to read the group. I have my listserv subscription
set to NO-MAIL. I only reply by emailing to the listserv. Anything you
see on the newsgroup with the IBM-MAIN boilerplate at the bottom has
gone through the listserv and ends up going to all the subscribers and
saved at in the archives (and mirrored to the newsgroup.) Anything you
see without the boilerplate will only be seen (and not archived) by
those reading via the newsgroup.

https://listserv.ua.edu/cgi-bin/wa?A1=ind1904=ibm-main

> -- 
> Grant. . . .
> unix || die

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-08 Thread Don Poitras
In article  you wrote:
> How does Google validate sending emails from Windows ? There is no need to 
> purchase any CA certs so those must exist inside the Browser when accessing 
> Gmail.

I think all the browsers come with CA certs these days.

> I have a Java program that I found on the internet that I can run on windows 
> to send mail using TLS on port 587 to the Gmail SMTP server.
> Same java program does not work from z/OS.  
> The error is:
> javax.mail.MessagingException: Could not convert socket to TLS; 
> I am assuming that TLS won't work without having the required certs installed 
> on a RACF keyring for TLS to use.
> Maybe it is possible to export those certs from windows ?

I see some kludges for this java error where you just "trust" the 
domain. I think putting in a CA cert in RACF is the way to go, whether
copying from Firefox or getting from some 3rd party is something I
don't know. I don't even play a sysprog on TV. :)


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-08 Thread Don Poitras
In article  you wrote:
> On 4/8/19 5:03 AM, Don Poitras wrote:
> > Here's what Google says (or so says digicert):
> > 
> > https://www.digicert.com/ssl-support/gmail-pop3-troubleshooting.htm
> > 
> > "you need to purchase and install one from a trusted CA like DigiCert"
> I thought that the OP was wanting to use CSSMTP to send email (act as an 
> SMTP client) to Gmail.  So, what does Google's requirement for a POP3 
> server having a valid SSL / TLS certificate have to do with what the 
> OP's wanting to do?

Well, it sounds like Google requires TLS. I don't see how CSSMTP is 
going to validate Google's cert if all he has in his RACF is self-signed
certs.

> > You'll get better results if you email to the listserv rather than using 
> > the newsgroup. See the info below my sig below for instructions.
> Why do you say that?  What's wrong with using the newsgroup?

A very small percentage of us read via the newsgroup. Most use the 
listserv. It used to be bi-directional, but that changed years ago.
If you look in the archive, you'll see that only my replies are there.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-08 Thread Don Poitras
In article <7034c11c-93cd-4b68-bd6d-adf4114c7...@googlegroups.com> you wrote:
> That may well be an SSL error, cause I have not figured out yet what 
> certificates need to be placed on the keyring defined in the AT-TLS policy

Here's what Google says (or so says digicert):

https://www.digicert.com/ssl-support/gmail-pop3-troubleshooting.htm

"you need to purchase and install one from a trusted CA like DigiCert®"

You'll get better results if you email to the listserv rather than using
the newsgroup. See the info below my sig below for instructions.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Setting up GMAIL as outbound mail server on z/OS

2019-04-08 Thread Don Poitras
In article  you wrote:
> This is the error I see in the AT-TLS trace:
> EZD1287I TTLS Error RC:8 Initial Handshake  148
>   LOCAL: 192.168.1.249..1064   
>   REMOTE: 64.233.167.109..587  
>   JOBNAME: CSSMTP RULE: CSSMTPRule 
>   USERID: START1 GRPID: 0002 ENVID: 0002 CONNID: 0168  
> This RC value is not even documented.  How nice

But it is. It's an ssl error:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.gska100/sssl2msg1000885.htm

8 - Certificate validation error.

Set the gsk env variables to capture a trace and run again. Then run
the trace output through the gsktrace utility.

https://www.ibm.com/support/knowledgecenter/en/SSB27U_6.4.0/com.ibm.zvm.v640.kijl0/kijl049.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: AMODE 32

2019-04-04 Thread Don Poitras
In article <8891162166296907.wa.mutazilahgmail@listserv.ua.edu> you wrote:
> On Thu, 4 Apr 2019 13:55:30 +0300, Binyamin Dissen 
>  wrote:
> >What problem would this solve?
> It would set the long-term model for the
> mainframe, instead of being stuck with
> 24/31-bit software for eternity.
> >This would be of zero use for existing applications,
> I don't agree. Existing applications can be
> modified to be 32-bit clean and have maximum
> possible address space as per 32-bit.
> > and new applications should simply use 64 bit.
> I don't agree that all new applications should
> be 64 bit. That is overkill. 32-bit/4 GiB should
> be enough for almost all commercial applications.
> BFN. Paul.

When you brought this up a year ago, I don't think you convinced anyone
that this was a useful change or that IBM should reasonably spend 
dollars doing it. I doubt much has changed since then to improve your
chances.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IARST64 in addrr

2019-03-13 Thread Don Poitras
Because no one ever asked for it? In the scenario I described, using
IEANT* would work no matter where the control block was allocated.
If you have another use-case, you can submit an RFE.


In article <7ef29fbf-086a-4108-bfd4-bda2903ac...@gmail.com> you wrote:
> Wonder why this functionality is not available above the bar

> > On Mar 13, 2019, at 11:35 AM, Vernooij, Kees (ITOP NM) - KLM 
> >  wrote:
> > 
> > That makes sense, if you describe it differently:
> > We have a similar thing, we have a controlblock pointed from CVTUSER. If 
> > the pointer is not filled, the controlblock does not exist, so we getmain 
> > it and put its pointer in CVTUSER.
> > 
> > So then: "if the storage is not there" actually means: "if the pointer to 
> > the storage is not filled in".
> > 
> > Kees.
> > 
> > 
> >> -----Original Message-
> >> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> >> Behalf Of Don Poitras
> >> Sent: 13 March, 2019 16:16
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: IARST64 in addrr
> >> 
> >>> On Wed, 13 Mar 2019 09:29:56 -0400, Don Poitras wrote:
> >>>>> On Wed, 13 Mar 2019 08:00:14 -0400, Joseph Reichman wrote:
> >> User-Agent: tin/2.4.2-20171224 ("Lochhead") (UNIX) (NetBSD/7.1.2
> >> (amd64))
> >> 
> >> Again, I'm just guessing. If the storage isn't there and I obtain it,
> >> then I'm the first caller and I create the control block that subsequent
> >> callers will find.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IARST64 in addrr

2019-03-13 Thread Don Poitras
> On Wed, 13 Mar 2019 09:29:56 -0400, Don Poitras wrote:
> >> On Wed, 13 Mar 2019 08:00:14 -0400, Joseph Reichman wrote:
User-Agent: tin/2.4.2-20171224 ("Lochhead") (UNIX) (NetBSD/7.1.2 (amd64))

Again, I'm just guessing. If the storage isn't there and I obtain it,
then I'm the first caller and I create the control block that subsequent
callers will find.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IARST64 in addrr

2019-03-13 Thread Don Poitras
In article <9784938220113382.wa.m42tomibmmainyahoo@listserv.ua.edu> you 
wrote:
> On Wed, 13 Mar 2019 08:00:14 -0400, Joseph Reichman wrote:

> >Please let me better explain I have a program 
> >That browses storage  I do VSMLOC to verify if the storage was allocated if 
> >not I use STORAGE OBTAIN with inaddr parm I was wondering if/ why there was 
> >wasn???t anything comparable in 64 bit mode  
> ROFL! That's the most ridiculous thing I have heard in a long time.
> What do you think the point of that is?
> -- 
> Tom Marchant

It sounds like the sort of thing people would do before name/token 
came along. It lets code bootstrap it's way to finding a common
control block. I used to support code that used ENQ to do that. 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: What was that link again for IBMLINK?

2019-02-28 Thread Don Poitras
I think that's where it re-directs when you haven't logged on yet. My bookmark
is:

https://www-03.ibm.com/ibmlink/servicelink/servicelink.wss?lc=en=US

That has SIS. I don't know what APARS is.

In article  
you wrote:
> IBMLink
> <https://www-304.ibm.com/usrsrvc/account/userservices/jsp/login.jsp?persistPage=true=/ibmlink=none=>
> *George Rodriguez*
> *Specialist II - IT Security*
> *PX - 47652*
> *(561) 357-7652 (office)*
> *(954) 415-7586 (mobile)*
> *School District of Palm Beach County*
> *3348 Forest Hill Blvd.*
> *Room B-332*
> *West Palm Beach, FL. 33406-5869*
> *Florida's Only A-Rated Urban District*
> On Thu, Feb 28, 2019 at 2:56 PM Lizette Koehler 
> wrote:
> > I know, it seems several people I know are struggling with the new
> > enhanced IBM
> > search functions
> >
> > So how do they find the following in the IBM website?
> >
> > SIS
> > APARS
> >
> > Thanks
> >
> >
> > Lizette Koehler

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IPCS ADPLSEQS

2019-02-05 Thread Don Poitras
In article 

 you wrote:
>  Since 2008, forwarding to Bob has been possible only via a literal
> "ether net" connection.  Unfortunately, the IBM mail network does not
> have such a  connection.  We wish it did.  We as well find  understanding 
> how to use some of the IPCS macros to be challenging. 
> > It is. It has the feel of an internal product that was handed off to
> > someone to externalize and it's mostly there, but there are definitely
> > corners that could use some re-vamping. 64-bit was a pain as it required
> > non-intuitive calls to get what was needed. Bob Wright helped me out
> > in this forum and if you open an SR, that's who I'd ask it get forwarded
> > to. 
> Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
> Poughkeepsie NY

Jim,
  Thanks. That is sad. I don't think I knew that, but these days it
seems like we're losing more than I can keep track of. He was always
helpful when I had some question about IPCS and the voodoo that
surrounded it. 


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IPCS ADPLSEQS

2019-02-05 Thread Don Poitras
In article <7271721887429173.wa.zos.jes2gmail@listserv.ua.edu> you wrote:
> The ESSY is rather odd ???
> If I use ABITS=64 it this request gets a RC 12.
> When I list the symbol I get 
>symbol  00. ASID(X'0026') LENGTH(X'1000') AREA(symbol) DROP 
> If I issue "L symbol DSPNAME(symbol)" and list the symbols again a mysterious 
> "X" symbol is defined ???
> X 00. ASID(X'0026') DSPNAME(symbol) LENGTH(X'1000') 
> AREA(symbol) DROP  
> This stuff is just bizarre and not well documented. 

It is. It has the feel of an internal product that was handed off to
someone to externalize and it's mostly there, but there are definitely
corners that could use some re-vamping. 64-bit was a pain as it required
non-intuitive calls to get what was needed. Bob Wright helped me out
in this forum and if you open an SR, that's who I'd ask it get forwarded
to. 

In this particular case though, did you set the BLSRXSSP field to say
that you wanted ABITS(64)? 

 EQU   BIT2   BLSRESSY structures should be
          returned in ABITS(64) format 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IPCS ADPLSEQS

2019-02-04 Thread Don Poitras
In article <6648609332066356.wa.zos.jes2gmail@listserv.ua.edu> you wrote:
> I'm using ADPLSEQS to define a symbol in an IPCS verb exit.
> I'm trying to define a symbol to a dataspace.
> When I issue "L symbol" I get
> LIST 00. ASID(X'0046') LENGTH(X'01') AREA(Symbol)
> ASID(X'0046') ADDRESS(00.) KEY(08) PREFIXED
> I can issue "L symbol DSPNAME(symbol)" but I wonder if I can define the 
> symbol so that is the default.
> Does someone know what field in the ESSY I need to set, and to what?
> Thanks

I've only done regular ASID which I set in "Integer 2". For dataspace,
it looks like you need the "Integer 1" set to the ASID and "Integer 2"
set to the DSPNAME. The odd part is that the macros to expand 
"Integer 2" to a CL8 "Second qualifier" requires coding it a different
way than BLSRESSY codes it. It looks as though you'd have to modify
BLSSRESSY and code BLSRDATS like:

BLSRDATS ZZZASTDS,DSECT=NO 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: External dsect

2019-01-30 Thread Don Poitras
In article 

 you wrote:
> I do agree with all the posts that you should not do a LOAD in an exit.
> I'll quibble about the very title of this post. I'd say that there is no 
> such thing as an external dsect.

Well, there is such a thing, but it's not what this thread is discussing.
A dsect is "external" if it is used like a DXD. i.e. the target of a
qcon.

> A dsect is just a mapping. What you are talking about is simply an 
> external CSECT of  DC's for which you provide a DSECT to map.
> The OP of course knows how to initialize a csect. 
> A DSECT could be used to help guide where the DC's go if wanted (such as 
> by using ORG the_start+the_field_in_the_dsect). And of course the DSECT 
> would be used to interpret the CSECT.
> If you're going to go the route of an initialized CSECT that a customer 
> assembles, then you should probably provide a macro within the CSECT so 
> that the customer is updating the macro (and the macro knows how to set 
> the fields). 
> Once the CSECT is initialized, there is only the question of whether it is 
> bound with your code (and thus addressable by v-con) or is located 
> dynamically by your code.
> Peter Relson
> z/OS Core Technology Design

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: 64-bit C code fetching IGGCSI00

2018-12-18 Thread Don Poitras
In article <8873109401385730.wa.m42tomibmmainyahoo@listserv.ua.edu> you 
wrote:
> On Tue, 18 Dec 2018 12:24:38 -0600, Pierre Fichaud wrote:

> >I have 64-bit C code that attempts to fetch() IGGCSI00.
> >I've used pragma linkage on IGGCSI00 but got nowhere.
> >I am getting the following:
> >
> >EDC5256S An AMODE64 application is attempting to fetch() an AMODE31 
> >executable. (errno2=0xC4070068)
> >
> >The C program was compiled with :
> >langlvl(LIBEXT),ARCH(5),TUNE(7),GONUMBER,FLAG(I),XPLINK(STOREARGS),EXPORTALL,SPILL(448),LP64,GOFF
> >
> >Reading the doc on fetch() and XPLINK in the C/C++ and LE bookshleves 
> >doesn't shed nay light on this.
> >I think I am forced to write a64-bit assembler program that then calls 
> >IGGCSI00 with parameters in 31-bit memory.
> I think you will need to write a small AMODE(64) assembler program that will 
> either LOAD, CALL, and DELETE IGGCSI00, or LINK to IGGCSI00. It isn't too 
> difficult. Some things to remember:
> o The save area that XPLINK-64 provides will be above the bar. If that 
> behavior can be modified, I don't know how.
> o Use F4SA format to save the registers on entry. LE will pass you a 144-byte 
> save area.
> o GETMAIN storage for a 144-byte save area plus whatever other storage you 
> need for passing parameters.
> o Save the 8-byte address of the save area you were passed in offset 128 
> (X'80') of the new save area.
> o Mark the new save area with "F4SA" in offset 4.
> o Copy your parameters to your below the bar storage.
> o SAM31 to go to AMODE(31) before making the call.
> o If necessary, copy results to where your C program can find them.
> o SAM64 before trying to restore registers.
> -- 
> Tom Marchant

The XPLINK asm macros will take care of all that stack bookkeeping. 
See doc on EDCXPRLG and  EDCXEPLG. 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: 64-bit C code fetching IGGCSI00

2018-12-18 Thread Don Poitras
In article <5828839252973544.wa.prf51videotron...@listserv.ua.edu> you wrote:
> I have 64-bit C code that attempts to fetch() IGGCSI00.
> I've used pragma linkage on IGGCSI00 but got nowhere.
> I am getting the following:
> EDC5256S An AMODE64 application is attempting to fetch() an AMODE31 
> executable. (errno2=0xC4070068)
> The C program was compiled with :
> langlvl(LIBEXT),ARCH(5),TUNE(7),GONUMBER,FLAG(I),XPLINK(STOREARGS),EXPORTALL,SPILL(448),LP64,GOFF
> Reading the doc on fetch() and XPLINK in the C/C++ and LE bookshleves doesn't 
> shed nay light on this.
> I think I am forced to write a64-bit assembler program that then calls 
> IGGCSI00 with parameters in 31-bit memory.
> Any suggestions ?
> Thanks in advance, Pierre.

You can call any 31-bit assembler API from a 64-bit C program, but you
have to jump through the hoops. Move all the parms (and anything the parms 
point to) below the bar and then SAM31/BASR/SAM64. If the API expects
R13 to point to a save area, then you need to set that up too. You won't
be using XPLINK parms, so setup the R1 parm area as well. Make sure to
save and restore all the caller registers.  

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Thanks For All the Fish

2018-12-12 Thread Don Poitras
John,
  You will certainly be missed. Enjoy your retirement!


In article <80d1cf7b-6905-7315-614c-9d7bc860b...@us.ibm.com> you wrote:
> Friday, 14 December 2018, will be my last day at IBM.  For the curious, 
> I started on a Wednesday, 1 June 1977, so it will be 41 years, 6 months 
> since I started as a CE in the local Poughkeepsie branch office.
> It's time to shed the daily stress, devote more time to my hobbies 
> (diving, amateur radio, metalworking, cycling), and find a place in the 
> County that can use an active volunteer for however many hours I feel 
> like working (if any).
> I won't be able to get notes on my IBM e-mail address after about noon 
> Friday.  I also won't get phone messages after that time at my work 
> phone number, because they arrive as e-mail attachments.
> Hanging out here has been quite instructive and usually fun (smile), so: 
> Thanks, folks.
> All the best, everyone.
> -- 
> John Eells
> IBM Poughkeepsie
> ee...@us.ibm.com (for a couple more days)

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Batch FTP suddenly broken - could it be due to the new server certificate

2018-11-18 Thread Don Poitras
In article <4217648717106148.wa.supportdunnitsys@listserv.ua.edu> you wrote:
> Hi all,
> We have a hosted domain which includes an FTP server. In the past, z/OS' 
> batch FTP client's GETs and PUTs to our server worked just fine. Today, I 
> started FileZilla client on Windows and when I logged in, got suddenly 
> prompted by FileZilla client regarding an "UNKNOWN CERTIFICATE". Recently our 
> web hosting company installed the certificate. In the FileZilla message 
> window's "SESSION DETAILS" section, it states that the host name, our 
> company's domain name, does not match the certificate's, which is the web 
> hosting company's domain name. FileZilla offers an option to trust the 
> certificate and carry on connecting. That was easy. I can continue working 
> with the FileZilla client as always.
> Not so z/OS batch FTP. A simple batch request like the following fails:
> //INPUT  DD  *   
> ftp..com 
> us...@xxx.com password
> bin  
> get FILEA 'FILEA.COPY' (REPLACE  
> QUIT 
> //
> The relevant messages are:
> EZA1701I >>> USER us...@.com 
> 331 User us...@.com OK. Password required
> EZA1701I >>> PASS   
> 530 Login authentication failed
> I triple-checked that the password used in FileZilla and in the batch job are 
> exactly the same. So I am guessing that the failure is due to the 
> certificate. This is not my area of expertise, to say the least. Is there an 
> option on the z/OS side that basically says carry-on in spite of any 
> certificate issues? Your pooled professional assistance appreciated as always.

You could try having FTPDATA say "SECURE_FTP ALLOWED". I suppose if 
that doesn't work you could always do the work to get the certificate
in your keyring. See:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.gim3000/gim3115s.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: System level coding examples

2018-11-16 Thread Don Poitras
d stores the data to a DASD 
> dataset. The writer intercepts E37 and B37 abends, submits a job to the 
> internal reader, allocates a new DASD dataset, and continues writing.


> SCRBSERV.txt
> The program runs in the remote address spaces (CICS regions) to make calls to 
> the service provider (PC routine) for attaching and detaching the shared 
> 64-bit storage pools.


> SCRBCICS.txt
> Writes information to the shared 64-bit storage pools. When a memory object 
> of a pool is exhausted, it will then write to the next memory object. When 
> all memory objects are exhausted, it will wrap back to the first memory 
> object and overlay.


> SCRBWTOD.txt
> Generic WTO driver. Invoked with a linkage area describing the WTO 
> identifier, and a series of parameters. The program searches the message 
> table for an identifier match and replaces the symbolic keywords with linkage 
> parameters passed by the caller.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: (fwd) How to use gskssl in CICS Environment ?

2018-11-14 Thread Don Poitras
In article 
<5713005125545930.wa.extern.sven.siebertvolkswagen...@listserv.ua.edu> you 
wrote:
> this issue could be fixed:
> SYS1.SIELANKE has been added to DFHRPL concatenation, and now it works.

Great! That makes sense. It's been so long since I've done any CICS,
I had forgotten about that DD. Now if I could just forget CEDA, CEDF,
CEMT, CSSF, CSSL etc. :)

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: (fwd) How to use gskssl in CICS Environment ?

2018-11-12 Thread Don Poitras
> > I wrote a loadmodule (e.g. SENDEM) in C which can send unencryptet emails i=
> > n OMVS, Batch Environment and CICS Environment. Now I got the task to modif=
> > y this module using TLS 1.2. I included the GSK library by setting
> > 
> > GSKDIR =3D /usr/lpp/gskssl
> > GSKINC =3D /usr/lpp/gskssl/include
> > GSKLIB =3D $(GSKDIR)/lib/GSKSSL.x $(GSKDIR)/lib/GSKCMS31.x
> > 
> > 
> > in my Makefile. This compiles SENDEM without errors( POSIX(ON) is set). In =
> > OMVS this works fine. In CICS Environment I got stuck with the error
> > 
> > =20
> > A CICS abend 4038 occurred in module CEEPLPKA at offset X'CC46A'.  =
> >  =20
> >=
> >  =20
> > The abend occurred after executing machine instruction 0DEF (BRANCH AND SAV=
> > E)
> > in module ...  program =C2=A7ST00016 at offset X'E1A'. =
> > =20
> >=
> >  =20
> > NOTE: Source code information for program =C2=A7ST00016 could not be presen=
> > ted   =20
> >   because no compiler listing or side-file data sets were provided. The=
> >  =20
> >   source line # from the GONUMBER option is 67 for offset X'E1A'.  =
> >  =20
> >=
> >  =20
> > Important messages:=
> >  =20
> >=
> >  =20
> >   CEE3501S The module GSKSSL was not found.=
> >  =20
> > 
> > =20
> > 
> > I don't know how I can fix this. Has anybody experiences using GSKSSL in CI=
> > CS ?
> > 
> > Any hints appreciated.
> > 
> > First, you should use IBM-MAIN@LISTSERV.UA.EDU, not the newsgroup to reach
> > a wider audience.
> >
> > I haven't done this on CICS, but I see from the doc that it's doable. I'd
> > look to see if SYS1.SIEALNKE is in your link list and if so, does it contain
> > GSKSSL? The error just looks as if the program couldn't find the DLL. You
> > can add it the the CICS STEPLIB if you don't have an easy way to add it to
> > link list.
> > 
> > -- 
> > Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
> > sas...@sas.com   (919) 531-5637Cary, NC 27513
>
> After I requested to link SYS1.SIEALNKE to the CICS Step lib I get the same 
> error message. 
> I guess it has something to do with accessing OMVS from CICS. The library is 
> given in the path /usr/lpp/gskssl/lib. The existence should be not the 
> problem. But which parameter are responsible for the access ?
> Compiling, linking and execution directly under OMVS makes no problem though.

Did SYS1.SIEALNKE contain GSKSSL? CICS is going to expect the DLL to come from 
a 
PDS. Your program running under OMVS must have LIBPATH including the library on
HFS. It's the same DLL, just in two different spots. If you can't figure it out,
just open a ticket with IBM.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


(fwd) How to use gskssl in CICS Environment ?

2018-11-08 Thread Don Poitras
First, you should use IBM-MAIN@LISTSERV.UA.EDU, not the newsgroup to reach
a wider audience. 

I haven't done this on CICS, but I see from the doc that it's doable. I'd
look to see if SYS1.SIEALNKE is in your link list and if so, does it contain
GSKSSL? The error just looks as if the program couldn't find the DLL. You
can add it the the CICS STEPLIB if you don't have an easy way to add it to
link list.


-- forwarded message --

I wrote a loadmodule (e.g. SENDEM) in C which can send unencryptet emails i=
n OMVS, Batch Environment and CICS Environment. Now I got the task to modif=
y this module using TLS 1.2. I included the GSK library by setting

GSKDIR =3D /usr/lpp/gskssl
GSKINC =3D /usr/lpp/gskssl/include
GSKLIB =3D $(GSKDIR)/lib/GSKSSL.x $(GSKDIR)/lib/GSKCMS31.x


in my Makefile. This compiles SENDEM without errors( POSIX(ON) is set). In =
OMVS this works fine. In CICS Environment I got stuck with the error

=20
A CICS abend 4038 occurred in module CEEPLPKA at offset X'CC46A'.  =
 =20
   =
 =20
The abend occurred after executing machine instruction 0DEF (BRANCH AND SAV=
E)
in module ...  program =C2=A7ST00016 at offset X'E1A'. =
=20
   =
 =20
NOTE: Source code information for program =C2=A7ST00016 could not be presen=
ted   =20
  because no compiler listing or side-file data sets were provided. The=
 =20
  source line # from the GONUMBER option is 67 for offset X'E1A'.  =
 =20
   =
 =20
Important messages:=
 =20
   =
 =20
  CEE3501S The module GSKSSL was not found.=
 =20

=20

I don't know how I can fix this. Has anybody experiences using GSKSSL in CI=
CS ?

Any hints appreciated.
-- end of forwarded message --

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Is there a utility or command that will show load module characteristics?

2018-11-01 Thread Don Poitras
AMBLIST

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieav100/iea3v1_Map_the_CSECTs_in_a_load_module_or_program_object.htm


In article <0c3101d4720a$d2b1bcd0$78153670$@mcn.org> you wrote:
> Seems like there should be a way to do this. I tried IEHLIST LISTPDS FORMAT
> but it seems pretty basic. The library in question is a PDSE, so I guess the
> right term is "program object."

> I'm most interested in alternative entry point names and their addresses.

> I'd prefer an IBM utility to a CBT program just because it would be quicker
> to do. Few vendor products available in my datacenter.

> Charles 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Help with diagnosing S0C4-03B

2018-10-31 Thread Don Poitras
The PSW is amode 31, so there's something odd going on. I'd look at the
system trace to see if the PGM 03B really occurred at that spot. The LE
dumps can be nice for simple errors, but when it gets weird like this,
it's better to use SYSMDUMP and IPCS to see what happened. Although you
can't call DB2 in amode 64, it does go there itself. It should be cleaning
up the high halves of registers when it does so though. So you could be
seeing an IBM bug, or more likely an overlay of some internal control
block.


In article <0b5901d4716b$52b12f10$f8138d30$@mcn.org> you wrote:
> Correcting the subject line. Sorry. Please reply to this one if possible.

> Charles


> -Original Message-
> From: Charles Mills [mailto:charl...@mcn.org] 
> Sent: Wednesday, October 31, 2018 3:43 PM
> To: IBM Mainframe Discussion List (IBM-MAIN@listserv.ua.edu)
> Subject: Help with diagnosing S0C4-038

> I am getting the following error:

> IEF450I  SANDBOX1 - ABEND=S0C4 U REASON=003B

> S0C4-3B is documented in part as 

> Region-Third exception. While running in 64-bit addressing mode, one of the
> following errors occurred:
> - A program attempted to reference storage that had not been obtained. To
> correct the error, allocate the storage before attempting to reference it.
> - A program used a 31-bit pointer that had the high order bit on.

> The error occurs during a call from an LE C++ program to the DB2 interface
> module DSNWLI. It works when the DB2 subsystem is V10 but not when it is
> V11, so the error is something fairly subtle, not that the program is 100%
> wrong.

> Here is an exact cut-and-paste from the LE diagnostic dump. (IOW don't blame
> me for that funky register display.)

>   Machine State:

> ILC. 0006Interruption Code. 003B

> PSW. 078D2400 95E9D1B6

> GPR0. _0004  GPR1. _15E972F0  GPR2.
> _15E6A4C8  GPR3. _00FC1D00
> GPR4. _009FE990  GPR5. _1560DDD0  GPR6.
> _15E97200  GPR7. _0001
> GPR8. _15E972F4  GPR9. _0004  GPR10
> _  GPR11 _95E990A0
> GPR12 _95E9D148  GPR13 _15E9720C  GPR14
> _95E972F4  GPR15 _00180705
> FPC.. 

> FPR0. 2610  FPR1. 41120DD7  50429B6D

> FPR2. 1800  FPR3. 4116A09E  667F3BCD

> FPR4. 40517CC1  B727220BFPR5. 40B504F3  33F9DE65

> FPR6. 40A2F983  6E4E4415FPR7.   

> FPR8.   FPR9.   

> FPR10   FPR11   

> FPR12   FPR13   

> FPR14   FPR15   

>  

> Storage dump near condition, beginning at location: 15E9D1A0

>   +00 15E9D1A0  D01407FE 58F0E018 EB66D000 0026B916  0066B218 F000EB66
> D096 17FF58E0  |.0..0..

> Questions: How do I interpret that PSW display in light of an ABEND that is
> specific to AMODE 64? Any clues as to how I might diagnose this?

> Charles 

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: SCP of file to USS from Mac is corrupted

2018-10-18 Thread Don Poitras
Unix System Services uses whatever you tell it to use. I can edit
ascii files or binary files. It's scp that's deficient in my opinion.
There should be an option to do binary copies. 

In article  
you wrote:
> Unix System Services uses EBCDIC.
> On Thu, Oct 18, 2018 at 11:47 AM Matt Hogstrom  wrote:
> >
> > I want to use scp to copy a pax to USS from my Mac by the file hash is 
> > wrong and it???s not the same content.   Binary mode FTP works fine so 
> > I???m assuming it???s some kind of automatic character conversion perhaps 
> > related to the ssh config
> >
> > Anyone else seen this issue and have a suggestion?


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: SAS 6.09

2018-10-18 Thread Don Poitras
Sas doesn't sell non-supported software. The support for 6.09 is pretty limited
though. Have the customer contact Tech support and we'll see if this is a known
problem and send a fix if we have one.

In article 

 you wrote:
> Hi
> I'm not really expecting any answer other than 'You must be joking', but is 
> anyone using SAS 6.09 on z/OS 2.3?
> Yes, I know SAS 6./09 has been out of support for 17 years ... our customer 
> never got round to upgrading and is now getting occasional 0C4 abends since 
> the upgrade to z/OS 2.3.
> Paul

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Fwd: What! Mainframers hate mainframes??

2018-10-14 Thread Don Poitras
In article <0318129882885622.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Sun, 14 Oct 2018 12:33:58 -0400, Mark Regan wrote:
> >https://it.toolbox.com/blogs/trevoreddolls/what-mainframers-hate-mainframes-101418
> >  ...
> You can run Linux on it - either in a partition or running the whole 
> thing. ...
> What fraction of participants of this forum see moving to Linux for z as
> comfortably Remaining on the Mainframe? 
> ... pervasive encryption making mainframes the most secure platform ...
> Does Linux employ pervasive encryption?
> ... free with z/OS is z/OSMF, which provides a browser-based way (with 
> wizards
> and online help) to manage z/OS from a modern-looking GUI. ...
> What sites have switched to z/OSMF, largely replacing 3270s?  Does z/OSMF
> support installation, configuration, and servicing?  Could such sites just 
> sell
> all their 3270s and emulators on eBay?
> I believe there are sites running multiple Linux guests and using CMS only
> to support those guests.  I asked on IBMVM whether such a site could discard
> CMS and the idiosyncratic skill set it requires and rely solely on Linux 
> itself
> for support.  Alan Altmark and others replied, emphatically, "No."
> -- gil

If you're going to use z/VM to host z/Linux, then you'd need CMS as that's
required for z/VM. But you don't have to use z/VM, you could instead
use KVM and avoid CMS. I don't think KVM is anywhere near as good as
z/VM, but at least you avoid the learning curve.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: DFSMS dates, names, numbers and references for wiki

2018-08-17 Thread Don Poitras
Someone should let him know he retired as he keeps showing up at Share and
the IBM TDMs. :)


In article  
you wrote:
> Wayne Rhoten (Morgan Hill, CA) probably knows more than most. He was Mr SMS
> until he retired from IBM in 2014. I don't know how to contact him but if
> you could find someone who has contact information, he would be a gold
> mine. I do know someone who *might* know how to get a hold of him if you
> get stuck. I did do a bit of googling and checked LinkedIn and Facebook but
> got nothing.
> Jim
> On Fri, Aug 17, 2018 at 8:49 AM, Steve Smith  wrote:
> > [citation needed]
> >
> > Couldn't resist, but it's true.
> >
> >
> > On Fri, Aug 17, 2018, 11:16 Seymour J Metz  wrote:
> >
> > > Currently, DFSMS and  Data Facility Storage Management Subsystem  in
> > > wikipedia redirect to HSM, which is mind boggling. I believe that the
> > best
> > > way to get past the Kafkaesque wiki bureaucracy is to write an article on
> > > DFSMS. For that purpose, I'd like to solicit whatever information you
> > have,
> > > starting with the DF/... and DF ... products, on
> > >
> > > Announcement dates
> > > Product names and numbers
> > > Manuals, preferably online
> > >
> > > Also, if anybody is interested in collaborating on the writing, I'd
> > > welcome it. Thanks.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: "Library Server" Access Now "Forbidden"?

2018-08-16 Thread Don Poitras
While I have some sympathy for wanting new content to be delivered in whatever
way is easiest and/or most maintainable, I just can't agree that dropping 
the old web pages has any benefit. So now, instead of clicking on a book
and seeing the content, I have to download a pdf or a boo file? Why would
I? Almost all of my z/OS bookmarks are now dead. I guess that's one way
to force us to use the knowledgecenter.


In article  you wrote:
> Along with the Softcopy Librarian option, we now also have repositories 
> for the individual PDFs and BookManager files and will soon make 
> available Adobe Indexed PDF Collections of the archived releases 
> (thanks, Geoff Smith!!). Please see the updated IBM z/OS Internet 
> Library Archive page for links to all of the information: 
> https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zos-library-archives

> Feedback request: Please let us know what you think of the viability of 
> any of these methods, especially the Acrobat Indexed Collections (as 
> soon as they're available), as long-term replacements of the served 
> Library Server content. Library Server is no longer updated, so it makes 
> sense to move to more current content retrieval methods if possible. 
> Thanks in advance!

> -Sue Shumway


> On 8/15/2018 3:27 PM, Susan Shumway wrote:
> > Hi all,
> > 
> > I was just brought up to speed on what's going on with Library Server. 
> > The IBM-hosted instance of Library Server, which is what serves the 
> > content that is linked from 
> > https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zos-library-archives
> >  
> > , encountered a problem and went down. So, all links to those domains 
> > won't work. The involved teams continue to investigate solutions, but 
> > there is currently no ETA for a fix. We'll keep you posted.
> > 
> > The good news here is that the content itself is still available - you 
> > just need to use a different method to access it:
> > 1. Use Softcopy Librarian to download PDF and BookManager formats of 
> > whatever content you need. See 
> > https://www.ibm.com/support/docview.wss?uid=swg24000640 to download 
> > Softcopy Librarian and 
> > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ebrscl1/toc.htm
> >  
> > for more information about it.
> > 2. View the content using one of two methods:
> > --- If you're running Library Server for z/OS in your enterprise, you 
> > can use it to host the content locally. See 
> > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.bks/bks.htm
> >  
> > for more information about Library Server.
> > --- If you're not running Library Server, simply use the appropriate 
> > tool to access your preferred format of the content: Softcopy Reader for 
> > BookManager or Adobe Acrobat for PDF. See 
> > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ab0in02/toc.htm
> >  
> > for more information about Softcopy Reader.
> > 
> > -Sue Shumway
> > 
> > On 8/15/2018 9:48 AM, John McKown wrote:
> >> On Wed, Aug 15, 2018 at 8:42 AM Allan Staller  
> >> wrote:
> >>
> >>> On a more serious note than my previous reply. There are many shops
> >>> running unsupported HW and SW.
> >>> As I recall, some of the early documentation for z/OS 1.x only 
> >>> existed in
> >>> BKM format (there were no PDF's available).
> >>>
> >>> How are those people going to get the necessary information?
> >>>
> >>
> >> good question. I am glad that I am a pack rat. I have a number of CDs(!)
> >> with labels like: "OS/390 Collection December 1997" and even "MVS
> >> Collection December 1997" or perhaps more popular "z/OS V1R10 Collecftion
> >> September 2008".
> >>
> >>
> >>
> >>>
> >>>
> >>>
> >>> -Original Message-
> >>> From: IBM Mainframe Discussion List  On Behalf
> >>> Of Don Poitras
> >>> Sent: Wednesday, August 15, 2018 8:38 AM
> >>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>> Subject: Re: "Library Server" Access Now "Forbidden"?
> >>>
> >>> In article <
> >>> caajsdjiyzbn3k1wqocx9gn12zjpw7wxjlm3r8n4minherzp...@mail.gmail.com> you
> >>> wrote:
> >>>> On Tue, Aug 14, 2018 at 5:24 PM David Staudacher
> >>>> 
> >>>> wrote:
> >>>
> >>>>> Starting yesterday, all the Book Manager/Library Server libs I know
> >&g

Re: "Library Server" Access Now "Forbidden"?

2018-08-15 Thread Don Poitras
In article  
you wrote:
> On Tue, Aug 14, 2018 at 5:24 PM David Staudacher 
> wrote:

> > Starting yesterday, all the Book Manager/Library Server libs I know of
> > (publibz.boulder..., publibfp.boulder..., publibfp.dhe, etc)  respond with:
> > "Forbidden: You don't have permission to access  on this
> > server".
> > This includes links provide *by IBM*, such as all the doc links given here:
> > http://ibm.com/servers/resourcelink/svc00100.nsf/pages/zos-library-archives
> > Did I miss an announcement that Library Server was going away?
> >
> Must be fixed. I just went to the above with no problems. 12:09 UTC (7:09
> a.m. US Central).
> -- 
> Between infinite and short there is a big difference. -- G.H. Gonnet
> Maranatha! <><
> John McKown

FSVO "fixed". If you click on one of the book manager links, you still
get "Forbidden". 


-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: S0C6 in CSRC4RG1

2018-07-17 Thread Don Poitras
Add 15 bytes to whatever length you are asking for and copy the
pointer. 'And' the last nibble to 0. Voila! quad-aligned pointer. :)


In article 
 you 
wrote:
> Thanks Peter,
> fwiw, the buffer pool stuff is combined (not packed) into a structure
> obtained with __malloc31().  I'll have to research whether Metal C provides
> a way to get Quad-word alignment.
> sas
> On Tue, Jul 17, 2018 at 12:18 PM, Peter Relson  wrote:
> > 
> > But who's at fault here... I'm just
> > trying to use the service, and the book says nothing about Q-word aligning
> > anything.  AND, it's been working fine for almost 3 years... have I just
> > been lucky that my cell pool getmains were Q-aligned until today?
> > 
> >
> > I'd say that it's our fault for not documenting, but it's a to-do for you.
> >
> > The AMODE 31 variants require doubleword alignment as they do CDS.
> > The AMODE 64 variants requires quadword alignment as they do CDSG
> >
> > The example in the assembler services guide shows using IARV64 which will
> > naturally get storage that accommodates the requirement.
> >
> > As to have you been lucky? I guess so. You didn't show how you obtained
> > the extent area. Depending on size, some flavors of getmain will naturally
> > land on a page boundary. But others won't and would then have the default
> > of doubleword alignment.
> >
> > Peter Relson
> > z/OS Core Technology Design

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Friday - off topic - human factors and TN3270

2018-07-07 Thread Don Poitras
Obvious typo. Which leads me to think it was typed in. A true mainframer 
eschewing the
new-fangled mouse cut and paste. :)

http://archive.computerhistory.org/resources/access/physical-object/2009/04/102682822.01.01.lg.jpg


In article  
you wrote:
> 404, alas...

> On Sat, Jul 7, 2018 at 11:18 AM, Elardus Engelbrecht <
> elardus.engelbre...@sita.co.za> wrote:

> > Porowski, Kenneth wrote:
> >
> > >"Bud and Elliot Grundt develop the first Mainframe Mouse."
> > >http://archive.computerhistory.org/resources/cccess/physical-object/2009/
> > 04/102682822.01.01.lg.jpg
> >
> > Rats! That is a good picture of that "painframe" rat! ;-)
> >
> > Hmmm, is the numbr 102682822 shown, the actual number of those
> > Mainframe Mouse manufactured?
> >
> > Will it hurts when that rat driver drives over those power cables? ;-)
> >
> > Thanks Kenneth for bringing a great smile! ;-)
> >
> > Please keep up posting on IBM-MAIN! ;-)
> >
> > Groete / Greetings
> > Elardus Engelbrecht
> -- 
> zMan -- "I've got a mainframe and I'm not afraid to use it"
-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Formatting

2018-07-01 Thread Don Poitras
I read IBM-MAIN from a newsreader. The rexx script had lots of the blanks
repaced with something else. Saving the file and looking at the headers,
I see:

---
>  Mime-Version: 1.0
>  Content-Type: text/plain; charset=koi8-r; format=flowed
>  Content-Transfer-Encoding: 8bit
---

I'm guessing Ed didn't intend to use a Russion character set. :) If that wasn't 
what
was used in the email, then it was added as it progressed through the news 
servers.

In article 
 
you wrote:
> This code looks fine. My experience in posting to IBM-MAIN is that spaces at 
> the beginning *or end* of a line allows the data to look fine. But truncating 
> both leading and trailing spaces causes the List processor to flow lines up 
> to the next 'break', which may be a totally blank line. I try to copy lines 
> from, say, syslog, to include trailing blanks. If there are none on a 
> particular line, I hit the space bar after the last character. 
> Sending notes internally with the company does not involve these issues. 
> These lines have no leading or trailing blanks.
> line 1 typed in
> line 2 typed in
> line 3 typed in
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler 
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ???=== NEW
> robin...@sce.com
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Ed Jaffe
> Sent: Sunday, July 01, 2018 4:03 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: Formatting
> On 7/1/2018 11:39 AM, Seymour J Metz wrote:
> >> I consider RFC 3676 an abomination, totally unsuitable for posting 
> >> code samples.
> > Why? Do you know of any case where a properly behaving mail client mangles 
> > code properly formatted with format=flowed?
> AFAIK, I've never had an issue posting code fragments on any list. I'm gonna 
> experiment with one right now randomly taken from our local REXX library. 
> What am I doing wrong? (Or right?)
> /* REXX */
> TSMRMM:
>  ?? address tso
>  ?? /* trace I */
>  ?? "bpxbatch sh dsmadmc -id=mvs60 -pa=xx -displ=tab",
>  ?? /* "q volhist begindate=TODAY-1 begintime=15:00:00" 
> */ ,
>  ?? /* "enddate=TODAY-1 
> endtime=23:00:00" */ ,
>   "q volhist 
> begindate=today" ,
>   "> /tmp/tsmrmm.qvolhist"
>  ?? if rc <> 0 then exit 8
>  ?? "allocate dd(tsmrpt) path('/tmp/tsmrmm.qvolhist')",
>   "recfm(v) lrecl(1024) filedata(text) reuse"
>  ?? if rc <> 0 then exit 8
>  ?? volcount = 0
>  ?? "execio * diskr tsmrpt (stem rptline. open finis"
>  ?? do i=1 to rptline.0
>  ?? do j = 1 to words(rptline.i)
>  ?? if LEFT(WORD(rptline.i,j),6) = "BACKUP" |,
>   LEFT(WORD(rptline.i,j),3) = "STG" then,
>  ?? do
>  ?? do k=j to words(rptline.i)
>  ?? if LEFT(WORD(rptline.i,k),4) = "3590" then,
>  ?? do
>  ?? volcount = volcount + 1
>  ?? type.volcount = WORD(rptline.i,j)
>  ?? dev.volcount = WORD(rptline.i,k)
>  ?? vol.volcount = WORD(rptline.i,k+1)
>  ?? leave k
>  ?? end
>  ?? end
>  ?? leave j
>  ?? end
>  ?? end
>  ?? end
>  ?? do i=1 to volcount
>  ?? say "VolHist:" type.i dev.i vol.i
>  ?? select
>  ?? when type.i = "STGNEW" |,
>   LEFT(type.i,6) = "BACKUP" then,
>  ?? do
>  ?? rmmcmd = "RMM CV" vol.i "STATUS(MASTER) HOLD",
>   "OWNER(TIVSM) RELEASEACTION(ERASE)"
>  ?? address tso rmmcmd
>  ?? cc = rc
>  ?? say "Command:" rmmcmd
>  ?? say "RetCode:" cc
>  ?? rmmcmd = "RMM CV" vol.i "LOCATION(SHELF)"
>  ?? if dev.i ="3590VAULT1" then,
>  ?? rmmcmd = "RMM CV" vol.i "MANUALMOVE LOCATION(FRED)"
>  ?? address tso rmmcmd
>  ?? cc = rc
>  ?? say "Command:" rmmcmd
>  ?????? say "RetCode:" cc
>  ?? end
>  ?? when type.i = "STGDELETE" then,
>

Re: Eternal WAIT on un-waited ECB

2018-06-26 Thread Don Poitras
In article  
you wrote:
> On Mon, Jun 25, 2018 at 4:26 PM Walt Farrell  wrote:

> > On Mon, 25 Jun 2018 11:22:51 -0700, Charles Mills 
> > wrote:
> >
> > >Well, it's not a "problem" (FSVO "problem") but in an example that is
> > >supposed to show the fast way of doing things, one might avoid slower
> > >instructions, such as storage literal references, when alternatives like
> > >TMLH and LLILF are now available.
> >
> > Even with the older instructions it will be faster than doing a real POST
> > :)
> >
> > (And if an application's performance characteristics are such that the
> > difference in a few instructions in a fast-POST implementation are going to
> > matter, should it really be using WAIT/POST, or something else altogether?)
> >
> ???Isn't IBM "pushing" SUSPEND/RESUME over WAIT/POST for application (not
> system interface) code? ???
> >
> > --
> > Walt
> >
> >
> -- 
> There is no such thing as the Cloud. It is just somebody else???s computer.
> Maranatha! <><
> John McKown

I think you're thinking of PAUSE/RELEASE. SUSPEND/RESUME requires sup
state/key 0. We haven't found PAUSE/RELEASE to be faster than WAIT/POST
and there are many API's that still use ECBs, so it's going to probably
be around forever.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Application-mode use of TRAPping instructions

2018-06-20 Thread Don Poitras
In article 
 you wrote:
> On Tue, Jun 19, 2018 at 3:18 PM Farley, Peter x23353 <
> peter.far...@broadridge.com> wrote:
> > The recent discussion about the ability (or not) of setting R14 values in
> > dbx at a break point while debugging brought me back to an old and (for me)
> > somewhat sore subject.
> >
> > The z/Architecture hardware designers graced us with TRAP and TRAP4 and
> > then with compare-and-trap instructions in the hardware.
> >
> > z/OS has yet to provide ordinary application-mode programmers (or for that
> > matter compiler and debugger writers) with the tools to use these hardware
> > features.  Because updates to the DUCT are needed to properly utilize the
> > TRAP features, only supervisor-state code (and therefore only
> > APF-authorized code) can use these facilities in current z/OS versions,
> > leaving ordinary application programmers with no way to use any of these
> > hardware features..
> >
> > When will z/OS provide application programmers (and others) the tools to
> > utilize TRAP and friends?
> >
> > Inquiring minds would love to know.
> >
> ???I totally agree. This would make it easy to "trap" a C language style
> "null pointer" dereferencing. A simple " CIT Rn,0,0" after doing a load of
> the pointer. Or, after looking, a LAT or LGAT, which does an automatic
> compare against 0, would make the C language much safer! All at "no cost"
> to the compiler writers. However, this is assuming that the use of the TRAP
> facility is relatively "cost free". I know that in the past, the SLIP IF
> function was strongly discouraged because it use PER (Program Event
> Recording?) which caused _significant_ CPU overhead. But that was back in
> the 3090 days. I don't know as much about the z13+ internals. In fact,
> perhaps CPU/performance impact is the reason that IBM doesn't make this
> GUPI. Because GUPI implies "yes, feel free to use this anywhere you think
> it makes sense" and if you get a 20% CPU hit, people will respond by
> hitting back.
> >
> > Peter
> >
> -- 
> There is no such thing as the Cloud. It is just somebody else???s computer.
> Maranatha! <><
> John McKown

You'd also want to have some language feature that _wouldn't_ trap if
you _intend_ to do a "null pointer" dereference. After all, the first
page of memory is where lots of good stuff lives. :) 

Also, I'm not sure how widely this is used, but we've gotten a lot of use
out of it. "SLIP zero address detection (ZAD)"

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieag100/zaduse.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: ISPF programming with assembler

2018-06-12 Thread Don Poitras
I think you're thinking of the TELBOOK sample. Here's the SAS/C
version of that:

http://ftp.sas.com/techsup/download/SASC/sample/c/TELBOOK.html


In article <163f524992c-c8d-9...@webjas-vae003.srv.aolmail.net> you wrote:
> ISTR there was an Airline Reservation sample for ISPF. It came in various 
> flavors ALC, Rexx and maybe COBOL. Course my search engine points me to the 
> 2.1 KC. What a Hertzberg hickey this is.
> ??
> Let's see what listserv does to this:
> Documentation for??z/OS V2.1.0??is no longer available in IBM Knowledge 
> Center.
> While the product version and release remains in service, you can find 
> information in the following formats:
> Individual PDFs for 
> downloading:??https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r1-pdf-download?OpenDocumentz/OS
>  V2R1 Adobe Indexed Collection (all PDFs with full text search via the free 
> Adobe Acrobat 
> Reader):??http://publibz.boulder.ibm.com/zoslib/pdf/zosv2r1pdfcollection.zipIBM
>  Knowledge Center plugins for downloading (for use with IBM Knowledge Center 
> for z/OS):??http://publibz.boulder.ibm.com/zoslib/SSLTBW_2.1.0_4KC.jar.
> For information about current releases of this product 
> see??http://www.ibm.com/support/knowledgecenter/SSLTBW/welcome.
> More information and resources are available at the IBM z/OS Internet 
> Library:??https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosinternetlibrary?opendocument.
> ??
> In a message dated 6/12/2018 12:30:13 PM Central Standard Time, 
> sme...@gmu.edu writes:
> ??
> There is no "actual name"; you tell ISPF what name to use.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: Looking for IPCS VERBX examples

2018-06-04 Thread Don Poitras
In article <1599371286812594.wa.zos.jes2gmail@listserv.ua.edu> you wrote:
> Thanks Wayne,
> The reason for the request is like you said, the DOC is quite lacking.  You 
> can get some info from reading the macros but that's really not how DOC 
> should be done.
> The only three that I've had issues with are ADPLSEQS, ADPLSMAP and maybe 
> ADPLSSYM.  With the little doc/examples and the macros, and help from IBMers 
> who are no longer there, I've got these working great.  I've even created a 
> program to take a listing of a DSECT and build format models to be used with 
> ADPLSFMT.
> Wayne, if you don't mind, could you send me a sample of your code that 
> accesses 64-bit storage?  I'd like to do that as well.
> Thanks.
> Dan

Like Wayne, I can't post the whole program and when I did this, I 
needed access to C header files, so I wrote our verb exit in C and
call the LE program as a subtask of the assembler IPCS exit entry.
The C program posts the assembler mother do call the IPCS router.
I used the same names when I mapped the C headers as were in the
assembler dsects, so this should give you what you need:

---
static void imemcpy(void *buffer, long dumpadr, long len)
{
   if (p->padpl->adplflag & adplsyno)// if user wants out, let him go
 longjmp(buf, 1);

   if (len > 8192)
   {
 iprintf("imemcpy len > 8192");
 abort();
   }
   memcpy(p->pesr, p->pesri, sizeof(ESSY)); // init before use
   memcpy(p->pxssp, p->pxsspi, sizeof(XSSP)); // init before use
   memcpy(p->pesr->esrast, esrastcv, 2); // type of memory CPU ASID
   p->pesr->esras2 = homeasid;   // home asid
   memcpy(p->pesr->esrlad, , 8); // dump area address
   memcpy(p->pesr->esrdle, , 8); // dump area length

   p->pxssp->xssppfl1 |= xsspbit64;  // indicate BLSRESSY structs should be 
returned in ABITS=64 format
   p->pxssp->xsspcode = xsspacc; // access storage
   p->pxssp->xsspesr = p->pesr;  // equate symbol record addr
   p->pxssp->xsspbuf = p->cmd.cmd;   // user buffer address
   memcpy(p->pxssp->xsspmodn, "SASIPCS ", 8); // name of requestor

   p->parm[0] = (ptr32) p->padpl;// adpl address
   p->service = adplssym;// symbol service
   p->parm[1] = (ptr32) >service;
   p->parm[2] = (ptr32) p->pxssp;// symbol service parms

   p->cecb = 0;  // clear my ecb
   POST(>aecb, 0);// post mom to call ipcs router
   WAIT1(>cecb);  // wait for mom
   if (p->cecb != 0x4000)// if error, exit
   {
 memset(buffer, 0, len);
 memcpy(buffer, "FAIL", 4);
   }
   else
 memcpy(buffer, p->cmd.cmd, len);  // return to caller
}
---

Someday, I think I'll create a version of this I can put on the CBT tape. It
was a lot of work to figure out and I think should be easier to use than it
is.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: File transfer Red Alert

2018-05-23 Thread Don Poitras
In article 
<4ee2851a2279b94cb70cd69b1741060901f61c1...@s1flokydce2kx05.dm0001.info53.com> 
you wrote:
> Thanks John.   
> >A .jar file _is_ a .zip file, but with some specified contents, such as a 
> >"manifest". The JAVA "jar" command can create a file which a standard 
> >"unzip" >utility can expand. It can also extract files from a standard zip 
> >file. That is, it can act as a regular zip command. But a true .jar file 
> >must have the .jar >extension and have the proper contents to be used by the 
> >java executable.
> For us "dummies" though, uploading the file as-is isn???t enough.  It has to 
> be renamed to .jar for the supplied JCL to work correctly.
> >Correct. Since the attributes of an SVCDUMP are always FB/4160/4160, you can 
> >do a BINary download to a PC, then do a BINary upload to z/OS if you first 
> >do a >"QUOTE SITE LRECL=FB LRECL=4106 BLKSIZE=4106".
> This is precisely what I am trying to avoid.  I want to transmit my diags 
> directly from z/OS.  
> Playing with this some more, and I think it was already mentioned here is 
> that AMATERSE does not allow SYSUT1 or SYSUT2 to be PATH statements either.
> _
> Dave Jousma

On my last PMR, I was told to use PDUU to send in the dump. It does
the tersing and encrypting under the covers and can be run as JCL.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieav100/pftp.htm

There's this note about the types of files that are _not_ supported:

---
PDUU does not support the following types of input data sets:
 Large block interface (LBI) (no BLKSIZE value).
 VSAM and direct (DSORG=DA) data sets
 Data sets with keys (KEYLEN)
 z/OS UNIX files
 Concatenated data sets of any type
---

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: [EXTERNAL] Re: IP printing from JES2?

2018-05-22 Thread Don Poitras
In article <6921821729008793.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Tue, 22 May 2018 13:55:50 +, Dyck, Lionel B. (RavenTek) wrote:
> >See this
> >https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.aopu000/lpruse.htm
> > 
> Some Windows systems provide an LPR command, ...
> That appears to be a (some) Windows command whereas the OP wanted JES2.
> On Mon, 21 May 2018 19:13:52 -0400, Tony Thigpen wrote:
> >Is there any non-cost solutions built within z/OS 1.13 to print from
> >JES2 to basic IP printers?
> Is Infoprint "non-cost" or separately priced?
> On Tue, 22 May 2018 10:28:20 -0400, Don Poitras wrote:
> >
> >I used ISRDDN to see where it lives and found it in a TCP dataset, so
> >I looked in the comm mgr books and found it:
> >
> >https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.halu001/lpr.htm
> >
> That's a heck of a yellow brick road to follow to documentation.
> -- gil

Well, if you just type in "LPR" at the 2.3 search box, it's the 9th
hit. It would be nice if the search results listed the path to the
book. e.g. 

z/OS Communications Server > z/OS Communcations Server: IP Users's Guide and 
Commands > Using remote printing >

and then if you could sort the search results by that path it would
even be more usefull. i.e. knowing the hierarchy would let me pick
a result that's more likely what I'm looking for rather than a bunch
of stuff down in the weeds.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


Re: IP printing from JES2?

2018-05-22 Thread Don Poitras
In article <0292150862288985.wa.paulgboulderaim@listserv.ua.edu> you wrote:
> On Tue, 22 May 2018 11:04:11 +, Dyck, Lionel B. (RavenTek) wrote:
> >Take a look at the TSO LPR command 
> > 
> I used to know that command, but I don't find it in:
> z/OS IBM  TSO/E Command Reference  Version 2 Release 3  SA32-0975-30
> >I've an ispf dialog to simplify using it at http://lbdsoftware.com/print.zip
> -- gil

I used ISRDDN to see where it lives and found it in a TCP dataset, so
I looked in the comm mgr books and found it:

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.halu001/lpr.htm

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

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


  1   2   3   >