home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
ibm370.tar.gz
/
ibm370.tar
/
ik0vpt.pkt
< prev
next >
Wrap
Text File
|
1994-11-29
|
14KB
|
178 lines
R:5 S~% @-#&1~X ~0___DX.
R:-!FIK0VPT.UPDJ.
R:Q"A!"15."I1"!A*'CI6/100/#AMJ#119941129 10:36:49@ ..
R:h#D./ * CICS-specific#M#J./ R 01202060 01202420 $ 1202060 30~3 11/05/92 S.
R:h$D11:28:19#M#J#&ANYCICS SETC 'qualquer programa CICS'~9 @SC90264#M#J#&BN.
R:h%DADFSPC SETC 'Especificacao de arquivo invalida'~. @SC90264#M#J#&BADOU..
R:h&DTF SETC 'Arquivo de saida ilegal'~8 @SC90264#M#J#&BYTSALW SETC ' byte0.
R:h'Ds permitidos, '~< @SC90264#M#J#&BYTSUSD SETC ' bytes usados em '~> @S7.
R:h(DC90264#M#J#&CWDERRM SETC 'Deve ser um prefixo de arquivo valido'~* @SJ.
R:i)DC92300#M#J#&DIRHDNG SETC 'Nome~3 RFM~# LRECL~$ regs~" Kbytes~" Tipo+#MJ.
R:h*D#J~4 Data/hora'~A @SC92150#M#J#&FILCLSN SETC 'Nome de arquivo duplicaO.
R:h+Ddo'~6 @SC90264#M#J#&FMTFSPC SETC 'Digite especificacao do arquivo'~0 3.
R:h,D@SC91224#M#J#&NODIRDF SETC 'Nao ha diretorio definido'~6 @SC90264#M#J .
R:h-D#&NOFSPEC SETC 'Especificacao de arquivo ausente'~/ @SC90264#M#J#&OTHM.
R:h.DERL6 SETC 'OUTRA'~' Must be length <7~2 @SC92300#M#J./ * MUSIC-specifU.
R:h/Dic#M#J./ R 01148060 01148420 $ 1148060 30~3 11/05/92 11:28:19#M#J#&BA=.
R:h0DDFSPC SETC 'Nome de arquivo invalido'~7 @SC92300#M#J#&CWDERRM SETC 'D>.
R:h1Deve ser um diretorio MUSIC valido'~- @SC93236#M#J#&CWDPRVS SETC 'Sem U.
R:h2Dprivilegios necessarios para mudar codigo'~" @SC92300#M#J#&DIRHDNG SEV.
R:h3DTC 'Nome~5 Lrecl RFM~" Kbytes~# Linhas~% +#M#J~0 Data/hora'~E @SC9208'.
R:h4D6#M#J#&FILCLSN SETC 'Nome de arquivo duplicado'~6 @SC88049#M#J#&FILCO%.
R:h5DPY SETC 'Arquivo copiado'~( (<26 bytes)~- @SC92300#M#J#&FILDELT SETC H.
R:h6D'Arquivo removido'~' (<26 bytes)~- @SC92300#M#J#&FILRENM SETC 'Arquiv^.
R:h7Do renomeado'~& (<26 bytes)~- @SC92300#M#J#&FMTFSPC SETC 'EspecificacaR.
R:h8Do de arquivo tem o formato: fn'~% @SC91224#M#J#&KBYTFRE SETC ' KBytesG.
R:h9D livres'~A @SC92300#M#J#&NOCPCMD SETC 'Comandos CP nao suportados'~5 J.
R:h:D@SC92300#M#J#&NOFSPEC SETC 'Nome de arquivo ausente'~8 @SC92300#M#J./$.
R:h;D * TSO-specific#M#J./ R 01051~#0 010~#500 $ 1051~#0 500~2 11/05/92 ->4.
R:h<D4.3<-#M#J#&~%AOK SETC 'OK'~, (see QQWRITE)~4 @SC88076#M#J#&BADFSPC SE,.
R:h=DTC 'DSN Invalido'~C @SC86299#M#J#&CWDERRM SETC 'Deve ser um prefixo vF.
R:h>Dalido de DSN'~. @SC86299#M#J#&FILCLSN SETC '~" Nome de arquivo duplic%.
R:h?Dado'~4 @SC88049#M#J#&FMTFSPC SETC 'Digite d.s.n'~C @SC91224#M#J#&MIGR6.
R:h@DATD SETC '~" Dataset nao on-line'~" (2 leading blanks)~& @SC89250#M#J+.
R:hAD#&NOFSPEC SETC 'DSN ausente'~D @SC86299#M#J#&NOTCPER SETC 'Kermit-TSOK.
R:hBD deve ser um processador de comandos' @SC86299#M#J#&QQWRITE SETC ' ex6.
R:hCDiste.~" Responda "OK" para sobrepor:'~) @SC87015#M#J#&SPACERR SETC 'S^.
R:iDDPACE nao implementado' (see AASPACE)~+ @SC86299#M#J./ * CMS-specific#M'.
R:jED#J./ R 01082100 01082300 $ 1082100 50~3 11/05/92 ->4.3<-#M#J#&CPCMND~" 4.
R:hFDSETC 'Especifique um comando CP'~6 @SC92300#M#J#&CWDERRM SETC 'Deve s(.
R:hGDer um CMS mode valido'~4 @SC86295#M#J#&FILCLSN SETC 'Nome de arquivo 8.
R:hHDduplicado'~6 @SC88049#M#J#&FMTFSPC SETC 'Formato de especificacao de .
R:hIDarquivo: fn ft [fm]' SC92300#M#J#&NONXAMS SETC 'Este 'e um Kermit naoU.
R:hJD-XA: SET MACHINE 370'~& @SC89235#M#J./ * Generic#M#J./ R 01430800~* $'.
R:hKD 1430800 200~2 11/05/92 ->4.3<-#M#J#&FSPCPRM SETC '[<prim-ult[_CC]>]'9.
R:hLD~$ Goes with FMTFSPC~) @SC92300#M#J./ R 01431200 01431400 $ 1431200 2'.
R:hMD00~2 11/05/92 ->4.3<-#M#J#&OPRMUB~" SETC 'Operando deve ter '~= @SC86!.
R:hND295#M#J#&OPRMUL~" SETC 'de comprimento'~A @SC86295#M#J./ R 01432200 0 .
R:hOD1432400 $ 1432200 200~2 11/05/92 ->4.3<-#M#J#&INVALID SETC 'Invalido'7.
R:hPD~% Must be same length as "missing"~" @SC92300#M#J#&MISSING SETC 'Fal(.
R:hQDtando'~% Must be same length as "invalid"~" @SC92300#M#J./ R 01432800F.
R:hRD 01437800 $ 1432800 200~2 11/05/92 ->4.3<-#M#J#&NOERROR SETC 'Sem err).
R:hSDos'~8 Err ##00~' @SC86156#M#J#&NOTRANS SETC 'Nenhum arquivo transferi6.
R:hTDdo ainda' Err ##01~' @SC86156#M#J#&TCANCEL SETC 'Transferencia cancel..
R:hUDada'~* Err ##02~' @SC86156#M#J#&BADSERV SETC 'Comando de servidor inv4.
R:hVDalido'~% Err ##03~' @SC86156#M#J#&TERMIOE SETC 'Erro de E/S no terminR.
R:hWDal'~* Err ##04~' @SC86156#M#J#&BADCHEK SETC 'Chksum/Contador de pacotL.
R:hXDes incorr' Err##05~' @SC86156#M#J#&BADPSYN SETC 'Sintaxe do pacote inY.
R:hYDvalida'~' Err ##06~' @SC86158#M#J#&BADPTYP SETC 'Tipo de pacote invalI.
R:hZDido'~* Err ##07~' @SC86156#M#J#&LOSTPAK SETC 'Perdi um pacote'~2 Err Y.
R:i[D##08~' @SC86156#M#J#&GOTNAK~" SETC 'Micro enviou um NAK'~. Err ##09~' :.
R:i\D@SC86156#M#J#&MICROAB SETC 'Micro abortou'~4 Err ##10~' @SC86156#M#J#&M.
R:h]DBADNAME SETC 'Nome de arquivo invalido'~) Err ##11~' @SC86156#M#J#&NOF.
R:h^DTFOUN SETC 'Arquivo nao encontrado'~+ Err ##12~' @SC92300#M#J#&DSKFULH.
R:h_DL SETC 'Disco ou arquivo cheio'~+ Err ##13~' @SC86345#M#J#&DSKIOER SEK.
R:h DTC 'Erro de E/S no disco'~- Err ##14~' @SC86345#M#J#&MISSOPR SETC 'OpU.
R:h!Derando ausente'~1 Err ##15~' @SC86158#M#J#&BADSCMD SETC 'Comando ileg9.
R:h"Dal de sistema'~( Err ##16~' @SC86268#M#J#&KCMDERR SETC 'Erro em comanD.
R:h#Ddo Kermit'~+ Err ##17~' @SC86171#M#J#&NOPACKS SETC 'Nenhum pacote recF.
R:j$Debido'~+ Err ##18~' @SC86355#M#J#&RECTRNC SETC 'Registros truncados'~. ;.
R:h%DErr ##19~' @SC87268#M#J#&BADCOMM SETC 'Linha de comunicacao ruim'~( EK.
R:h&Drr ##20~' @SC87300#M#J#&NO8THBQ SETC 'Caracter de 8vo bit nao definid9.
R:h'Do' Err ##21~' @SC89072#M#J#&TOOSHRT SETC 'Arquivo muito pequeno'~, Er).
R:h(Dr ##22~' @SC89218#M#J#&NOSTART SETC 'Inicio-do-pacote perdido'~) Err C.
R:h)D##23~' @SC89219#M#J#&BADOPTN SETC 'Erro de opcao-especif. de arquivo'0.
R:h*D Err##24~' @SC89249#M#J#&BADDISP SETC 'Impossivel usar arquivo'~* ErrO.
R:h+D ##25~' @SC90037#M#J./ R 01438200 01451600 $ 1438200 200~2 11/05/92 -W.
R:h,D>4.3<-#M#J#&~&AS SETC '~" como '~& (gives filespec actually sent)~$ @X.
R:h-DSC87300#M#J#&~%AIS SETC ' eh '~) (used for SHOW display)~+ @SC87034#M?.
R:h.D#J#&ASCQUOT SETC 'um char com valor ASCII 33-62 ou 96-126'~( @SC862240.
R:h/D#M#J#&AZDISAB SETC 'nao ON'~I @SC90239#M#J#&BACKDUP SETC '--original .
R:h0Drenomeado para ' (used for file coll.@SC90211#M#J#&BADDELF SETC 'Erro%.
R:h1D de opcao: Delimitador final invalido'~& @SC89249#M#J#&BADDELM SETC '9.
R:h2DErro de opcao: Delimitador invalido'~, @SC89249#M#J#&BADOPTS SETC 'ErF.
R:h3Dro de opcao: Opcoes de arquivo desconhecidas' @SC89249#M#J#&BADRNGE S7.
R:h4DETC 'Erro de opcao: Range de linhas invalido'~( @SC89249#M#J#&BADSBCMC.
R:h5D SETC 'Nao eh um subcomando valido'~4 @SC86355#M#J#&BADTABS SETC 'Tab,.
R:h6Ds fora de sequencia'~9 @TS86100#M#J#&BYTPSEC SETC 'Bytes/seg di discoR.
R:h7D: '~; @SC86295#M#J#&CANNOT~" SETC 'Impossivel '~' (used with MAIL, PR>.
R:h8DINT, SUB) @SC90239#M#J#&COLDISC SETC 'Arquivo ja existe, RECEPCAO des7.
R:i9Dcartada'~) @SC90061#M#J#&DEBGERR SETC 'Erro de DEBUG'~B @SC87012#M#J#&^.
R:h:DDELIMSG SETC 'Delimitador de linha: um ou nenhum caracter'~$ @SC88095A.
R:i;D#M#J#&DSCARDD SETC '--descartado como duplicata'~" (file collision)~" V.
R:i<D@SC90033#M#J#&DWRDSTK SETC ' dwords de pilha usadas.'~7 @SC89089#M#J#&!.
R:h=DENDSRV~" SETC 'Para finalizar o servidor use '~" (BYE/FINISH')~" @SC9 .
R:h>D2300#M#J#&ENTHINT SETC 'Digite #&~#AHINT para iniciar'~3 @SC91295#M#J4.
R:h?D#&ERRTAKE SETC 'Erro lendo arquivo TAKE'~8 @SC86239#M#J#&EXTRAOP SETC'.
R:h@D 'Operando extra'~A @SC91312#M#J#&FINISHD SETC '** concluido **'~@ @S..
R:hADC91172#M#J#&FORFSPC SETC 'Arquivo remoto'~A @SC88035#M#J#&FSENLST SET8.
R:hBDC ' arquivo(s) enviado(s).'~8 @SC86295#M#J#&HANDXON SETC 'Handshake e4.
R:hCDsta XON -- desnecessario'~, @SC87338#M#J#&LASTFIL SETC 'Ultimo arquiv?.
R:hDDo usado: '~9 @BS86090#M#J#&MANYFIL SETC 'Muitos arquivos a enviar'~7 ;.
R:hED@SC88306#M#J#&MANYOPT SETC 'Muitas opcoes'~B @SC90239#M#J#&MANYTAB SE@.
R:hFDTC 'Muitos tabs'~D @SC86355#M#J#&MAXNEST SETC 'Ultrapassado limite deB.
R:hGD aninhamentos em TAKE'~$ @SC92300#M#J#&MISSOPS SETC 'Erro de opcao: O3.
R:hHDpcao(oes) ausente(s)'~+ @SC89249#M#J#&MRCTRNC SETC ' registros truncaC.
R:hIDdos'~; @SC87268#M#J#&MSGFILE SETC 'Arquivo '~G @SC87300#M#J#&MSGFILL B.
R:hJDSETA 8~P @SC87300#M#J#&NOBUFFS SETC 'Impossivel alocar buffers'~6 @SCM.
R:hKD92300#M#J#&NOFSENT SETC 'Nenhum arquivo enviado'~9 @SC86295#M#J#&NOHE:.
R:hLDLPF SETC 'Arquivo de Help nao disponivel'~1 @SC90264#M#J#&NOOPERS SET0.
R:hMDC 'Nao sao necessarios (mais) operandos'~+ @SC90179#M#J#&NOWRITE SETCV.
R:hND 'Impossivel gravar arquivo'~6 @SC87117#M#J#&ONEFOLL SETC 'Um dos segB.
R:hODuintes:'~> @SC92300#M#J#&ONLY130 SETC 'Somente os primeiros 130 carac>.
R:hPDteres mostrados'~" @PG88335#M#J#&ONOFFCH SETC 'Deve ser ON, OFF, ou uZ.
R:jQDm caracter'~/ @SC87008#M#J#&OPTSIZE SETC 'Tamanho otimo de pacote: '~6 W.
R:hRD@SC88120#M#J#&PKTABBR SETC 'pct'~* Must be 3 bytes~3 @SC86295#M#J#&PLQ.
R:hSDSESCP SETC 'Favor sair para Kermit local agora'~- @SC92300#M#J#&READYI.
R:hTDR~" SETC 'pronto para receber.'~; @SC92300#M#J#&READYS~" SETC 'prontoP.
R:hUD para enviar.'~< @SC92300#M#J#&READYSR SETC 'entrando em modo servido\.
R:hVDr.'~5 @SC92300#M#J#&RECFOLD SETC ' registros arquivados'~: @SC88120#M7.
R:hWD#J#&RECVDAS SETC '~" Receber como '~@ @SC87300#M#J#&REPTCNT SETC ' paH.
R:hXDcotes repetidos enviados'~4 @SC86316#M#J#&REQUIRG SETC ' requerendo '@.
R:iYD~C @SC86295#M#J#&SECABBR SETC 'seg'~* Must be 3 bytes~3 @SC86295#M#J#&N.
R:hZDSENDING SETC 'Enviando '~F @SC87300#M#J#&SENDPAK SETC 'Tamanho<20 perK.
R:h[Digoso; >94 sem sentido para SEND' @SC90122#M#J#&SIMSHRT SETC 'ArquivoA.
R:h\D de entrada nao encontrado/muito pequeno' SC91312#M#J#&SYSCMND SETC '2.
R:h]DEspecifique um comando #&KSYS'~3 @SC86295#M#J#&SYSFSPC SETC 'Especifi=.
R:h^Dcacao de arquivo #&KSYS'~1 @SC88035#M#J#&TAKLOOP SETC 'Loop em arquivT.
R:h_Do TAKE'~; @SC86239#M#J#&TORECV~" SETC ' para receber arquivo(s).'~6 @C.
R:i DSC92300#M#J#&TOSEND~" SETC ' para enviar arquivo(s).'~7 @SC92300#M#J#&".
R:h!DUNDEFTR SETC 'Traducao de caracter indefinida'~0 @SC90040#M#J#&UNPRSO_.
R:h"DP SETC 'Inicio-de-pacote nao imprimivel'~0 @SC92030#M#J#&VTAMERR SETC,.
R:h#D 'Recuperacao de erro S/1 VTAM'~3 @TB87009#M#J#&XTYPMSG SETC 'Cadeia 3.
R:h$Dde caracteres com ^X para cntl-X'~( @SC86165#M#J#&ZZBEWAR SETC 'atencA.
R:h%Dao para arquivos existentes'~# (COLLISION) @SC92300#M#J./ R 01452~#0 .
R:h&D01452200 $ 1452~#0 200~2 11/05/92 ->4.3<-#M#J#&~$ZOR~" SETC 'ou'~M @S_.
R:i'DC92300#M#J#&ZZSHORT SETC 'pequeno'~( (for HINTS on BLOCK or PACKET)~" ?.
R:h(D@SC92300#M#J./ R 04339~#0 04351~#0 $ 4339~#0 300~2 11/05/92 ->4.3<-#M+.
R:h)D#J~) WTEXT 'Tecle ? para uma lista de comandos validos.'~# @SC92300#MF.
R:i*D#J~) WTEXT 'Tecle ? a qualquer momento (e pressione ENTER) para uma.#M=.
R:h+D#J~0 lista de opcoes.'~> @SC92300#M#J~) WTEXT '~" A abreviacao minima6.
R:h,D estara em maiusculo.'~$ @SC92300#M#J~) WTEXT 'Geralmente, RECEIVE PA5.
R:h-DCKET-SIZE deve ser definido o mai.#M#J~/ or possivel (para'~> @SC9230!.
R:h.D0#M#J~) WTEXT '~" maximizar a eficiencia), mas podem existir limites ..
R:h/Dde.#M#J~0 tamanho de buffer'~= @SC92300#M#J~) WTEXT '~" devido a hard#.
R:h0D/soft de comunicacao. Por seguranca, def.#M#J~/ ina BLOCK-CHECK como'!.
R:i1D~; @SC92300#M#J~) WTEXT '~" 2 ou 3 para pacotes > 100.'~2 @SC92300#M#J3.
R:i2D~) WTEXT 'Para seguranca no envio de arquivos binarios, defina FI.#M#J-.
R:h3D~/ LE TYPE como BINARY em'~9 @SC92300#M#J~) WTEXT '~" ambos os lados,3.
R:i4D mas use V-BINARY neste lado para pres.#M#J~/ ervar os limites dos'~; K.
R:h5D@SC92300#M#J~) WTEXT '~" registros do arquivo original. Muitos Kermit+.
R:h6Ds estabel.#M#J~/ ecem o FILE TYPE'~? @SC92300#M#J~) WTEXT '~" automat2.
R:h7Dicamente. Obs.: V-BINARY com RECEIVE somente p.#M#J~/ ode ser usado pA.
R:h8Dara'~= @SC92300#M#J~) WTEXT '~" arquivos enviados originalmente desteN.
R:h9D modo.' @SC92300#M#J~) WTEXT 'Defina TRANSFER CHARACTER-SET para algo?.
R:h:D apropriado (o d.#M#J~/ efault do ASCII limita'~9 @SC92300#M#J~) WTEXG.
R:h;DT '~" arquivos texto a 128 codigos, mas mapeia algumas vari.#M#J~/ anT.
R:h<Dtes EBCDIC para os'~; @SC92300#M#J~) WTEXT '~" caracteres ASCII "espeE.
R:h=Drados"). Redefina as tabelas se.#M#J~0 necessario.'~C @SC92300#M#J~) 5.
R:h>DWTEXT 'Dica: inclua seu setup habitual no arquivo INIT.'#M#J./ R 0762F.
R:h?D4500~* $ 7624500 500~2 11/05/92 ->4.3<-#M#J~) DC~$ C'Kermit-#&KSYS. SM.
R:h@Dervidor aceita os comandos:'~# @SC86268#M#J./ R 07625500 07633~#0 $ 7A.
R:hAD625500 200~2 11/05/92 ->4.3<-#M#J~) DC C'Funcao~- Comando Padrao',X'14.
R:hBD5'~) @SC86158#M#J~) DC C'~&-~- ~0-',X'1515'~% @SC86158#M#J~) DC C'EnvH.
R:hCDiar arquivo~% SEND arq.',X'15'~. @SC86158#M#J~) DC C'Recuperar arquivW.
R:hDDo~" GET arq.',X'15'~/ @SC86158#M#J~) DC C'Sair do sistema~$ BYE ou LO..
R:hEDGOUT',X'15'~* @SC86158#M#J~) DC C'Sair do servidor~# FINISH',X'15'~1 P.
R:hFD@SC86158#M#J~) DC C'Enviar cmd Kermit~" REMOTE KERMIT cmd',X'15'~& @S1.
R:hGDC86158#M#J~) DC C'Enviar cmd sist.~# REMOTE HOST {CP} cmd',X'15'~# @S?.
R:hHDC86268#M#J~) DC C'Listar diretorio~# REMOTE DIRECTORY arq.',X'15'~" @O.
R:hIDSC86158#M#J~) DC C'Mostrar arquivo~$ REMOTE TYPE arq.',X'15'~' @SC861W.
R:iJD58#M#J~) DC C'Copiar arquivo~% REMOTE COPY a1 a2',X'15'~& @SC86158#M#J2.
R:jKD~) DC C'Renomear arquivo~# REMOTE RENAME a1 a2',X'15'~$ @SC86158#M#J~) D.
R:hLDDC C'Apagar arquivo~% REMOTE DELETE arq.',X'15'~% @SC86158#M#J~) DC C".
R:hMD'Mudar de area~& REMOTE CWD area',X'15'~( @SC86158#M#J~) DC C'MostrarH.
R:VND espaco dsk REMOTE SPACE area',X'15'~& @SC86158#M#J[.
R:#OZ/.
R:#PBW.