FST

/*                                               2011/2015  MCSERRA  */
/* ----------------------------------------------------------------- */
/*                                             NAO ALTERAR POR FAVOR */
/* FST
     TSO/ISPF COMMAND - DESCRICAO SUMARIA DE FILE STATUS CODES
     SINTAX:
        TSO FST <FILE_SATAUS_CODE>
        EXEMPLO:  TSO FST 39
*/
/* ----------------------------------------------------------------- */
PARSE ARG FILESTA
   "ISPEXEC CONTROL ERRORS RETURN"
   FILESTA = STRIP(FILESTA)
   IF FILESTA = "" THEN
      DO
        "ISPEXEC VIEW DATASET('DES.CCS.EXEC(Z#FILEST)')"
        EXIT
      END
   IF LENGTH(FILESTA) = 1 THEN
      FILESTA = STRIP(FILESTA)' '
   IF DATATYPE(SUBSTR(FILESTA, 1, ), NUMBER) <> 1 THEN
      DO
         ZEDSMSG = FILESTA ' INVALIDO'
         ZEDLMSG = 'FILESTA ' FILESTA ' DEVE SER NUMERICO'
         "ISPEXEC SETMSG MSG(ISRZ001)"
         EXIT
      END

   FST.0 = 0
   "ALLOC DA('DES.CCS.EXEC(Z#FILEST)') FI(DIN) SHR REU"
   "EXECIO * DISKR DIN (STEM FST. OPEN FINIS"
   IF RC > 4 THEN
      DO
         ZEDSMSG = 'ERRO FICH. FILESTAS'
         ZEDLMSG = 'ERRO ABERTURA DO FICHEIRO FILESTAS: ' RC
         "ISPEXEC SETMSG MSG(ISRZ001)"
         EXIT
      END
   "FREE FI(DIN)"
   TOTL = FST.0

   IF TOTL = 0 THEN
      DO
        ZEDSMSG = 'FICH. FILESTAS VAZIO'
        ZEDLMSG = 'FICHEIRO FILESTAS SEM DADOS'
        "ISPEXEC SETMSG MSG(ISRZ001)"
        EXIT
      END
   RESULT = ""
   DO N = 1 TO TOTL
      FSTCF = SUBSTR(FST.N, 1, 2)
      IF FILESTA = FSTCF THEN
      DO
          /* SAY FST.N  */
          ZEDLMSG = STRIP(FST.N)
          "ISPEXEC SETMSG MSG(ISRZ001)"
          EXIT
      END
   END
   ZEDSMSG =  FILESTA ' INEXISTENTE'
   ZEDLMSG = 'FILESTA ' FILESTA ' NAO ENCONTRADO NO FICHEIRO'
   "ISPEXEC SETMSG MSG(ISRZ001)"
 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