Visão Geral
A PI-SlotAvail serve para que possamos verificar se algum slot está disponível para o consumo dentro do License Server 2014.
Sintaxe
Para a utilização da PI-SlotAvail devemos definir 2 variáveis, uma Handle e outra CHARACTER:
DEFINE VARIABLE auxiliar AS HANDLE NO-UNDO.
DEFINE VARIABLE c-slot-disponivel AS CHARACTER NO-UNDO.
A Handle servirá para que possamos instanciar o programa btb432za e possamos realizar a chamada da PI-SlotAvail.
Já nossa variável do tipo CHARACTER servirá para armazenarmos o retorno se o Slot está "OK" ou "NOK" para consumo.
Após a definição das variáveis devemos instanciar o btb432za na memória para que possamos acessar a PI-SlotAvail:
RUN btb/btb432za.p PERSISTENT SET auxiliar.
Agora que temos acesso a PI-SlotAvail devemos realizar o envio do Slot que desejamos consumir para o programa:
Run PI-SlotAvail IN auxiliar (Input SLOT, Output c-slot-disponivel).
No local de SLOT devemos passar o valor do Slot que queremos consumir, ex 5554 - "Run PI-SlotAvail IN auxiliar (Input 5554, Output c-slot-disponivel).".
Agora que temos o retorno da PI-SlotAvail pode fazer a lógica que desejar com o retorno, o exemplo que estou apresentando irá mostrar uma mensagem "OK" se o retorno da PI-SlotAvail estiver OK:
IF c-slot-disponivel = "OK" THEN DO:
MESSAGE "OK" VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
Vale lembrar que devemos retirar o Handle da memória:
DELETE OBJECT auxiliar.
Exemplo
/* Definição de variáveis */
DEFINE VARIABLE auxiliar AS HANDLE NO-UNDO.
DEFINE VARIABLE c-slot-disponivel AS CHARACTER NO-UNDO.
/* Fim Definição de variáveis */
/* Instanciar o btb432za para uso */
RUN btb/btb432za.p PERSISTENT SET auxiliar.
/* Verificar se o Slot está OK ou NOK */
Run PI-SlotAvail in auxiliar (Input SLOT, Output c-slot-disponivel).
/* Retirar Handle da memória */
DELETE OBJECT auxiliar.
/* Lógica desejada com o retorno da PI-SlotAvail */
IF c-slot-disponivel = "OK" THEN DO:
MESSAGE "OK"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.