Pues programa con microsoft cobol y con basic, en el año 1992, en listados de 300k, hice una base de datos en cobol que tenía 20 Megas, en código fuente con criptografia de 512 bytes, y menus de persiana, todo en modo texto en ms dos.
En un Pc xt.
La policía se llevo hace 4 años, mis documentos de freeBSD y Debian. Tuve que preguntar por internet y tengo tonda la documentación de debian y freebsd que necesito.
Me sale este error en open cobol para Linux debian.
noentras2@debian:~/cobol/gnucobol-2.2$ cobc -x graba.cob
graba.cob:13: Error: syntax error, unexpected TOKEN, expecting '.'
noentras2@debian:~/cobol/gnucobol-2.2$
noentras2@debian:~/cobol/gnucobol-2.2$ cat graba.cob
***************************************************
* Procedimiento almacenado COBOL SAMPLE.COBSAMP
* @param Action
* @param City
* @param Country
* @param Response
***************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. COBSAMP.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
01 Sqlcode-Pic PIC +++999 USAGE DISPLAY.
LINKAGE SECTION.
01 Action.
49 VAR-LEN PIC S9(4) USAGE BINARY.
49 VAR-TEXT PIC X9(8) USAGE DISPLAY.
01 City.
49 VAR-LEN PIC S9(4) USAGE BINARY.
49 VAR-TEXT PIC X9(32) USAGE DISPLAY.
01 Country.
49 VAR-LEN PIC S9(4) USAGE BINARY.
49 VAR-TEXT PIC X9(32) USAGE DISPLAY.
01 Response.
49 VAR-LEN PIC S9(4) USAGE BINARY.
49 VAR-TEXT PIC X9(80) USAGE DISPLAY.
PROCEDURE DIVISION USING
Action
City
Country
Response.
Move Function Upper-case(VAR-TEXT of Action)
to VAR-TEXT of Action
Evaluate VAR-TEXT of Action(1:VAR-LEN of Action)
When 'S'
When 'SELECT'
Evaluate true also true
When VAR-LEN of City = 0 also VAR-LEN of Country = 0
EXEC SQL
DECLARE C1 CURSOR WITH RETURN WITH HOLD FOR
SELECT * FROM SAMPLE.CITYTABLE
END-EXEC
EXEC SQL
OPEN C1
END-EXEC
When VAR-LEN of City = 0 also VAR-LEN of Country > 0
EXEC SQL
DECLARE C2 CURSOR WITH RETURN WITH HOLD FOR
SELECT * FROM SAMPLE.CITYTABLE
WHERE COUNTRY=:COUNTRY
END-EXEC
EXEC SQL
OPEN C2
END-EXEC
When VAR-LEN of City > 0 also VAR-LEN of Country = 0
EXEC SQL
DECLARE C3 CURSOR WITH RETURN WITH HOLD FOR
SELECT * FROM SAMPLE.CITYTABLE
WHERE CITY=:CITY
END-EXEC
EXEC SQL
OPEN C3
END-EXEC
When Other
EXEC SQL
DECLARE C4 CURSOR WITH RETURN WITH HOLD FOR
SELECT * FROM SAMPLE.CITYTABLE
WHERE CITY=:CITY AND COUNTRY=:COUNTRY
END-EXEC
EXEC SQL
OPEN C4
END-EXEC
End-Evaluate
If Sqlcode = 0 then
String 'Seleccionar satisfactorio'
delimited by Size into VAR-TEXT of Response
Else
Move SQLCode to SQLCode-Pic
String 'Seleccionar no satisfactorio: Sqlcode ' Sqlcode-Pic
delimited by Size into VAR-TEXT of Response
End-If
When 'I'
When 'INSERT'
Evaluate true also true
When VAR-LEN of City = 0 also VAR-LEN of Country = 0
String 'Insertar no satisfactorio: '
'Ciudad y País no especificados'
delimited by Size into VAR-TEXT of Response
When VAR-LEN of City = 0 also VAR-LEN of Country > 0
String 'Insertar no satisfactorio: Ciudad no especificada'
delimited by Size into VAR-TEXT of Response
When VAR-LEN of City > 0 also VAR-LEN of Country = 0
String 'Insertar no satisfactorio: País no especificado'
delimited by Size into VAR-TEXT of Response
When Other
EXEC SQL
INSERT INTO SAMPLE.CITYTABLE
(CITY, COUNTRY) VALUES (:CITY, :COUNTRY)
END-EXEC
If Sqlcode = 0 then
String 'Insertar satisfactorio'
delimited by Size into VAR-TEXT of Response
Else
Move SQLCode to SQLCode-Pic
String 'Insertar no satisfactorio: Sqlcode ' Sqlcode-Pic
delimited by Size into VAR-TEXT of Response
End-If
End-Evaluate
When 'D'
When 'DELETE'
Evaluate true also true
When VAR-LEN of City = 0 also VAR-LEN of Country = 0
String 'Suprimir no satisfactorio: '
'Ciudad y País no especificados'
delimited by Size into VAR-TEXT of Response
When VAR-LEN of City = 0 also VAR-LEN of Country > 0
String 'Suprimir no satisfactorio: Ciudad no especificada'
delimited by Size into VAR-TEXT of Response
When VAR-LEN of City > 0 also VAR-LEN of Country = 0
String 'Suprimir no satisfactorio: País no especificado'
delimited by Size into VAR-TEXT of Response
When Other
EXEC SQL
DELETE FROM SAMPLE.CITYTABLE
WHERE CITY=:CITY AND COUNTRY=:COUNTRY
END-EXEC
If Sqlcode = 0 then
String 'Suprimir satisfactorio'
delimited by Size into VAR-TEXT of Response
Else
Move SQLCode to SQLCode-Pic
String 'Suprimir no satisfactorio: Sqlcode ' Sqlcode-Pic
delimited by Size into VAR-TEXT of Response
End-If
End-Evaluate
When Other
String 'Acción "'
VAR-TEXT of Action(1:VAR-LEN of Action)
'" no soportada'
delimited by Size into VAR-TEXT of Response
End-Evaluate.
Inspect VAR-TEXT of Response tallying VAR-LEN of Response
for characters before initial x'00'
GOBACK.
noentras2@debian:~/cobol/gnucobol-2.2$
Donde esta el error?
Sale en la linea 13, estoy bajando tutoriales de cobol para Linux
Lo que es el open cobol que tengo aquí, compilado me ocupa casi 18 megas
De tener un microsoft cobol de 700k, microsoft cobol 84, en el año 1992, a tener uno de 18 megas.
De momento Tengo buena documentación para nasm. Ensamblador y cobol, hacer programas es más facil que lenguaje C.
Tengo un makefile de 16 paginas traducido, pero tengo que traducir 200 paginas que estan en ingles.
Tengo un ingles muy alto.
Así que para traducirlo, me llevara unas semanas. Pero el problema que tengo es que estoy en un psiquiatrico por descompensación de esquizofrenía, no tengo ni alucinaciones ni delirios. Soy Asperger con un coeficiente intelectual de 278. Pero la esquizofrenia no me deja ser inteligente.
TENGO ESTE CORTAFUEGOS COMO PUEDO HACERLO MÁS POTENTE.
root@debian:/etc/iptables# cat rules.v6
# Generated by ip6tables-save v1.6.0 on Tue Dec 26 03:48:19 2017
*filter
#:INPUT ACCEPT [0:0]
#:FORWARD ACCEPT [0:0]
#:OUTPUT ACCEPT [0:0]
#COMMIT
# Completed on Tue Dec 26 03:48:19 2017iptables -F
killall rpcbind
killall rpc.statd
killall minissdpd
killall exim4
#proteccion cokies
echo 1 >/proc/sys/net/ipv4/tcp_syncookies
#protección contra ip spoofing
for f in /proc/sys/net/ipv4/conf/*/rp_filter; do
echo 1 > $f
done
# Proteger contra "bad error messages"
echo -n '1' > /proc/sys/net/ipv4/icmp_ignore_bogus_error_responses
echo -n '0' > /proc/sys/net/ipv4/ip_forward
# Loguear sospechosos, "source routed" y redirects
iptables -A INPUT -p ICMP -j DROP
iptables -A INPUT -m state --state ESTABLISHED,RELATED -j ACCEPT
iptables -A OUTPUT -m state --state ESTABLISHED,RELATED -j ACCEPT
iptables -A FORWARD -m state --state ESTABLISHED,RELATED -j ACCEPT
iptables -A INPUT -p tcp --syn -d 0.0.0.0/0 --dport 0:65535 -j DROP
iptables -A INPUT -p udp -d 0.0.0.0/0 --dport 0:65535 -j DROP
root@debian:/etc/iptables# iptables -L
Chain INPUT (policy ACCEPT)
target prot opt source destination
DROP icmp -- anywhere anywhere
ACCEPT all -- anywhere anywhere state RELATED,ESTABLISHED
DROP tcp -- anywhere anywhere tcp flags:FIN,SYN,RST,ACK/SYN
DROP udp -- anywhere anywhere udp
Chain FORWARD (policy ACCEPT)
target prot opt source destination
ACCEPT all -- anywhere anywhere state RELATED,ESTABLISHED
Chain OUTPUT (policy ACCEPT)
target prot opt source destination
ACCEPT all -- anywhere anywhere state RELATED,ESTABLISHED
Jugaba al spectrum 48k en el año 1984 y en el 1988. Mi padre me compro un zx spectrum 128k +2A.
Quiero hacer un emulador spectrum 48k y 128k, preferiblemente ensamblador, tengo el texto pc interno, de hace unos 9 años, son dos libros, uno en un cd y el otro libro.
Necesito los registros del procesador de un spectrum 48k, 128k, las banderas. Y un mapa de electronico de todas las piezas electronicas que tiene los spectrum 48k, 128k.
Me han dejado un emulador echo en c, para spectrum 48k
Mi intención es programar en ensamblador un emulador spectrum en castellano, catalán, latín, ingles, italiano, griego moderno, frances.
Se latín para traducir un libro y ingles. Italiano muy facil, pero en griego las silabicas se confunden, y el griego clasico son 4 dialectos y 3 declinaciones, y el griego moderno es otro dialecto.
O sea 5 dialecto el griego, me interesa hacer un emulador spectrum en 8 lenguas.
Donde puedo encontrar un foro hablar de sistemas Unix Like System V y BSD(freeBSD, openBSD, Debian, Sco Unix).
Desde whireshark, un sniffer me enterado de que me espian más de 100,000 empresas, como apple, cisco, y miles de usuarios.
IVÁN RODELLAS GARCÍA, VOY A REGISTRARME EN EL FORO.
Demasiadas preguntas en una. Intentaré responder:
- Si pones la duda en el foro de SQL es probable que nadie te conteste, porque no es de SQL.
- He hecho poco en COBOL y hace mucho tiempo, así que no te puedo responder.
- De cortafuegos sé casi nada, tampoco te puedo responder.
- En cuanto a hacer un emulador en ensamblador, me parece un paso atrás por lo difícil que sería de mantener y porque no será portable entre distintos sistemas operativos, pero no te costará encontrar alguno que otro para tomar como punto de partida, como "bacteria":
http://bacteria.speccy.org/
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)