[cobol] lo stato dell'arte

[lorenzo wjsky]

in questo thread apro una discussione con tutti gli appassionati e i cultori del cobol che intendono confrontarsi con gli strumenti attuali e con l'integrazione
del cobol con il web.
sono di interesse di questa discussione esperienze e conoscenze innovative ma anche storiche di particolare valore.
non è interesse di questa discussione confronti e/o battibecchi con chi non ha pratica e conoscenza approfondita del cobol.
qui si parla solo di cobol.
invito, FIN DA ADESSO, se questa discussione è possibile in questo sito,
I MODERATORI A FAR RISPETTARE QUESTO INTENTO.

[lorenzo wjsky]

a breve inserirò un demo dove ho un piccolo problema. saluti

[lorenzo wjsky]

chiedo al moderatore la rimozione del commento di coffe-killer
IN QUANTO NON ATTINENTE ALL'OGGETTO DELLA DISCUSSIONE.
lorenzo wjsky.

[cdimauro]

Il messaggio di coffe_killer rientra perfettamente nell'argomento del thread. Se hai paura di confrontarti, non aprire thread invocando una censura preventiva. I forum sono nati per discutere, anche se ad alcuni utenti possono non piacere le cose scritte da altri.

[vendettaaaaa]

Ma lasciate perdere. Avete rovinato il thread. Era molto meglio vederlo deserto con solo messaggi suoi.

[lorenzo wjsky]

Originariamente inviato da lorenzo wjsky

in questo thread apro una discussione con tutti gli appassionati e i cultori del cobol che intendono confrontarsi con gli strumenti attuali e con l'integrazione
del cobol con il web.
sono di interesse di questa discussione esperienze e conoscenze innovative ma anche storiche di particolare valore.
non è interesse di questa discussione confronti e/o battibecchi con chi non ha pratica e conoscenza approfondita del cobol.
qui si parla solo di cobol.
invito, FIN DA ADESSO, se questa discussione è possibile in questo sito,
I MODERATORI A FAR RISPETTARE QUESTO INTENTO.

Faccio seguito a quanto dichiarato e inserisco un semplice programmino cobol con il quale inizio la discussione con chi di cobol si INTENDE:

IDENTIFICATION DIVISION.
PROGRAM-ID. ty.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DBK ASSIGN TO DISK
organization is indexed
access mode is dynamic
record key is nr
file status is uex.
SELECT CODFI ASSIGN TO DISK
organization is indexed
access mode is dynamic
record key is KCF
file status is rex.
DATA DIVISION.
FILE SECTION.
FD CODFI
LABEL RECORDS IS STANDARD
DATA RECORD IS KFI
VALUE OF FILE-ID "FKF".
01 KFI.
02 KCF pic X(5).
02 CODF pic X(16).
FD DBK
LABEL RECORDS IS STANDARD
DATA RECORD IS FORM
VALUE OF FILE-ID "MESE".
01 form.
02 nr pic 9(4).
02 filler pic x.
02 itr pic 9.
02 filler pic x.
02 1p pic 9(9).
02 filler pic x.
02 2p pic 9(9).
02 filler pic x.
02 3p pic 9(9).
02 filler pic x.
02 4p pic 9(9).
02 filler pic x.
02 5p pic 9(9).
02 filler pic x.
02 6p pic 9(9).
02 filler pic x.
02 itp pic x.
02 filler pic x(8).
02 fp pic 9.
02 tr pic 9(7).
02 filler pic xX.
02 tikf pic 9(6).
02 filler pic xX.
02 ur pic 9(6).
02 filler pic x.
02 tikp pic 9(6).
02 1pr pic 9(7).
02 2pr pic 9(7).
02 3pr pic 9(7).
02 4pr pic 9(7).
02 5pr pic 9(7).
02 6pr pic 9(7).
02 tvrif pic 9(7).
02 filler pic x.
02 1ppx pic 9(7).
02 2ppx pic 9(7).
02 3ppx pic 9(7).
02 4ppx pic 9(7).
02 5ppx pic 9(7).
02 6ppx pic 9(7).
02 filler pic x(11).
02 1qtx pic 9(2).
02 2qtx pic 9(2).
02 3qtx pic 9(2).
02 4qtx pic 9(2).
02 5qtx pic 9(2).
02 6qtx pic 9(2).
02 filler pic x.
02 DIFFORME PIC X.
02 filler pic x.
02 NOTA1 PIC XX.
02 NOTA2 PIC XX.
02 NOTA3 PIC XX.
02 NOTA4 PIC XX.
02 NOTA5 PIC XX.
02 NOTA6 PIC XX.
02 cfisc pic x(16).
02 filler pic x(5).
02 gsped pic 9(2).
02 filler pic x.
02 msped pic 9(2).
02 filler pic x.
02 asped pic 9(4).
02 filler pic x(5).
02 gmed pic 9(2).
02 filler pic x.
02 mmed pic 9(2).
02 filler pic x.
02 amed pic 9(4).
02 filler pic x(3).
02 CODREG pic 9(5).
02 filler pic x.
02 CODRIC pic 9(10).
02 filler pic x.
02 MCODES pic x(6).
02 filler pic x.
02 MSUGG PIC X.
02 filler pic x(6).
WORKING-STORAGE SECTION.
77 SCTK PIC 9(10) VALUE 0.
77 Triw PIC 9(10) VALUE 0.
77 TTR PIC 9(10) VALUE 0.
77 TTIKF PIC 9(10) VALUE 0.
77 TTIKP PIC 9(10) VALUE 0.
77 TTIKFP PIC 9(10) VALUE 0.
01 cont pic 9999 value 0.
01 NX1 PIC XXX.
01 NX2 PIC X.
01 NX3 PIC X.
01 PNX1 PIC 9 VALUE 1.
01 PNX2 PIC 9 VALUE 7.
01 PNX3 PIC 99 VALUE 16.
01 Wdab pic x(16).
01 Wdaa pic x(16).
01 Wdac pic x(16).
01 HUEX.
02 UEX PIC XX.
01 RUEX.
02 REX PIC XX.
PROCEDURE DIVISION.
a. OPEN INPUT DBK, I-O CODFI.
ZI. READ DBK NEXT RECORD at end go to fin.
za. MOVE CFISC TO CODF.
UNSTRING CFISC INTO NX1 WITH POINTER PNX1.
UNSTRING CFISC INTO NX2 WITH POINTER PNX2.
UNSTRING CFISC INTO NX3 WITH POINTER PNX3.
STRING NX1 DELIMITED BY SIZE
NX2 DELIMITED BY SIZE
NX3 DELIMITED BY SIZE
INTO kcf.
write kfi invalid key perform sistc go to zi.
D. add 1 to cont DISPLAY (15, 50) cont perform sistc
go to zi.
FIN. CLOSE DBK CODFI.
STOP RUN.
sistc section.
s. subtract 3 from pnx1 subtract 1 from pnx2
subtract 1 from pnx3.
ex-sistc. exit.

[mone.java]

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ty.
       ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         SPECIAL-NAMES.
                 DECIMAL-POINT IS COMMA.
          INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT  DBK  ASSIGN TO DISK
                   organization is indexed
                   access mode is dynamic
                   record key is nr
                   file status is uex.
           SELECT  CODFI  ASSIGN TO DISK
                   organization is indexed
                   access mode is dynamic
                   record key is KCF
                   file status is rex.
       DATA DIVISION.
       FILE SECTION.
       FD  CODFI
           LABEL RECORDS IS STANDARD
           DATA RECORD IS KFI
           VALUE OF FILE-ID "FKF".
       01  KFI.
           02  KCF  pic X(5).
           02  CODF  pic X(16).
       FD  DBK
           LABEL RECORDS IS STANDARD
           DATA RECORD IS FORM
           VALUE OF FILE-ID "MESE".
       01  form.
           02  nr  pic 9(4).
           02  filler pic x.
           02  itr  pic 9.
           02  filler pic x.
           02  1p  pic 9(9).
           02  filler pic x.
           02  2p  pic 9(9).
           02  filler pic x.
           02  3p  pic 9(9).
           02  filler pic x.
           02  4p  pic 9(9).
           02  filler pic x.
           02  5p  pic 9(9).
           02  filler pic x.
           02  6p  pic 9(9).
           02  filler pic x.
           02  itp  pic x.
           02  filler pic x(8).
           02  fp  pic 9.
           02  tr  pic 9(7).
           02  filler pic xX.
           02  tikf pic 9(6).
           02  filler pic xX.
           02  ur pic 9(6).
           02  filler pic x.
           02  tikp pic 9(6).
           02  1pr pic 9(7).
           02  2pr pic 9(7).
           02  3pr pic 9(7).
           02  4pr pic 9(7).
           02  5pr pic 9(7).
           02  6pr pic 9(7).
           02  tvrif pic 9(7).
           02  filler pic x.
           02  1ppx pic 9(7).
           02  2ppx pic 9(7).
           02  3ppx pic 9(7).
           02  4ppx pic 9(7).
           02  5ppx pic 9(7).
           02  6ppx pic 9(7).
           02  filler pic x(11).
           02  1qtx pic 9(2).
           02  2qtx pic 9(2).
           02  3qtx pic 9(2).
           02  4qtx pic 9(2).
           02  5qtx pic 9(2).
           02  6qtx pic 9(2).
           02  filler pic x.
           02  DIFFORME PIC X.
           02  filler pic x.
           02  NOTA1 PIC XX.
           02  NOTA2 PIC XX.
           02  NOTA3 PIC XX.
           02  NOTA4 PIC XX.
           02  NOTA5 PIC XX.
           02  NOTA6 PIC XX.
           02  cfisc pic x(16).
           02  filler pic x(5).
           02  gsped  pic 9(2).
           02  filler pic x.
           02  msped  pic 9(2).
           02  filler pic x.
           02  asped  pic 9(4).
           02  filler pic x(5).
           02  gmed  pic 9(2).
           02  filler pic x.
           02  mmed  pic 9(2).
           02  filler pic x.
           02  amed  pic 9(4).
           02  filler pic x(3).
           02  CODREG  pic 9(5).
           02  filler pic x.
           02  CODRIC  pic 9(10).
           02  filler pic x.
           02  MCODES pic x(6).
           02  filler pic x.
           02  MSUGG  PIC X.
           02  filler pic x(6).
       WORKING-STORAGE SECTION.
       77  SCTK  PIC 9(10) VALUE 0.
       77  Triw  PIC 9(10) VALUE 0.
       77  TTR  PIC 9(10) VALUE 0.
       77  TTIKF PIC 9(10) VALUE 0.
       77  TTIKP PIC 9(10) VALUE 0.
       77  TTIKFP PIC 9(10) VALUE 0.
       01  cont pic 9999 value 0.
       01  NX1 PIC XXX.
       01  NX2 PIC X.
       01  NX3 PIC X.
       01  PNX1 PIC 9 VALUE 1.
       01  PNX2 PIC 9 VALUE 7.
       01  PNX3 PIC 99 VALUE 16.
       01  Wdab pic x(16).
       01  Wdaa pic x(16).
       01  Wdac pic x(16).
       01  HUEX.
           02 UEX PIC XX.
       01  RUEX.
           02 REX PIC XX.
       PROCEDURE DIVISION.
       a.    OPEN INPUT  DBK, I-O CODFI.
       ZI.   READ DBK NEXT RECORD at end go to fin.
       za.    MOVE CFISC TO CODF.
             UNSTRING CFISC INTO NX1 WITH POINTER PNX1.
             UNSTRING CFISC INTO NX2 WITH POINTER PNX2.
             UNSTRING CFISC INTO NX3 WITH POINTER PNX3.
             STRING NX1  DELIMITED BY SIZE
                    NX2  DELIMITED BY SIZE
                    NX3  DELIMITED BY SIZE
                    INTO kcf.
             write kfi  invalid key  perform sistc go to zi.
       D.    add 1 to  cont DISPLAY (15, 50) cont perform sistc
             go to zi.
       FIN.  CLOSE DBK CODFI.                      
             STOP RUN.
       sistc section.
       s.    subtract 3 from pnx1 subtract 1 from pnx2
             subtract 1 from pnx3.
       ex-sistc. exit.

Lo metto nel TAG [code]....
cosa fa questo programma?

[lorenzo wjsky]

legge un file ne estrapola la stringa a 16 caratteri denominata cfisc la spezzetta con unstring ne ricava una key e la passa a un altro file, di tipo indexed, e aggiorna il file in i-o con il nuovo elemento ricavato.
il problemino sta nell'invalid key, in scrittura-quando viene generata una chiave gia esistente nel
file FKF. PROBLEMA NON RISOLTO.
lorenzo wjsky.

[shinya]

Per chi volesse avvicinarsi alla programmazione web in cobol:

http://www.coboloncogs.org

[lorenzo wjsky]

Originariamente inviato da shinya

Per chi volesse avvicinarsi alla programmazione web in cobol:

http://www.coboloncogs.org

sono andato a vedere il sito. se non ho capito male si tratta di semplice pubblicità e l'offerta di iscriversi a una mailing list.
l'intento di questo thread è di parlare di cobol pubblicamente.
comunque ti ringrazio. lorenzo wjsky.

[shinya]

Originariamente inviato da lorenzo wjsky

sono andato a vedere il sito. se non ho capito male si tratta di semplice pubblicità e l'offerta di iscriversi a una mailing list.
l'intento di questo thread è di parlare di cobol pubblicamente.
comunque ti ringrazio. lorenzo wjsky.

OKKEY.

[van9]

Originariamente inviato da shinya

OKKEY.

coboloncogs... haha questa è buona

[van9]

Originariamente inviato da coffe_killer

puti secondo: COBOL + web? ma stiamo scherzando? un linguaggio nato nel 1959, quando internet nemmeno era ancora stata pensata

Questa non regge. Lisp è del '58 e tra un Hunchentoot in CL, PLT prima e Racket ora, per non parlare di Clojure e quant'altro siamo tranquillamente sulla cresta dell'onda in quanto a web. C'è "vecchio" e "vecchio" mi vien da dire (COGENT di Reynolds, anyone?)

[cdimauro]

Originariamente inviato da shinya

Per chi volesse avvicinarsi alla programmazione web in cobol:

http://www.coboloncogs.org

You made my day!

(c) <DATE OVERFLOW>


Hanno pure citato il Gamma! Genii...

[Tommo]

Ho deciso, questo thread mi ha aperto gli occhi e il prossimo gioco lo scrivo in Cobol

lorenzo, mi sapresti indicare il modo migliore per programmare in OpenGL/DirectX in Cobol, possibilmente con dei binding per Bullet e Lua?
Sarebbe anche interessante sapere se si puo' ricompilare su .NET per poterlo portare facilmente su Xbox One e mobile tramite MonoDevelop, e/o se c'e' qualche modo di compilarlo nativamente per Android e iOS.
Come libreria di playback per gli ogg e il caricamento delle immagini che mi consigli?

Ah, mi servirebbe anche un IDE visuale con debugger interattivo, e sarebbe bello se questo avesse anche un editor di UI visuale... lato Windows dovrei scrivere dei tool per il level design.
Inoltre il gioco avra' diverse traduzioni (la Korea va forte) e il tutto dovrebbe supportare nativamente UTF-8 a tutti i livelli.

Sono sicuro che il COBOL soddisfera' tutte le mie esigenze professionali

[lorenzo wjsky]

....a tutti gli azzeccagarbugli....piu o meno furbi
o più o meno stupidi, professorini....o millantatori che si agitano in questo o
altri thread sarebbe interessante e meritevole se saprebbero sintetizzare in
massimo 10 righe quello che è scritto qui:

http://www.w3.org/TR/2004/REC-DOM-Le...#ID-1004215813

[lorenzo wjsky]

Originariamente inviato da Tommo

Ho deciso, questo thread mi ha aperto gli occhi e il prossimo gioco lo scrivo in Cobol

lorenzo, mi sapresti indicare il modo migliore per programmare in OpenGL/DirectX in Cobol, possibilmente con dei binding per Bullet e Lua?
Sarebbe anche interessante sapere se si puo' ricompilare su .NET per poterlo portare facilmente su Xbox One e mobile tramite MonoDevelop, e/o se c'e' qualche modo di compilarlo nativamente per Android e iOS.
Come libreria di playback per gli ogg e il caricamento delle immagini che mi consigli?

Ah, mi servirebbe anche un IDE visuale con debugger interattivo, e sarebbe bello se questo avesse anche un editor di UI visuale... lato Windows dovrei scrivere dei tool per il level design.
Inoltre il gioco avra' diverse traduzioni (la Korea va forte) e il tutto dovrebbe supportare nativamente UTF-8 a tutti i livelli.

Sono sicuro che il COBOL soddisfera' tutte le mie esigenze professionali

visto che sei cosi bravo a me basterebbe che tu risolvessi il semplicissimo problema della doppia key del mio listato qui sopra,
...e poi ri-visto che sei cosi bravo se tu postassi qualche app....
anche in marzianoSTRETTO, COSI CHE noi ne potessimo avere qualche utilita
o sollazzo ...te ne saremmo grati
lorenzo wjsky
p.s.
import java.io.BufferedReader;
import java.io.FileReader;
import java.util.Enumeration;
import javax.swing.text.AttributeSet;
import javax.swing.text.BadLocationException;
import javax.swing.text.Element;
import javax.swing.text.ElementIterator;
import javax.swing.text.StyleConstants;
import javax.swing.text.html.HTML;
import javax.swing.text.html.HTMLDocument;
import javax.swing.text.html.HTMLEditorKit;

public class nwt {

public static void main(String args[]) throws Exception {
HTMLEditorKit htmlKit = new HTMLEditorKit();
HTMLDocument htmlDoc = (HTMLDocument) htmlKit.createDefaultDocument();
htmlKit.read(new BufferedReader(new FileReader("test.html")), htmlDoc, 0);
ElementIterator iterator = new ElementIterator(htmlDoc);
Element element;
while ((element = iterator.next()) != null) {
printElement(htmlDoc, element);
}
}
private static void printElement(HTMLDocument htmlDoc, Element element)
throws BadLocationException {
AttributeSet attrSet = element.getAttributes();

Enumeration attrNames = attrSet.getAttributeNames();
while (attrNames.hasMoreElements()) {
Object attr = attrNames.nextElement();

Object tag = attrSet.getAttribute(StyleConstants.NameAttribute);
if (attr == StyleConstants.NameAttribute
&& tag == HTML.Tag.CONTENT) {
int startOffset = element.getStartOffset();
int endOffset = element.getEndOffset();
int length = endOffset - startOffset;
System.out.printf(" Content (%d-%d): '%s'\n", startOffset,
endOffset, htmlDoc.getText(startOffset, length).trim());
}
}
}
}
questa cosetta in java scrive su monitor,
sapresti farla scrivere su hard disk.

[lorenzo wjsky]

Originariamente inviato da Antonio23

non è il cobol il linguaggio su cui dovresti concentrarti.

e poi cosa c'entra col COBOL. qua si parla dello stato dell'arte del COBOL. Prego i moderatori di far rispettare il tema del topic, come dichiarato nel primo post.

"in questo thread apro una discussione con tutti gli appassionati e i cultori del cobol che intendono confrontarsi con gli strumenti attuali e con l'integrazione
del cobol con il web"
INTEGRAZIONE DEL COBOL COL WEB.
QUINDI IL W3C C'ENTRA, ECCOME.
semmai non c'entri nulla tu, che non sei ne un culture ne un appassionato del cobol. ma un denigratore. pero continua pure.
IO CHIEDO L'INTERVENTO DEI MODERATORI CHE VALUTINO CHI C'ENTRA O CHI NON C'ENTRA ...E SE LO RITENGONO OPPORTUNO, CHIUDANO PURE IL THREAD.
lorenzo wjsky.
.

[FreeMan]

Originariamente inviato da lorenzo wjsky

invito, FIN DA ADESSO, se questa discussione è possibile in questo sito,
I MODERATORI A FAR RISPETTARE QUESTO INTENTO.

Originariamente inviato da lorenzo wjsky

chiedo al moderatore la rimozione del commento di coffe-killer
IN QUANTO NON ATTINENTE ALL'OGGETTO DELLA DISCUSSIONE.
lorenzo wjsky.

Originariamente inviato da lorenzo wjsky

semmai non c'entri nulla tu, che non sei ne un culture ne un appassionato del cobol. ma un denigratore. pero continua pure.
IO CHIEDO L'INTERVENTO DEI MODERATORI CHE VALUTINO CHI C'ENTRA O CHI NON C'ENTRA ...E SE LO RITENGONO OPPORTUNO, CHIUDANO PURE IL THREAD.
lorenzo wjsky.
.

Mi pare che voglia parlare solo te e avere ragione su tutto e tutti.. apriti un blog come fanno in tanti

qui i mod fanno altro e non sono al comando degli utenti

Originariamente inviato da lorenzo wjsky

....a tutti gli azzeccagarbugli....piu o meno furbi
o più o meno stupidi, professorini....o millantatori che si agitano in questo o
altri thread sarebbe interessante e meritevole se saprebbero sintetizzare in
massimo 10 righe quello che è scritto qui:

visto l'atteggiamento e gli insulti ti invito veramente ad aprirti un blog con i commenti bloccati

utente bannato

CLOSED!!

>bYeZ<