* //******************************************************************** //STEP03 EXEC PGM=IDCAMS //BASDD DD DSN=D.CO.BNH.C525OW,DISP=OLD //AIXDD DD DSN=D.CO.BNH.C525OW.AIX,DISP=OLD //SYSPRINTDD SYSOUT=* //SYSIN DD * DEFINE - PATH ( - NAME(D.CO.BNH.C525OW.PATH) - PATHENTRY(D.CO.BNH.C525OW.AIX)) BLDINDEX - INFILE(BASDD) - OUTFILE(AIXDD) //*Para maiores detalhes eesclarecimentos, consultar a apostila de Introducao a VSAM.FILE STATUS VSAM0002 - CHAVE DUPLICADA FOI ENCONTRADA, MAS OPROGRAMA ESPECIFICOU ESTA OPCAO. -DUPL. KEY EM INDICE ALTERNADO0004 - FIM DE ARQUIVO DURANTE GET0008 - CHAVE DUPLICADA DURANTE PUT OU WRITE -CHAVE DUPLICADA NO INDICE ALTERNATIVO0010 - FIM DE ARQUIVO FISICO -ARQ OPCIONAL NAO DISPONIVEL NA HORA DA ABERTURA -"END-OF-FILE(EOF)" APOS COMANDO READ.0012 - CHAVE FORA DE SEQUENCIA DURANTE UM"PUT"0016 - REGISTRO NAO ENCONTARDO, ERRO DEGRAVACAO(FISICO) INDICE DE KSDS E PEQUENO0020 - CHAVE INVALIDA0021 - ERRO DE SEQUENCIA -ALTERACAO DO CONTEUDO DA CHAVE DURANTE A EXECUCAO DA "REWRITE"(SOMENTE PARA ARQ. KSDS) -REGISTRO FORA DE SEQUENCIA. PARAKSDS: 1-WRITE SEQ. EXIGE CHAVES CLASSIF. 2-'ACCESS SEQUENTIAL' E /READ COM SKIP SEM 'START'. 3-'ACCESS SEQUENTIAL' COM STRNC=1 PARA RRDS. 4-ACESSO SEQUENCIAL E/READ COM SKIP SEM 'START'. -REWRITE SEM READ PREVIO. -WRITE EM REGISTRO COM CHAVE DUPLICADA.0022 - DUPLICATE KEY EM WRITE OU DUPLICATE KEYEM INDICE ALTERNADO C/UNIQKEY0023 - REGISTRO NAO ENCONTRADO.- END-OF-FILEAPOS COMANDO 'START'-OPCAO 'CREATER THAN' USADA E A CHAVE CONTEM HIGH-VALUES.-READ SEQ EM CHAVE APOS A ULTIMA GRAVADA.0024 - VIOLACAO DOS LIMITES DO ARQUIVO-NAO EXISTE ESPACO DISPONIVEL EM ARQUIVOS 'VSAM' INDEXADO OU RELATIVO PARAINSERCAO DE REGISTROS-ESTOURO DE AREA OVERFLOW-VOLUME CHEIO (FALTA ESPACO) - PARA KSDS.-SPLIT DE C.A COM SHROPT=4 DISP=SHR PARA KSDS.-REGISTRO DO INDICE ALTERNADO ATINGIU TAMANHO MAXIMO.0028 - AREA SECUNDARIA NAO SUFICIENTE-EM CASO DE REPRO, FAZER DELETE/DEFINE DO ARQ.0030 - ERRO I/O NA JFCB (IRRECUPERAVEL)-ERRO DE I/O : . DATA CHECK . CHECK DE PARIDADE . ERRO DE TRANSMISSAO-ERRO I/O NO USER-CATALOG-VSAM.-ERRO I/O NO LABEL DO VOLUME.-ERRO DE PAGINACAO (VIRTUAL X REAL)-ERRO DE I/O OU REGISTRO 'SPANNED' COM ERRO.0034 - VIOLACAO DOS LIMITES DO ARQUIVO ESDS-NAO EXISTE ESPACO DISPONIVEL EM ARQUIVO 'VSAM' SEQUENCIAL PARA INSERCAO DEREGISTROS-ESTOURO DE AREA DE OVERFLOW-VOLUME CHEIO (FALTA ESPACO) - ESDS.-SPLIT DE C.A COM SHROPT=4 E DISP=SHR PARA ESDS.0088 - OPEN NOME EXTERNO DA SELECT NAOCOMPATIVEL COM O JCL-ARQ. JA SE ENCONTRA ABERTO E NAO ESTA DISPONIVEL0090 - OPEN "INPUT" OU "I/O"EM ARQUIVO NAO INICIALIZADO.-(O/C) "TIME-STAMP" DO "DATA/INDEX" NAO CHECA COM A VTOC OUSI.-(O/C) FALTANDO PASSAR "VERIFY" NO ARQUIVO.-(O/C) FALTANDO CARTAO "DD" PARA O ARQUIVO.-RBA NAO CORRESPONDE A REGISTRO NENHUM.-STRNO ESPECIF. ESTA INSUFICIENTE. AUMENTAR.-TIPO DE PROC. (OUTPUT) INVOMPATIVEL COMOPEN:- OPEN INPUTCOM WRITE, REWRITE OU DELETE.- OPEN OUTPUTCOM REWRITE OU DELETE.- OPEN I/OCOM ACCESS SEQ E WRITE.- CLAUSULA'ORGANIZATION INDEXED' INFORMA INDEVIDAMENTE PARA ESDS.-WRITE VIA RBA PARA KSDS. INDEVIDO.-TENTATIVA DE 'DELETE' EM ESDS.- FALTACLAUSULA: 'ORGANIZATION IS INDEXED' PARA KSDS.-FALTA CLAUSULA: 'ORGANIZATION IS RELATIVE' PARA RRDS.-START EM ARQUIVO ESDE/RRDS (INVALIDO).-WRITE EM ARQUIVO VSAM COM SHROPT=1.-TAMANHO DA CHAVE = '0' NA CLUSTER OU TAMANHO DA CHAVE NO PROGRAMA DIFERE DO DACLUSTER.-READ, REWRITE, DELETE, START EM ARQUIVO ABERTO COM OUTPUT.-READ EM ARQUIVO SPANNED SEM CLAUSULA 'INTO'.-READ PARA RBA EM ARQUIVO SPANNED.-READ VIA PATH SEM BUILDINDEX ANTERIOR NO INDICE ALTERNADO.-READ VIA RBA PARA UM RRDS, NAO PERMITIDO.-READ VIA RBA PARA UM 'BASE' VIA 'PATH' NAO PERMITIDO.0092 - ERRO LOGICO-START: FOI DADO START EM ARQ. FECHADO-READ : TAMANHO