[ Foro de SQL (y MySQL) ]

Error con listados de cobol, bajado de la pagina IBM

04-Mar-2018 14:07
Invitado (Iv?n rodellas garc)
1 Respuestas

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.


14-Mar-2018 00:57
Nacho Cabanes (+37)

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.)