Re: ispf , way to achieve the last ispf msgid from rexx

[Weizman arbel]

In this case it is a edit macro ,
But I need it in any ispf environment.

the command MSGID from ispcmds ( SELECT PGM(ISPOMI)  )
Doing it ...


On Thu, 11 May 2023 12:06:50 -0400, Mike Shaw  wrote:

>Weizman,
>
>What is the context in which your REXX exec is executing? Is it executing
>as an ISPF edit macro, or in some other context?
>
>Mike Shaw
>MVS/QuickRef Support Group
>Chicago-Soft, Ltd.
>
>
>
>On Thu, May 11, 2023, 1:23 AM Weizman arbel  wrote:
>
>> Hello  ,
>>
>> from rexx
>> Which command / way to achieve the last ispf msgid
>>
>> example:
>> The result of the command  msgid
>> ' The message ID of the last message was "ISRE017 " '
>>
>> I would like to achieve the  "ISRE017"
>> from rexx
>>
>>
>> thanks,
>>weizman
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: ispf , way to achieve the last ispf msgid from rexx

[Weizman arbel]

>Have you looked at ZERRMSG, ZERRSM, and ZERRL?
It takes an effect when there is an error/message
And it doesn't return
the last MSGID. 
MSGID Includes the last message code (code-id)
for example: after save command Inside edit dataset the message is  "Data set 
saved"   the msgid="ISRE017 " 
I would like the message code "ISRE017 "




On Thu, 11 May 2023 10:10:18 +, Seymour J Metz  wrote:

>Have you looked at ZERRMSG, ZERRSM, and ZERRL?
>
>
>--
>Shmuel (Seymour J.) Metz
>http://mason.gmu.edu/~smetz3
>
>
>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>Weizman arbel [wwar...@gmail.com]
>Sent: Thursday, May 11, 2023 1:23 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: ispf , way to achieve the last ispf msgid from rexx
>
>Hello  ,
>
>from rexx
>Which command / way to achieve the last ispf msgid
>
>example:
>The result of the command  msgid
>' The message ID of the last message was "ISRE017 " '
>
>I would like to achieve the  "ISRE017"
>from rexx
>
>
>thanks,
>   weizman
>
>--
>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

ispf , way to achieve the last ispf msgid from rexx

[Weizman arbel]

Hello  ,

from rexx 
Which command / way to achieve the last ispf msgid 

example:
The result of the command  msgid
' The message ID of the last message was "ISRE017 " '

I would like to achieve the  "ISRE017"
from rexx


thanks,
   weizman

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

Re: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

>> address ispexec
>> ZCMD = 'my-text'
>> "DISPLAY PANEL()"

I knew about this possibility from the beginning
The problem you can not
DISPLAY PANEL 
every panel
for example
SYS1.ISP.SISPPENU(ISREDDE2)

RETRIEVE , RETP , RETF
Use of another technique
Maybe  STACK
queue 'my-text'
And at the end of program the string going out




On Thu, 6 Jan 2022 14:28:19 +0200, Itschak Mugzach  
wrote:

>Yap. ZCMD is the IIBM default for the command line. I must say that it was
>hard to understand that this is what you wanted. Happy it worked for you.
>
>ITschak
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
>On Thu, Jan 6, 2022 at 2:07 PM Weizman arbel  wrote:
>
>> >)init section of the panel, set ZCMd = x, where x was set as previpusly
>> It's not my panel
>>
>>
>> this code do it :
>>
>> address ispexec
>> ZCMD = 'my-text'
>> "DISPLAY PANEL()"
>>
>> If the panel contains the variable
>> ZCMD
>>
>>
>>
>> On Thu, 6 Jan 2022 13:50:05 +0200, Itschak Mugzach <
>> i_mugz...@securiteam.co.il> wrote:
>>
>> >So, you you want to populate the command field of the panel? If so, in the
>> >)init section of the panel, set ZCMd = x, where x was set as previpusly
>> >explained.
>> >
>> >ITschak
>> >
>> >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>> >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>> >and IBM I **|  *
>> >
>> >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404
>> **|*
>> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>> >
>> >
>> >
>> >
>> >
>> >On Thu, Jan 6, 2022 at 1:34 PM Weizman arbel  wrote:
>> >
>> >> >Then again, you still haven't answered the fundamental question: WHY DO
>> >> YOU
>> >> >WANT TO DO THIS?
>> >>
>> >> In several situations I want to prepare/offer the user command
>> >> after he exeute my rexx.
>> >> I don't want to use a message option
>> >>
>> >> In a similar case IBMDSC (spufy)
>> >> after global find (g f 'abc') in member list ,
>> >> Suggests the command f 'abc' you were looking for
>> >> When you go into the member
>> >> ( I guess there is done differently Because this is their panel )
>> >> But that's the idea
>> >>
>> >> I know it's possible A fact that
>> >> RETRIEVE , RETP , RETF
>> >> Do so.
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> On Thu, 6 Jan 2022 12:58:38 +, Robert Prins <
>> robert.ah.pr...@gmail.com>
>> >> wrote:
>> >>
>> >> >On Thu, 6 Jan 2022 at 09:40, Willy Jensen 
>> >> >wrote:
>> >> >
>> >> >> Long thread, not sure if this has been mentioned before.
>> >> >> The first input (or output field for that matter) will have a
>> variable
>> >> >> name associated with it, that is the variable name you use in the
>> >> >> assignment. Not X.
>> >> >>
>> >> >
>> >> >At long last a sensible answer...
>> >> >
>> >> >So unless the input field on all panels has the same name, you have to
>> >> >create a bug select statement to select the proper field based on the
>> name
>> >> >of the panel, or, as I do in my "EDITCLIP" macro <
>> >> >https://prino.neocities.org/zOS/editclip.exec.html>, you'll have to
>> read
>> >> >the actual panel and potentially modify it on-the-fly.
>> >> >
>> >> >Then again, you still haven't answered the fundamental question: WHY DO
>> >> YOU
>> >> >WANT TO DO THIS?
>> >> >
>> >> >Robert
>> >> >--
>> >> >Robert AH Prins
>> >> >robert(a)prino(d)org
>> >> >The hitchhiking grandfather <https://prino.neocities.org/index.html>
>> >> >Some REXX code for use on z/OS
>> >> ><https://prino.neocities.org/zOS/zOS-Tools.html>

Re: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

>)init section of the panel, set ZCMd = x, where x was set as previpusly
It's not my panel


this code do it :

address ispexec 
ZCMD = 'my-text'
"DISPLAY PANEL()"  

If the panel contains the variable
ZCMD



On Thu, 6 Jan 2022 13:50:05 +0200, Itschak Mugzach  
wrote:

>So, you you want to populate the command field of the panel? If so, in the
>)init section of the panel, set ZCMd = x, where x was set as previpusly
>explained.
>
>ITschak
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
>On Thu, Jan 6, 2022 at 1:34 PM Weizman arbel  wrote:
>
>> >Then again, you still haven't answered the fundamental question: WHY DO
>> YOU
>> >WANT TO DO THIS?
>>
>> In several situations I want to prepare/offer the user command
>> after he exeute my rexx.
>> I don't want to use a message option
>>
>> In a similar case IBMDSC (spufy)
>> after global find (g f 'abc') in member list ,
>> Suggests the command f 'abc' you were looking for
>> When you go into the member
>> ( I guess there is done differently Because this is their panel )
>> But that's the idea
>>
>> I know it's possible A fact that
>> RETRIEVE , RETP , RETF
>> Do so.
>>
>>
>>
>>
>>
>>
>> On Thu, 6 Jan 2022 12:58:38 +, Robert Prins 
>> wrote:
>>
>> >On Thu, 6 Jan 2022 at 09:40, Willy Jensen 
>> >wrote:
>> >
>> >> Long thread, not sure if this has been mentioned before.
>> >> The first input (or output field for that matter) will have a variable
>> >> name associated with it, that is the variable name you use in the
>> >> assignment. Not X.
>> >>
>> >
>> >At long last a sensible answer...
>> >
>> >So unless the input field on all panels has the same name, you have to
>> >create a bug select statement to select the proper field based on the name
>> >of the panel, or, as I do in my "EDITCLIP" macro <
>> >https://prino.neocities.org/zOS/editclip.exec.html>, you'll have to read
>> >the actual panel and potentially modify it on-the-fly.
>> >
>> >Then again, you still haven't answered the fundamental question: WHY DO
>> YOU
>> >WANT TO DO THIS?
>> >
>> >Robert
>> >--
>> >Robert AH Prins
>> >robert(a)prino(d)org
>> >The hitchhiking grandfather <https://prino.neocities.org/index.html>
>> >Some REXX code for use on z/OS
>> ><https://prino.neocities.org/zOS/zOS-Tools.html>
>> >
>> >--
>> >For IBM-MAIN subscribe / signoff / archive access instructions,
>> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>--
>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: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

>Then again, you still haven't answered the fundamental question: WHY DO YOU
>WANT TO DO THIS?

In several situations I want to prepare/offer the user command
after he exeute my rexx.
I don't want to use a message option

In a similar case IBMDSC (spufy)
after global find (g f 'abc') in member list ,
Suggests the command f 'abc' you were looking for
When you go into the member 
( I guess there is done differently Because this is their panel )
But that's the idea

I know it's possible A fact that
RETRIEVE , RETP , RETF 
Do so.






On Thu, 6 Jan 2022 12:58:38 +, Robert Prins  
wrote:

>On Thu, 6 Jan 2022 at 09:40, Willy Jensen 
>wrote:
>
>> Long thread, not sure if this has been mentioned before.
>> The first input (or output field for that matter) will have a variable
>> name associated with it, that is the variable name you use in the
>> assignment. Not X.
>>
>
>At long last a sensible answer...
>
>So unless the input field on all panels has the same name, you have to
>create a bug select statement to select the proper field based on the name
>of the panel, or, as I do in my "EDITCLIP" macro <
>https://prino.neocities.org/zOS/editclip.exec.html>, you'll have to read
>the actual panel and potentially modify it on-the-fly.
>
>Then again, you still haven't answered the fundamental question: WHY DO YOU
>WANT TO DO THIS?
>
>Robert
>--
>Robert AH Prins
>robert(a)prino(d)org
>The hitchhiking grandfather 
>Some REXX code for use on z/OS
>
>
>--
>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: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

If you mean to this
It does not work

 address ispexec 
 x = 'my text'   
 "vput X profile"




On Thu, 6 Jan 2022 10:24:27 +0200, Itschak Mugzach  
wrote:

>You better tell us what you are trying to achieve. If the text
>should retain over sessions, use vput 'x' profile.
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
>On Thu, Jan 6, 2022 at 9:37 AM Weizman arbel  wrote:
>
>> >I hope this is what you mean.
>> Hello, no,
>> Because it's for a specific panel
>> I need it for all panels
>> As   RETRIEVE , RETP , RETF   doing so
>>
>> Just bounce the text
>> On the current panel on it
>>
>> for example after command
>> tso xyzrexx
>> 'my-text' will appear on the input field panel
>>
>>
>> On Thu, 6 Jan 2022 18:15:50 +1100, Peter Vels 
>> wrote:
>>
>> >On Wed, 5 Jan 2022 at 19:16, Weizman arbel  wrote:
>> >
>> >> Hello ,
>> >>  How to do this from rexx
>> >> As   RETRIEVE , RETP , RETF   doing so
>> >>
>> >>
>> >> thanks ,
>> >>   weizman.
>> >>
>> >
>> >Try this:
>> >
>> >Rexx:
>> >
>> >/* Rexx */
>> >address ISPEXEC
>> >/* First, show panel with blank command line */
>> >'display panel(weizman)'
>> >/* Now change the value of the command line */
>> >wa = 'Can you see me?'
>> >'display panel(weizman)'
>> >/* Change it again */
>> >wa = 'Yes I can!'
>> >'display panel(weizman)'
>> >exit
>> >
>> >Panel:
>> >)ATTR
>> >)BODY CMD(WA)
>> > +Fun experiment
>> >+Command ===>_WA
>> >+
>> >+Hit ENTER again
>> >)INIT
>> >)PROC
>> >)END
>> >
>> >I hope this is what you mean.
>> >Regards,
>> >Peter
>> >
>> >--
>> >For IBM-MAIN subscribe / signoff / archive access instructions,
>> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

>I hope this is what you mean.
Hello, no,
Because it's for a specific panel
I need it for all panels
As   RETRIEVE , RETP , RETF   doing so

Just bounce the text
On the current panel on it

for example after command 
tso xyzrexx 
'my-text' will appear on the input field panel


On Thu, 6 Jan 2022 18:15:50 +1100, Peter Vels  wrote:

>On Wed, 5 Jan 2022 at 19:16, Weizman arbel  wrote:
>
>> Hello ,
>>  How to do this from rexx
>> As   RETRIEVE , RETP , RETF   doing so
>>
>>
>> thanks ,
>>   weizman.
>>
>
>Try this:
>
>Rexx:
>
>/* Rexx */
>address ISPEXEC
>/* First, show panel with blank command line */
>'display panel(weizman)'
>/* Now change the value of the command line */
>wa = 'Can you see me?'
>'display panel(weizman)'
>/* Change it again */
>wa = 'Yes I can!'
>'display panel(weizman)'
>exit
>
>Panel:
>)ATTR
>)BODY CMD(WA)
> +Fun experiment
>+Command ===>_WA
>+
>+Hit ENTER again
>)INIT
>)PROC
>)END
>
>I hope this is what you mean.
>Regards,
>Peter
>
>--
>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: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

I tried,
It does not do it.
'my text'   does not appear on the panel.

I also tried
address ispexec
x = 'my text'  
foo = 'X'  
'vput 'foo' shared'






On Wed, 5 Jan 2022 18:21:47 +, Seymour J Metz  wrote:

>address ISPEXEC
>x = 'my text'
>foo = 'X'
>VPUT 'foo' SHARED
>
>If NOVALUE or name conflict then quote VPUT and SHARED
>
>
>--
>Shmuel (Seymour J.) Metz
>http://mason.gmu.edu/~smetz3
>
>
>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>Weizman arbel [wwar...@gmail.com]
>Sent: Wednesday, January 5, 2022 6:52 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: ISPF, How to insert text to the first input field in the panel ?
>
>Hello, I tried
>I received an error message
>
>Variable not modifiable
>Variable 'Z' is reserved by the system.
>
>
>On Wed, 5 Jan 2022 10:18:37 +0200, Itschak Mugzach 
> wrote:
>
>>Z = �my text �
>>Address ispexec vput  x shared
>>
>>�� ��� ��, 5 � 2022 �-10:16 ��� Weizman arbel :
>>
>>> Hello ,
>>>  How to do this from rexx
>>> As   RETRIEVE , RETP , RETF   doing so
>>>
>>>
>>> thanks ,
>>>   weizman.
>>>
>>> --
>>> For IBM-MAIN subscribe / signoff / archive access instructions,
>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>>
>>--
>>
>>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>>and IBM I **|  *
>>
>>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>>*Skype**: ItschakMugzach **|* *Web**: 
>>http://secure-web.cisco.com/1E7Mo-omfhYZRQIHjSKb_kUmrW8kmU3OaKOxrVnO6Wme0XuD4HRu0a8aFqL20-JYuOrocVgm1Jx5CkdjhYdhLRnvDvpDOxvHASTJaJdf_Jn9InFqTAXM5vVX1FmP4zrgFUDir6ghMaATzbC_uU_0FftknAb4tZ7oxh_QR7-PvfVUFgE6QavsyOA2WMItn3d6hBtQrVwMygCuInxDahJ3aWEwkA0yDHXokaNepR_idzpF68N8lNZa9vaN-rPH5m_uT5eDeE0wiSnik4f9JXILYQ8m7Gb9lYfY1W_ew_t0rA9KJ193nBvmyb2hpp8kTQwmzjq3Mos8t4C33ukIL0Ho2fdI7O2aSLVxfk9Ws_pPPCcbqggFhSm_JPCF5qcnf7qs-ivbLaaI1lI_fLUpruTpXqPOCDD7Z7bUYY_0-3lRJcQ_oYHQ7E95WwSp3BGa4hdsI/http%3A%2F%2Fwww.Securiteam.co.il
>>  **|*
>>
>>--
>>For IBM-MAIN subscribe / signoff / archive access instructions,
>>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

If you mean

x = “my text “
Address ispexec vput  x shared

It does not do the job, of course




On Wed, 5 Jan 2022 13:53:49 +0200, Itschak Mugzach  
wrote:

>My original bar name was x, iPhone decided z. Z is the empty  variable used
>by iPad
>
>בתאריך יום ד׳, 5 בינו׳ 2022 ב-13:52 מאת Weizman arbel :
>
>> Hello, I tried
>> I received an error message
>>
>> Variable not modifiable
>> Variable 'Z' is reserved by the system.
>>
>>
>> On Wed, 5 Jan 2022 10:18:37 +0200, Itschak Mugzach <
>> i_mugz...@securiteam.co.il> wrote:
>>
>> >Z = “my text “
>> >Address ispexec vput  x shared
>> >
>> >בתאריך יום ד׳, 5 בינו׳ 2022 ב-10:16 מאת Weizman arbel > >:
>> >
>> >> Hello ,
>> >>  How to do this from rexx
>> >> As   RETRIEVE , RETP , RETF   doing so
>> >>
>> >>
>> >> thanks ,
>> >>   weizman.
>> >>
>> >> --
>> >> For IBM-MAIN subscribe / signoff / archive access instructions,
>> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> >>
>> >--
>> >
>> >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>> >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>> >and IBM I **|  *
>> >
>> >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404
>> **|*
>> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>> >
>> >--
>> >For IBM-MAIN subscribe / signoff / archive access instructions,
>> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>-- 
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>--
>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: ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

Hello, I tried
I received an error message

Variable not modifiable
Variable 'Z' is reserved by the system.


On Wed, 5 Jan 2022 10:18:37 +0200, Itschak Mugzach  
wrote:

>Z = “my text “
>Address ispexec vput  x shared
>
>בתאריך יום ד׳, 5 בינו׳ 2022 ב-10:16 מאת Weizman arbel :
>
>> Hello ,
>>  How to do this from rexx
>> As   RETRIEVE , RETP , RETF   doing so
>>
>>
>> thanks ,
>>   weizman.
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>-- 
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>--
>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

ISPF, How to insert text to the first input field in the panel ?

[Weizman arbel]

Hello ,
 How to do this from rexx
As   RETRIEVE , RETP , RETF   doing so


thanks ,
  weizman.

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

Re: how to copy entire pds to sequential file ?

[Weizman arbel]

thanks ,

i've already written a small rexx with "LMCOPY ..."
it's like 3.3
if the target file is  PS all the members are copied to one sequential file
if the target file is  PO all the members are copied separately

yor suggestion by FILEMGR is also excellent

thanks again
   weizman.



On Tue, 14 Dec 2021 09:42:27 -0600, Paul Gilmartin  wrote:

>On Tue, 14 Dec 2021 07:27:16 -0700, Sri h Kolusu wrote:
>>>
>>> i want to do this from batch.
>>>
>>
>>You can use IEPTPCH+SORT (to remove the carriage control and the header
>>records)  ...
>>
>Will that distinguish separator records generated  by  IEPTPCH from
>similar records that might exist as data within members?
>
>>...or if your shop has FILEMANAGER then you can use that to copy the
>>PDS to a sequential file.
>>
>>IEPTPCH+SORT solution
>>
>>//STEP0100 EXEC PGM=IEBPTPCH
>>//SYSPRINT DD SYSOUT=*
>>//SYSUT1   DD DISP=SHR,DSN=Your.PDS.to.be.copied
>>//SYSUT2   DD DSN=&SOURCE,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
>>//SYSINDD *
>>  PUNCH TYPORG=PO
>>//*
>>//STEP0200 EXEC PGM=SORT
>>//SYSOUT   DD SYSOUT=*
>>//SORTIN   DD DSN=&SOURCE,DISP=SHR
>>//SORTOUT  DD DSN=Your.output.Seq.file,
>>//DISP=(NEW,CATLG,DELETE),
>>//SPACE=(CYL,(X,Y),RLSE),
>>//RECFM=FB
>>//SYSINDD *
>>  OPTION COPY
>>  OMIT COND=(2,11,CH,EQ,C'MEMBER NAME')
>>  INREC BUILD=(2,80)
>>/*
>>
>>
>>File Manager Solution :
>>
>>//STEP0100 EXEC PGM=FILEMGR
>>//SYSPRINT DD SYSOUT=*
>>//DDIN DD DISP=SHR,DSN=Your.PDS.to.be.copied
>>//DDOUTDD DSN=Your.output.Seq.file,
>>//DISP=(NEW,CATLG,DELETE),
>>//SPACE=(CYL,(X,Y),RLSE)
>>//SYSINDD *
>>$$FILEM DSC MEMBER=*
>
>-- gil
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: how to copy entire pds to sequential file ?

[Weizman arbel]

SRCHFOR  ''
ENDED - RC=0028


SRCHFOR allows you to specify the members to be searched...
>
you can specify 
SELECT   MEM1,MEM2
but not set of members  like:
SELECT   MEM*



On Tue, 14 Dec 2021 13:05:26 +0200, Itschak Mugzach 
 wrote:

>Weizman,
>
>SRCHFOR allows you to specify the members to be searched...
>
>Best,
>ITschak
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
>On Tue, Dec 14, 2021 at 12:54 PM Weizman arbel  wrote:
>
>> thanks ,
>> i've already written a small rexx with "LMCOPY ..."
>> it's more flexible because i can set a set of members by parm (XYZ* ,X%Z*,
>> ...)
>>
>>
>> but your offer is interesting
>> thanks again.
>>
>>
>> On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach <
>> i_mugz...@securiteam.co.il> wrote:
>>
>> >The simplest way is to use searchfor with a space as a search argument.
>> See
>> >example below for batch, but it works well online (and does not require
>> >ISPF!).
>> >
>> >//SEARCH  EXEC PGM=ISRSUPC,
>> >//PARM=(SRCHCMP,
>> >//'ANYC')
>> >//NEWDD  DD DSN=My_Dsn,
>> >//  DISP=SHR
>> >//OUTDD  DD SYSOUT=(A)
>> >//SYSIN  DD *
>> >SRCHFOR  ' '
>> >
>> >best,
>> >ITschak
>> >
>> >*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>> >Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>> >and IBM I **|  *
>> >
>> >*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404
>> **|*
>> >*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>> >
>> >
>> >
>> >
>> >
>> >On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen > >
>> >wrote:
>> >
>> >> If you are ok with installing freeware then I suggest that you take a
>> look
>> >> at a couple of programs found at www.cbttape.org:
>> >> OFFLOAD in files 093 and 316, PDSPRINT in file 316.
>> >>
>> >> --
>> >> For IBM-MAIN subscribe / signoff / archive access instructions,
>> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> >>
>> >
>> >--
>> >For IBM-MAIN subscribe / signoff / archive access instructions,
>> >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: how to copy entire pds to sequential file ?

[Weizman arbel]

thanks ,
i've already written a small rexx with "LMCOPY ..."
it's more flexible because i can set a set of members by parm (XYZ* ,X%Z*, ...)


but your offer is interesting
thanks again.


On Tue, 14 Dec 2021 11:38:50 +0200, Itschak Mugzach 
 wrote:

>The simplest way is to use searchfor with a space as a search argument. See
>example below for batch, but it works well online (and does not require
>ISPF!).
>
>//SEARCH  EXEC PGM=ISRSUPC,
>//PARM=(SRCHCMP,
>//'ANYC')
>//NEWDD  DD DSN=My_Dsn,
>//  DISP=SHR
>//OUTDD  DD SYSOUT=(A)
>//SYSIN  DD *
>SRCHFOR  ' '
>
>best,
>ITschak
>
>*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
>Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
>and IBM I **|  *
>
>*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
>*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
>
>
>
>
>
>On Tue, Dec 14, 2021 at 11:32 AM Willy Jensen 
>wrote:
>
>> If you are ok with installing freeware then I suggest that you take a look
>> at a couple of programs found at www.cbttape.org:
>> OFFLOAD in files 093 and 316, PDSPRINT in file 316.
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: how to copy entire pds to sequential file ?

[Weizman arbel]

this can be problematic if the member data also contain MEMBER in the same 
position 

so i prefer to do it from rexx by LMCOPY



On Tue, 14 Dec 2021 17:18:56 +1100, Peter Vels  wrote:

>This:
>http://mainframe-tips-and-tricks.blogspot.com/2011/12/jcl-copy-all-members-from-pds-to.html
>does it in 2 steps using IEBPTPCH and then SORT to strip out the MEMBER
>NAME.
>
>On Tue, 14 Dec 2021 at 16:53, Weizman arbel  wrote:
>
>> hello ,
>>
>> i want to do this from batch.
>>
>> IEBPTPCH  (PUNCH TYPORG=PO)
>> add MEMBER NAME
>> in front of each member
>> and i want to prevent it.
>>
>> i did not find a way through IEBCOPY
>>
>> ( i know the way by rexx )
>>
>> thanks
>>
>>
>> --
>> 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

how to copy entire pds to sequential file ?

[Weizman arbel]

hello ,

i want to do this from batch.

IEBPTPCH  (PUNCH TYPORG=PO) 
add MEMBER NAME 
in front of each member 
and i want to prevent it.

i did not find a way through IEBCOPY

( i know the way by rexx )

thanks 


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

iebcopy problem copy load from pdse to pds

[Weizman arbel]

hello ,

There is a suggestion on how to do ?
It brings me back this error :

IEW2606S 4B39 MODULE INCORPORATES VERSION 3 PROGRAM OBJECT FEATURES AND CANNOT
BE SAVED IN LOAD MODULE FORMAT.


IEB1135I IEBCOPY  FMID HDZ2240  SERVICE LEVEL UJ00519  DATED 20190816 DFSMS 02.0
IEB1035I S172IEB1  IEBCOPY1 09:42:53 TUE 23 NOV 2021 PARM=''
  COPY  OUTDD=SYSUT2,INDD=((SYSUT1,R)),LIST=YES 
  SELECT MEMBER=(M10SNCOB)  
IEB1013I COPYING FROM PDSE  INDD=SYSUT1   VOL=TMD002 DSN=VMTF.LINKLIB   
IEB1014I   TO PDS  OUTDD=SYSUT2   VOL=USL003 DSN=S172.SYSL.ENDEVOR.V17R0
IGW01207E BINDER DETECTED AN ERROR WHILE PROCESSING MEMBER M10SNCOB 
.  BINDER RETURN CODE = X'000C' REASON CODE = X'83000422'   
IGW01550I 0 OF 1 SPECIFIED  MEMBERS WERE COPIED 
IEB1130W AN ERROR MESSAGE FROM FAMS PROCESSING APPEARS ABOVE -- DIAGNOSTIC INFOR
IEB151I JOB HAS TERMINATED WITH ERROR(S)
IEB147I END OF JOB - 4 WAS HIGHEST SEVERITY CODE   

thanks , weizman

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

Re: ispf edit macro "HX" line command

[Weizman arbel]

I remembered that
(:) prefix command line (primary command) can execute line command
Command ===> :hx
Command ===> :i
Command ===> :r
etc ...

https://www.ibm.com/docs/en/zos/2.1.0?topic=commands-line
You can enter edit line commands as primary commands on the command line by 
prefixing them with a colon (:) and placing the cursor on the target line. For 
example, if you enter :D3 on the command line and move your cursor to line 12 
of the file, the three lines 12, 13, and 14 are deleted from the file. This 
technique is normally used for PF key assignments.


address isredit
":HX"  
Does not work Because it is Not an edit command

How to push command to ZCMD ?

I tried

address ispexec
"control errors return"
Mycmd = ':HX'   
"DISPLAY COMMAND(Mycmd)"

It does not work

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

Re: ispf edit macro "HX" line command

[Weizman arbel]

>I do not understand your response, you asked;
I asked about  line commnad  

>ISREDIT HX .ZCSR
There was a suggestion
and my response was
that is a line command And it does not work.
Sorry for the misunderstanding

I did not know the option
"quote original message"
and It's tapping me to comment





On Thu, 2 Sep 2021 10:55:00 -0500, Carmen Vitullo  wrote:

>I do not understand your response, you asked;
>
>there is a way to execute  "HX"  line command
>from edit macro ?
>ISREDIT HX .ZCSR
>
>- is a line command
>
>now you are asking command line ?
>so
>ISREDIT (CMD) - 'HEX'
>
>Carmen
>
>On 9/2/2021 10:14 AM, Weizman arbel wrote:
>> ISREDIT HX .ZCSR  should work
>>
>> this is command line
>> and there is Does not exist HX in command line (the command is hex on / hex 
>> off)
>>
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>--
>/I am not bound to win, but I am bound to be true. I am not bound to
>succeed, but I am bound to live by the light that I have. I must stand
>with anybody that stands right, and stand with him while he is right,
>and part with him when he goes wrong. *Abraham Lincoln*/
>
>--
>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: is it possible to allocate two dd to same temp file ?

[Weizman arbel]

Fnames is very good solusion for sort
Because it is give me  a flexible way to allocate 
Diffferent dd from different screen at the same time.
( Rexx forground ).

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

Re: is it possible to allocate two dd to same temp file ?

[Weizman arbel]

Sort was just for example

I need many other cases to 
Release specific DD 
And continue with another

I am currently copying

The sort example helps me very much


thanks

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

Re: is it possible to allocate two dd to same temp file ?

[Weizman arbel]

about allocate two dd (sortout , DD2nd)
it is to save time/performens 
I am currently copying sortout to DD2nd
free sortout and continu with DD2nd


about HX
I just wanted to implement the command from edit macro
I know how to do this in indirect ways by code

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

Re: ispf edit macro "HX" line command

[Weizman arbel]

ISREDIT HX .ZCSR  should work

this is command line 
and there is Does not exist HX in command line (the command is hex on / hex off)

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

Re: ispf edit macro "HX" line command

[Weizman arbel]

So I understand it's impossible

execute "HX" line command from 

edit macro 

I know the way to do it myself in the code

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

Re: is it possible to allocate two dd to same temp file ?

[Weizman arbel]

i am want it from rexx foreground
"ALLOC F(SORTOUT) REUSE NEW RECFM(F B)",
" SPACE(2,2) CYL RELEASE DSO(PS) BLKSIZE(0)"

i am want to relese (free) sortout and
browse/use the temp file by 2nd dd

like
"ALLOC F(SORTOUT   dd2nd) REUSE NEW RECFM(F B)",
...

"FREE F(SORTOUT)"

browse the file by dd2nd

In the situation now I'm copying the SORTOUT to dd2nd
And it takes time for big file 

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

ispf edit macro "HX" line command

[Weizman arbel]

hi,
there is a way to execute  "HX"  line command 
from edit macro ?

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

is it possible to allocate two dd to same temp file ?

[Weizman arbel]

i want to free one of them (sortout) 
and browse the file from the second dd.
( At the moment i am alloc 2nd dd copy the first and free the first )
( I do not want a fixed file )


thanks
 weizman

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

Xmitip multi language characters problem

[Weizman arbel]

Hello ,
I am working in israeli bank
And have a problem with
Hebrew characters
When i am sending email
By xmitip.
Hebrew characters doesn't
Translate.
Any suggestion how to solve
This problem ?
(Where and how to change the
   Smtp translate characters table ?)

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