Re: SDSF DA display in z/OS 2.3

2018-06-12 Thread Webster, Chris 
SDSF primary command 'search ffps' brings up 7 hits.  It gets past poor 
usability but does not help when you aren't sure what you are looking for (ffps 
not exactly the first thing that comes to mind for this).

...chris.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Rob 
Scott
Sent: June-12-18 1:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SDSF DA display in z/OS 2.3

"Enter = forward" takes you through the entire set of help for the first 
section of the "SET" command and then reverts to panel ISFJCMO which shows :



4 - SET (part 1)   Set SDSF options: ACTION, BROWSE, CKLIM,

   CMODE, CONFIRM, CONMOD, CONSOLE, CSORT,

   CURSOR, DATE, DELAY, DISPLAY, DUPDS

5 - SET (part 2)   More SDSF options: FFPS, LANGUAGE, LOG,

   MENU, PRTCCASA, ROWNUM, SCHARS, SCREEN,

   SECTRACE, SHELF, TIMEOUT



The usability here is not ideal to say the least.



It also seems that "FFPS" is missing from the "What's new" ISPF help section as 
well.



Please note that there is a "Setting fixed field point-and-shoot" section in 
the SDSF for z/OS 2.3 User's Guide (on or around page 14).



Rob Scott

Rocket Software





-Original Message-

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson

Sent: Monday, June 11, 2018 5:21 PM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: Re: SDSF DA display in z/OS 2.3



In the scenario I described, there is no second Help screen. Despite the note 
"Enter = Forward",  actually drills down on the Set options shown on the 
first screen beginning with "HELP: SET ACTION Command".



I just want this unexpected change to be made as transparent as possible for 
the unwitting user. I looked early on at the Help thread



1 - What's new



No mention of FFSP.



.

.

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

Sent: Monday, June 11, 2018 3:15 AM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: (External):Re: SDSF DA display in z/OS 2.3



SDSF 2.3 introduced the "point-and-shoot" ability for jobnames on panels such 
as "DA" and "H" to act as if the user typed "?" in the NP column.



Historically when SDSF introduces new behaviour there is either a "SET" option 
for the user or a custom property for the SDSF group that can be applied via 
ISFPRMxx.



This behaviour was deemed to be very much an individual user choice, so "SET 
FFPS" command was chosen as the mechanism to allow customization.



Note that this setting in saved in your ISPF profile dataset so you do not have 
to select this every time you enter the product.



Note that "SET ?" is not a valid command, all the product is attempting to do 
in response is show the first help panel for the SET command.

The help for FFPS is on the second help panel. SDSF is limited to 24 lines for 
compatibility reasons.





Rob Scott

Rocket Software



-Original Message-

From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson

Sent: Friday, June 8, 2018 10:51 PM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: Re: SDSF DA display in z/OS 2.3



Thanks for the pointers. I would never have guessed the cause. However, there 
may still be reason for an SR: 'FFSP' does not show up everywhere in Help 
panels. For example,



SET ?

PARM INVALID



 HELP: SET Commands to Set Options

  Select a SET command by number, or press Enter to view them in sequence.

   1 - ACTION   Action characters

   2 - BROWSE   Default browse action character

   3 - CKLIMNumber of checks to displayed on the history panel

   4 - CMODECommunications mode for sysplex data

   5 - CONFIRM  Confirmation

   6 - CONMOD   Console name modification

   7 - CONSOLE  Extended console

   8 - CSORTCursor-based sort

   9 - CURSOR   Cursor placement

  10 - DATE Date format

  11 - DELAYTimeout value

  12 - DISPLAY  Display of values

  13 - DUPDSDislay [sic] duplicate SYSOUT data sets



FFSP is not listed here, although it does show up in other contexts. Also it's 
a bit unusual for IBM to change default behavior without giving some mechanism 
to set an installation default.



.

.

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

Sent: Friday, June 08, 2018 1:30 PM

To: IBM-MAIN@LISTSERV.UA.EDU

Subject: (External):Re: SDSF DA display in z/OS 2.3



Interesting!  Though I'm not sure I'm getting that exact behavior.  I can

Re: SYSLOG / OPERLOG displaying date.

2018-06-07 Thread Webster, Chris 
In ISPF if you open the calendar in the status area and (for my setup) double 
click on the 'Day of year' a pop-up allows you to get any ddd/ converted.


 Standard Date -
Enter the day and year below:   

Day . . . . 158   (Between 1 and 365 or 366 if leap year)   
Year  . . . 2018  (Between 1801 and 2099)   

Day   158  of year   2018  is   Thursday  ,   2018/06/07


...chris.
-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: June-07-18 8:00 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SYSLOG / OPERLOG displaying date.

I am just talking off the top of my head here but couldn't one write an SDSF 
macro where if the user positioned the cursor on a "Julian" date and hit the 
appropriate PF key, a pop-up would display the date in a more user-familiar 
format?

I know it burns me sometimes. I will do an F whatever PREV on the log and hit 
some problem and say "aha! X happened" only to finally realize it happened 
three days ago, and that fact did not jump out because "Julian" dates are not 
"intuitive."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, June 7, 2018 6:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SYSLOG / OPERLOG displaying date.

On Thu, Jun 7, 2018 at 8:21 AM Charles Mills  wrote:

> Yeah, and further, they are called "Julian" dates in the Z community 
> and that is a misnomer. 
> https://urldefense.proofpoint.com/v2/url?u=https-3A__en.wikipedia.org_
> wiki_Julian-5Fday=DwIFaQ=UrUhmHsiTVT5qkaA4d_oSzcamb9hmamiCDMzBAEwC
> 7E=RI5WP1BN1KW_B4HrO2twbFFOhk97OdY6xsy0TwKReZE=1q6EkLI-VpOT47EOois
> SoCwovNIjq7Hbgpgf7j0K7is=bbbCPheZKUE3shBLIV8MTFQzfvPl8E09UhagbqTZyk0
> =
>
> I like one thing about them: they are compact. 18158 is the most 
> compact (generally acceptable) way to represent June 7, 2018.
>
> Here are conversion tables if you are interested:
> https://urldefense.proofpoint.com/v2/url?u=https-3A__www.fs.fed.us_fir
> e_partners_fepp_DODprogram_juliandate.htm=DwIFaQ=UrUhmHsiTVT5qkaA4
> d_oSzcamb9hmamiCDMzBAEwC7E=RI5WP1BN1KW_B4HrO2twbFFOhk97OdY6xsy0TwKRe
> ZE=1q6EkLI-VpOT47EOoisSoCwovNIjq7Hbgpgf7j0K7is=tXG7NQ58w3q04k_iWo4
> HFC6nzdL4bNW0Ap335eYXJKM=
>

​Thanks for that URL. I have a short REXX program which will do it for me using 
the DATE() builtin. What my user (really only one left now) would really like 
would be something similar to: MM/DD/.JJJ MON  ... She is our single 
remaining production scheduler and sometimes peruses the SYSLOG when 
researching jobs. Having all that information right there would really help her.

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

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

Re: GETMAIN LOC=32

2018-05-09 Thread Webster, Chris 
I have seen where the high half of R15 is not zero after a getmain with the low 
half (the return code) zero (this was several years ago and I have not checked 
to see if it still happens).

The following code (using lr) has potential issues
 Getmain ...
 Lr   15,1
 St  3,0(,15) <- may not work very well in amode 64 if the high half is not 
zero anymore
 La 8,10(,15) <- it just got much worse

Versus
Getmain ...
 La  15,0(,1)
 St  3,0(,15) <- will work find in amode 64

The point is that the high halves of the registers (0,1,15) may not always be 
zero so code that is fine for am24/31 may not be fine for am64.

...chris.

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Paul Edwards
Sent: May-09-18 4:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMAIN LOC=32

On Wed, 9 May 2018 18:40:40 -0500, Paul Gilmartin  wrote:

>>>"implausible"; various instructions work differently in AM24 and AM31, much 
>>>less AM64.
>>
>>It's not implausible, it's what I do. I produce 32-bit load modules 
>>that work on all 3 AMODEs. They passively accept whatever AMODE they 
>>were called with. They don't even require different code paths 
>>internally.
>> 
>What about exploiting dual address space mode, AR mode, ESA, 
>Hiperspaces, any other historic side roads that mainframe development has 
>followed?
>
>I agree with Shmuel here, perhaps to his dismay.

No, of course I can't use such features and have it still run all the way back 
to MVS 3.8j. But for basic applications, like diff3 or sed, that just do normal 
I/O, it can run in any AMODE. Basically if you stick to the capabilities that 
MVS 3.8j had, then you can write a program that will run in any AMODE, 
including AM64.

BFN. Paul.

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

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

Re: Knowledge Center bugs getting creative

2017-09-20 Thread Webster, Chris 
I have seen the spinning TOC as well.  Happened last month.  I will take a 
video if it happens again.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Susan Shumway
Sent: September-20-17 6:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Knowledge Center bugs getting creative

Wow, that was more entertaining than a screaming goat video! Good idea
re: the potential culprit. Let me know if it happens again and I'll alert the 
coders.

-Sue Shumway

On 09/20/17 7:25 AM, Ambros, Thomas wrote:
> Could be worse.  You could be dealing with another vendor's support site that 
> just got redesigned and now you can't search for a PTF by its id if you want 
> to download it.  They removed the capability.  Restoring the function is 
> called an 'enhancement' with no timetable for correction.
> 
> That said, the day pdfs are no longer available and I have to use Knowledge 
> Center exclusively is the day I retire early and I don't care if I am forced 
> to live on leaves and insects.
> 
> Thomas Ambros
> zEnterprise Operating Systems
> zEnterprise Systems Management
> 518-436-6433
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Andrew Rowley
> Sent: Wednesday, September 20, 2017 03:22
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Knowledge Center bugs getting creative
> 
> On 20/09/2017 4:27 PM, Tom Brennan wrote:
>> I'm in the northern hemisphere, and my table of contents is spinning, 
>> but in the opposite direction!
>>
>> Ok, not really.  I don't see any problem.
>>
> It only happened the once. I think it must have been a timing thing with the 
> code to create the spinner while the TOC loads, I guess it spun the wrong 
> thing.
> 
> If someone tried to report it as a bug they'd be asked what they were on I 
> think. I had a bit of trouble believing it myself - it was only the next time 
> when I saw the real spinner that I guessed what might be happening.
> 
> A good lesson for developers though - no matter how crazy a bug description 
> sounds, it doesn't mean it's not real.
> 
> 

--
Sue Shumway
z/OS Product Documentation Lead
IBM Poughkeepsie
chale...@us.ibm.com

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

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

Re: ATTACH EXTR=exit and saving registers (save _all_ registers?)

2017-08-29 Thread Webster, Chris 
Using BAKR on entry frees up the provided save area for other uses.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tom Marchant
Sent: August-29-17 1:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ATTACH EXTR=exit and saving registers (save _all_ registers?)

On Tue, 29 Aug 2017 15:59:53 -0400, Thomas David Rivers wrote:

>The doc seems ambiguous to me; which leads me down this path of doing 
>funky save-area machinations to ensure that all registers are saved - 
>not just the "normal" ones.

STM  14,12,12(13)
hardly constitutes "doing funky save-area machinations".

Saving your caller's registers is a good practice, if for no other reason than 
to aid in debugging.
Diagnosing "clever" code that avoids the calling conventions is a PITA.

--
Tom Marchant

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

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

Re: How to Remove trailing space in SFTP Transfer

2017-08-25 Thread Webster, Chris 
Sort can remove the trailing spaces.

  SORT FIELDS=COPY
  OUTFIL FNAMES=OUT,FTOV,VLTRIM=X'40',OUTREC=(1,120)

Adjust the lrecl as meeded.  This is from a job converting binder output to VB.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nightwatch RenBand
Sent: August-25-17 8:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to Remove trailing space in SFTP Transfer

Um... this might be simplistic, and I have no way to test it  BUT...
Create a VB dataset, copy FB to VB, SFTP the VB Just a thought.  Don't think 
there will be any trailing spaces in the VB version.

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

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

Re: Another elementary Assembler question

2017-07-03 Thread Webster, Chris 
An alternative to looking up the cde.

 Entry Alias1
Alias1 J Main r15 points here for alias1
Entry Alias2
Alias2 J Main r15 points here for alias2
Entry MAIN
Main DS 0AD r15 points here for main
 Larl 12,Main (or data area) set base
 Using main,12 
 Larl 0,alias1 check for alias1
 Cr15,0
 Je...

For amode 64, some cleanup of r15 would be needed.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Binyamin Dissen
Sent: July-03-17 7:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Another elementary Assembler question

Assuming EXEC PGM=, the CDE pointed to by the PRB will have the name.invoked.

On Mon, 3 Jul 2017 13:49:33 + "PINION, RICHARD W."
 wrote:

:>If I have an assembler program that has an alias, how can I determine from 
within that program, what :>name was used to execute the program.
:>
:>SRC name = A
:>Load module name = A
:>Alias name= B
:>
:>Depending on how the program was executed A or B, I want the program to take 
make certain decisions.
:>FIRST TENNESSEE
:>
:>Confidentiality notice: 
:>This e-mail message, including any attachments, may contain legally 
privileged and/or confidential information. If you are not the intended 
recipient(s), or the employee or agent responsible for delivery of this message 
to the intended recipient(s), you are hereby notified that any dissemination, 
distribution, or copying of this e-mail message is strictly prohibited. If you 
have received this message in error, please immediately notify the sender and 
delete this e-mail message from your computer.
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email 
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
Binyamin Dissen  
https://urldefense.proofpoint.com/v2/url?u=http-3A__www.dissensoftware.com=DwICAg=UrUhmHsiTVT5qkaA4d_oSzcamb9hmamiCDMzBAEwC7E=RI5WP1BN1KW_B4HrO2twbFFOhk97OdY6xsy0TwKReZE=tRXnIF-ILmypZPlMnKDoI2lgs2DmrrBMxU1xs_jsMxQ=pPlgrz2WI_uGg30oeIO1zFZT450-zAnkWy4bWkdRzXY=
 

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

Re: Interpreting an S202-0000

2016-09-28 Thread Webster, Chris 
Abend S202 and SVC 1 are out of synch.  Do you have a timer exit doing a post?  
It would run under the same TCB but a different RB and if LE does not know 
about it, it may be ignored.  If the customer (or you) can reproduce, set a 
SLIP to get a 'real' dump.  Is there a trace table in the LE dump?  It would 
show the SVC 2 and subsequent S202.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: September-28-16 9:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Interpreting an S202-

@Jim, not much faith in LE dumps, eh? 

I guess I will work on duplicating the problem with the LE dump disabled in 
favor of SYSUDUMP. 

Meanwhile, here is LE's take on the issue: (zero editing other than where I say 
"snip")

 Condition Information for  (DSA address 000236E0)
   CIB Address: 00024A30
   Current Condition:
 CEE3250C The system or user abend S202  R= was issued.
   Location:
 Program Unit:  Entry: DIRECTOR Statement:  Offset: +00B6
   Machine State:
 ILC. 0004Interruption Code. 0011
 PSW. 070D1400 B1012472

   ABEND code: 00202000 Reason code: 

 Storage dump near condition, beginning at location: 31012462
   +00 31012462  1A6B 4101 41106058 13110A01  07004510
C53C 00205810 1A6B  |...,..-.E..,|

You can pretty well see that the offending instruction is an SVC 1.

I know that LE makes some funny decisions about what is and what is not worth 
dumping, but I have trouble believing they "relocated" the ABEND from the POST 
to the WAIT.

By the way, I don't know which POST and ECB was the problem. There are three 
ECBs in the ECBLIST, and the POST might have been for either of two of the 
three. 

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jim Mulder
Sent: Wednesday, September 28, 2016 8:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Interpreting an S202-

> It is definitely, unquestionably being reported on the WAIT, not the
POST.
> 
> I don't know what is in the ECB -- or even which of three ECBs is in
error
> -- because LE in its wisdom decided the storage is not worth dumping.
> 
> An interesting question would be "if the ECB has an invalid RB 
> address,
how
> did POST know what task to ABEND?"

  Since I know of no way for WAIT to issue a 202 abend, I wouldn't believe that 
without seeing it in a dump myself (a dump taken by z/OS with a system trace - 
not some LE concoction of a dump).

  POST would abend the work unit which is doing the POST. 

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

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

Re: Interpreting an S202-0000

2016-09-28 Thread Webster, Chris 
Yes you are interpreting it correctly.

It is reported on the POST.  During POST processing, the RB pointer is used to 
identify what RB/TCB issued the WAIT.  It can be a storage overlay or the 
POSTer is not pointing at an ECB at all but some other piece of storage with 
the 'wait' bit turned on.

It would be difficult to identify the WAITer if it wasn't an ECB being posted.

Verify the ECBLIST has the correct addresses and the POSTer is posting one of 
them.  What is the value of the ECB storage at the time of abend?

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: September-28-16 5:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Interpreting an S202-

A program issues a WAIT ECBLIST= for a list of three ECBs. The program receives 
an S202- ABEND. Here is the explanation:

Explanation: During processing of a POST macro, the system found an error with 
an event control block (ECB).

00 The system found an incorrect address for a request block (RB) in the 3 
low-order bytes of the ECB specified by the problem program.
The system places the address of the RB in the ECB during processing of a WAIT 
macro. This address must remain in the ECB until a POST macro places a post 
code or zeros in the ECB.

Am I interpreting this correctly as indicating that the ECB was modified 
incorrectly *after* the WAIT ECBLIST= and *before* the completion of a POST?
In other words, the WAIT ECBLIST= ran correctly through the initial processing 
of the function but during the processing of POST, the contents of bits 8-31 of 
the ECB were found not to point to a valid RB. 

Is there any particular reason this is reported on the WAIT rather than on the 
POST?

Charles 

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

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

Re: Some confusion about SVC99, DALRTDDN and existing allocations.

2016-08-05 Thread Webster, Chris 
Dave,

You may need to ask for a new allocation.  Reuse rules are tangled and do not 
always work as expected - don't remember all the details off hand but the doc 
does provide some info.

s99rbptr->s99flg11 |= S99NOCNV;

Not assembler but I think you understand it. :-)

Not sure I would use release TU unless requested.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Thomas David Rivers
Sent: Friday, August 05, 2016 6:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Some confusion about SVC99, DALRTDDN and existing allocations.

Trying to write a program that lets the system do a DYNALLOC (SVC99) and hands 
me back the system-assigned DD name to use in the DCB for an OPEN via the 
DALRTDDN text-unit in the SVC99.

In this case; I'm actually trying to point to a PDS and will be reading a 
member.

This is well and good; works great if I don't have that PDS allocated to 
another DD; DYNALLOC hands me a wonderful SYS DD name which I plop down in 
the DCB, do the OPEN and a FIND and read the member.

However...

If I'm under TSO; and I allocate another DD to point to my PDS, with,
say:

  ALLOC DA(MYDD) DS(MY.PDS) SHR

then when my program does the DYNALLOC (SVC99) the DD name I get back in the 
DALRTDDN area is 'MYDD' (not the expected SYSn.)

Furthermore; the return code (R15) from DYNALLOC is 0, and the values of 
S99EERR and S99EINFO in the S99RBX are zero as well; and I've verified that the 
S99RBX is correctly being addressed from the S99RB.

My program then proceeds to do an OPEN with that DD; which works fine
(RC=0.)

It then proceeds to do a FIND which returns with a return-code (R15) of 8 and 
reason-code (R0) of 8.

The Text-Units I'm using on the DYNALLOC are:

   DALRTDDN (X'0055')
   DALDSNAM (X'0002')
   DALSTATS   (X'0004')  with a value of X'08'  (SHR)
   DALNDISP   (X'0005')  with a value of X'02'   (CATALOG)
   DALRLSE (X'000D')


My questions are:

  Why would DYNALLOC hand me back a DD name from a different allocation  in the 
DALRTDDN area, instead of making up a new one?

  Furthermore, why would DYNALLOC hand me a DD name that can't work  and give 
me a return code 0, with all the fields in the S99RB _and_ S99RBX  also 
indicating 0?  DYNALLOC clearly thinks this is a find DD name to use;  so why 
can't it use it?

  Could my superfluous specification fo CATALOG and RELEASE be causing  the 
problems?

   - Many thanks for any helpful pointers -
  - Dave Rivers -

-- 
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at 
https://urldefense.proofpoint.com/v2/url?u=http-3A__www.dignus.com=CwICAw=UrUhmHsiTVT5qkaA4d_oSzcamb9hmamiCDMzBAEwC7E=RI5WP1BN1KW_B4HrO2twbFFOhk97OdY6xsy0TwKReZE=MIgzZ5NoP2xi4t6540GWs1kHIWIyp-BeTF8NRQoy-F0=aVBulGqJ6LS1pS1t6CqRsWrojlUuyILA2Oz_xmkCVHk=
 

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

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

Re: AW: Re: You thought IEFBR14 was bad? Try GNU's /bin/true code

2016-02-12 Thread Webster, Chris 
In the case of iefbr14, the branch instruction could have been

 BCR 8,14

The condition code was set by the preceding instruction. ;-) Some might find it 
confusing.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Martin Packer
Sent: Friday, February 12, 2016 6:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Re: You thought IEFBR14 was bad? Try GNU's /bin/true code

Thanks for spelling it out. I needed it. :-( :-)

And maybe it helped the young'uns. :-)

Cheers, Martin

Martin Packer,
zChampion, Principal Systems Investigator, Worldwide Cloud & Systems 
Performance, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker



From:   Tom Marchant <000a2a8c2020-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   12/02/2016 13:37
Subject:Re: AW: Re: You thought IEFBR14 was bad? Try GNU's 
/bin/true code
Sent by:IBM Mainframe Discussion List 



On Fri, 12 Feb 2016 07:19:37 +, Martin Packer wrote:

>But Unconditional being all 4 bits set was what I wanted elucidation on.
>Perhaps I'm being thick, or perhaps it's a special case.

Condition code has two bits, giving it four possible values, 0, 1, 2, or 3.

The mask bits in the conditional branch instructions have four bits, each bit 
corresponds to one of the four possible condition code settings. For example, 
if the first bit (bit 0) in the instruction mask is 1, it means take the branch 
if the condition code is zero. If the second mask bit (bit 1) is set, it means 
take the branch if the condition code is one. 

If all four bits are set, it means take the branch if the value of the 
condition code is 0, 1, 2, or 3. Since there are no other possible values, the 
branch is unconditional.

-- 
Tom Marchant

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



Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

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

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

Re: Convert a Parm into a control card

2016-02-02 Thread Webster, Chris 
The space problem can be overcome at some cost (okay a big cost in 
readability).  This solves the OP problem but requires two steps due to the 
parm length limits.  I did not try it on 1.12 but assume it should work.

//CSWT JOB ,CLASS=A,MSGCLASS=X
//   SET PFILE=MY.DATASET.NAME
//   SET TXTYP=1  
//   SET ACCT=001455  
//   SET RUN=TRIAL
//ECHO EXEC PGM=BPXBATCH, 
// PARM=('SH echo USER \\nPROCESS\\0100 ')  
//STDERR   DD SYSOUT=*
//*TDOUT   DD SYSOUT=*
//STDOUT DD DSN=&,DISP=(,PASS),SPACE=(TRK,1),LRECL=80,RECFM=FB 
//ECHO EXEC PGM=BPXBATCH, 
// PARM='SH echo TRANS\\0100 \\0100 \\nRUNTYPE\\0100 '
//STDERR   DD SYSOUT=*
//*TDOUT   DD SYSOUT=*
//STDOUT DD DSN=&,DISP=(MOD,PASS),LRECL=80,RECFM=FB
// EXECPGM=IEBGENR  print the file  

//SYSUT1   DD DISP=(SHR,DELETE),DSN=&  
//SYSUT2   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSINDD DUMMY,LRECL=80  

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, February 02, 2016 4:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Convert a Parm into a control card

On Tue, 2 Feb 2016 17:20:40 -0500, Ed Finnell wrote:

>Before there was Rexx we'd do Clists for this stuff. As SPF/ISPF rolled 
>out(and Rexx) File Tailoring became the easiest for us. Full screen 
>input with  formatting and range checking. The driver could be any ISPF 
>friendly language;i.e; Rexx, ASM, Cobol, PL/1 or Clist.
> 
It's mind-boggling that OS/360 survived without an "echo" utility until z/OS 
2.1 almost removes the motivation.  "Almost" insofar as symbol substitution 
reformats the record so an arbitrary substring of blanks may be unattainable.

-- gil

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

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

C extern was RE: Resolving EXTRN References

2015-08-18 Thread Webster, Chris 
There is still supposed to be a definition in C that does NOT have extern 
specified.  It is quite common to just use extern declarations and most 
compilers account for this.

Quoting IBM:
An extern declaration makes the described variable usable by the succeeding 
part of the current source file. This declaration does not replace the 
definition. The declaration is used to describe the variable that is externally 
defined.

IOW, the definition is the one true instance.  It should be the only one with 
an initializer or things get confusing.  

...chris.
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Tuesday, August 18, 2015 4:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Resolving EXTRN References

Different from C, where you use extern on both ends.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Cali zMan
Sent: Tuesday, August 18, 2015 3:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Resolving EXTRN References




   Yep, adding the ENTRY statement fixed it. Not sure how I missed its 
necessity.
   Thanks to Paul and Charles for chiming in.

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

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

Re: FTP hangs?

2014-11-25 Thread Webster, Chris 
Maybe you could try to use the FTP PASV command.  If you are using perl for the 
FTP, try set (export) FTP_PASSIVE=1 to see it if helps.  From experience, 
corporate managed firewalls can get in the way.  I have been running in passive 
mode for a while and do not see any performance problems (running without 
passive and having FTP not work was a serious performance problem). 

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gord Tomlin
Sent: Tuesday, November 25, 2014 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FTP hangs?

On 2014-11-25 13:47, Phil Smith wrote:
 Like many companies, we use a z/OS guest at IBM Dallas for our testing. We 
 also cross-compile our source on Windows, using the Dignus compiler. 
 Obviously, this results in lots of FTPing bits from our systems to Dallas. 
 Moreover, we do tons of automated testing submitting jobs and gathering 
 output directly to and from the JES queue with FILETYPE=JES.

 Usually this all works fine. Some days, however, are a disaster, with FTP 
 hanging constantly, both during traditional file transfers and when 
 communicating with the SPOOL via FILETYPE=JES.

 We've been unable to identify any commonality to the bad days. At various 
 times we've suspected shortage of SPOOL space; something latent in not having 
 IPLed recently (we do wind up IPLing fairly frequently, due to running out of 
 reusable address spaces after stopping and restarting our cross-memory STC 
 repeatedly); shortage of initiators; and other things along those lines, but 
 have always been able to disprove those theories.

 For example, today, with only two of us around (and thus even more control 
 than usual), is a bad day: test jobs keep hanging in FTP. We reIPLed, and 
 SPOOL and initiators are fine, but the hangs continue.

 We've talked with IBM and our own IT, and nobody seems to have any clue about 
 how to diagnose this.

 Any ideas? It's not only frustrating, but when we're on a release deathmarch, 
 is particularly disruptive to schedules!

 Thanks in advance,

 ...phsiii

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



We had a problem with FTP to IBM Dallas about four years ago. It didn't hang, 
but we were only getting about 26 Kb/sec. They changed the MTU size for the 
connection from defaultsize to 1492, and things got much better. Just a 
thought, in case your hang isn't really quite a hang.

--

Regards, Gord Tomlin
Action Software International
(a division of Mazda Computer Corporation)
Tel: (905) 470-7113, Fax: (905) 470-6507

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

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

Re: CMS Editors was TSO Test does not support 65-bit debugging?

2014-07-07 Thread Webster, Chris 
I remember using full screen editors named EDGAR and FUSE prior to XEDIT.  
Don't remember which came first or their official IBM status.

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Gould
Sent: Sunday, July 06, 2014 4:04 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Test does not support 65-bit debugging?

On Jul 6, 2014, at 5:53 PM, Paul Gilmartin wrote:

 On Sun, 6 Jul 2014 17:11:54 -0500, Ed Gould wrote:

 I can only talk about the MVS side of things.
 AFAIK the VM version came later and XEDIT was one of the other 
 fullscreen editors (I think there were 2, but the second name is out 
 of reach for a minute)

 EDGAR?

Could be sounds familiar.



 My limited VM knowledge says there was a war between the two and 
 finally the other one won but then ISPF came along and eventually 
 eliminated them both.

Gil: It must be somewhat popular as IBM still sells it (last I heard)

 Nope.  Hard to find any VM programmer who takes ISPF seriously.

 -- gil

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

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

Re: generate file from Program PARM

2013-03-26 Thread Webster, Chris 
Another option:

// EXEC PGM=BPXBATCH,
// PARM='SH echo *\\n  name SYSUID\(R\)'
//STDOUT   DD  SYSOUT=*   = change to use a dataset
//STDERR   DD  SYSOUT=*  

...chris.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Ashton
Sent: Tuesday, March 26, 2013 12:07 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: generate file from Program PARM

Kolusu, thanks for this piece of code...it works great, and by using IFTHEN, I 
was able to use another substitution for another option.

Thanks to everyone else for these ideas, too...will look into a homegrown 
program for future use.
Billy


On Tue, Mar 26, 2013 at 12:03 PM, Sri h Kolusu skol...@us.ibm.com wrote:

 Bill,

 It is quite easy with DFSORT's  JP1 Symbols to pass parms. With z/OS 
 DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026 (Oct, 2010), 
 you can now use DFSORT's new JP1 Symbols to pass parms to sort like 
 shown below

 //   SET EXEPGM=MYPGM
 //STEP0100 EXEC PGM=SORT,PARM='JP1NAME EXEPGM(R)'
 //SYSOUT   DD SYSOUT=*
 //SORTIN   DD *
INCLUDE NEWLIB
MODE  AMODE(31),RMODE(ANY)
ENTRY XXX
 //SORTOUT  DD SYSOUT=*
 //SYSINDD *
   OPTION COPY
   OUTFIL REMOVECC,TRAILER1=(4:JP1)
 //*

 The output from this job is

 INCLUDE NEWLIB
MODE  AMODE(31),RMODE(ANY)
ENTRY XXX
NAME MYPGM(R)

 For complete details of JCL PROC or SET symbols and other new 
 functions see User Guide for DFSORT PTFs UK90025 and UK90026 paper 
 (sortugph.pdf)
 at:

 http://www.ibm.com/support/docview.wss?rs=114uid=isg3T7000242

 Further if you have any questions please let me know

 Thanks
 Kolusu
 DFSORT Development
 IBM Corporation

 IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on
 03/26/2013 05:51:48 AM:

  From: Bill Ashton bill00ash...@gmail.com
  To: IBM-MAIN@listserv.ua.edu,
  Date: 03/26/2013 05:53 AM
  Subject: generate file from Program PARM Sent by: IBM Mainframe 
  Discussion List IBM-MAIN@listserv.ua.edu
 
  Hi again...this should be my last annoyance for a while, I 
  hope...You
 all
  have been a big help in getting me going with finding my sea legs 
  again with this COBOL project.
 
  Today's question (I think I already know the answer is 'no') - Is 
  there
 a
  way in native JCL to take a PARM and make an output file from it? 
  For example, I would like to use a set statement or a PARM= symbolic 
  to generate the name of the load module for my LKED step. So I would 
  like
 to
  have:
 
  SET EXEPGM=MYPGM
  . . .
  //GENER8  EXEC PGM=?,PARM='   NAME EXEPGM(R)'
 
  and then take that output and concatenate to my LKED SYSIN (which 
  has
 other
  includes, entry point name, etc.).
 
  I have looked for this for quite a while, but don't see anything on 
  z/OS 1.x levels. Is this possible?
  --
  Thank you and best regards,
  *Billy Ashton*
 
  
  -- 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




--
Thank you and best regards,
*Billy Ashton*

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

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

Re: Anyone know how to copy a PDS directory as a flat file?

2012-09-06 Thread Webster, Chris 
This should work for you.

//GENEREXEC PGM=IEBGENER 
//SYSPRINT DD SYSOUT=*   
//SYSUT1   DD   DSN=MY.CLIST,DISP=SHR,RECFM=FB,DSORG=PS, 
// LRECL=256,BLKSIZE=256 
//SYSUT2   DD DISP=SHR,DSN=MY.CLIST.DIR, 
// SPACE=(CYL,(5,1),RLSE),STORCLAS=DEVS90,   
// LRECL=256,RECFM=FB,DSORG=PS   
//SYSIN DD DUMMY 

...chris.

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
 On Behalf Of Charles Mills
 Sent: Thursday, September 06, 2012 8:29 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Anyone know how to copy a PDS directory as a flat file?
 
 I want to make a PS (flat file) copy of the series of 256-byte blocks of a PDS
 directory. (I want to copy the data to another platform so I can test some
 code with it more readily.)
 
 I tried
 
 //GENEREXEC PGM=IEBGENER
 //SYSUT1   DD   DSN=MY.PDS,DISP=SHR,RECFM=F,DSORG=PS
 //SYSUT2   DD   DSN=THE.SAMPLE.PDSDIR,DISP=(NEW,CATLG),
 //  SPACE=(TRK,(1,1))
 
 but IEBGENER is too smart for that:
 
 IEB311I CONFLICTING DCB PARAMETERS
 IEB311I CONFLICTING DCB PARAMETERS
 
 (and copied nothing).
 
 Anyone know how to accomplish this, short of writing an assembler program
 to
 do it?
 
 Charles
 
 --
 For IBM-MAIN subscribe / signoff / archive access instructions, send email to
 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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