Comandos Interessantes

/*------------------------------------------------------------------------

    Description : Exibe diret¢rio tempor rio do Client



    Author(s)   : Fabio Dantas

    Created     : 02.02.2007

  ----------------------------------------------------------------------*/



DISP SESSION:TEMP-DIRECTORY.



/*------------------------------------------------------------------------

    Description : O comando CAN-DO no caso abaixo busca a string passada

                  como segundo parametro no array passado como primeiro

                  parametro.

    Author(s)   : Fabio Dantas

    Created     : 02.02.2007

  ----------------------------------------------------------------------*/



DISP CAN-DO("0,1,2,3,4,5,6,7,8,90", '90').



/*------------------------------------------------------------------------

    Description : O comando Fill repete o caracter o numero de vezes que

                  for passado por parametro.



    Author(s)   : Fabio Dantas

    Created     : 02.02.2007

  ----------------------------------------------------------------------*/



DISP FILL('-',10).



/*------------------------------------------------------------------------

    Description : Controlar Transa‡äes



    Author(s)   : Fabio Dantas

    Created     : 02.02.2007

    Details     : Pra controlar as altera‡äes em banco costuma-se usar

                  transa‡äes.

                  Abaixo temos um exemplo bem simples. Onde o comando undo

                  desfaz toda a transa‡Æo caso ocorra um erro em breve

                  postarei exemplos mais completos.

  ----------------------------------------------------------------------*/



DO TRANSACTION ON ERROR UNDO.

    BLABLABLA.

    BLABLABLA.

    if erro then

      undo.

END.



/*------------------------------------------------------------------------

    Description : Localizar string em um Array



    Author(s)   : Fabio Dantas

    Created     : 02.02.2007

    Details     : O comando CAN-DO no caso abaixo busca a string passada

                  como segundo parametro no array passado como primeiro

                  parametro.

  ----------------------------------------------------------------------*/



DISP can-do("0,1,2,3,4,5,6,7,8,90", '90').