Newsgroup: it.comp.os.linux.sys
Titolo: [OTTISSIMO] Qui dentro c'e' un programmatore cobol?

Scusate tanto ma ho bisogno di fare una domanda che non so a chi altri 
rivolgere!
Gli unici gruppi sono in inglese e la domanda e' un po' articolata, non sono 
in grado di farmi capire bene.
Se c'e' chi mi puo' dedicare 1 minuto anche in privato se qui do troppo 
fastidio.... 

 rivolgere!
Io non lo sono ma ne conosco un centinaio circa :-)

Davide D'Amico ha scritto:

togli le "parole chiave" :-) dalla mia mail (valida) e scrivimi pure.
ciao
LEO

Si io..
Chiedi pure.
Ciao
Andrea

 Chiedi pure.
Ti ringrazio moltissimo.
Allora, sto offrendo la mia consulenza ad un cliente che ha un vecchissimo 
ma per lui ancora valido programma scritto in rmcobol su un vecchio sistema 
unix proprietario.
Ora, siccome il server e' morto sto migrando il programma su un sistema 
linux dove ho installato acucobol.
Compilando i sorgenti con l'opzione -cr ho visto che fila via tutto liscio 
come l'olio, dato che questa opzione mantiene la compatibilita' proprio con 
rmcobol.
C'e' un solo problema... l'accept tab! Praticamente sul vecchio sistema 
avveniva che le maschere dove venivano imputati i dati rimanevano 
"valorizzate" e bastava ripassarci sopra con gli invii per riaccettare tali 
dati.
Ora invece questo non avviene piu'.
Le maschere rimangono ancora valorizzate "a video", ma se ci premo l'invio 
sopra la macchina immagazzina "0" invece del dato presente nel campo.
Spero di aver descritto bene il problema.
Come posso risolvere? C'e' qualche parametro a runtime che mi conserva 
questa caratteristica? Sul vecchio runcobol penso che il parametro fosse -k 
o -f non ne sono sicuro, in acucobol invece?
Grazie 1000.

 
Nel manuale non dice niente di particolare.
Secondo me compilando con l'opzione -Vu dovresti risolvere.
Ciao

 Secondo me compilando con l'opzione -Vu dovresti risolvere.
Grazie 1000 per la risposta, ma perche' il mio manpage non riporta 
affatto -Vu? Cosa dovrebbe fare? 

 affatto -Vu? Cosa dovrebbe fare? 
Dovrebbe forzare l'update del campo in fase di accept.
Ciao

 Dovrebbe forzare l'update del campo in fase di accept.
Scusami ma le opzioni che mi acceta sono solo le seguenti:
-Vh   Default intensity is high
-Vl   Default intensity is low
-Va   Alternate ACCEPT intensity
-Vq   Quiet ACCEPT statements
-Vc   Imply CONVERT on numeric ACCEPT
-Vx   Always allow exception keys
-Vb   Treat BLANK LINE as BLANK EOL
-Ve#  Set EXCEPTION mode
Come mai non ho -Vu?

Davide D'Amico ha scritto:

Ma che versione di compilatore hai??
Io ho una ACUCOBOL-GT compiler version 5.2.0.1.
Come opzioni video io ho queste
                           *** Video Options ***
-Vh   Default intensity is high        -Vl   Default intensity is low
-Va   Alternate ACCEPT intensity       -Vq   Quiet ACCEPT statements
-Vc   Imply CONVERT on numeric ACCEPT  -Vx   Always allow exception keys
-Vb   Treat BLANK LINE as BLANK EOL    -Ve#  Set EXCEPTION mode
-Vu   Imply UPDATE on ACCEPT           -Vi   Use item color on erase
Cmq quando lavoravo in software house, una dozzina di anni fa, quando 
facemmo il porting da RM ad Acu non mi ricordo di avere mai avuto il 
problema che mi hai descritto.
Ho cmq trovato le vecchie opzioni che usavamo con il compilatore della 
versione.2 che ad occhio sembra la versione che hai tu.
Le opzioni erano :
-C4 -Z4 -Cr -Zq -Za -Lx
Ciao
Andrea

 Ma che versione di compilatore hai??
ACUCOBOL-GT compiler version 4.1.0
Copyright (c) 1985 - 1998, Acucorp, Inc. 

Davide D'Amico ha scritto:

Ne manuale ho trovato questo :
. INPUT-DISPLAY=value
Determines what happens when the DISPLAY verb operates on an input field 
described in a Screen Section entry. Possible values are:
     * None The field is not displayed.
     * Prompt The field's prompt character is displayed.
     * Spaces (default) The field is displayed as spaces.
     * Value The current (that is, empty and waiting for input) value of 
the field is displayed. This is zero for numeric and numeric-edited 
fields, and spaces for other fields.
10. INPUT-MODE=value
Affects pre-display of data in a Screen Section ACCEPT. Possible values are:
     * Predisplay The current Screen Section value of each input and 
update field is displayed. Each field is then entered as an update field 
(that is, the value can be edited).
     * Update Each input field's current value is echoed on the screen 
when the field is visited.
     * Normal (default) Causes no echoing of input-only fields
Che sono riferite al clbconfig
Prova ad aggiungere al cblconfig la direttiva
SCREEN INPUT-MODE=update
Ciao
Andrea

 SCREEN INPUT-MODE=update
Lo faccio subitissimo.... sei stato veramente gentile.
Grazie! 

 SCREEN INPUT-MODE=update
Ho fatto ma purtroppo il risultato non cambia.
Vuoldire che aggiungero' UPDATE a tutti gli ACCEPT... pazienza.
Comunque grazie di cuore lo stesso. 

Davide D'Amico ha scritto:

Potresti provare anche :
SCREEN INPUT-MODE=Predisplay
     * Predisplay The current Screen Section value of each input and 
update field is displayed. Each field is then entered
(that is, the value can be edited).
Altre cose non ho trovato.
Mi dispiace di non essere riuscito a risolverti il problema.
Ciao
Andrea

 Mi dispiace di non essere riuscito a risolverti il problema.
Mi hai risposto.
E mi hai dato delle dritte sulle quali faro' degli approfondimenti. E' piu' 
che sufficente.
Grazie di nuovo. 

 You will probably want to set the COPYPATH environment variable in order to locate your COPY libraries on your system. For details on how to do this, see the User's Guide Chapter 2, "Compiler and Runtime." 

 ACCEPT W-NOTE LINE 13 POSITION 21 UPDATE ECHO TAB.
Cmq Davide ha un compilatore vers.4 che non contempla l'opzione -Vu.
Ciao
Andrea

 
non sapevo questa cosa dell'update, mi par di capire che in rm/cobol
l'update era automatico, giusto? devo dire che anche in icobol era
automatico, uso le opz per questa compatibilità e non ho bisogno nè di
UPDATE nè di -Vu (prima dell'icobol ho usato rm/cobol...).

 l'update era automatico, giusto? 
Credo ci fosse un flag per la runtime.
Ciao

 Credo ci fosse un flag per la runtime.
Esattamente, solo che non ricordo se era -f o -k
Uno die due credo, dato che il vecchi programmi venivano lanciati con 
runcobol <NOME_PROGRAMMA.COB> -f2 -k.