Menu
▾
▴
tiny-cobol-users
|
From: Info - E. S.r.l. <in...@es...> - 2007-05-17 16:35:12
|
Hi all I have download and open tar file for start porting of old source of cobol for microfocus compiler. But i have this problem on directory /compiler /usr/local/src/tinycobol-0.63# make Making all in compiler make[1]: Entering directory `/usr/local/src/tinycobol-0.63/compiler' gcc -I/usr/include -I/usr/local/include -I../lib -I../ -c scan.c scan.c:1076: error: expected â=â, â,â, â;â, âasmâ or â__attribute__â before âYY_PROTOâ scan.l:744: error: expected â=â, â,â, â;â, âasmâ or â__attribute__â before âYY_PROTOâ make[1]: *** [scan.o] Error 1 /usr/local/src/tinycobol-0.63# cd compiler /usr/local/src/tinycobol-0.63/compiler# make Making all in compiler make[1]: Entering directory `/usr/local/src/tinycobol-0.63/compiler' gcc -I/usr/include -I/usr/local/include -I../lib -I../ -c scan.c scan.c:1076: error: expected â=â, â,â, â;â, âasmâ or â__attribute__â before âYY_PROTOâ scan.l:744: error: expected â=â, â,â, â;â, âasmâ or â__attribute__â before âYY_PROTOâ make[1]: *** [scan.o] Error 1 Have you think, where is problem ? Regards Massimo Spataro |
|
From: John R. C. <jo...@we...> - 2007-05-17 19:25:01
|
On Thursday 17 May 2007 12:35, Info - ESS S.r.l. wrote: > Hi all > > I have download and open tar file for start porting of old source > of cobol for microfocus compiler. But i have this problem on > directory /compiler Did you do the ./configure step first? If you did, was it successful? -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com _________________________________________________________________ Need personalized email and website? Look no further. It's easy with Doteasy $0 Web Hosting! Learn more at www.doteasy.com |
|
From: McMax - L. <mc...@li...> - 2007-05-18 16:21:35
|
I have compile with this option
./configure --enable-mfcomp --enable-lockserv --with-readline --enable-debug
I have this section on my old source Microfocus and this create error on
compile
# htcobol prova01.cbl
prova01.cbl: 3: error: syntax error, on or before '*'
This is source from line 1:
identification division.
program-id. prova01.
*
* gestione archivio centri di lavoro
*
environment division.
configuration section.
special-names.
console is crt
crt status is tasto-fun
decimal-point is comma.
The comment line is wrong on column 7 ?
I have move comment line to 0 column and compiler stop with this error:
htcobol prova01.cbl
prova01.cbl: 9: error: syntax error, on or before 'console'
prova01.cbl: 9: error: invalid format in SPECIAL-NAMES clause, on or
before 'console'
prova01.cbl: 9: error: invalid format in CONFIGURATION SECTION, on
or before 'console'
prova01.cbl: 9: error: invalid format in CONFIGURATION SECTION, on
or before 'is'
prova01.cbl: 9: error: invalid format in CONFIGURATION SECTION, on
or before 'crt'
prova01.cbl: 10: error: invalid format in CONFIGURATION SECTION, on
or before 'crt'
prova01.cbl: 10: error: invalid format in CONFIGURATION SECTION, on
or before 'status'
prova01.cbl: 10: error: invalid format in CONFIGURATION SECTION, on
or before 'is'
prova01.cbl: 10: error: invalid format in CONFIGURATION SECTION, on
or before 'tasto-fun'
prova01.cbl: 11: error: invalid format in CONFIGURATION SECTION, on
or before 'decimal-point'
prova01.cbl: 11: error: invalid format in CONFIGURATION SECTION, on
or before 'is'
prova01.cbl: 11: error: invalid format in CONFIGURATION SECTION, on
or before 'comma'
prova01.cbl: 12: error: invalid format in CONFIGURATION SECTION, on
or before '.'
I have comment this line 9 and 10 and restart compiler with this new
error on this section:
# htcobol prova01.cbl
prova01.cbl: 17: error: syntax error, on or before 'lock'
prova01.cbl: 17: error: invalid clause in select, on or before 'lock'
prova01.cbl: 17: error: invalid clause in select, on or before 'lock'
prova01.cbl: 17: error: invalid option, MANUAL, on or before 'manual'
prova01.cbl: 23: error: syntax error, on or before 'lock'
prova01.cbl: 23: error: invalid clause in select, on or before 'lock'
prova01.cbl: 23: error: invalid clause in select, on or before
'lock' file-control.
prova01.cbl: 23: error: invalid option, MANUAL, on or before 'manual'
prova01.cbl: 25: error: syntax error, on or before '='
prova01.cbl: 25: error: invalid clause in select, on or before '='
prova01.cbl: 25: error: invalid clause in select, on or before '='
prova01.cbl: 26: error: invalid option, RT-SOC, on or before 'rt-soc'
prova01.cbl: 26: error: invalid option, RT-WK, on or before 'rt-wk'
prova01.cbl: 26: error: invalid option, RT-COD, on or before 'rt-cod'
prova01.cbl: 26: error: invalid option, RT-FASE, on or before 'rt-fase'
prova01.cbl: 26: error: invalid option, RT-TRK, on or before 'rt-trk'
file-control.
select gmwk assign to disk
organization indexed
access dynamic
lock manual <----error line 17
record key wk-key
status fstatus.
select gmrt assign to disk
organization indexed
access dynamic
lock manual <----error line 21
record key rt-key
alternate record key rt-akey1 =
rt-soc rt-wk rt-cod rt-fase rt-trk <-------error line
25 - 26
status fstatus.
Now the console problem have find solution with comment line 9 and 10
for error on file-control i not have skill for correct progamm or option
for compiler.
I have talk with cobol programmer and the programm is write on
microfocus Ansi85 specification but i not have find info into docs for
check dieffrence from tinycobol and this test module write for check
compatibility.
One next line complete source please help me.
identification division.
program-id. prova01.
*
* gestione archivio centri di lavoro
*
environment division.
configuration section.
special-names.
* console is crt
* crt status is tasto-fun
decimal-point is comma.
input-output section.
file-control.
select gmwk assign to disk
organization indexed
access dynamic
lock manual
record key wk-key
status fstatus.
select gmrt assign to disk
organization indexed
access dynamic
lock manual
record key rt-key
alternate record key rt-akey1 =
rt-soc rt-wk rt-cod rt-fase rt-trk
status fstatus.
select gmmi0 assign to disk
organization indexed
access dynamic
lock manual
record key mi0-key
alternate record key mi0-akey1 =
mi0-soc mi0-kordina mi0-cod
duplicates
alternate record key mi0-akey2 =
mi0-soc mi0-numdis mi0-cod
duplicates
alternate record key mi0-akey3 =
mi0-soc mi0-nascosto mi0-cod
alternate record key mi0-akey4 =
mi0-soc mi0-class-1 mi0-cod
alternate record key mi0-akey5 =
mi0-soc mi0-class-2 mi0-cod
alternate record key mi0-akey6 =
mi0-soc mi0-class-3 mi0-cod
status fstatus.
*
select stampa assign to disk
status fstatus.
data division.
file section.
*
fd gmwk
value of file-id nome-file.
01 wk-rec.
05 wk-f0 pic x.
05 wk-key.
10 wk-soc pic x.
10 wk-cod pic x(8).
05 wk-type pic 9.
05 wk-status pic 9.
05 wk-st-bolle pic 9.
05 wk-sched-mode pic 9.
05 wk-flag1 pic 9.
05 wk-montaggio redefines wk-flag1 pic 9.
05 wk-flag2 pic 9.
05 wk-end-rt redefines wk-flag2 pic 9.
05 wk-descr pic x(40).
05 wk-um pic x(4).
05 wk-descr-op pic x(40).
05 wk-costo-ora pic 9(12)v9(6).
05 wk-perc-spgen pic 9(3)v9(2).
05 wk-ore-lead pic s9(3)v9.
05 wk-ore-teor-xgg pic 9(3)v9.
05 wk-ore-disp-xgg pic 9(3)v9.
05 wk-ore-stra-xgg pic 9(3)v9.
05 wk-tot-car-lanc pic s9(8)v9(3).
05 wk-tot-car-pian pic s9(8)v9(3).
05 wk-period-tab occurs 15.
10 wk-nr-gg-lav pic 9(3).
10 wk-car-ord-lanc pic s9(6)v9(3).
10 wk-car-ord-pian pic s9(6)v9(3).
05 wk-f1 pic x(36).
*
fd gmrt
value of file-id nome-file.
01 rt-rec.
05 rt-f0 pic x.
05 rt-key.
10 rt-soc pic x.
10 rt-cod pic x(16).
10 rt-fase pic 9(4).
10 rt-trk pic 9.
05 rt-wk pic x(8).
05 rt-tipop pic 9.
05 rt-time-prep pic 9(6)v9(3).
05 rt-time-lav pic 9(6)v9(3).
05 rt-stand-lot pic 9(6)v9(3).
05 rt-cost-lavest pic 9(12)v9(6).
05 rt-gg-lavest pic s9(4).
05 rt-attrezzature pic x(40).
05 rt-f1 pic x(18).
*
fd gmmi0
value of file-id nome-file.
01 mi0-rec.
05 mi0-f0 pic x.
05 mi0-key.
10 mi0-soc pic x.
10 mi0-cod pic x(16).
05 mi0-trk pic x.
05 mi0-descr pic x(40).
05 filler redefines mi0-descr.
10 mi0-kordina pic x(40).
05 mi0-um pic xx.
05 mi0-altum pic xx.
05 mi0-cconv pic 9(5)v9(5).
05 mi0-mag-pref pic xx.
05 mi0-forn-pref pic x(9).
05 mi0-cl-abc pic x.
05 mi0-cl-merc pic 9(6).
05 mi0-adm-center pic x(6).
05 mi0-aliva pic x(3).
05 mi0-f1 pic x(16).
05 mi0-level pic 99.
05 mi0-wu-chain.
10 mi0-wu-padre pic x(16).
10 mi0-wu-seq pic 9(6).
10 mi0-wu-var pic 99.
05 mi0-lev-lg pic 99.
05 mi0-lg-chain.
10 mi0-lg-padre pic x(16).
10 mi0-lg-seq pic 9(6).
10 mi0-lg-var pic 99.
05 mi0-lev-rl pic 99.
05 mi0-rl-chain.
10 mi0-rl-padre pic x(16).
10 mi0-rl-seq pic 9(6).
10 mi0-rl-var pic 99.
05 mi0-nascosto pic x.
05 mi0-abc-ppp pic x.
05 mi0-minuteria pic x.
05 mi0-defimonta pic x.
05 mi0-anticipra pic x.
05 mi0-voto-rt pic x.
05 mi0-flag-1 pic x.
05 mi0-peso-contr pic x
redefines mi0-flag-1.
05 mi0-flag-2 pic x.
05 mi0-ricambi pic x
redefines mi0-flag-2.
05 mi0-flag-3 pic x.
05 mi0-group-expl pic x
redefines mi0-flag-3.
05 mi0-flag-4 pic x.
05 mi0-flag-5 pic x.
05 mi0-f2 pic x(20).
05 mi0-udat-agg pic 9(8).
05 mi0-numdis pic x(16).
05 mi0-form-dis pic x(4).
05 filler redefines mi0-form-dis.
10 mi0-form-di3 pic x(3).
10 mi0-form-di1 pic x.
05 mi0-peso pic 9(5)v9(5).
05 mi0-tipo-mat pic x.
05 mi0-tipo-prod pic x.
05 mi0-lead-time pic s9(3)v9.
05 mi0-lead-tot pic s9(3)v9.
05 mi0-perc-scarto pic 9(2)v9(2).
05 mi0-subst-da pic x(16).
05 mi0-subst-il pic x(16).
05 mi0-subst-ind pic x.
05 mi0-f3 pic x(16).
05 mi0-class-1 pic x(6).
05 mi0-class-2 pic x(6).
05 mi0-class-3 pic x(6).
05 mi0-f4 pic x(96).
05 filler redefines mi0-f4.
10 mi0-colino pic x(94).
10 filler pic x(02).
*
fd stampa
value of file-id fil-st01
linage 66 footing 60.
01 riga pic x(080).
working-storage section.
*
77 dovesta pic x(30) value spaces.
77 nomesta pic x(08) value spaces.
77 novesta pic 9 value 0.
*
01 local-dep.
05 nomegra pic x(08) value spaces.
05 qualele pic 9 value 0.
05 qualedi pic 9 value 0.
*
05 quale-lp pic x(16) value spaces.
05 callps-lp pic x value spaces.
05 callpdf-lp pic x value spaces.
05 callem-lp pic x value spaces.
05 callen-lp pic x value spaces.
05 cmpen-lp pic 9(04) value 0.
*
05 subj-email pic x(42).
05 filler redefines subj-email.
10 subj-em0 pic x.
10 subj-em1 pic x(30).
10 subj-em2 pic x(06).
10 subj-em3 pic x.
10 subj-em4 pic x(02).
10 subj-em5 pic x.
10 subj-em9 pic x.
05 mess-email pic x(78).
05 filler redefines mess-email.
10 mess-em0 pic x.
10 mess-em1 pic x(35).
10 mess-em2 pic x.
10 mess-em3 pic x(40).
10 mess-em9 pic x.
* ..........................................................
05 wta-flcausa pic x(40).
05 filler redefines wta-flcausa.
10 wta-fl01 pic x.
10 wta-fl02 pic x.
10 wta-fl03 pic x.
10 wta-fl04 pic x.
10 wta-fl05 pic x.
10 wta-fl06 pic x.
10 wta-fl07 pic x.
10 wta-fl08 pic x.
10 wta-fl09 pic x.
10 wta-fl10 pic x.
10 wta-fl11 pic x.
10 wta-fl12 pic x.
10 wta-fl13 pic x.
10 wta-fl14 pic x.
10 wta-fl15 pic x.
10 wta-mgsca pic xx.
10 wta-mgcar pic xx.
10 wta-codiva pic xxx.
10 filler pic x(18).
05 m18-codmat pic x(16) value spaces.
05 m18-um pic x(02) value spaces.
05 m18-codmag pic x(02) value spaces.
05 m18-caus-it pic x(02) value spaces.
05 m18-qtamov pic s9(08)v9(03) value 0.
05 m18-dtmov pic 9(8) value 0.
05 m18-note pic x(20) value spaces.
05 m18-clifor pic x(09) value spaces.
05 m18-sw-cf pic 9 value 0.
05 m18-nrdoc pic x(08) value spaces.
05 m18-tipodoc pic 9 value 0.
05 m18-cod-caus pic x(08) value spaces.
05 m18-des-caus pic x(40) value spaces.
* ..........................................................
05 dep-cod pic x(8).
05 dep-type pic 9 value 0.
05 conta pic 9(06) value 0.
05 dep-az pic 9 value 0.
05 j pic 99 comp value 0.
05 j1 pic s9(4) comp value 0.
05 j2 pic s9(4) comp value 0.
05 js pic s9(4) comp value 0.
05 tabcc occurs 500.
10 el-cod pic x(8).
10 el-des pic x(40).
10 el-tip pic 9.
05 y pic s9(6) comp value 0.
05 ys pic s9(6) comp value 0.
05 tabmat occurs 9999.
10 el-codm pic x(16).
10 el-fase pic 9(04).
10 wr-tip pic xb.
10 wr-des pic x(40).
05 wrighe.
10 wr01 pic x(50) value spaces.
10 wr02 pic x(50) value spaces.
10 wr03 pic x(50) value spaces.
10 wr04 pic x(50) value spaces.
10 wr05 pic x(50) value spaces.
10 wr06 pic x(50) value spaces.
10 wr07 pic x(50) value spaces.
10 wr08 pic x(50) value spaces.
10 wr09 pic x(50) value spaces.
10 wr10 pic x(50) value spaces.
05 dg2.
10 g2-f1 pic x value space.
10 g2-f2 pic x value space.
10 g2-f3 pic x value space.
01 wwk-rec.
05 wwk-f0 pic x.
05 wwk-key.
10 wwk-soc pic x.
10 wwk-cod pic x(8).
05 wwk-type pic 9.
05 wwk-status pic 9.
05 wwk-st-bolle pic 9.
05 wwk-sched-mode pic 9.
05 wwk-flag1 pic 9.
05 wwk-montaggio redefines wwk-flag1 pic 9.
05 wwk-flag2 pic 9.
05 wwk-end-rt redefines wwk-flag2 pic 9.
05 wwk-descr pic x(40).
05 wwk-um pic x(4).
05 wwk-descr-op pic x(40).
05 wwk-costo-ora pic 9(12)v9(6).
05 wwk-perc-spgen pic 9(3)v9(2).
05 wwk-ore-lead pic s9(3)v9.
05 wwk-ore-teor-xgg pic 9(3)v9.
05 wwk-ore-disp-xgg pic 9(3)v9.
05 wwk-ore-stra-xgg pic 9(3)v9.
05 wwk-tot-car-lanc pic s9(8)v9(3).
05 wwk-tot-car-pian pic s9(8)v9(3).
05 wwk-period-tab occurs 15.
10 wwk-nr-gg-lav pic 9(3).
10 wwk-car-ord-lanc pic s9(6)v9(3).
10 wwk-car-ord-pian pic s9(6)v9(3).
05 wwk-f1 pic x(36).
01 comodi-data.
05 data-intera pic 9(8).
05 filler redefines data-intera.
10 dt-int-cc pic 99.
10 dt-int-6 pic 9(6).
10 filler redefines dt-int-6.
15 dt-int-aa pic 99.
15 dt-int-mm pic 99.
15 dt-int-gg pic 99.
*
05 data-giorno.
10 gg pic 99.
10 mm pic 99.
10 aa pic 99.
05 data-num redefines data-giorno pic 9(6).
05 gdate.
10 aa pic 99.
10 mm pic 99.
10 gg pic 99.
05 gdaten redefines gdate pic 9(6).
05 data-1.
10 gior pic 99.
10 mese pic 99.
10 anno pic 99.
05 data-ed redefines data-1 pic 9(6).
05 sw-data pic 9.
05 annodec pic 99v99.
05 annoint pic 99.
*
01 righe.
05 r1.
10 filler pic x(11) value "GM-sgm501 (".
10 r1-soc pic x(10).
10 filler pic x(3) value ") ".
10 filler pic x(28) value spaces.
10 filler pic x(10) value " data el. ".
10 r1-data pic z9.99.99.
10 filler pic x(7) value " pag.".
10 r1-pag pic zz9.
05 r2.
10 filler pic x(08) value spaces.
10 filler pic x(30) value
"Materiali con Fase/Ciclo su : ".
10 r2-cod pic x(08).
10 r2-des pic x(34).
05 r3.
10 filler pic x(80) value
"Codice Materiale Fa
- "se".
05 rb.
10 filler pic x(80) value all "_".
05 r5.
10 r5-cod pic x(12).
10 r5-des pic x(40)bbb.
10 r5-nfase pic zzz9.
01 wtesta global.
05 socintesta pic x(10).
05 marchiogm pic x(4).
05 funzincorso pic x(58).
05 datatesta pic 9(6).
05 fstatus pic xx value spaces.
05 filler redefines fstatus.
10 fstatus1 pic x.
10 fstatus2 pic 9(2) comp-x.
05 errore pic x(40) value spaces.
05 dep-x pic x value space.
05 sw-err pic 9 value 0.
*
05 dittainelab pic x value space.
05 utenteinelab pic x(8) value spaces.
05 magdif-ditta pic xx value spaces.
05 magdif-lavest pic xx value spaces.
05 magdif-lave02 pic xx value spaces.
05 magdif-lave03 pic xx value spaces.
05 magdif-lave04 pic xx value spaces.
05 magdif-lave05 pic xx value spaces.
05 magdif-utente pic xx value spaces.
05 funzione-utente pic 99 value 0.
05 livmenu-utente pic 9 value 0.
05 us-norw-costi pic x value space.
05 us-norw-prezzi pic x value space.
05 us-em-ra pic 99 value 0.
05 us-email pic x(40) value spaces.
05 server-email pic x(40) value spaces.
05 versione-gm pic x value spaces.
05 pass-to-cod pic x(16) value spaces.
*
05 valeuro pic 9(12)v9(6) comp value 1936,27.
05 qualeval pic 9 value 0.
05 lireuro pic 9 value 0.
05 vallire pic 9(03)v9(09) comp value 0,000516456.
*
* 05 path-mi0pr pic x(30) value spaces.
* 05 path-files pic x(30) value spaces.
* 05 path-storici pic x(30) value spaces.
* 05 path-wkfiles pic x(30) value spaces.
05 path-mi0pr pic x(30) value "/u/gm/gmf/".
05 path-files pic x(30) value "/u/gm/gmf/".
05 path-storici pic x(30) value "/u/gm/gmf/".
05 path-wkfiles pic x(30) value "/u/gm/gmf/".
*
05 ditta-mi0pr pic x.
05 ditta-mi1 pic x.
05 ditta-mi2 pic x.
05 ditta-mi3 pic x.
05 ditta-mi4 pic x.
05 ditta-wkrt pic x.
05 ditta-lf pic x.
05 ditta-tie pic x.
*
05 tasto-fun.
10 tret pic x.
10 sret pic x.
10 tafu redefines sret pic 99 comp.
88 f0 value 00.
88 f1 value 01.
88 f2 value 02.
88 f3 value 03.
88 f4 value 04.
88 f5 value 05.
88 f6 value 06.
88 f7 value 07.
88 f8 value 08.
88 f9 value 09.
88 f10 value 10.
10 fret pic x.
*
05 per-integrazione.
10 pathcontab pic x(30) value spaces.
10 dittacontab pic xx value spaces.
05 per-gest-stampe.
10 rpt-to-lp pic x(30) value spaces.
10 rpt-grafica pic x value spaces.
10 dovegra pic x(30) value spaces.
10 proc-graf pic x(60) value spaces.
10 lp-called pic x(16) value spaces.
10 lp-callps pic x value spaces.
10 lp-callpdf pic x value spaces.
10 lp-callem pic x value spaces.
10 lp-callen pic x value spaces.
* 10 path-stampa pic x(30) value spaces.
10 path-stampa pic x(30) value "/u/gm/gmf/".
10 nome-stampa pic x(08) value spaces.
10 allow-vd pic x value spaces.
10 allow-lp pic x value spaces.
10 allow-fx pic x value spaces.
05 passacom.
10 comandox pic x(500) value spaces.
10 filler pic x value x"00".
05 prndif-utente pic x(16) value spaces.
05 numerofax pic x(16) value spaces.
05 wbolla.
10 wblanno pic 99.
10 wblnumero pic 9(6).
10 wior pic x.
05 wchiama pic x(8).
*
screen section.
01 m99.
05 blank screen.
01 m6.
05 highlight line 24 col 41
pic x(39) from errore.
01 x000.
05 reverse-video line 1 col 1
pic x(10) from socintesta.
05 size 4 line 1 col 11 value "-GM-".
05 reverse-video line 1 col 15
pic x(53) from funzincorso.
05 size 4 line 1 col 68 value "-08-".
05 reverse-video line 1 col 72
pic 99.99.99 from datatesta.
01 xace.
05 no-echo line 24 col 40 pic x to dep-x.
01 xfs1.
05 highlight size 40 line 24 col 40 value
" record locked (1=abbandona) < > ".
01 xfs2.
05 line 24 col 71 pic x to dep-x.
01 xfs3.
05 highlight size 40 line 24 col 40 value
" record bloccato <ÄÙ riprova < > ".
01 xfs4.
05 line 24 col 73 pic x to dep-x.
01 xv1.
05 size 52 line 3 col 27 value
"ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿".
05 size 52 line 4 col 27 value
"³ ³".
05 size 52 line 5 col 27 value
"³ ³".
05 size 52 line 6 col 27 value
"³ ³".
05 size 52 line 7 col 27 value
"³ ³".
05 size 52 line 8 col 27 value
"³ ³".
05 size 52 line 9 col 27 value
"³ ³".
05 size 52 line 10 col 27 value
"³ ³".
05 size 52 line 11 col 27 value
"³ ³".
05 size 52 line 12 col 27 value
"³ ³".
05 size 52 line 13 col 27 value
"³ ³".
05 size 52 line 14 col 27 value
"ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ".
05 highlight size 35 line 15 col 30 value
" ESC=fine F1=pag+ F2=pag- ".
01 xv2.
05 line 4 col 28 pic x(50) from wr01.
05 line 5 col 28 pic x(50) from wr02.
05 line 6 col 28 pic x(50) from wr03.
05 line 7 col 28 pic x(50) from wr04.
05 line 8 col 28 pic x(50) from wr05.
05 line 9 col 28 pic x(50) from wr06.
05 line 10 col 28 pic x(50) from wr07.
05 line 11 col 28 pic x(50) from wr08.
05 line 12 col 28 pic x(50) from wr09.
05 line 13 col 28 pic x(50) from wr10.
01 xv3.
05 size 11 line 14 col 65 value " ( . ) ".
05 line 14 col 67 pic zz9 from j.
05 line 14 col 71 pic zz9 from js.
*
01 xa1.
05 highlight size 78 line 15 col 1 value
"codice < >".
05 highlight size 35 line 23 col 5 value
"ESC=fine".
01 xa2.
05 line 15 col 28 pic x(8) using dep-cod.
01 xb1.
05 size 78 line 16 col 1 value
"tipo c. (0=int, 1=est) < >".
05 highlight size 35 line 23 col 5 value
"ESC=fine".
01 xb2.
05 highlight line 16 col 28 pic 9 using dep-type.
01 xb8.
05 blink highlight line 16 col 26 pic x from g2-f1.
01 xc1.
05 size 78 line 17 col 1 value
"denominazione <
- " >".
05 size 78 line 18 col 1 value
"descrizione breve operaz. <
- " >".
05 size 78 line 19 col 1 value
"centro montaggio (1=si) < >".
05 size 50 line 20 col 1 value
"costo orario < >".
05 size 30 line 20 col 41 value
"% spese generali < , >".
05 size 78 line 21 col 1 value
"capacita` (ore/giorno) < >".
05 highlight size 35 line 23 col 5 value
"ESC=fine F4=ann".
01 xc1a.
05 size 78 line 17 col 1 value
"denominazione <
- " >".
05 size 78 line 18 col 1 value
"descrizione breve operaz. <
- " >".
05 size 78 line 19 col 1 value
"centro montaggio (1=si) < >".
05 size 50 line 20 col 1 value
"costo orario < >".
05 size 30 line 20 col 41 value
"% spese generali < , >".
05 size 78 line 21 col 1 value
"capacita` (ore/giorno) < >".
05 highlight size 35 line 23 col 5 value
"ESC=fine F4=ann F5=st.lista mat.".
01 xc2.
05 highlight line 17 col 28 pic x(40) using wwk-descr.
05 highlight line 18 col 28 pic x(40) using wwk-descr-op.
05 highlight line 19 col 28 pic 9 using wwk-montaggio.
05 highlight line 20 col 28 pic zz9,999999
using wwk-costo-ora.
05 highlight line 20 col 60 pic zz9,99 using wwk-perc-spgen.
05 highlight line 21 col 28 pic zz9,9 using
wwk-ore-disp-xgg.
01 xc8.
05 blink highlight line 19 col 26 pic x from g2-f1.
01 xd1.
05 size 78 line 17 col 1 value
"denominazione <
- " >".
05 size 78 line 18 col 1 value
"descrizione breve operaz. <
- " >".
05 size 78 line 19 col 1 value
"centro montaggio ? (1=si) < >".
05 size 78 line 20 col 1 value
"gest.mag.Terzisti ? (1=si) < >".
05 size 30 line 20 col 36 value
"centro rif. < >".
05 size 78 line 21 col 1 value
"tempo attesa (giorni) < >".
05 highlight size 50 line 23 col 5 value
"ESC=fine F4=ann".
01 xd1a.
05 size 78 line 17 col 1 value
"denominazione <
- " >".
05 size 78 line 18 col 1 value
"descrizione breve operaz. <
- " >".
05 size 78 line 19 col 1 value
"centro montaggio ? (1=si) < >".
05 size 78 line 20 col 1 value
"gest.mag.Terzisti ? (1=si) < >".
05 size 30 line 20 col 36 value
"ultima fase ? (1=si) < >".
05 size 78 line 21 col 1 value
"tempo attesa (giorni) < >".
05 highlight size 50 line 23 col 5 value
"ESC=fine F4=ann F5=st.lista mat.".
01 xd2.
05 highlight line 17 col 28 pic x(40) using wwk-descr.
05 highlight line 18 col 28 pic x(40) using wwk-descr-op.
05 highlight line 19 col 31 pic 9 using wwk-montaggio.
05 highlight line 20 col 31 pic 9 using wwk-status.
05 highlight line 20 col 59 pic 9 using wwk-end-rt.
05 highlight line 21 col 28 pic ---9 using wwk-ore-lead.
01 xd8.
05 blink highlight line 19 col 29 pic x from g2-f1.
05 blink highlight line 20 col 29 pic x from g2-f2.
05 blink highlight line 20 col 57 pic x from g2-f3.
procedure division using wtesta.
inizio.
move spaces to nome-file.
string path-files "GMWK" delimited space
into nome-file.
open i-o GMWK
if fstatus not = "00"
move "err.open GMWK > chiudo" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
move spaces to nome-file.
string path-files "GMRT" delimited space
into nome-file.
* open input GMRT
open i-o GMRT
if fstatus not = "00"
move "err.open GMRT > chiudo" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
move spaces to nome-file.
string path-files "GMMI0" delimited space
into nome-file.
* open input GMMI0
open i-o GMMI0
if fstatus not = "00"
move "err.open GMMI0 > chiudo" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
accept gdaten from date
move corr gdate to data-giorno
move data-num to r1-data.
move socintesta to r1-soc.
move 0 to datatesta.
go to via.
gelo.
move 0 to sw-err.
if fstatus1 = "9" and
fstatus2 = 65 or 68 or 213 go to gelo-1.
move spaces to errore display m6
go to ex-gelo.
gelo-1.
move 1 to sw-err.
display xfs3 xfs4 accept xfs4.
if dep-x = "]"
move "possibili incongruenze - chiudo" to errore
display m6
accept xace go to fine-prog.
ex-gelo. exit.
azz-ana.
move spaces to
wwk-f0 wwk-soc wwk-cod wwk-descr wwk-um wwk-descr-op
wwk-f1
move 0 to
wwk-type wwk-status wwk-st-bolle wwk-sched-mode wwk-flag1
wwk-flag2 wwk-costo-ora wwk-perc-spgen wwk-ore-lead
wwk-ore-teor-xgg wwk-ore-disp-xgg wwk-ore-stra-xgg
wwk-tot-car-lanc wwk-tot-car-pian.
move 0 to j.
azz-ana-1.
add 1 to j
if j > 15 move 0 to j go to ex-azz-ana.
move 0 to
wwk-nr-gg-lav (j) wwk-car-ord-lanc (j) wwk-car-ord-pian (j)
go to azz-ana-1.
ex-azz-ana. exit.
contr-del.
move 0 to sw-err.
move ditta-wkrt to rt-soc
move wk-cod to rt-wk
move spaces to rt-cod
move 0 to rt-fase rt-trk
start gmrt key not less rt-akey1 invalid key
go to ex-contr-del.
co-de-1.
read gmrt next ignore lock
at end go to ex-contr-del.
if rt-soc = ditta-wkrt and
rt-wk = wk-cod
move 1 to sw-err.
ex-contr-del. exit.
carica.
move 0 to js.
move ditta-wkrt to wk-soc
move spaces to wk-cod.
start gmwk key not less wk-key invalid key
go to ex-carica.
car-1.
read gmwk next ignore lock
at end go to ex-carica.
if wk-soc not = ditta-wkrt go to ex-carica.
car-2.
add 1 to js
if js > 500
subtract 1 from js
go to ex-carica.
move wk-cod to el-cod (js)
move wk-descr to el-des (js)
move wk-type to el-tip (js).
go to car-1.
ex-carica. exit.
prepara.
move spaces to
wr01 wr02 wr03 wr04 wr05 wr06 wr07 wr08 wr09 wr10.
if js not > 0
go to ex-prepara.
move j2 to j.
move 0 to j1.
prep-1.
if js not > 0
go to ex-prepara.
add 1 to j j1.
if (j > js) and
(j1 = 1)
move js to j
go to prep-1a.
if (j > js) or
(j1 > 10)
subtract 1 from j go to ex-prepara.
prep-1a.
move el-cod (j) to wr-cod
move el-des (j) to wr-des
move spaces to wr-tip
if el-tip (j) = 1
move "E" to wr-tip.
prep-2.
if j1 = 1 move wriga to wr01 go to prep-1.
if j1 = 2 move wriga to wr02 go to prep-1.
if j1 = 3 move wriga to wr03 go to prep-1.
if j1 = 4 move wriga to wr04 go to prep-1.
if j1 = 5 move wriga to wr05 go to prep-1.
if j1 = 6 move wriga to wr06 go to prep-1.
if j1 = 7 move wriga to wr07 go to prep-1.
if j1 = 8 move wriga to wr08 go to prep-1.
if j1 = 9 move wriga to wr09 go to prep-1.
if j1 = 10 move wriga to wr10 go to prep-1.
ex-prepara. exit.
vedi-mat.
move 0 to ys.
move dittainelab to rt-soc
move dep-cod to rt-wk
move spaces to rt-cod
move 0 to rt-fase rt-trk.
start gmrt key not less rt-akey1 invalid
go ex-vedi-mat.
vema-1.
read gmrt next ignore lock
at end
go vema-2.
if rt-soc = dittainelab and
rt-wk = dep-cod
go vema-1a.
go vema-2.
vema-1a.
add 1 to ys.
if ys > 9999
display "overflow tab.mat." at 2440
accept xace
go fine-prog.
move rt-cod to el-codm (ys)
move rt-fase to el-fase (ys)
go vema-1.
vema-2.
if ys not > 0
go ex-vedi-mat.
*
move "501" to nome-stampa.
string path-stampa nome-stampa delimited space
into fil-st01.
open output stampa.
if fstatus1 = "9" and
fstatus2 = 65 or 68 or 213
display spaces at 0201
move "File stampa locked" to errore display m6
accept xace
move " " to errore display m6
go to fine-prog.
*
move 0 to conta
move dep-cod to r2-cod
move wwk-descr to r2-des.
perform int thru ex-int.
move 0 to y.
*
vemat1.
add 1 to y
if y > ys
go vemat3.
move ditta-mi0pr to mi0-soc
move el-codm (y) to mi0-cod
read gmmi0 ignore lock
invalid key go vemat1.
move mi0-cod to r5-cod
move mi0-descr to r5-des
move el-fase (y) to r5-nfase.
write riga from r5 at eop perform fp thru ex-fp.
move spaces to riga.
go vemat1.
vemat3.
move spaces to riga
write riga before page.
*
go ex-vedi-mat.
*.............................................................
move " " to rpt-grafica.
move 1 to cmpen-lp.
*
move path-stampa to dovesta
move nome-stampa to nomesta
move 0 to novesta.
string path-stampa nome-stampa
delimited space into rpt-to-lp.
* call "fs5g5u" using
* wtesta dovesta nomesta novesta
* nomegra
* qualele qualedi subj-email mess-email
* quale-lp
* callps-lp
* callpdf-lp
* callem-lp
* callen-lp
* cmpen-lp.
* cancel "fs5g5u".
* close stampa.
ex-vedi-mat. exit.
fp.
move spaces to riga
write riga before page
perform int thru ex-int.
ex-fp. exit.
int.
add 1 to conta move conta to r1-pag
write riga from r1 move spaces to riga
write riga from r2 after 2 move spaces to riga
write riga from rb after 2 move spaces to riga
write riga from r3 move spaces to riga
write riga.
ex-int. exit.
via.
display m99.
move " centri lavorazione"
to funzincorso.
display x000.
via-1.
display spaces at 0201.
perform carica thru ex-carica.
display xv1.
via-1a.
perform prepara thru ex-prepara.
display xv2 xv3.
ve-xv2.
accept xace.
if f0
go to fine-prog.
if f2
go to via-1b.
if f1
go to via-1c.
display spaces at 1501
go to via-2.
via-1b.
subtract 10 from j2
if j2 < 0
move 0 to j2.
go to via-1a.
via-1c.
move j to j2
go to via-1a.
via-2.
perform azz-ana thru ex-azz-ana.
move spaces to dep-cod
move 0 to dep-type.
display xa1 xa2.
ve-xa2.
move spaces to dg2 errore move 0 to sw-err.
accept xa2.
if f0
go to via-1.
if dep-cod = spaces go to ve-xa2.
ve-xa2-e.
display m6
if sw-err = 1 go to ve-xa2.
*
move ditta-wkrt to wk-soc
move dep-cod to wk-cod.
read gmwk ignore lock
invalid key
go to ana-ins.
ana-agg.
move wk-rec to wwk-rec.
move wwk-type to dep-type
display xb1 xb2.
move "aggiornamento" to errore display m6.
if dep-type = 0
display xc1a xc2 go to agg-int
else
display xd1a xd2 go to agg-est.
agg-int.
move spaces to dg2 errore move 0 to sw-err.
move 0 to dep-az.
accept xc2.
if f0
unlock gmwk
move spaces to errore display m6
display spaces at 0201 go to via-1.
if f5
perform vedi-mat thru ex-vedi-mat
display spaces at 0201
display xv1 xv2 xv3 xa1 xa2 xb1 xb2 xc1a xc2
go agg-int.
if f4 move 1 to dep-az.
if dep-az = 1 go to agg-del.
if wwk-montaggio not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ve-xc2-e.
ve-xc2-e.
display xc8
if sw-err = 1 go to agg-int.
move ditta-wkrt to wk-soc
move dep-cod to wk-cod.
fs-1001.
read gmwk with lock invalid key
move "read inv. gmwk - a" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
perform gelo thru ex-gelo
if sw-err = 1 go to fs-1001.
move dep-type to wwk-type
move wwk-rec to wk-rec.
rewrite wk-rec invalid key
move "rewr.inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "aggiornato" to errore display m6
display spaces at 0201 go to via-1.
agg-est.
move spaces to dg2 errore move 0 to sw-err.
move 0 to dep-az.
accept xd2.
if f0
unlock gmwk
move spaces to errore display m6
display spaces at 0201 go to via-1.
if f5
perform vedi-mat thru ex-vedi-mat
display spaces at 0201
display xv1 xv2 xv3 xa1 xa2 xb1 xb2 xd1a xd2
go agg-est.
if f4 move 1 to dep-az.
if dep-az = 1 go to agg-del.
if wwk-montaggio not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ve-xd2-e.
if wwk-status not = 0 and 1
move "?" to g2-f2 move 1 to sw-err go to ve-xd2-e.
if wwk-end-rt not = 0 and 1
move "?" to g2-f3 move 1 to sw-err go to ve-xd2-e.
ve-xd2-e.
display xd8
if sw-err = 1 go to agg-est.
move ditta-wkrt to wk-soc
move dep-cod to wk-cod.
fs-1002.
read gmwk with lock invalid key
move "read inv. gmwk - b" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
perform gelo thru ex-gelo
if sw-err = 1 go to fs-1002.
move dep-type to wwk-type
move wwk-rec to wk-rec.
rewrite wk-rec invalid key
move "rewr.inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "aggiornato" to errore display m6
display spaces at 0201 go to via-1.
agg-del.
move "F4 per conferma annullamento" to errore display m6
accept xace.
if not f4
unlock gmwk
move space to dg2 errore display spaces at 0201
go to via-1.
perform contr-del thru ex-contr-del.
if sw-err = 0 go to agg-del-ok.
move "annullamento non possibile" to errore display m6
move 1 to sw-err.
if dep-type = 0
go to ve-xc2-e
else
go to ve-xd2-e.
agg-del-ok.
move ditta-wkrt to wk-soc
move dep-cod to wk-cod.
fs-1003.
read gmwk with lock invalid key
move "read inv. gmwk - c" to errore display m6
display fstatus with highlight at 2477
accept xace go to fine-prog.
perform gelo thru ex-gelo
if sw-err = 1 go to fs-1003.
delete gmwk invalid key
move "delete inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "annullato" to errore display m6.
display spaces at 0201 go to via-1.
ana-ins.
move "inserimento" to errore display m6.
display xb1 xb2.
ve-xb2.
move spaces to dg2 errore move 0 to sw-err.
accept xb2.
if f0
go to via-1.
if dep-type not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ve-xb2-e.
ve-xb2-e.
display xb8.
if sw-err = 1 go to ve-xb2.
move dep-type to wwk-type.
if dep-type = 0
go to ins-int
else
go to ins-est.
ins-int.
display xc1 xc2.
ins-xc2.
move spaces to dg2 errore move 0 to sw-err.
move 0 to dep-az.
accept xc2.
if f0
move spaces to errore display m6
display spaces at 0201 go to via-1.
if f4 move 1 to dep-az.
if dep-az = 1 go to no-ins.
if wwk-montaggio not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ins-xc2-e.
ins-xc2-e.
display xc8
if sw-err = 1 go to ins-xc2.
move wwk-rec to wk-rec
move ditta-wkrt to wk-soc
move dep-cod to wk-cod
write wk-rec invalid key
move "write inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "inserito" to errore display m6
display spaces at 0201 go to via-1.
ins-est.
display xd1 xd2.
ins-xd2.
move spaces to dg2 errore move 0 to sw-err.
move 0 to dep-az.
accept xd2.
if f0
move spaces to errore display m6
display spaces at 0201 go to via-1.
if f4 move 1 to dep-az.
if dep-az = 1 go to no-ins.
if wwk-montaggio not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ins-xd2-e.
if wwk-end-rt not = 0 and 1
move "?" to g2-f3 move 1 to sw-err go to ins-xd2-e.
ins-xd2-e.
display xd8
if sw-err = 1 go to ins-xd2.
move wwk-rec to wk-rec
move ditta-wkrt to wk-soc
move dep-cod to wk-cod
write wk-rec invalid key
move "write inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
move "?" to g2-f1 move 1 to sw-err go to ins-xc2-e.
ins-xc2-e.
display xc8
if sw-err = 1 go to ins-xc2.
move wwk-rec to wk-rec
move ditta-wkrt to wk-soc
move dep-cod to wk-cod
write wk-rec invalid key
move "write inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "inserito" to errore display m6
display spaces at 0201 go to via-1.
ins-est.
display xd1 xd2.
ins-xd2.
move spaces to dg2 errore move 0 to sw-err.
move 0 to dep-az.
accept xd2.
if f0
move spaces to errore display m6
display spaces at 0201 go to via-1.
if f4 move 1 to dep-az.
if dep-az = 1 go to no-ins.
if wwk-montaggio not = 0 and 1
move "?" to g2-f1 move 1 to sw-err go to ins-xd2-e.
if wwk-end-rt not = 0 and 1
move "?" to g2-f3 move 1 to sw-err go to ins-xd2-e.
ins-xd2-e.
display xd8
if sw-err = 1 go to ins-xd2.
move wwk-rec to wk-rec
move ditta-wkrt to wk-soc
move dep-cod to wk-cod
write wk-rec invalid key
move "write inv. gmwk - chiudo" to errore display m6
display fstatus with highlight at 2478
unlock gmwk
accept xace go to fine-prog.
unlock gmwk
move "inserito" to errore display m6
display spaces at 0201 go to via-1.
no-ins.
move "operazione annullata" to errore display m6
display spaces at 0201 go to via-1.
fine-prog.
exit program.
With Regards
Massimo Spataro
|
|
From: David E. <de...@us...> - 2007-05-22 20:41:21
|
David Essex wrote:
> Massimo Spataro wrote:
> ...
>> prova01.cbl:14: error: syntax error, on or before 'disk'
>
> select ... assign to disk
> ...
> fd ...
> value of file-id ...
>
> This is a BUG.
> I will fix this on CVS.
I've updated CVS (0.63.67) with this minor BUG fix.
As a work around to this problem, you can use the following.
Change:
select ... assign to { identifier | literal }
Remove 'value of file-id' clause.
FD ...
* value of file-id ...
Finally the following code does not conform to the COBOL-85 standard.
working-storage section.
...
01 wtesta global.
...
procedure division using wtesta.
AFAIK, the identifier 'wtesta' should be in the 'LINKAGE SECTION'.
Hope this helps.
|
|
From: David E. <de...@us...> - 2007-05-21 00:52:10
|
Massimo Spataro wrote:
> I have compile with this option
>
> ./configure --enable-mfcomp --enable-lockserv
> --with-readline --enable-debug
Note that TC does NOT support ALL MF options.
Actually TC only supports only two (2) MF options, the 'DD_' prefix and
'DISPLAY/ACCEPT AT xxyy'.
> I have this section on my old source MF and
> this create error on compile
>
> This is source from line 1:
>
> identification division.
> program-id. prova01.
> environment division.
> configuration section.
> special-names.
> console is crt
> crt status is tasto-fun
> decimal-point is comma.
>
> #htcobol prova01.cbl
> prova01.cbl:3: error: syntax error, on or before '*'
> The comment line is wrong on column 7 ?
> I have move comment line to 0 column and compiler
> stop with this error:
TC supports both the standard (fixed source) format and the open source
format.
TC will use the compile time configuraton file 'htcobolrc' to determine
which format used.
How can you fix this problem :
1) Change the configuraton file, 'htcobolrc'.
#PGM_FORMAT_FREE
PGM_FORMAT_FIXED
OR
2) Over-ride the configuraton file 'htcobolrc' using the command line
option '-F'.
> prova01.cbl: 9: error: syntax error, on or before 'console'
The 'console is crt' special-names clause is not supported (or required) .
> file-control.
> select gmwk assign to disk
> organization indexed
> access dynamic
> lock manual <----error line 17
> record key wk-key
> status fstatus.
> select gmrt assign to disk
> organization indexed
> access dynamic
> lock manual <----error line 21
> record key rt-key
> alternate record key rt-akey1 =
> rt-soc rt-wk rt-cod rt-fase rt-trk
> <-------error line 25 - 26
> status fstatus.
> prova01.cbl:14: error: syntax error, on or before 'disk'
select ... assign to disk
...
fd ...
value of file-id ...
This is a BUG.
I will fix this on CVS.
> prova01.cbl:17: error: syntax error, on or before 'lock'
The 'lock manual' clause is NOT part of the COBOL-85 standard.
Note that there is very limited support for file or record LOCKS in TC.
> prova01.cbl: 25: error: syntax error, on or before '='
The 'alternate record key identifier-1 = { identifier-2 ... identifier-n
}' clause is NOT part of the COBOL-85 standard.
I have not encountered this kind syntax so I don't know how to FIX it.
> I have talk with cobol programmer and the programm is write on
> MF Ansi85 specification but i not have find info into docs for
> check dieffrence from tinycobol and this test module write for check
> compatibility.
Yes, MF is COBOL-85 compliant. However the source uses a lot of MF
specific extentions.
Hope this helps.
|
|
From: David E. <de...@us...> - 2007-05-17 23:39:52
|
Massimo Spataro wrote: > I have download and open tar file for start > porting of old source of cobol for micr*focus > compiler. But i have this problem on directory > /compiler > > tinycobol-0.63# make > Making all in compiler > make[1]: Entering directory ` ... /compiler' > gcc ... -c scan.c > scan.c:1076: error: expected â=â, â,â, â;â, âasmâ > or â__attribute__â before âYY_PROTOâ > scan.l:744: error: expected â=â, â,â, â;â, âasmâ > or â__attribute__â before âYY_PROTOâ > make[1]: *** [scan.o] Error 1 > ... > Have you think, where is problem ? I think that this problem may be caused by a macro 'define' problem with flex versions greater that 2.5.4. Specifically by the following macro 'define', as found in scan.l:61. #define YY_DECL int yylex2 YY_PROTO((void)) The following code will fix the problem for all version (I hope) of flex. #ifdef YY_USE_PROTOS #define YY_DECL int yylex2 YY_PROTO((void)) #else #define YY_PROTO(proto) (void) #define YY_DECL int yylex2(void) #endif Note that TC CVS version 0.63.63 or greater has this fix included. Hope this helps. David Essex |
×
Want the latest updates on software, tech news, and AI?
Get latest updates about software, tech news, and AI from SourceForge directly in your inbox once a month.
Thanks for helping keep SourceForge clean.
X