File dati COBOL e campi COMP3
Dario Fantoni
qualcuno ha informazioni o esempi di codice per "leggere" in chiaro i
campi comp-3 ... per altro non so neppure quale sia il COBOL usato
in ogni debbo leggere file storici prodotti da una applicazione che si
chiama OMEGA.... di piů non so...
Grazie a Tutti
Dario
Alessandro Cara
Mah. potresti provare con una cosa del genere
......
Dim x as string
Dim comp3 as string
Dim comp3conv as string
x= legge record '-------------questa va sostituita, immagino che leggi
un sequenziale
comp3 = mid(x,iniziocampocomp3,lunghezzacampocomp3)
comp3conv=ConverteCOMP3(comp3)
..........
Function convertecomp3(pPar as string) pResult as string
Dim i as integer
Dim sStr as string
sStr = ""
for i=1 to len(pPar)
sStr = sStr & hex(asc(mid(pPar,i,1)))
next
Convertecomp3 = left(sStr,len(sStr) -1)
end function
'N.B. Il byte eliminato e' il segno dovrebbe essere C o F per i positivi
D per i negativi (per 'l'EBCDIC e' sicuro per l'ASCII boh?) ritorna una
stringa se ti serve numero fai val
--
Ari N.B. L'ho scritta al volo e non l'ho provata
Alessandro Cara
Dario Fantoni
news:39E7582C...@blunet.it...
[Cut]
> Mah. potresti provare con una cosa del genere
Anche se non dovesse fungere le sarò sempre
Eternamente obbligato :-)
Grazie e Ciao
Dario
VT @ home
ha scritto:
>(.....)
>Salve a tutti...
>qualcuno ha informazioni o esempi di codice per "leggere" in chiaro i
>campi comp-3 ... per altro non so neppure quale sia il COBOL usato
>in ogni debbo leggere file storici prodotti da una applicazione che si
>chiama OMEGA.... di piů non so...
OMEGA AZIENDA della Omega Data di Vimodrone ?
In tal caso dovrebbe essere Cobol Microfocus.
Per il formato dei dati, vai su www.wotsit.org
>
>Grazie a Tutti
>Dario
>
>
>
Vincenzo Turturro
---------------------------------------------------------
Se no diventiamo tutti **** dai portatili o peggio ancora
provetti poeti fiorentini come vturturro.
(Cosě disse ivan....@tiscalinet.it Ven 25 Aug 2000 09:34:52 +0200)
Dario Fantoni
news:39e775b...@news.tiscalinet.it...
> In tal caso dovrebbe essere Cobol Microfocus.
> Per il formato dei dati, vai su www.wotsit.org
>
> >
>
>
> ---------------------------------------------------------
> Se no diventiamo tutti **** dai portatili o peggio ancora
> provetti poeti fiorentini come vturturro.
>
> (Cosě disse ivan....@tiscalinet.it Ven 25 Aug 2000 09:34:52 +0200)
Denghiů
Dario
---
Concludo adunque che, variando la fortuna e' tempi e stando
li uomini ne' loro modi ostinati, sono felici mentre
concordano insieme e, come e' discordano, infelici. Io
iudico bene questo, che sia meglio essere impetuoso che
respettivo: perché la fortuna č donna ed č necessario,
volendola tenere sotto, batterla e urtarla. E si vede che la
si lascia piů vincere da questi, che da quegli che
freddamente procedono: e perň sempre, come donna, č amica
de' giovani, perchč sono meno respettivi, piů feroci e con
piů audacia la comandano.
----------------------------------------------------------------------------
-----------------------
N. Macchiavelli - Il Principe - XXV, 4