SNS

/*                                                  2011/2015 MCSERRA */
/*  MODULO DE OUTRA FUNCAO.                                           */
/*  POR FAVOR NAO ALTERAR                                             */
/*                                                                    */
 PARSE Arg msg
 /*------------------------------------------------------*/

 Processo:
 /*------------------------------------------------------*/
    IF msg = "" Then
       exit
    Else
       DO
         UPPER msg
         IF SUBSTR(msg, 1, 1 ) = '?' then
            do
               say 'tso sns $m <mensagem> - m, p, a'
               say 'tso sns <mensagem> - assume m'
               say 'tso sns - mostra painel'
               exit
            end
         IF SUBSTR(msg, 1, 1 ) = '$' then
            do
               PARSE Value msg With '$' usrd ' ' msg
               if usrd = 'P' then usrd = 'U108081'
               if usrd = 'A' then usrd = 'U106577'
               if usrd = 'M' then usrd = 'U577405'
            end
         Else
            usrd = 'U577405'
         SNS1 = MSG
       End
    AXX = '                                                  '
    AXX = AXX'                  .'
    BXX = LENGTH(SNS1)
    IF BXX > 0 Then
    DO
       CXX = 70 - BXX
       DXX = SUBSTR(AXX, BXX + 1, CXX)
       "Send '"sns1""DXX"' U("usrd")"
       SAY "MENSAGEM ENVIADA"
    END
    EXIT
/*                                                  2011/2015 MCSERRA */

Comentários

Enviar um comentário

Mensagens populares deste blogue

CC

 /*REXX*/ /**********************************************************************/ /*  CALCULADORA                                            MARCO SERRA*/ /*  TSO CC 4*3+3*5        ( = 27 )                                    */ /**********************************************************************/  ARG NUMEXP  "ISPEXEC CONTROL ERRORS RETURN"    DBG = 'N'    IF DBG = 'S' THEN SAY 'COMEÇOU O FESTIVAL'    NUMEXP = STRIP(NUMEXP)    FC=SUBSTR(NUMEXP,1,1)    IF FC = '#' THEN NUMEXP = SUBSTR(NUMEXP,2,) /*                                                        ...
Ler mais

ED

/*                                               2011/2012  MCSERRA  */ /* ----------------------------------------------------------------- */ /*                                             NAO ALTERAR POR FAVOR */ /* ED      TSO/ISPF COMMAND - EDITA ELEMENTO POR PESQUISA NUM CONJUNTO DE                         DATASETS PREDEFINIDOS (NO ELEMENTO VEX)      SINTAX:         TSO ED <ELEMENTO>         EXEMPLO:  TSO ED DOW0501 */ /* ----------------------------------------------------------------- */ PARSE ARG MEM   MEM = STRIP(MEM)   UPPER MEM   CALL VEX 'E' MEM EXIT /*        ...
Ler mais

Z#SQLCOD

+100 Row not found or end of cursor -102 String constant is too long -117 values to INSERT not match number of columns -180 Bad data in Date/Time/Timestamp -181 Bad data in Date/Time/Timestamp -199 Illegal use of the specified keyword. -204 Object not defined to DB2 -205 Column name not in specified table -206 Column does not exist in any table in the SELECT -216 Diferent number of expressions on Comparison sides +222 Trying to fetch a row that fell through a DELETE hole +223 Trying to fetch a row that fell through an UPDATE hole -224 FETCH cannot make an INSENSITIVE cursor SENSITIVE -229 Locale specified in a SET LOCALE statement not found. +231 FETCH BEFORE or AFTER not on a valid row +304 Value out of range cannot be assigned to host variable. -305 Null indicator needed -311 Varchar, insert or update. -LEN field not set. -482 he procedure returned no locators -501 Cursor not open on FETCH -502 Opening cursor that is already open -503 Updating column which needs to be specified in...
Ler mais