Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-18 Thread Nobuhiko Furuya

Hi Dale,

Thank you for your comments.
But as I reported in another mail, I can't recreate the problem now.
The reason is unknown.
If the problem happens again, I will try it.

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/18 11:21, Dale R. Smith wrote:

On Wed, 17 Aug 2022 10:54:16 +0900, Nobuhiko Furuya  wrote:


Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in
getmsg as follows.
But the following code gets errors as I reported.

ARG hsmcmd':'seconds                                    <- get wait
seconds as a parameter
hsmid = 'DFHSM'                                             <- set hsmid
address console "F "hsmid","hsmcmd    <- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

Try changing this line from:
ARG hsmcmd':'seconds
to
ARG hsmcmd':'seconds .

it's possible that the the parameter was entered with a trailing space and now 
it does not have a trailing space.  Try the original program with a trailing 
space, if it fails then try changing the line as I suggested and execute it 
again with a trailing space.  It should work correctly after the change.



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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Dale R. Smith
On Wed, 17 Aug 2022 10:54:16 +0900, Nobuhiko Furuya  wrote:

>Hi ALL,
>
>Thank you for your all suggestions.
>But my explanation seemed poor.
>What I would like to do is  specifying the wait time indirectly in
>getmsg as follows.
>But the following code gets errors as I reported.
>
>ARG hsmcmd':'seconds                                    <- get wait
>seconds as a parameter
>hsmid = 'DFHSM'                                             <- set hsmid
>address console "F "hsmid","hsmcmd    <- issue command
>msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds
>
>Of course when I specified the wait time directly as follows, it was OK.
>
>msghsm = getmsg('resp.','SOL','HSM',,20)
>
>Best regards,
>
>Nobuhiko Furuya(古谷信彦)
>V-SOL Inc.

Try changing this line from:
ARG hsmcmd':'seconds
to 
ARG hsmcmd':'seconds .

it's possible that the the parameter was entered with a trailing space and now 
it does not have a trailing space.  Try the original program with a trailing 
space, if it fails then try changing the line as I suggested and execute it 
again with a trailing space.  It should work correctly after the change.

-- 
Dale R. Smith 

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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Nobuhiko Furuya

Hi Shmuel,

Thank you for your comments.
As I reported in another mail, the problem disappeared. The reason is 
unknown.

I will try to use TRACE I when the problem happens again.

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/18 0:00, Seymour J Metz wrote:

What happened to 'CONSOLE ACTIVATE'? I don't believe that it worked correctly 
without that, regardless of how you coded getmsg.

Again, TRACE I is your friend.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in
getmsg as follows.
But the following code gets errors as I reported.

ARG hsmcmd':'seconds<- get wait
seconds as a parameter
hsmid = 'DFHSM' <- set hsmid
address console "F "hsmid","hsmcmd<- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:

On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:


Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dexpression-using-interpret-instructiondata=05%7C01%7Csmetz3%40gmu.edu%7Cba611a742b994e6d461d08da7ff373ce%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637962980844423734%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=veLyUq8PnkRIAurC7Hibz73ehYrzb1mePSfiMzSv8lo%3Dreserved=0


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: 
http://secure-web.cisco.com/1ac7hX8Wn6rc-3nk8Q9nCsTyPIQhH5DvT8Wup6Ld5tNLbCC_RBgOdbse-u1jN7G4T5_Oc6IqaW5SW48PdDkRVANXQw4mOKKbyLDGcRlhlCTOrc7nnqXMX8FczRUNVUtIdCKx-eanO6MFTqcn2jpOOjQ7swYuZTHkuUyePAqTSLrc-sWIwu87cyLMsv5gdOAc_y-uMUhM44mkjq6SWQo6VxcD5cFFLJjBPEYdLXWRvnpI9-QNX74LrXesOMPZ9k9tIDY21LaAWrq-VqhwJRUjCOy2417qCZlBOYFIPV8Jo53Iq3CA8uctZb7CJxSOg7g-f7z8WeAx3x9BF2JQ06fY_jMqnWLJVithmkLAGQ_s579k026S1MlVp85GiizsUgamislC6aQSQY2ZotLipgEbzzzjTV2C47IuwL2nuX5IB3LThUO6_n1fz-HHb3FhAbu82/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.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: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Nobuhiko Furuya

Hi Willy,

Thank you for your idea.
I believe "seconds" was entirely numeric.
After I insert your code, it was OK.
But even after I removed your code, it was also OK.
So the problem disappeared.
I'm very confused. There might be some garbages in the string.
Anyway I will try to diagnose if the problem happens again.

Best reagrds,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 21:17, Willy Jensen wrote:

You have the statement ARG hsmcmd':'seconds
Could it be that the seconds value is not entirely numeric?
Maybe do something like this:
  
  seconds=word(seconds 2,1)  /* set default =2 */

  if datatype(seconds)<>'NUM' then call error 'bad seconds value "'seconds"'"'

--
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 set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Seymour J Metz
What happened to 'CONSOLE ACTIVATE'? I don't believe that it worked correctly 
without that, regardless of how you coded getmsg.

Again, TRACE I is your friend.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in
getmsg as follows.
But the following code gets errors as I reported.

ARG hsmcmd':'seconds<- get wait
seconds as a parameter
hsmid = 'DFHSM' <- set hsmid
address console "F "hsmid","hsmcmd<- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:
> On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  
> wrote:
>
>> Thanks. But I can't find how to code it.
>> I would line to change time value depend on the logic.
>> How can I resolve this ?
> Are you trying to do something that requires the REXX "interpret" 
> instruction?  Is that what you mean?
>
> https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.ibm.com%2Fdocs%2Fen%2Fzos%2F2.4.0%3Ftopic%3Dexpression-using-interpret-instructiondata=05%7C01%7Csmetz3%40gmu.edu%7Cba611a742b994e6d461d08da7ff373ce%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637962980844423734%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7Csdata=veLyUq8PnkRIAurC7Hibz73ehYrzb1mePSfiMzSv8lo%3Dreserved=0
>
>
> Best Regards,
>
> Mark
> --
> Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
> ITIL v3 Foundation Certified
> mailto:m...@mzelden.com
> Mark's MVS Utilities: 
> http://secure-web.cisco.com/1ac7hX8Wn6rc-3nk8Q9nCsTyPIQhH5DvT8Wup6Ld5tNLbCC_RBgOdbse-u1jN7G4T5_Oc6IqaW5SW48PdDkRVANXQw4mOKKbyLDGcRlhlCTOrc7nnqXMX8FczRUNVUtIdCKx-eanO6MFTqcn2jpOOjQ7swYuZTHkuUyePAqTSLrc-sWIwu87cyLMsv5gdOAc_y-uMUhM44mkjq6SWQo6VxcD5cFFLJjBPEYdLXWRvnpI9-QNX74LrXesOMPZ9k9tIDY21LaAWrq-VqhwJRUjCOy2417qCZlBOYFIPV8Jo53Iq3CA8uctZb7CJxSOg7g-f7z8WeAx3x9BF2JQ06fY_jMqnWLJVithmkLAGQ_s579k026S1MlVp85GiizsUgamislC6aQSQY2ZotLipgEbzzzjTV2C47IuwL2nuX5IB3LThUO6_n1fz-HHb3FhAbu82/http%3A%2F%2Fwww.mzelden.com%2Fmvsutil.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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Willy Jensen
You have the statement ARG hsmcmd':'seconds  
Could it be that the seconds value is not entirely numeric?
Maybe do something like this:
 
 seconds=word(seconds 2,1)  /* set default =2 */
 if datatype(seconds)<>'NUM' then call error 'bad seconds value "'seconds"'"'

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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-17 Thread Willy Jensen
re "why do you recommend the REXX/SDSF API rather than TSO GETMSG"
I think it is simpler to use and saves one RACF definition (CONSOLE class).

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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Nobuhiko Furuya

Hi ALL,

Thank you for your all suggestions.
But my explanation seemed poor.
What I would like to do is  specifying the wait time indirectly in 
getmsg as follows.

But the following code gets errors as I reported.

ARG hsmcmd':'seconds                                    <- get wait 
seconds as a parameter

hsmid = 'DFHSM'                                             <- set hsmid
address console "F "hsmid","hsmcmd    <- issue command
msghsm = getmsg('resp.','SOL','HSM',,seconds)  <- wait the specified seconds

Of course when I specified the wait time directly as follows, it was OK.

msghsm = getmsg('resp.','SOL','HSM',,20)

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/17 5:32, Mark Zelden wrote:

On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:


Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://www.ibm.com/docs/en/zos/2.4.0?topic=expression-using-interpret-instruction


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Nobuhiko Furuya

Hi Willy,

Thank you for your suggestion.
I have confirmed that delay time(isfdeley) can be set from argue indirectly.
But why do you recommend the REXX/SDSF API rather than TSO GETMSG, i.e ?

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/16 21:22, Willy Jensen wrote:

In any case, I will strongly recommend that you use the REXX/SDSF API rather 
than TSO GETMSG, i.e.:

  /* Demo REXX/SDSF API system command */
  zz=isfcalls('ON')
  isfdelay=2  /* value for WAIT */
  Address SDSF ISFSLASH "'d prog,apf' (WAIT)"
  if rc<>0 then say 'Console failed rc' rc
  else do n=1 to isfulog.0
   say '->'isfulog.n
  end
  


--
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 set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Mark Zelden
On Tue, 16 Aug 2022 14:18:41 +0900, Nobuhiko Furuya  wrote:

>Thanks. But I can't find how to code it.
>I would line to change time value depend on the logic.
>How can I resolve this ?

Are you trying to do something that requires the REXX "interpret" instruction?  
Is that what you mean?

https://www.ibm.com/docs/en/zos/2.4.0?topic=expression-using-interpret-instruction


Best Regards,

Mark
--
Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS
ITIL v3 Foundation Certified
mailto:m...@mzelden.com
Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html

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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Willy Jensen
In any case, I will strongly recommend that you use the REXX/SDSF API rather 
than TSO GETMSG, i.e.:

 /* Demo REXX/SDSF API system command */
 zz=isfcalls('ON')  
 isfdelay=2  /* value for WAIT */
 Address SDSF ISFSLASH "'d prog,apf' (WAIT)"
 if rc<>0 then say 'Console failed rc' rc   
 else do n=1 to isfulog.0   
  say '->'isfulog.n 
 end


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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Seymour J Metz
The getmsg() is valid; the problem is before that.

You're not showing enough of your code to diagnose the problem. Include a trace 
i before the CONSOLE command.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Nobuhiko Furuya [furu...@v-sol.co.jp]
Sent: Tuesday, August 16, 2022 1:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to set time parameter in TSO/E REXX getmsg function

Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?
For example, when I coded as follows,

T=60
msghsm = getmsg('resp.','SOL','HSM',,T)

the following messages appeared.

IKJ55303I THE CONSOLE COMMAND HAS TERMINATED.+
IKJ55303I AN ERROR OCCURRED DURING CONSOLE INITIALIZATION.  THE MCSOPER
RETURN CODE WAS X'0004' AND THE REASON CODE WAS X''.
 25 *-* address console "CART HSM"
+++ RC(-3) +++
 31 *-* address console "F "hsmid","hsmcmd
+++ RC(-3) +++
IKJ55323I GETMSG PROCESSING HAS TERMINATED.  A CONSOLE SESSION IS NOT
ACTIVE.
IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/16 13:33, Seymour J Metz wrote:
> There is nothing special about getmsg; the time parameter can be any 
> expression that evaluates to a positive number.
>
> Note: specifying the CART in hexadecimal is certainly valid, but it makes the 
> code harder to read.
>
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Nobuhiko Furuya 
> Sent: Monday, August 15, 2022 9:54 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: How to set time parameter in TSO/E REXX getmsg function
>
> Hi all,
>
> Can we set variable time parameter in TSO/E REXX getmsg function ?
> We would like to specify wait time value from argue.
> But getmsg seems to accept only specific numeric seconds as follows.
>
> msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60)
>
> time
> the amount of time, in seconds, that GETMSG should wait, if the requested
> message has not yet been routed to the user's console. If you specify a time
> value and the time expires before the message is routed to the user's
> console, GETMSG does not retrieve the message. Otherwise, if the message
> is available before the time expires, GETMSG retrieves the message.
> If you do not specify time, GETMSG uses a time value of 0 seconds. If the
> message has not been routed to the user's console, GETMSG does not
> retrieve the message.
>
> Best regarss,
>
> Nobuhiko Furuya(古谷信彦)
> V-SOL Inc.
>
> --
> 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 set time parameter in TSO/E REXX getmsg function

2022-08-16 Thread Willy Jensen
You might be missing something. This is (one of) my TSO console pgms. The delay 
of 2 seconds could be a variaible.

/*  Issue command, receive response via the TSO CONSOLE commandrexx  */ 
   
  
 cons = userid()'C'   
 cart = 'C'right(time('s'),7,0)   
 parse arg cmd
 cc= XTSO("Console deactivate")   
 cc= XTSO("CONSOLE SYSCMD("cmd") CART("cart") NAME("cons")")  
 if cc>0 then do  
   say 'Console rc' cc
   if datatype($.0)='NUM' then do n=1 to $.0  
 say $.n  
   end
   Call close 20  
 end  
  
 Do cn=1 to 2/* #2 is sometimes needed to pick up all messages */ 
   cm.0=0 
   cc= GETMSG('CM.','SOL',cart,,2)
   if cc>4 then call close 8 "GETMSG error retrieving message, rc" cc 
   if cm.0=0 then leave   
   do cmsgi=1 to cm.0 
 say strip(cm.cmsgi,'t')  
   end
   if cm.0>1 then leave   
 End  
 call close 0 
  
Close:
 parse arg crc cmsg   
 crc=word(crc 0,1)
 if cmsg<>'' then call line cmsg  
 cc= XTSO("Console deactivate")   
 Exit crc 
XTSO: trace off; zz=outtrap(word(arg(2) '$.',1))  
address tso arg(1);zz=outtrap('off');xtsorc=rc;return rc 

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


Re: How to set time parameter in TSO/E REXX getmsg function

2022-08-15 Thread Nobuhiko Furuya

Thanks. But I can't find how to code it.
I would line to change time value depend on the logic.
How can I resolve this ?
For example, when I coded as follows,

T=60
msghsm = getmsg('resp.','SOL','HSM',,T)

the following messages appeared.

IKJ55303I THE CONSOLE COMMAND HAS TERMINATED.+
IKJ55303I AN ERROR OCCURRED DURING CONSOLE INITIALIZATION.  THE MCSOPER 
RETURN CODE WAS X'0004' AND THE REASON CODE WAS X''.

    25 *-* address console "CART HSM"
   +++ RC(-3) +++
    31 *-* address console "F "hsmid","hsmcmd
   +++ RC(-3) +++
IKJ55323I GETMSG PROCESSING HAS TERMINATED.  A CONSOLE SESSION IS NOT 
ACTIVE.

IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+

Best regards,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

On 2022/08/16 13:33, Seymour J Metz wrote:

There is nothing special about getmsg; the time parameter can be any expression 
that evaluates to a positive number.

Note: specifying the CART in hexadecimal is certainly valid, but it makes the 
code harder to read.


From: IBM Mainframe Discussion List  on behalf of Nobuhiko 
Furuya 
Sent: Monday, August 15, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How to set time parameter in TSO/E REXX getmsg function

Hi all,

Can we set variable time parameter in TSO/E REXX getmsg function ?
We would like to specify wait time value from argue.
But getmsg seems to accept only specific numeric seconds as follows.

msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60)

time
the amount of time, in seconds, that GETMSG should wait, if the requested
message has not yet been routed to the user's console. If you specify a time
value and the time expires before the message is routed to the user's
console, GETMSG does not retrieve the message. Otherwise, if the message
is available before the time expires, GETMSG retrieves the message.
If you do not specify time, GETMSG uses a time value of 0 seconds. If the
message has not been routed to the user's console, GETMSG does not
retrieve the message.

Best regarss,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

--
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 set time parameter in TSO/E REXX getmsg function

2022-08-15 Thread Seymour J Metz
There is nothing special about getmsg; the time parameter can be any expression 
that evaluates to a positive number.

Note: specifying the CART in hexadecimal is certainly valid, but it makes the 
code harder to read.


From: IBM Mainframe Discussion List  on behalf of 
Nobuhiko Furuya 
Sent: Monday, August 15, 2022 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How to set time parameter in TSO/E REXX getmsg function

Hi all,

Can we set variable time parameter in TSO/E REXX getmsg function ?
We would like to specify wait time value from argue.
But getmsg seems to accept only specific numeric seconds as follows.

msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60)

time
the amount of time, in seconds, that GETMSG should wait, if the requested
message has not yet been routed to the user's console. If you specify a time
value and the time expires before the message is routed to the user's
console, GETMSG does not retrieve the message. Otherwise, if the message
is available before the time expires, GETMSG retrieves the message.
If you do not specify time, GETMSG uses a time value of 0 seconds. If the
message has not been routed to the user's console, GETMSG does not
retrieve the message.

Best regarss,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

--
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 set time parameter in TSO/E REXX getmsg function

2022-08-15 Thread Nobuhiko Furuya

Hi all,

Can we set variable time parameter in TSO/E REXX getmsg function ?
We would like to specify wait time value from argue.
But getmsg seems to accept only specific numeric seconds as follows.

msgrett = getmsg(’dmsg’,’sol’,’C1D7D7D3F2F9F6F8’X,,60)

time
the amount of time, in seconds, that GETMSG should wait, if the requested
message has not yet been routed to the user's console. If you specify a time
value and the time expires before the message is routed to the user's
console, GETMSG does not retrieve the message. Otherwise, if the message
is available before the time expires, GETMSG retrieves the message.
If you do not specify time, GETMSG uses a time value of 0 seconds. If the
message has not been routed to the user's console, GETMSG does not
retrieve the message.

Best regarss,

Nobuhiko Furuya(古谷信彦)
V-SOL Inc.

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