I'm a bit late to this discussion but I use LINKPGM.
Had a need for a time delay routine, so I coded a short assembler routine
that uses STIMER WAIT,DINTVL=DECTIME.
The parameter is then a simple PIC 9(8).
example:
P1='00000100' /* 1 SECOND */
DSN = 'TEST.LOAD'
"ISPEXEC LIBDEF ISPLLIB DATASET ID('"DSN"')"
ADDRESS LINKPGM 'TDELAY P1'
On Mon, Jan 22, 2018 at 11:13 PM, Tony Thigpen <[email protected]> wrote:
> Thanks. I missed that one.
>
> Tony Thigpen
>
>
> ITURIEL DO NASCIMENTO NETO wrote on 01/22/2018 06:56 AM:
>
>> There is a native API that can be used with SYSREXX, like below:
>>
>> x = AXRWAIT(5) /* wait 5 seconds */
>>
>> Atenciosamente / Regards / Saludos
>>
>> Ituriel do Nascimento Neto
>> BANCO BRADESCO S.A.
>> 4250 / DITI Engenharia de Software
>> Sistemas Operacionais Mainframes
>> Tel: +55 11 3684-9602 R: 49602 3-1404
>> Fax: +55 11 3684-4427
>>
>>
>>
>>
>> AVISO LEGAL <br>...Esta mensagem é destinada exclusivamente para a(s)
>> pessoa(s) a quem é dirigida, podendo conter informação confidencial e/ou
>> legalmente privilegiada. Se você não for destinatário desta mensagem, desde
>> já fica notificado de abster-se a divulgar, copiar, distribuir, examinar
>> ou, de qualquer forma, utilizar a informação contida nesta mensagem, por
>> ser ilegal. Caso você tenha recebido esta mensagem por engano, pedimos que
>> nos retorne este E-Mail, promovendo, desde logo, a eliminação do seu
>> conteúdo em sua base de dados, registros ou sistema de controle. Fica
>> desprovida de eficácia e validade a mensagem que contiver vínculos
>> obrigacionais, expedida por quem não detenha poderes de representação.
>> LEGAL ADVICE<br>...This message is exclusively destined for the people to
>> whom it is directed, and it can bear private and/or legally exceptional
>> information. If you are not addressee of this message, since now you are
>> advised to not release, copy, distribute, check or, otherwise, use the
>> information contained in this message, because it is illegal. If you
>> received this message by mistake, we ask you to return this email, making
>> possible, as soon as possible, the elimination of its contents of your
>> database, registrations or controls system. The message that bears any
>> mandatory links, issued by someone who has no representation powers, shall
>> be null or void.
>>
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to [email protected] with the message: INFO IBM-MAIN
>>
>>
>>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
