Re: Friday question: ISPF Statistics Manipulation

[Brenton, Ren]

Here is something I wrote a while back. (I pulled out some proprietary code, 
but this should work).

Enjoy.



Ren



Example to test:

/* REXX */?

pds_nam = '.BBB.CCC'

mbrnam  = 'CCC'

m_dat_4 = '2014/11/07'

c_dat_4 = '2014/11/07'

c_dat   = Substr(c_dat_4,3)

m_dat   = Substr(m_dat_4,3)

m_tim   = '14:51:11'

use_r = 'ABCDEF'



xx = F@UPDSTA('ONLINE' pds_nam mbrnam m_dat m_dat_4 m_tim c_dat c_dat_4 use_r)

Exit









Code:



/* REXX - MEMBER: F@UPDSTA - 08/15/16 11:15:41 <=== LAST UPDATE  */

/*=

F@UPDSTA



Description: Function - Update/create PDS Member stats from passed info



Purpose:



 Will update or create member stats for the member: mbrnam, in the pds:

 pds_nam.



Usage:



 xx = F@UPdsta(‘ONLINE’ pds_nam mbrnam m_dat m_dat_4 m_tim c_dat c_dat_4 
use_r)



 Note: m_dat, m_dat_4, m_tim c_dat and c_dat_4 can be spaces

   use_r is the RACF ID

   If m_dat and m_dat_4 and m_tim are populated they will be used and c_dat

   and c_dat_4 will be unchanged



 cc = 0  for normal completion

 cc = 16 if missing pds or member name

 cc = nn for other errors



=*/

Arg type pds_nam mbrnam m_dat m_dat_4 m_tim c_dat c_dat_4 use_r



   Parse Source . . cmdnam .



   If pds_nam = '';Then Signal Err_Missing_PDS_NAME

   If mbrnam  = '';Then Signal Err_Missing_MBRNAM



   dd_nam = 'STATSPDS'

   zerrhm = 'ISR3'

   zerralrm = 'YES'



   pds_nam = Strip(Translate(pds_nam,"","'")) /* strip quotes */



   If Msg() <> 'OFF';Then x = Msg('OFF')



  "FREE FI("dd_nam")"

  "FREE DATASET('"pds_nam"')"



  "ALLOC FI("dd_nam") DA('"pds_nam"') SHR"

   cc = rc

   If cc <> 0;Then do

  x = Msg('ON')

  Trace 'R'

 "ALLOC FI("dd_nam") DA('"pds_nam"') SHR"

  cc = rc

  Trace 'O'

  If Msg() <> 'OFF';Then x = Msg('OFF')

  If cc <> 0;Then Signal Err_AllOC

   End



   Address "ISPEXEC" "LMINIT DATAID(DATAID01) DDNAME("dd_nam") ENQ(MOD)"

   cc = rc

   If cc <> 0;Then Signal Err_Lminit



   Address "ISPEXEC" "LMOPEN DATAID("dataid01") OPTION(INPUT)"

   cc = rc

   If cc <> 0;Then Signal Err_Exit



   Call Get_Existing_Stats



   Call Update_Stats



Z99:



   Address "ISPEXEC" "LMMLIST DATAID("dataid01") OPTION(FREE)"

   dd = rc

   Address "ISPEXEC" "LMCLOSE DATAID("dataid01")"

   dd = rc

   Address "ISPEXEC" "LMFREE DATAID("dataid01")"

   dd = rc



  "FREE FI("dd_nam")"

  "FREE DATASET('"pds_nam"')"



Return cc



Get_existing_stats:



   Address "ISPEXEC" "LMMLIST DATAID("dataid01")",

"MEMBER("mbrnam")",

"STATS(YES)",

"PATTERN("mbrnam")",

"OPTION(LIST)"

   cc = rc



   If cc = 4;Then do





  mdate = '/??/??'

  mtime = '??:??:??'

  c_dat = ''

  m_dat = ''

  c_dat_4 = ''

  m_dat_4 = ''

  m_tim   = ''

  zlcnorc = ''

  zlinorc = ''

  use_r   = ''

  cc = 0



   End /* of cc = 4 */



   If c_dat = '';Then do



  If zlcdate = 'ZLCDATE',

   | zlcdate = '';Then flcdate =''

  Else flcdate = zlcdate



   End

   Else flcdate = c_dat

  If m_dat = '';Then do



 If zlmdate = 'ZLMDATE',

  | zlmdate = '';Then flmdate =''

 Else flmdate = zlmdate



  End

  Else flmdate = m_dat



  If c_dat_4 = '';Then do



 If zlc4date = 'ZLC4DATE';Then flc4date = ''

 Else flc4date = zlc4date



  End

  Else flc4date = c_dat_4



  If m_dat_4 = '';Then do



 If zlm4date = 'ZLM4DATE';Then flm4date = ''

 Else flm4date = zlm4date



  End

  Else flm4date = m_dat_4





  If m_tim = '';Then do



 If zlmtime = 'ZLMTIME';Then flmtime = ''

 Else flmtime = zlmtime



  End

  Else flmtime  = m_tim



  If zlcnorc = 'ZLCNORC';Then flcnorc = ' '

  Else flcnorc = Right(zlcnorc,8,' ')



  If zlinorc = 'ZLINORC';Then flinorc = ' '

  Else flinorc = Right(zlinorc,8,' ')



  If use_r = '';Then do

 If zluser = 'ZLUSER';Then fluser = ''

 Else fluser = zluser

  End

  Else fluser = use_r



  If zlvers = 'ZLVERS';Then flvers = ''

  Else flvers = zlvers



  If zlmod  = 'ZLMOD';Then flmod = ''

  Else flmod  = zlmod



  If zlsclm = 'ZLSCLM';Then flsclm = ''

  Else flsclm = zlsclm



  ver1  = flvers

  mod1  = flmod

  cdate = flcdate

  mdate = flmdate

  mtime = flmtime

  csize = Strip(flcnorc)

  isize = Strip(flinorc)

  user  = fluser

  cdate4= flc4date

  mdate4= flm4date



  If Datatype(csize) = 'NUM';Then do



 If datatype(isize) = 'NUM';Then do

mrecs = csize - isize

 End

 Else mrecs = 0

   End

   Else mrecs = 0



   If mrecs < 1;Then do

  mrecs = 1

   End





Return



Update_Stats:



   Address "ISPEXEC" "LMMSTATS DATAID("dataid01") 

Re: Reading the Command Table

[Brenton, Ren]

Alan,  Thank you.  That is a cool command.  

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Alan Young
Sent: Tuesday, November 29, 2016 12:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the Command Table

The ISPVCALL debug command displays the active command tables (along with a 
bunch of other ISPF information) for the user. It writes the information to a 
dataset and by default it will display the file in a edit session when the 
trace is ended. The edit display can be suppressed by specifying the END parm 
with the trace stop. Here is an example

/*REXX*/
address TSO 'ISPVCALL'  / * start trace */ address TSO 'ISPVCALL END' /* stop 
trace without display */ exit

Alan

Brenton, Ren wrote:
> We have a COMMAND TABLE (MADCMDS), with entries like this:
>
>  Verb   T Action   
>   IPTOOLS   0  SELECT CMD(%AAA ) 
>   IPLIST0  SELECT CMD(%BB ) 
>   ITAUTO0  SELECT CMD(% ) 
>   ITCK  0  SELECT CMD(%DDD )   
>
> Is there any way to get this list into a dataset that I can edit/view?
>
> I’m trying to come up with a list of commands that can be invoked from this 
> Command Table, (or any other of our command tables as well), to be used in 
> another process (a REXX solution would be terrific).
>
> TIA
>
> Ren Brenton
> MSP Home Equity
> Black Knight Financial Services
> 601 Riverside Ave.,
> Jacksonville, FL 32204
> __
> O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807 
> ren.bren...@bkfs.com || www.BKFS.com The information contained in this 
> message is proprietary and/or confidential. If you are not the intended 
> recipient, please: (i) delete the message and all copies; (ii) do not 
> disclose, distribute or use the message in any manner; and (iii) notify the 
> sender immediately. In addition, please be aware that any message addressed 
> to our domain is subject to archiving and review by persons other than the 
> intended recipient. Thank you.
>   

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: Reading the Command Table

[Brenton, Ren]

Lionel, Excellent.  Thank you very much.  That did the trick.
Itschak, thanks for your response. 
 

Ren
 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Itschak Mugzach
Sent: Tuesday, November 29, 2016 11:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the Command Table

If the table already loaded in ispf you can write a skeleton that has the fiekd 
name encloswd with )dot - )ensdot and grom ispf 7.6 do ftopen temp (or 
ispfile), ftincl sklxxx, ftclose.

Best.
Itschak

בתאריך 29 בנוב 2016 17:50,‏ "Dyck, Lionel B. (TRA)" <lionel.d...@va.gov>
כתב:

Take a look at file312 on the cbttape.org updates page 
http://www.cbttape.org/ftp/updates/CBT312.zip

Within you will see CMDSRPT which may do what you're looking for

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer  Enterprise Infrastructure 
Support (Station 200) (005OP6.3.10) VA OI Service Delivery & Engineering

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brenton, Ren
Sent: Tuesday, November 29, 2016 9:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Reading the Command Table

We have a COMMAND TABLE (MADCMDS), with entries like this:

 Verb   T Action
  IPTOOLS   0  SELECT CMD(%AAA )
  IPLIST0  SELECT CMD(%BB )
  ITAUTO0  SELECT CMD(% )
  ITCK  0  SELECT CMD(%DDD )

Is there any way to get this list into a dataset that I can edit/view?

I’m trying to come up with a list of commands that can be invoked from this 
Command Table, (or any other of our command tables as well), to be used in 
another process (a REXX solution would be terrific).

TIA

Ren Brenton
MSP Home Equity
Black Knight Financial Services
601 Riverside Ave.,
Jacksonville, FL 32204
__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807 ren.bren...@bkfs.com || 
www.BKFS.com The information contained in this message is proprietary and/or 
confidential. If you are not the intended recipient, please: (i) delete the 
message and all copies; (ii) do not disclose, distribute or use the message in 
any manner; and (iii) notify the sender immediately. In addition, please be 
aware that any message addressed to our domain is subject to archiving and 
review by persons other than the intended recipient. Thank you.


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

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

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Reading the Command Table

[Brenton, Ren]

We have a COMMAND TABLE (MADCMDS), with entries like this:

 Verb   T Action   
  IPTOOLS   0  SELECT CMD(%AAA ) 
  IPLIST0  SELECT CMD(%BB ) 
  ITAUTO0  SELECT CMD(% ) 
  ITCK  0  SELECT CMD(%DDD )   

Is there any way to get this list into a dataset that I can edit/view?

I’m trying to come up with a list of commands that can be invoked from this 
Command Table, (or any other of our command tables as well), to be used in 
another process (a REXX solution would be terrific).

TIA

Ren Brenton
MSP Home Equity 
Black Knight Financial Services
601 Riverside Ave., 
Jacksonville, FL 32204
__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807
ren.bren...@bkfs.com || www.BKFS.com
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: RD/z

[Brenton, Ren]

OK, I've installed the Compuware Slickedit plugin into RD/z.  I have no opinion 
yet, but on the surface it is very close to the ISPF Editor.  Even the  
key is where it should be (now called Right CTRL, since the PC kids renamed the 
keys [sic]).

Thanks to all those who responded.  

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Wednesday, August 31, 2016 7:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

On 31/08/2016 6:38 PM, Scott Chapman wrote:
> On Wed, 31 Aug 2016 15:51:07 +0800, David Crayford  
> wrote:
>
>> Is anybody outside of IBMs customers still using Eclipse? I was under 
>> the impression that IntelliJ was the dominant force in the fat IDE 
>> space now. And you get the same editor and user experience no matter 
>> what language you're editing - Java, JSP, HTML/CSS, Javascript, PHP, 
>> Scala, C/C++, Actionscript etc. It also indexes the world so 
>> navigating around complex code bases is seamless. Now that's 
>> progress...
> Maybe a little off-topic but judging by the current questions on 
> StackOverflow, I'm going to say yes, plenty of people are using Eclipse for a 
> variety of projects and certainly not all of them can be IBM customers. Free 
> is a strong competitive advantage. Personally I use both Eclipse and 
> NetBeans, with a growing preference for NetBeans for most Java & web work, 
> but there's a few things that Eclipse does better. I've thought about giving 
> IntelliJ a try, but the free options generally work pretty well for me.


I was being a flippant Scott! Of course there are millions of Eclipse users out 
there. But word on the street is that IntelliJ is much better, especially it's 
code indexing engine. IntelliJ community edition is free which is pretty good 
if you're a Java/Android developer, and a whole lot more 
https://www.jetbrains.com/idea/features/editions_comparison_matrix.html. 
For modern web development using languages like Javascript/Node.js it seems the 
kids have gone back to the future and favor editors like Atom. 
The main complaint I see about Eclipse is that it's almost impossible to get a 
bug fixed quickly because core Eclipse has so few maintainers these days.


> Scott
>
> --
> 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
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: RD/z

[Brenton, Ren]

That is perfect.  The simple addition of a space after the continuation 
character.  Thank you very much.  

Now to play with the ENTER KEY mapping.

Yes the RD/z forum is good, but they don’t seem to have the ISPF (mainframe) 
heart and I really like this group of kindred spirits.

Thanks again,

Ren
Ext 1448


-Original Message-
From: William Alexander [mailto:walex...@us.ibm.com] 
Sent: Tuesday, August 30, 2016 7:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU; Brenton, Ren <ren.bren...@bkfs.com>
Subject: Re: RD/z

Hi Ren,
When using the LPEX editor in RDz if you want to stack commands put a space 
after the separator character ';' for example:
X ALL; F ALL XXX

Also if you want to map your Right Ctrl key for when you are inside the 
Emulator you can go to Window > Preferences > General > Keys > Host Connection 
Control Keys.   I am not sure about mapping it for when you are inside LPEX, I 
will have to fool around with Window > Preferences > General > Keys.

As was mentioned by someone else, you could try posting RDz 'how to' questions 
in the RDz Forum:
https://www.ibm.com/developerworks/community/forums/html/forum?id=----1131

Thanks,
Bill


The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: RD/z

[Brenton, Ren]

Timothy,

Naive question back: How would I know if I'm running with ISPF profile mode 
enabled?
Thanks for the IBM link  That is a good article.  I've not had time yet to 
study it in detail, but some of the items I did review were helpful.  
The registry tweak affects the entire PC, so I will pass on that, and here we 
do not have administrator rights on our own machine anyway.  (I guess they 
don't trust the Mainframers tweaking their own PCs.  Although I may try it on 
my home machine). 
The autohotkey solution looks good.  I will investigate that in further detail. 
 

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Timothy Sipples
Sent: Tuesday, August 30, 2016 12:47 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

Naive question: you're running with ISPF profile mode enabled, correct?

If you haven't reviewed this extremely detailed presentation by Jon Sayles yet, 
I recommend it:

http://www.ibm.com/developerworks/rational/cafe/attachments/3475-1-3361/RDz%20Workbench%20-%20for%20ISPF%20Developers.pdf

If you would like the Right Control key to act as the Enter key *systemwide*, 
you can do that with a Microsoft Windows Registry setting.
The free KeyTweak utility is one way to make such registry changes. Details
here:

http://www.pcworld.com/article/251949/keytweak.html
http://www.tucows.com/preview/327616/KeyTweak

Cautions: Before changing your registry, make a system restore point. Also, be 
sure that you don't need that Right Control key for any other use -- that 
everything else you run is satisfied if you use the Left Control key.
If you have to revert to default behavior you can, but systemwide means 
systemwide.

If you don't want something systemwide, then you can try AutoHotkey (also
free):

https://autohotkey.com


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA
E-Mail: sipp...@sg.ibm.com

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: RD/z

[Brenton, Ren]

David,  thanks, I will investigate the Slickedit plugin.  Sound like what I'm 
looking for.  I am curious about your statement: "It does have some differences 
that may be annoying though". 

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Tuesday, August 30, 2016 6:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

The Compuware COBOL editor is an OEM licensed Slickedit core plugin for 
Eclipse. That is a far better solution than stock RD/z which has a plethora of 
different editors for each different programming language. I use RD/z with the 
SE core plugin and have the same editor for C/C++, Java, HLASM, COBOL, PL/1, 
REXX, Lua etc, etc. IBM missed a trick there. 
Compuware were smart. If you want a decent editor then license one from a 
company that specializes in editors! Slickedit has an ISPF emulation mode which 
has the same primary commands and line commands that you would be used to in 
ISPF, and a color scheme that looks just like ISPF (black, red, turq and 
white). It does have some differences that may be annoying though.

IMO LPEX is very ordinary and stacks up very poorly when compared to modern 
editors.

Other than the RSE and code editing I have found very little to interest me in 
RD/z. I don't use the CICS tooling and most of the PDT plugins suck. Green 
screen SDSF is so much better than any GUI I've seen yet because it has a 
command line. I love command lines, best UI ever invented IMO. And there are 
tons of young kids smashing *nix shells that love them too :)



On 30/08/2016 6:35 PM, Brenton, Ren wrote:
> David,
>
> The RD/z 3270 emulator, is, as I stated before,  just that... a 3270 
> emulator.  It does not have the ability to leverage any of the RD/z niceties, 
> like LPEX, the COBOL Editor, not the Compuware COBOL Editor.   If it does, 
> please let me know how to invoke the RD/z features.
>
> Thanks
>
> Ren
> Ext 1448
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of David Crayford
> Sent: Monday, August 29, 2016 8:05 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: RD/z
>
> RD/z has a 3270 emulator built in. Why don't you just use that if you miss 
> ISPF so much?
>
>> On 30 Aug 2016, at 1:12 AM, Brenton, Ren <ren.bren...@bkfs.com> wrote:
>>
>> Yes, Gil is correct.  An ISPF Editor plugin for RD/z would be awesome.
>> I miss my labels, I miss stacking commands (with an ";" or a "3/4", 
>> as Gil uses).  Edit MACROS would be awesome.  Dialog Services, TB 
>> services, LMM services, not to mention TSO services.  (Did I mention 
>> CSR scroll?)
>>
>> I thought about seeing if I could get my copy of Tritus SPF to work, somehow 
>> under RD/z) but alas, after finding a 3.5 floppy drive, I found my floppy 
>> copy was corrupted.  (Bummer).  (I loved Tritus).
>>
>> Has anyone thought about trying to lash up WorkStation Connect to RD/z?  
>> That way the full complement of ISPF/TSO services would be supported?
>>
>> Ren
>> Ext 1448
>>
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>> On Behalf Of Paul Gilmartin
>> Sent: Monday, August 29, 2016 12:56 PM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: RD/z
>>
>>> On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:
>>>
>>> I'm not sure what's being asked for here. ISPF in batch is a 
>>> well-documented process. I have batch ISPF jobs that run daily. You don't 
>>> use separator characters. You write a Rexx that issues ISPF commands in 
>>> sequence. You can edit or use virtually any ISPF function--such as table 
>>> management--that's available interactively.
>> But batch isn't interactive.  I perceived the OP as wanting to use 
>> interactive (not batch) ISPF as a plug-in editor for RD/z.
>>
>> Does "don't use separator characters" mean that no character is sacrificed 
>> as a separator; than one can freely code such as:
>> address ISREDIT 'find a;b'
>> and not having the ";" (or any other character) being taken as a separator?
>>
>> -- gil
>>
>> -
>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to lists...@listserv.ua.edu with the message: INFO 
>> IBM-MAIN The information contained in this message is proprietary and/or 
>> confidential. If you are not the intended recipient, please: (i) delete the 
>> message and all copies; (ii) do not disclose, distrib

Re: RD/z

[Brenton, Ren]

David,

The RD/z 3270 emulator, is, as I stated before,  just that... a 3270 emulator.  
It does not have the ability to leverage any of the RD/z niceties, like LPEX, 
the COBOL Editor, not the Compuware COBOL Editor.   If it does, please let me 
know how to invoke the RD/z features.  

Thanks

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Monday, August 29, 2016 8:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

RD/z has a 3270 emulator built in. Why don't you just use that if you miss ISPF 
so much?

> On 30 Aug 2016, at 1:12 AM, Brenton, Ren <ren.bren...@bkfs.com> wrote:
> 
> Yes, Gil is correct.  An ISPF Editor plugin for RD/z would be awesome.  
> I miss my labels, I miss stacking commands (with an ";" or a "3/4", as 
> Gil uses).  Edit MACROS would be awesome.  Dialog Services, TB 
> services, LMM services, not to mention TSO services.  (Did I mention 
> CSR scroll?)
> 
> I thought about seeing if I could get my copy of Tritus SPF to work, somehow 
> under RD/z) but alas, after finding a 3.5 floppy drive, I found my floppy 
> copy was corrupted.  (Bummer).  (I loved Tritus). 
> 
> Has anyone thought about trying to lash up WorkStation Connect to RD/z?  That 
> way the full complement of ISPF/TSO services would be supported? 
> 
> Ren
> Ext 1448
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Paul Gilmartin
> Sent: Monday, August 29, 2016 12:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: RD/z
> 
>> On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:
>> 
>> I'm not sure what's being asked for here. ISPF in batch is a well-documented 
>> process. I have batch ISPF jobs that run daily. You don't use separator 
>> characters. You write a Rexx that issues ISPF commands in sequence. You can 
>> edit or use virtually any ISPF function--such as table management--that's 
>> available interactively.
> But batch isn't interactive.  I perceived the OP as wanting to use 
> interactive (not batch) ISPF as a plug-in editor for RD/z.
> 
> Does "don't use separator characters" mean that no character is sacrificed as 
> a separator; than one can freely code such as:
>address ISREDIT 'find a;b'
> and not having the ";" (or any other character) being taken as a separator?
> 
> -- gil
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The 
> information contained in this message is proprietary and/or confidential. If 
> you are not the intended recipient, please: (i) delete the message and all 
> copies; (ii) do not disclose, distribute or use the message in any manner; 
> and (iii) notify the sender immediately. In addition, please be aware that 
> any message addressed to our domain is subject to archiving and review by 
> persons other than the intended recipient. Thank you.
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: RD/z

[Brenton, Ren]

Bernd,

I feel your pain. I have hundreds of Edit Macros (and REXX tools), that are at 
least 30 years old.  I use all the time.  I have a cursor sensitive FN (find 
next), which you can issue repeatedly, and at any point you can issue a BACK 
command to return to the last FN point.  (Of course I have FF, (Find First), 
FL, (Find last), all work with BACK.  That is just one example.  I have COBOL 
tools that will build a paragraph skeleton from a PERFORM statement (yes BACK 
will take you back to the PERFORM). And one that will construct a PIC clause 
based on your VALUE clause.  I have had cut and paste, long before it became an 
ISPF standard.  And long before we started using PCs to get to the mainframe.  
( Putting a PC between mainframers and the mainframe is/was IMHO, one of 
the worst ideas ever developed.  In the "good ol' days", when you lost 
connectivity to the mainframe, the operator knew it at the same time you did.  
Now days, it could be a problem with your PC, your emulator, the network, the 
server, or a whole plethora of places to look for the problem. ). 

Good luck with your evaluation.

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bernd Oppolzer
Sent: Monday, August 29, 2016 1:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

We have such discussions at the site where I'm currently working, too.

What I miss most of the time:

there are all sorts of source code generators, most of the time little home 
grown tools (written in REXX), for example: enter a name of a DB2 table, and 
then the tool gets the column definitions from the
DB2 catalog and builds Cursor Selects, structure definitions, Insert statements 
etc. in, say, PL/1 syntax, and inserts them directly in the source code at the 
desired place; often confirming with site-specific coding standards. They work 
with ISPF on the mainframe, in the "classical" TSO environment, of course.

Or another example: I wrote similar tools in C that create source code to help 
with XML validating (binary representations of XML schema definitions, to be 
included in PL/1 and C source code and to be used together with a special - 
very fast - XML parser).

What about those tools? Will RD/z be able to adopt them? They are mission 
critical for some of my customers.

When I asked such questions in the past in the RD/z evaluating team sessions 
(another customer), I got answers like: "this is not needed any more"
(which is not true, it speedens up my daily work) and "you didn't understand 
what RD/z is for" ... in the end, I was excluded from the RD/z evaluation team, 
because I asked such questions :-(

but: the RD/z project at this particular site did fail dramatically, much money 
was lost.

Now, two years later, another customer, the same story - I was chosen for RD/z 
evaluation again, because I have experience with the product :-)

not so much fun ...

Kind regards

Bernd


Am 29.08.2016 um 19:29 schrieb Jesse 1 Robinson:
> This should maybe be part of a different thread. Here's a tiny snippet of 
> ISPF edit in batch. I would not call it 'interactive', but it's context 
> sensitive, so results depend on the data being edited. There is no separator 
> character in play. These lines are all in a Rexx.
>
> ADDRESS ISPEXEC
> "ISREDIT MACRO"
> "VGET (cpldsn cplvolp cplvola)"
> ADDRESS ISREDIT
> "(memname) = MEMBER" /* current member name */ "C ALL 'DEST=TSAF' 
> 'DEST=HOLD3' "
> "C ALL 1 '//  ' '//*' " /* null cards to comments */
> "X ALL '//' 1" /* exclude JCL and comment lines */ "F FIRST NX 
> 'DEFINEDS' " /* find first or only define stmt */ "F NEXT  NX 
> 'DEFINEDS' " /* find next define stmt, if any */ IF RC = 0 THEN DO /* 
> multiple define stmts found */
>"DEL .ZCSR .ZLAST" /* delete extraneous lines */ END
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-302-7535 Office
> robin...@sce.com
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Paul Gilmartin
> Sent: Monday, August 29, 2016 9:56 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: RD/z
>
> On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:
>
>> I'm not sure what's being asked for here. ISPF in batch is a well-documented 
>> process. I have batch ISPF jobs that run daily. You don't use separator 
>> characters. You write a Rexx that issues ISPF commands in sequence. You can 
>> edit or use virtually any ISPF function--such as table management--that's 
>> available interactively.
>>   
> But batch isn't interactive.  I perceived the OP as wanting to use 
> interactive (not batch) ISPF as a plug-in editor for RD/z.
>
> Does "don't use separator characters" mean that no character is sacrificed as 
> a separator; than one can freely code such as:
>  address ISREDIT 'find a;b'
> and not having 

Re: RD/z

[Brenton, Ren]

Dave,

Yes, workstation based editing.  Opening the "Host connection emulator", is 
essentially opening a 3270 emulator, same as if I connected with TN3270, or 
Attachmate (or whatever).  All the bells and whistles of RD/z are lost to the 
emulator.  The purpose is to leverage all the RD/z niceties, while retaining 
the feel of the ISPF Editor. 


Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Monday, August 29, 2016 1:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

If you have connection to mainframe host from RDz, why not just right click on 
that connection name and choose "Host connection emulator"?   Or are you saying 
you want ISPF-like editor for workstation based editing?

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H p 616.653.8429 f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brenton, Ren
Sent: Monday, August 29, 2016 1:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

Yes, Gil is correct.  An ISPF Editor plugin for RD/z would be awesome.  I miss 
my labels, I miss stacking commands (with an ";" or a "3/4", as Gil uses).  
Edit MACROS would be awesome.  Dialog Services, TB services, LMM services, not 
to mention TSO services.  (Did I mention CSR scroll?)

I thought about seeing if I could get my copy of Tritus SPF to work, somehow 
under RD/z) but alas, after finding a 3.5 floppy drive, I found my floppy copy 
was corrupted.  (Bummer).  (I loved Tritus). 

Has anyone thought about trying to lash up WorkStation Connect to RD/z?  That 
way the full complement of ISPF/TSO services would be supported? 

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, August 29, 2016 12:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:

> I'm not sure what's being asked for here. ISPF in batch is a well-documented 
> process. I have batch ISPF jobs that run daily. You don't use separator 
> characters. You write a Rexx that issues ISPF commands in sequence. You can 
> edit or use virtually any ISPF function--such as table management--that's 
> available interactively. 
>  
But batch isn't interactive.  I perceived the OP as wanting to use interactive 
(not batch) ISPF as a plug-in editor for RD/z.

Does "don't use separator characters" mean that no character is sacrificed as a 
separator; than one can freely code such as:
address ISREDIT 'find a;b'
and not having the ";" (or any other character) being taken as a separator?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information 
contained in this message is proprietary and/or confidential. If you are not 
the intended recipient, please: (i) delete the message and all copies; (ii) do 
not disclose, distribute or use the message in any manner; and (iii) notify the 
sender immediately. In addition, please be aware that any message addressed to 
our domain is subject to archiving and review by persons other than the 
intended recipient. Thank you.

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


This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to

Re: RD/z

[Brenton, Ren]

Skip,

I think you are missing my point.  I'm not talking about batch at all.  (Yes, I 
know how to run a BATCH TSO/ISPF session, with Edit MACROS).  What I'm asking 
about specifically, is an ISPF (look alike) editor for RD/z.  LPEX seems to 
come the closest, but it still leave a lot to be desired. 

So I guess my real question is:  Does anyone have any RD/z LPEX plugins to ease 
the pain of going from ISPF to LPEX.

Thanks again to all.

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jesse 1 Robinson
Sent: Monday, August 29, 2016 1:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

This should maybe be part of a different thread. Here's a tiny snippet of ISPF 
edit in batch. I would not call it 'interactive', but it's context sensitive, 
so results depend on the data being edited. There is no separator character in 
play. These lines are all in a Rexx. 

ADDRESS ISPEXEC  
"ISREDIT MACRO"  
"VGET (cpldsn cplvolp cplvola)"  
ADDRESS ISREDIT  
"(memname) = MEMBER" /* current member name */   
"C ALL 'DEST=TSAF' 'DEST=HOLD3' "
"C ALL 1 '//  ' '//*' " /* null cards to comments */ 
"X ALL '//' 1" /* exclude JCL and comment lines */  
"F FIRST NX 'DEFINEDS' " /* find first or only define stmt */   
"F NEXT  NX 'DEFINEDS' " /* find next define stmt, if any */
IF RC = 0 THEN DO /* multiple define stmts found */ 
  "DEL .ZCSR .ZLAST" /* delete extraneous lines */  
END

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


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, August 29, 2016 9:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: RD/z

On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:

> I'm not sure what's being asked for here. ISPF in batch is a well-documented 
> process. I have batch ISPF jobs that run daily. You don't use separator 
> characters. You write a Rexx that issues ISPF commands in sequence. You can 
> edit or use virtually any ISPF function--such as table management--that's 
> available interactively. 
>  
But batch isn't interactive.  I perceived the OP as wanting to use interactive 
(not batch) ISPF as a plug-in editor for RD/z.

Does "don't use separator characters" mean that no character is sacrificed as a 
separator; than one can freely code such as:
address ISREDIT 'find a;b'
and not having the ";" (or any other character) being taken as a separator?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: RD/z

[Brenton, Ren]

Yes, Gil is correct.  An ISPF Editor plugin for RD/z would be awesome.  I miss 
my labels, I miss stacking commands (with an ";" or a "3/4", as Gil uses).  
Edit MACROS would be awesome.  Dialog Services, TB services, LMM services, not 
to mention TSO services.  (Did I mention CSR scroll?)

I thought about seeing if I could get my copy of Tritus SPF to work, somehow 
under RD/z) but alas, after finding a 3.5 floppy drive, I found my floppy copy 
was corrupted.  (Bummer).  (I loved Tritus). 

Has anyone thought about trying to lash up WorkStation Connect to RD/z?  That 
way the full complement of ISPF/TSO services would be supported? 

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, August 29, 2016 12:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

On 2016-08-29, at 10:35, Jesse 1 Robinson wrote:

> I'm not sure what's being asked for here. ISPF in batch is a well-documented 
> process. I have batch ISPF jobs that run daily. You don't use separator 
> characters. You write a Rexx that issues ISPF commands in sequence. You can 
> edit or use virtually any ISPF function--such as table management--that's 
> available interactively. 
>  
But batch isn't interactive.  I perceived the OP as wanting to use interactive 
(not batch) ISPF as a plug-in editor for RD/z.

Does "don't use separator characters" mean that no character is sacrificed as a 
separator; than one can freely code such as:
address ISREDIT 'find a;b'
and not having the ";" (or any other character) being taken as a separator?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: RD/z

[Brenton, Ren]

Thanks Lizette, Gil, and Paul. 


Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Monday, August 29, 2016 11:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RD/z

On Fri, 26 Aug 2016 15:23:42 +, Brenton, Ren wrote:

>Do any of you use the LPEX Editor under RD/z?  I've used the ISPF editor since 
>it was invented, (well, at least 40+ years), and trying to change editors is 
>somewhat disconcerting (not to mention just out right frustrating).  
> 
THe lack of a facility to launch the ISPF editor from an external command is a 
serious deficiency, IMO. I do not account OEDIT as an external command.

>I can't stack commands like: X ALL;F ALL XXX.  
>
I regard the separator character as a relic of an era when response time was 
painful; I avoid it.  And ";" is too useful as a text character to waste as a 
separator.  There's no character on my keyboard(s) that I deem expendable.  I 
have separator set to "¾", which I ignore.  The inability to protect the 
seperator character in a delimited string is a serious deficiency, IMO.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: RD/z

[Brenton, Ren]

No RD/z'ers here? Or is there an RD/z list server, on which I should be 
posting? 

Thanks. 

Ren
Ext 1448


-Original Message-
From: Brenton, Ren 
Sent: Friday, August 26, 2016 11:24 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: RD/z

Do any of you use the LPEX Editor under RD/z?  I've used the ISPF editor since 
it was invented, (well, at least 40+ years), and trying to change editors is 
somewhat disconcerting (not to mention just out right frustrating).  

I miss LABLES, (yes I know about bookmarks, but it's not the same).  
I can't stack commands like: X ALL;F ALL XXX.  
Scrolling is just not right, and I've always had Scroll set to CSR, so I can 
put my cursor on a field in the middle of the screen, hit PF 8 and the field is 
now at the top of the screen.  LPEX just scrolls a whole page at a time.  
And the biggie:  The right control key has always been , and the Enter 
key has always been Line Feed, (I can't help it that the PC kids, have miss 
labeled todays keyboards).  I've tried to remap to no avail.  

Does anyone have any "plug ins", or tricks and techniques, that they can share, 
to help this Old Mainframer, who is not very receptive in learning new tricks.  
  

Another question is how many of you ISPF shops are using RD/z? 

TIA,

Ren
Ext 1448
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

RD/z

[Brenton, Ren]

Do any of you use the LPEX Editor under RD/z?  I've used the ISPF editor since 
it was invented, (well, at least 40+ years), and trying to change editors is 
somewhat disconcerting (not to mention just out right frustrating).  

I miss LABLES, (yes I know about bookmarks, but it's not the same).  
I can't stack commands like: X ALL;F ALL XXX.  
Scrolling is just not right, and I've always had Scroll set to CSR, so I can 
put my cursor on a field in the middle of the screen, hit PF 8 and the field is 
now at the top of the screen.  LPEX just scrolls a whole page at a time.  
And the biggie:  The right control key has always been , and the Enter 
key has always been Line Feed, (I can't help it that the PC kids, have miss 
labeled todays keyboards).  I've tried to remap to no avail.  

Does anyone have any "plug ins", or tricks and techniques, that they can share, 
to help this Old Mainframer, who is not very receptive in learning new tricks.  
  

Another question is how many of you ISPF shops are using RD/z? 

TIA,

Ren
Ext 1448

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: Friday, August 26, 2016 9:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: WLM Question

It has been awhile since I have played with WLM.   :)

Is there a way in batch to extract a WLM service definition and perform a 
save/save as to a dataset that I can use for DR preprocessing purposes?

I am try to make sure we at least have one copy available at DR and this 
process would be part of a daily DR prep run.

A quick review of the fine manual did not yield positive results.

Bob

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

LIBRARIAN to PDS

[Brenton, Ren]

I'm trying to UNLOAD a Librarian Master to a PDS(E) using the following JCL.  
It works fine except:


1)  It requires UPDATE authority to the LIBR master, (which is, IMHO, stupid 
for a copy, and limits usability),

2)  It does not update the PDS stats.


Reading an old post from John McKown (2005), to get around the RACF problem, he 
says to try: // LABEL=(,,,IN), on the LIBR DD, MASTER.  I did and it doesn't.  
Any help will be appreciated:



//LIBR2PDS PROC LIBRIN='',LIBRARIAN DATASET NAME

// PDSOUT=''  PDS OUT NAME

//*

//LIBR EXEC PGM=AFOLIBR2,PARM='NRJS,NJTA'

//MASTER   DD DISP=SHR,DSN=

//OSJOBDD DSN=&,DISP=(,PASS),

//UNIT=SYSDA,

//SPACE=(CYL,(5,2),RLSE),

//DCB=(LRECL=80,RECFM=FB,DSORG=PS,BLKSIZE=6080)

//SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA

//SYSINDD DUMMY,BLKSIZE=80

//*

//UNLOAD   EXEC PGM=AFOLIBR2,PARM='NRJS,NJTA',REGION=0M

//LIST DD DUMMY

//MASTER   DD DISP=SHR,DSN=,LABEL=(,,,IN)

//OSJOBDD DSN=,DISP=SHR

//SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA

//SYSINDD DSN=&,DISP=(OLD,PASS)

//*

//  PEND

//*

//LIBR2PDS  EXEC LIBR2PDS,

//LIBRIN='my.libr.master',

//PDSOUT='my.preallcated.pdse'

//LIBR.SYSINDD *

-OPT GPO

-SEL NAME=,EXEC(R),TEMP,COPYDDOFF,CCOPYOFF

-EDIT /-INC/=INC/

-END

Someone else said to use the -EXTRACT function as opposed to the -SEL.  I 
substituted -EXTRACT for -SEL and got other errors:

GPO HAS READ THE FOLLOWING RECORD(S):

-EXTRACT NAME=,EXEC(R),TEMP,COPYDDOFF,CCOPYOFF
*** ERROR ***  INVALID GPO SYNTAX NEAR POSITION  16

Thanks for your anticipated help.

Ren Brenton
Black Knight Financial Services
601 Riverside Ave.,
Jacksonville, FL 32204
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: Rexx EXEC SHOWALC Panel Member

[Brenton, Ren]

 ¬= 5 THEN DO  
SET ZEDSMSG = (UNABLE TO BROWSE)  
IF  = 2 THEN DO 
  SET ZEDLMSG =   
END   
ELSE DO   
  SET ZEDLMSG = ( AN UNKNOWN ERROR HAS OCCURRED.) 
END   
ISPEXEC SETMSG MSG(ISRZ001)   
  END 
  ELSE DO 
SET DSORGHEADER = ()  
SET DSORGVALUE  = ()  
SET VOLHEADER   = ()  
SET VOLVALUE= ()  
SET DSORG   = (**  )  
SET VOLSER  = (**)
IF () = (--RECFM-LRECL-BLKSIZE-DSORG) +   
  THEN DO 
SET DSORG = (24:25,(()) 
END   
ELSE IF () = (--LRECL--DSORG-) THEN DO
  SET DSORG = (11:12,())
END   
IF () = (--VOLUMES--) THEN DO   
  SET VOLSER = (3:8,())   
END   
IF (() ¬= (PS)) AND (() ¬= (PO)) +
  THEN DO 
IF () = (**) THEN DO
  SET ZEDSMSG = (DATA SET HAS NO DSORG)   
END   
ELSE DO   
  SET ZEDSMSG = (DSORG IS '')   
END   
SET ZEDLMSG = (DATA SET ORGANIZATION MUST BE +
   'PS' OR 'PO'.) 
ISPEXEC SETMSG MSG(ISRZ001)   
END   
ELSE DO   
  ISPEXEC CONTROL ERRORS RETURN   
  IF  = (E) THEN DO   
ISPEXEC EDIT DATASET('') VOLUME() 
  END   
  ELSE DO   
ISPEXEC BROWSE DATASET('') VOLUME()   
  END   
  SET BROWSECC = 
  ISPEXEC CONTROL ERRORS CANCEL 
  IF  ¬= 0 THEN DO 
IF  = 12 THEN DO   
  SET ZEDSMSG = (EMPTY DATA SET)
  SET ZEDLMSG = (THIS DATA SET IS EMPTY.)   
END 
ELSE IF  = 16 THEN DO  
  SET ZEDSMSG = (NO MEMBERS)
  SET ZEDLMSG = (THIS PDS CONTAINS NO MEMBERS)  
END 
ELSE DO 
  SET ZEDSMSG = (UNABLE TO BROWSE)  
  SET ZEDLMSG = (RETURN CODE WAS )
END 
ISPEXEC SETMSG MSG(ISRZ001) 
  END   
END 
  END  
END
  END  
END
ISPEXEC TBEND TSODD
   
ISPEXEC LIBDEF ISPPLIB 
   
EXIT CODE(0)   

Good luck.  Of course you can always use TSO ISRDDN. :-)

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: Tuesday, May 03, 2016 2:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx EXEC SHOWALC Panel Member

Now that we have the panel, I'm missing the EXEC!  :-)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brenton, Ren
Sent: Tuesday, May 03, 2016 1:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx EXEC SHOWALC Panel Memeber

Here is the panel we have for SHOWALC:

)ATTR FORMAT(MIX)
  @ TYPE(OUTPUT) INTENS(LOW)  CAPS(OFF)
  ! TYPE(INPUT)  INTENS(HIGH) CAPS(ON) PAD(_) )BODY
+SHOWALC --%CURRENT TSO DATASE

Re: Rexx EXEC SHOWALC Panel Memeber

[Brenton, Ren]

Here is the panel we have for SHOWALC:

)ATTR FORMAT(MIX)
  @ TYPE(OUTPUT) INTENS(LOW)  CAPS(OFF)
  ! TYPE(INPUT)  INTENS(HIGH) CAPS(ON) PAD(_)
)BODY
+SHOWALC --%CURRENT TSO DATASET ALLOCATIONS+---
+ 
%COMMAND ===>_ZCMD%SCROLL%===>_VSVS
+
%SEL   DD NAMEDATASET NAMES IN ORDER OF CONCATENATIONDISPOSITION
+---      -----
)MODEL
 !X+  @SDDNAME   @SDSN  @SDISP
)INIT
   = ' '
  IF ( = '')
 = 'PAGE'
)REINIT
)PROC
  IF ( ¬= )
 = 
  VPUT (VSVS) PROFILE
)END


Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of George Rodriguez
Sent: Tuesday, May 03, 2016 9:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rexx EXEC SHOWALC Panel Memeber

Is there someone that knows anything about this EXEC? I'm missing the panel 
member for the EXEC.

*George Rodriguez*
*Specialist II - IT Solutions*
*IT Enterprise Applications*
*PX - 47652*
*(561) 357-7652 (office)*
*(954) 415-7586 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-251*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Eight Consecutive Years*

--


*Disclaimer: *Under Florida law, e-mail addresses are public records. If you do 
not want your e-mail address released in response to a public records request, 
do not send electronic mail to this entity. Instead, contact this office by 
phone or in writing.


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

The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: List user's

[Brenton, Ren]

I use CLOCK, which I got from the Share Tape, (I think).  I have a REXX wrapped 
around it that makes it easier to launch, and put in the command table, (I call 
it PAUSE).  What CLOCK does, once invoked, is just run and run and displays a 
clock, until you hit PF3.  I just looked and unfortunately have misplaced the 
source for CLOCK, but like I stated above, I think you can find it on the Share 
Tape.

Ren
Ext 1448

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, April 15, 2016 10:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: List user's

Sorry about topic drift, but ...

Rugen, Len wrote:

>When TSO accounts were available to nearly anyone in a University environment, 
>even with idle time enforcement, some users would take measures to circumvent 
>such timeout, so I often had multi-day sessions. 

IEFUTL can fix that, but AFAIK, not always because of above measures. (based on 
my failing memory about ancient discussions about 'how really to bypass 322 
abend fun in TSO'. )

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: How to find where a module has been dynamically loaded from?

[Brenton, Ren]

The LINKLIST is the LINKLIST, regardless if you are processing in BATCH, or 
TSO/ISPF.  So if you fire up ISRDDN from TSO, you should be able to find your 
module, and it should be loaded from the same place in your batch job.

And, although I've never tried it, you should be able to invoke ISRDDN from a 
batch TSO session as well.

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, April 05, 2016 11:46 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to find where a module has been dynamically loaded from?

On Tue, 5 Apr 2016 08:45:14 -0500, Elardus Engelbrecht wrote:
>
>In batch job or in a session? If in TSO, you already got the answer from Ren 
>Brenton about ISRDDN.
> 
Can ISRDDN be invoked in batch?  It's a shame if so useful a facility is 
available only from a TSO LOGON.  (I can run ISPF in batch, with restrictions.)

Either way, you need to replicate your TASKLIB, STEPLIB, JOBLIB, LINKLIST 
search order.
That chore is manageable because ISRDDN MEMBER returns all candidates; you need 
only choose the most promising one.  In the worst case, a child task can 
allocate an unknown TASKLIB before LOADing the grandchild module.  That 
requires more detective work.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: How to find where a module has been dynamically loaded from?

[Brenton, Ren]

Did you try:
TSO ISRDDN LINKLIST
Then member xxx

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Griffiths1
Sent: Tuesday, April 05, 2016 9:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How to find where a module has been dynamically loaded from?

Hi, I've got a module which has been dynamically loaded but I'm not sure where 
from. I can override in the STEPLIB but because it gets loaded even when the 
STEPLIB entry isn't there I'd like to discover where this other copy is coming 
from. Our LNKLST is rather large and I'd rather not manually search every one 
of them.

So I just wondered if there is an easy way to search the default search order 
for a module? Or is there some trace that I can turn on that will appear in the 
job output, similar to "-verbose:class" in Java?

Cheers,

Dave Griffiths

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: CICS (from Batch)

[Brenton, Ren]

Thank you all who replied.  

Not being real CICS savvy, I elected to go with an MVS Console Modify command: 
F region,tran_id tran_data.

I'm using the a REXX Exec, that uses CONSOLE ACTIVATE, etc., to issue the 
command and return the result back into an ISPF Edit session, where, using an 
Edit MACRO, I will parse out the desired information.  

The only problem with this that my typical user (application developers and 
Business Analysts) do not have Console Authority.   However, with the help of 
Console Automation, we are going to write a rule, that if the submitter does 
not have Console Authority, but the command issued is a modify with a specific 
Tran_Id, then allow it to process.

Still waiting on the Automation team to write the rule, but it theory, this 
should work.

Again, thanks for your suggestions.

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Leopold Strauss
Sent: Thursday, March 17, 2016 8:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CICS (from Batch)

There exists an external CICS-interface ( EXCI).

infos in  'External Interfaces Guide' of the CICS-TS-version, which you are 
using.


On 17.03.2016 12:39, Brenton, Ren wrote:
> CICS Gurus,
>
> I have a requirement to determine, from batch, if a program has been "NEW 
> COPIED" in a specific CICS region.  We have a CICS Tran that will display the 
> information, (i.e. date/time stamp), which is what I need to compare to the 
> link date/time of the first (matching) module in the LOADLIB concatenation.  
> Our CICS Tran actually calls:
>
> EXEC  CICS INQUIRE PROGRAM(PRGNM) LOADPOINT(R3) ENTRYPOINT(R4)
>LANGDEDUCED(LANGCVDA) LENGTH(PGMSIZE)
>PROGTYPE(PGMTYPE) USECOUNT(USECNT) RESCOUNT(RESCNT)
>STATUS(PPTCVDA) COBOLTYPE(COBTYPE)
>RESP (RESPONE) RESP2 (RESPTWO)
>
> Then it loads the address from LOADPT into register 1 and bumps off of it 
> X'88' (136 bytes) and moves 20 bytes.
>
>
> CKCOBLNG CLI   LANGCVDA+3,151  COBOL ?  (97)
>   BNE   CKPLI   NO
>   MVC   LANGO,=C'COB'
>   CLI   LOADSW,255  IS THERE A LOAD MODULE? (FF)
>   BENOLOAD
>   CLI   ENTRYPT,255 VALID ADDRESS?
>   BECKCOB3   NO
>   L R1,LOADPT  PLUG IN COMPILE DATE/TIME
>   CLI   COBTYPE+3,151   VS COBOL? (97)
>   BNE   CKCOB2  NO
>   MVC   CCDO(20),X'88'(R1)
>
> Giving me the date/time stamp.  But this, of course, only works in the CICS 
> Region.
>
> Does anyone have any thoughts on how to accomplish this from batch?
>
> TIA,
>
> PS, Go easy on me, as I have a tough time even spelling C I C S, let alone 
> doing much in it.  And if there is a different list server on which I should 
> be asking this question (like CICS), I apologize and ask for their address.  
> Thanks again,
>
> Ren Brenton
> MSP Optimization
> Black Knight Financial Services
> 601 Riverside Ave.,
> Jacksonville, FL 32204
> __
> O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807
> ren.bren...@bkfs.com<mailto:ren.bren...@bkfs.com> || 
> www.BKFS.com<http://www.bkfs.com/>
>
>
> The information contained in this message is proprietary and/or confidential. 
> If you are not the intended recipient, please: (i) delete the message and all 
> copies; (ii) do not disclose, distribute or use the message in any manner; 
> and (iii) notify the sender immediately. In addition, please be aware that 
> any message addressed to our domain is subject to archiving and review by 
> persons other than the intended recipient. Thank you.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>


-- 
Mit freundlichen Gruessen / Kind Regards,
Leopold Strauss, Team DEV-zOS, T: +43-2236-27551-331

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: CICS (from Batch)

[Brenton, Ren]

Cool, thank you.

I know how to fire up a console in REXX, but I'm not sure what the command 
would be to start the transaction.  

In CICS, I just issue PGMD and from the resultant screen, I can enter the 
program name, (or the TRAN), and it pops back the date/time of the module.  
Presumable, the program that gets invoked from the PGMD transaction, would need 
to be modified to accept the program name upon invocation, but other than 
that... 

What would the console command look like?

Thanks again,

Now to investigate EXCI thanks for the leads.  

Ren
Ext 1448


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barkow, Eileen
Sent: Thursday, March 17, 2016 8:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CICS (from Batch)

You can invoke the CICS transaction from the MVS console, either manually or by 
automation or other means.
The console running the transaction would have to be defined to CICS and 
appropriate authority given.
Check the log msgs to find out which console is being used.
If the program output goes to a terminal, then the output will go back to the 
console.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Brenton, Ren
Sent: Thursday, March 17, 2016 7:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: CICS (from Batch)

CICS Gurus,

I have a requirement to determine, from batch, if a program has been "NEW 
COPIED" in a specific CICS region.  We have a CICS Tran that will display the 
information, (i.e. date/time stamp), which is what I need to compare to the 
link date/time of the first (matching) module in the LOADLIB concatenation.  
Our CICS Tran actually calls:

EXEC  CICS INQUIRE PROGRAM(PRGNM) LOADPOINT(R3) ENTRYPOINT(R4)
  LANGDEDUCED(LANGCVDA) LENGTH(PGMSIZE)
  PROGTYPE(PGMTYPE) USECOUNT(USECNT) RESCOUNT(RESCNT)
  STATUS(PPTCVDA) COBOLTYPE(COBTYPE)
  RESP (RESPONE) RESP2 (RESPTWO)

Then it loads the address from LOADPT into register 1 and bumps off of it X'88' 
(136 bytes) and moves 20 bytes.


CKCOBLNG CLI   LANGCVDA+3,151  COBOL ?  (97)
 BNE   CKPLI   NO
 MVC   LANGO,=C'COB'
 CLI   LOADSW,255  IS THERE A LOAD MODULE? (FF)
 BENOLOAD
 CLI   ENTRYPT,255 VALID ADDRESS?
 BECKCOB3   NO
 L R1,LOADPT  PLUG IN COMPILE DATE/TIME
 CLI   COBTYPE+3,151   VS COBOL? (97)
 BNE   CKCOB2  NO
 MVC   CCDO(20),X'88'(R1)

Giving me the date/time stamp.  But this, of course, only works in the CICS 
Region.

Does anyone have any thoughts on how to accomplish this from batch?

TIA,

PS, Go easy on me, as I have a tough time even spelling C I C S, let alone 
doing much in it.  And if there is a different list server on which I should be 
asking this question (like CICS), I apologize and ask for their address.  
Thanks again,

Ren Brenton
MSP Optimization
Black Knight Financial Services
601 Riverside Ave.,
Jacksonville, FL 32204
__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807 
ren.bren...@bkfs.com<mailto:ren.bren...@bkfs.com> || 
www.BKFS.com<http://www.bkfs.com/>


The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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



This e-mail, including any attachments, may be confidential, privileged or 
otherwise legally protected. It is intended only for the addressee. If you 
received this e-mail in error or from someone who was not authorized to send it 
to you, do not disseminate, copy or otherwise use this e-mail or its 
attachments. Please notify the sender immediately by replying to this e-mail 
and delete the e-mail from your system.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject t

CICS (from Batch)

[Brenton, Ren]

CICS Gurus,

I have a requirement to determine, from batch, if a program has been "NEW 
COPIED" in a specific CICS region.  We have a CICS Tran that will display the 
information, (i.e. date/time stamp), which is what I need to compare to the 
link date/time of the first (matching) module in the LOADLIB concatenation.  
Our CICS Tran actually calls:

EXEC  CICS INQUIRE PROGRAM(PRGNM) LOADPOINT(R3) ENTRYPOINT(R4)
  LANGDEDUCED(LANGCVDA) LENGTH(PGMSIZE)
  PROGTYPE(PGMTYPE) USECOUNT(USECNT) RESCOUNT(RESCNT)
  STATUS(PPTCVDA) COBOLTYPE(COBTYPE)
  RESP (RESPONE) RESP2 (RESPTWO)

Then it loads the address from LOADPT into register 1 and bumps off of it X'88' 
(136 bytes) and moves 20 bytes.


CKCOBLNG CLI   LANGCVDA+3,151  COBOL ?  (97)
 BNE   CKPLI   NO
 MVC   LANGO,=C'COB'
 CLI   LOADSW,255  IS THERE A LOAD MODULE? (FF)
 BENOLOAD
 CLI   ENTRYPT,255 VALID ADDRESS?
 BECKCOB3   NO
 L R1,LOADPT  PLUG IN COMPILE DATE/TIME
 CLI   COBTYPE+3,151   VS COBOL? (97)
 BNE   CKCOB2  NO
 MVC   CCDO(20),X'88'(R1)

Giving me the date/time stamp.  But this, of course, only works in the CICS 
Region.

Does anyone have any thoughts on how to accomplish this from batch?

TIA,

PS, Go easy on me, as I have a tough time even spelling C I C S, let alone 
doing much in it.  And if there is a different list server on which I should be 
asking this question (like CICS), I apologize and ask for their address.  
Thanks again,

Ren Brenton
MSP Optimization
Black Knight Financial Services
601 Riverside Ave.,
Jacksonville, FL 32204
__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807
ren.bren...@bkfs.com || 
www.BKFS.com


The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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

Re: Deleting all members of a pds

[Brenton, Ren]

Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)"   
Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)" 
Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" 
Do While cc = 0   
   Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ"   
   cc = rc
   Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"  
   cc = rc
End   
Address "ISPEXEC" "LMCLOSE DATAID("fdtid")"   
Address "ISPEXEC" "LMFREE DATAID("fdtid")"

Ren
Ext 1448

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, November 20, 2015 7:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Re: Deleting all members of a pds

Peter Hunkeler wrote:

>>(Had you come to SHARE, you might have known that--hint, hint. ;-)

>Re: hint, hint, John, would you find some time to convince our upper level 
>management of many companies of the value of SHARE, etc?

Hint, hint - the rarity of money beats the value of SHARE by a full knock-out...

>Sorry, could not resist.

Neither me. ;-)

Groete / Greetings
Elardus Engelbrecht

PS: I know it is good to attend the SHARE in the sense you get information way 
before others and thus getting an advantage.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: Deleting all members of a pds

[Brenton, Ren]

Forgot the initial CC = 0 line some where before line 4

Ren
Ext 1448

-Original Message-
From: Brenton, Ren 
Sent: Friday, November 20, 2015 9:37 AM
To: 'IBM Mainframe Discussion List' <IBM-MAIN@LISTSERV.UA.EDU>
Subject: Re: Deleting all members of a pds

Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)"   
Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)" 
Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" 
Do While cc = 0   
   Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ"   
   cc = rc
   Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"  
   cc = rc
End   
Address "ISPEXEC" "LMCLOSE DATAID("fdtid")"   
Address "ISPEXEC" "LMFREE DATAID("fdtid")"

Ren
Ext 1448

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, November 20, 2015 7:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Re: Deleting all members of a pds

Peter Hunkeler wrote:

>>(Had you come to SHARE, you might have known that--hint, hint. ;-)

>Re: hint, hint, John, would you find some time to convince our upper level 
>management of many companies of the value of SHARE, etc?

Hint, hint - the rarity of money beats the value of SHARE by a full knock-out...

>Sorry, could not resist.

Neither me. ;-)

Groete / Greetings
Elardus Engelbrecht

PS: I know it is good to attend the SHARE in the sense you get information way 
before others and thus getting an advantage.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

SDSF and Carriage Control

[Brenton, Ren]

Back in 2000, someone, (Kriss Davis ), posed this question, (same subject as 
above),  but at that time there was no answer.  I was wondering, in the 15 
years that have passed, if IBM has developed a solution, or perhaps someone has 
written a REXX to accomplish.

Here is the original post:

Kriss Davis wrote:

snip

 I have been through the SDSF manuals on the web, and just don't see a
 parameter or option to set to allow the carriage control characters to be
 emulated in the display.

/snip

I have a user that would like to see a true print image, based on carriage 
control.  That is: double, or triple spaced, and padded out to 66 lines, (or 
whatever), with the cc info, (column 1), not displayed.

I don't recall any command in ISPF (or SDSF), that will accommodate such 
actions.

Any thoughts?

TIA,

Ren Brenton
MSP Optimization
Black Knight Financial Services
601 Riverside Ave.,
Jacksonville, FL 32204
__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807
ren.bren...@bkfs.commailto:ren.bren...@bkfs.com || 
www.BKFS.comhttp://www.bkfs.com/


The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.

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