Menu
▾
▴
tiny-cobol-users
You can subscribe to this list here.
| 1999 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(341) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2000 |
Jan
(42) |
Feb
(22) |
Mar
(59) |
Apr
(12) |
May
(15) |
Jun
(30) |
Jul
(25) |
Aug
(13) |
Sep
(98) |
Oct
(51) |
Nov
(95) |
Dec
(99) |
| 2001 |
Jan
(105) |
Feb
(175) |
Mar
(411) |
Apr
(310) |
May
(294) |
Jun
(213) |
Jul
(132) |
Aug
(82) |
Sep
(26) |
Oct
(121) |
Nov
(181) |
Dec
(96) |
| 2002 |
Jan
(52) |
Feb
(128) |
Mar
(141) |
Apr
(111) |
May
(149) |
Jun
(164) |
Jul
(33) |
Aug
(77) |
Sep
(62) |
Oct
(92) |
Nov
(14) |
Dec
(33) |
| 2003 |
Jan
(33) |
Feb
(58) |
Mar
(120) |
Apr
(180) |
May
(206) |
Jun
(110) |
Jul
(232) |
Aug
(207) |
Sep
(103) |
Oct
(122) |
Nov
(42) |
Dec
(68) |
| 2004 |
Jan
(83) |
Feb
(107) |
Mar
(90) |
Apr
(7) |
May
(42) |
Jun
(36) |
Jul
(11) |
Aug
(24) |
Sep
(67) |
Oct
(116) |
Nov
(96) |
Dec
(22) |
| 2005 |
Jan
(29) |
Feb
(6) |
Mar
(12) |
Apr
(31) |
May
(47) |
Jun
(12) |
Jul
(76) |
Aug
(69) |
Sep
(7) |
Oct
(21) |
Nov
(5) |
Dec
(4) |
| 2006 |
Jan
(5) |
Feb
(7) |
Mar
(7) |
Apr
(3) |
May
(4) |
Jun
(4) |
Jul
(8) |
Aug
(13) |
Sep
(7) |
Oct
(2) |
Nov
(6) |
Dec
(30) |
| 2007 |
Jan
(43) |
Feb
(7) |
Mar
(2) |
Apr
(4) |
May
(11) |
Jun
(1) |
Jul
|
Aug
|
Sep
(22) |
Oct
(18) |
Nov
(6) |
Dec
(31) |
| 2008 |
Jan
(1) |
Feb
(2) |
Mar
(3) |
Apr
|
May
|
Jun
(3) |
Jul
(1) |
Aug
(2) |
Sep
(2) |
Oct
(11) |
Nov
(8) |
Dec
|
| 2009 |
Jan
(6) |
Feb
(4) |
Mar
|
Apr
|
May
(2) |
Jun
|
Jul
|
Aug
(3) |
Sep
|
Oct
(3) |
Nov
|
Dec
(8) |
| 2010 |
Jan
(15) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(4) |
Nov
|
Dec
|
| 2011 |
Jan
|
Feb
|
Mar
|
Apr
(12) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2012 |
Jan
(7) |
Feb
(3) |
Mar
|
Apr
|
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2014 |
Jan
(2) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: David E. <de...@us...> - 2007-09-06 21:39:07
|
Reg wrote: > Thanks David, will follow up..... eventually. > Currently sinking under workload, but still > keen on sorting this. > Any idea when CVS moving to stable? Well, it is policy to keep SF CVS stable. Meaning that it should compile and run. The current SF CVS version should be relatively stable. It passed the 'test_suite' tests. But a large number of changes have been made to the sources, especially in the RTL. So further testing will be required. For example the indexed file IO RTL has been radically changed. Indexed files are now stored using a data (.dat) file and a index file (.dbx). This makes indexed files incompatible with files created with previous versions of TC. In any case, any feedback regarding current SF CVS version, would be appreciated. Cheers |
|
From: Reg <re...@ri...> - 2007-09-06 19:45:27
|
David Essex-2 wrote: > > Reg wrote: > > > ... > >> Thanks for rapid response. > >> Doesn't seem to matter which source code, so > >> looks like compiler bug. > >> Will debug it when I get chance, probably > >> about 3 or 4 weeks. > >> Meanwhile, I seem to recall someone muttering > >> about gcc 3 returning a yes/ok instead of a 0/1 > >> or vice versa on a memory alloc, so might try > >> running on an older machine. > > The latest release (and CVS) was developed using GCC3x. > > AFAIK, TC was never tested on any GCC4. And there were some problems > reported. I don't recall the specifics. > > If you are feeling REALLY adventurous, you could try the current 'new > and improved' CVS version. > > Cheers > > PS. > How to download CVS version using anonymous CVS: > cvsopts='-da...@ti...:/cvsroot/tiny-cobol' > cvs $cvsopts login > Password: <enter> > cvs -z3 $cvsopts co -P development > > > > > ------------------------------------------------------------------------- > This SF.net email is sponsored by: Splunk Inc. > Still grepping through log files to find problems? Stop. > Now Search log events and configuration files using AJAX and a browser. > Download your FREE copy of Splunk now >> http://get.splunk.com/ > _______________________________________________ > Tin...@li... > https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users > > Thanks David, will follow up..... eventually. Currently sinking under workload, but still keen on sorting this. Any idea when CVS moving to stable? Regards, Reg. -- View this message in context: http://www.nabble.com/Segmentation-Fault-tf4383688.html#a12530034 Sent from the tiny-cobol-users mailing list archive at Nabble.com. |
|
From: David E. <de...@us...> - 2007-09-06 18:15:53
|
Reg wrote: > ... >> Thanks for rapid response. >> Doesn't seem to matter which source code, so >> looks like compiler bug. >> Will debug it when I get chance, probably >> about 3 or 4 weeks. >> Meanwhile, I seem to recall someone muttering >> about gcc 3 returning a yes/ok instead of a 0/1 >> or vice versa on a memory alloc, so might try >> running on an older machine. The latest release (and CVS) was developed using GCC3x. AFAIK, TC was never tested on any GCC4. And there were some problems reported. I don't recall the specifics. If you are feeling REALLY adventurous, you could try the current 'new and improved' CVS version. Cheers PS. How to download CVS version using anonymous CVS: cvsopts='-da...@ti...:/cvsroot/tiny-cobol' cvs $cvsopts login Password: <enter> cvs -z3 $cvsopts co -P development |
|
From: Reg <re...@ri...> - 2007-09-06 09:05:45
|
David Essex-2 wrote: > > Reg wrote: > > > Is there a size limit for TC programs? > > Using latest Fedora/gcc/etc. get compiler fail > > on "Segmentation Fault" with larger programs > > which compile and run perfectly with OpenCobol, Acu, MF. > > Anyone any ideas? > > There is no specific source SIZE limit on TC. > > But, no stress tests have been performed using source code SIZE as a > parameter. > > I have compiled and run fairly large programs, but > but then again it depends on what is considered a 'large program'. > > In any case I suspect this to be some sort of bug, and without a sample > to test there is no way to trace it. > > If you are feeling adventurous, you can compile the TC source with the > '-g' option, then use GDB to isolate the seg-fault location. > > > Hope this helps. > > PS. > Please do not post any large and/or proprietary source code) > > Hi David, > Thanks for rapid response. > Doesn't seem to matter which source code, so looks like compiler bug. > Will debug it when I get chance, probably about 3 or 4 weeks. > Meanwhile, I seem to recall someone muttering about gcc 3 returning a > yes/ok instead of a 0/1 or vice versa on a memory alloc, so might try > running on an older machine. > Regards, > Reg. > > > > ------------------------------------------------------------------------- > This SF.net email is sponsored by: Splunk Inc. > Still grepping through log files to find problems? Stop. > Now Search log events and configuration files using AJAX and a browser. > Download your FREE copy of Splunk now >> http://get.splunk.com/ > _______________________________________________ > Tin...@li... > https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users > > -- View this message in context: http://www.nabble.com/Segmentation-Fault-tf4383688.html#a12518261 Sent from the tiny-cobol-users mailing list archive at Nabble.com. |
|
From: David E. <de...@us...> - 2007-09-06 06:01:03
|
Reg wrote: > Is there a size limit for TC programs? > Using latest Fedora/gcc/etc. get compiler fail > on "Segmentation Fault" with larger programs > which compile and run perfectly with OpenCobol, Acu, MF. > Anyone any ideas? There is no specific source SIZE limit on TC. But, no stress tests have been performed using source code SIZE as a parameter. I have compiled and run fairly large programs, but but then again it depends on what is considered a 'large program'. In any case I suspect this to be some sort of bug, and without a sample to test there is no way to trace it. If you are feeling adventurous, you can compile the TC source with the '-g' option, then use GDB to isolate the seg-fault location. Hope this helps. PS. Please do not post any large and/or proprietary source code) |
|
From: Reg <re...@ri...> - 2007-09-05 12:14:25
|
Is there a size limit for TC programs? Using latest Fedora/gcc/etc. get compiler fail on "Segmentation Fault" with larger programs which compile and run perfectly with OpenCobol, Acu, MF. Anyone any ideas? Reg. -- View this message in context: http://www.nabble.com/Segmentation-Fault-tf4383688.html#a12496784 Sent from the tiny-cobol-users mailing list archive at Nabble.com. |
|
From: David E. <de...@us...> - 2007-06-12 23:05:39
|
This is off topic but ... There is a Perl module with COBOL data types called COBOL-IO(1). From the COBOL-IO web site. I have to deal with COBOL programs from time to time, usually to manipulate data files, bringing them into a data base and/or updating information in a data file for an existing COBOL application. To make this process a little easier, I developed a Perl module for parsing the Data Division definition from the COBOL source code and parse the data on a workstation, which would then allow me to manipulate the data file from Perl or a spreadsheet. The COBGUI.pl file is a TK-based GUI front-end to the module, that will allow you to specify the data file, COBOL source file, etc. and quickly convert the data to a CSV file. You can then read the file into a spreadsheet or database pretty easily. 1) COBOL-IO Perl Module http://lizardslounge.org/cobolio.html |
|
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: 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-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 |
|
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: 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: David E. <de...@us...> - 2007-05-11 22:43:31
|
John R. Culleton wrote: > ... > Can all the required files be packaged up in > zip file and deployed into a single directory > on the end user's machine? > > I think I can avoid using DLLs although I have > not yet fooled with Tiny on a Windows partition. Yes you can install all files into a single directory. Unless you are deploying a large number of executables, I would use static libraries. This way no TC run-time elements are required by the end user. To save yourself and the end user much aggravation, you may wish to use an installation generation program. When run, the install program which will create short-cuts, un-install file, and most other things which Win32 users expect. TC (MinGW edition) uses INNO setup. It generates an install program from about 20 lines of options (script). See tcobol.iss, generated by the configure script 'tconfig.mingw.sh' from 'info/isetup/tcobol.iss.in'. Some things to keep in mind when using Win32 and MinGW. If a DLL version of a library is found, the DLL will be used in the link step. Console and GUI applications are compiled differently (see tgui02). So if console applications is compiled as a GUI application, the ACCEPT/DISPLAY verbs will not work properly. DLL's need to be installed in the CWD or the PATH or SYSTEM PATH, otherwise the application will fail to run with a DLL not found error dialog. Hope this helps. |
|
From: John R. C. <jo...@we...> - 2007-05-11 12:41:28
|
On Thursday 10 May 2007 22:19, David Essex wrote: > John R. Culleton wrote: > > In Tcl/Tk we have the concept and implementation of > > a feature called a tclkit. > > The entire applicaton, including all necessary runtime > > components, can be packaged into a single zip file which > > can be unzipped and run on a foreign system. > > This is primarily applicable to MSWIn systems, which > > typically won't have a COBOL runtime installed. > > > > Let me start with the basic question: what minimum > > requirement is there on a MSWin system to run a TinyCOBOL > > executable? > > > > End users are not into installing Cygwin etc. > > Any application compiled with MinGW does not require other > libraries (DLL's) to run on any Win32 platform (Asta-la-Vista ?). > > The only requirements to run a TC executable, compiled using MinGW, > is the TC run-time, and the TC run-time helper libraries, PDcurses > and BDB1. Plus what ever extra libraries used (ex. Tcl/Tk). > > If static libraries are used, in the link step, to create a Win32 > executable, then no other libraries (DLL's) need to be installed. > > If any DLL's are used, in the link step, to create a Win32 > executable, then these DLL's are required, to be installed on the > system, to run the executable. > > Hope this helps. > I hope so too:<) Can all the required files be packaged up in zip file and deployed into a single directory on the end user's machine? I think I can avoid using DLLs although I have not yet fooled with Tiny on a Windows partition. John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com |
|
From: David E. <de...@us...> - 2007-05-11 02:22:28
|
John R. Culleton wrote: > In Tcl/Tk we have the concept and implementation of > a feature called a tclkit. > The entire applicaton, including all necessary runtime > components, can be packaged into a single zip file which > can be unzipped and run on a foreign system. > This is primarily applicable to MSWIn systems, which > typically won't have a COBOL runtime installed. > > Let me start with the basic question: what minimum > requirement is there on a MSWin system to run a TinyCOBOL > executable? > > End users are not into installing Cygwin etc. Any application compiled with MinGW does not require other libraries (DLL's) to run on any Win32 platform (Asta-la-Vista ?). The only requirements to run a TC executable, compiled using MinGW, is the TC run-time, and the TC run-time helper libraries, PDcurses and BDB1. Plus what ever extra libraries used (ex. Tcl/Tk). If static libraries are used, in the link step, to create a Win32 executable, then no other libraries (DLL's) need to be installed. If any DLL's are used, in the link step, to create a Win32 executable, then these DLL's are required, to be installed on the system, to run the executable. Hope this helps. |
|
From: John R. C. <jo...@we...> - 2007-05-10 21:26:55
|
In Tcl/Tk we have the concept and implementatin of a feature called a tclkit. The entire applicaton, including all necessary runtime components, can be packaged into a single zip file which can be unzipped and run on a foreign system. This is primarily applicable to MSWIn systems, which typically won't have a COBOL runtime installed. Let me start with the basic question: what minimum requirement is there on a MSWin system to run a Tiny COBOL executable? End users are not into installing Cygwin etc. -- John Culleton Able Indexing and Typesetting Precision typesetting (tm) at reasonable cost. Satisfaction guaranteed. http://wexfordpress.com |
|
From: David E. <de...@us...> - 2007-05-01 19:50:11
|
Hi All, Has any one managed to compile and/or run TC on the Mac OS X (10x), Intel platform ? If so, what problems were encountered ? I would like to add Mac OS X Intel platform, assuming it would require a substantial amount of work. David Essex |
|
From: David E. <de...@us...> - 2007-04-16 17:50:03
|
Jeff Karr wrote: > With COBOL/370, the compiler option SSRANGE can > force an abnormal end to processing at the point > the program tries to exceed the range of > the table. The failure message displays the line > number and the name of the table with the problem. > With this option turned off (NOSSRANGE), > processing continues but you risk storage overlay > problems and failures even in other programs depending > on how wild the subscript value is. I worked with I*M mainframe COBOL compilers where table misalignment caused memory corruption, with-out any compile or run-time warnings or errors. For TC, I think the best approach would be a compile time traps for literals indexes which are out of range, and a run-time option (htrtconf) to deal with identifier indexes which are out of range. I will try to add these features before the next TC release. |
|
From: jeff k. <jef...@ya...> - 2007-04-13 19:41:21
|
With COBOL/370, the compiler option SSRANGE can force an abnormal end to processing at the point the program tries to exceed the range of the table. The failure message displays the line number and the name of the table with the problem. With this option turned off (NOSSRANGE), processing continues but you risk storage overlay problems and failures even in other programs depending on how wild the subscript value is. tin...@li... wrote: Send Tiny-cobol-users mailing list submissions to tin...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users or, via email, send a message with subject or body 'help' to tin...@li... You can reach the person managing the list at tin...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of Tiny-cobol-users digest..." Today's Topics: 1. occurs bug ?? (Carlinux) ---------------------------------------------------------------------- Message: 1 Date: Fri, 13 Apr 2007 08:35:08 -0300 From: Carlinux Subject: [Tiny-cobol-users] occurs bug ?? To: tiny-cobol-users Cc: "Fernando Wuthstrack - InfoCont Sistemas Integrados Ltda." Message-ID: <200...@te...> Content-Type: text/plain; charset=US-ASCII identification division. program-id . occurserr. environment division. data division. working-storage section. 01 WK-CADPRO. 03 PRO-WS. 05 PRO-WS1 OCCURS 8 TIMES. 10 AJ-PRODUTO-WS PIC 9(05). 10 AJ-QTDE-WS PIC 9(04). 10 AJ-POSNEG-WS PIC X. procedure division. inicio. ***** occurs = 8 move 10 permited, BUG??? ***** move 1010 to aj-produto-ws (10) MOVE 10 TO AJ-QTDE-WS (10) MOVE "P" to aj-posneg-ws (10) display aj-produto-ws (10) display aj-qtde-ws (10) display aj-posneg-ws (10). stop " " stop run. -- Carlucio Lopes- Cobolito 62-8415-8939 msn:car...@ho... Entenda Pirataria => http://www.carlinux.v10.com.br Compilador Cobol Free http://tinycobol.org em Portugues Porque Cobol? ==> http://www.clubecobol.com.br/cc_porque_cobol_02.asp Projeto Debian Brasil http://cdd.debian-br.org Tinycobol/Debian Gnu-Linux/Postgresql/Tcl-Tk ------------------------------ ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV ------------------------------ _______________________________________________ Tiny-cobol-users mailing list Tin...@li... https://lists.sourceforge.net/lists/listinfo/tiny-cobol-users End of Tiny-cobol-users Digest, Vol 11, Issue 1 *********************************************** --------------------------------- Ahhh...imagining that irresistible "new car" smell? Check outnew cars at Yahoo! Autos. |
|
From: David E. <de...@us...> - 2007-04-13 19:20:07
|
Carlinux wrote: > ... > working-storage section. > ... > 05 PRO-WS1 OCCURS 8 TIMES. > 10 AJ-PRODUTO-WS PIC 9(05). > 10 AJ-QTDE-WS PIC 9(04). > 10 AJ-POSNEG-WS PIC X. > ... > procedure division. > ... > * occurs = 8 move 10 permited, BUG??? > move 1010 to aj-produto-ws (10) > ... > MOVE "P" to aj-posneg-ws (10) > display aj-produto-ws (10) > ... > display aj-posneg-ws (10). > ... Yes, this a compile time bug. I will add a error trap fix to the TC grammar. There is also a run-time problem (bug ?), as the following sample code illustates. 01 IDX PIC 9(2). ... MOVE 10 TO IDX. MOVE "P" TO aj-posneg-ws (IDX). I will have to consult the COBOL standard on this one, and add a fix if required. |
|
From: Carlinux <car...@te...> - 2007-04-13 11:25:29
|
identification division.
program-id . occurserr.
environment division.
data division.
working-storage section.
01 WK-CADPRO.
03 PRO-WS.
05 PRO-WS1 OCCURS 8 TIMES.
10 AJ-PRODUTO-WS PIC 9(05).
10 AJ-QTDE-WS PIC 9(04).
10 AJ-POSNEG-WS PIC X.
procedure division.
inicio.
***** occurs = 8 move 10 permited, BUG??? *****
move 1010 to aj-produto-ws (10)
MOVE 10 TO AJ-QTDE-WS (10)
MOVE "P" to aj-posneg-ws (10)
display aj-produto-ws (10)
display aj-qtde-ws (10)
display aj-posneg-ws (10).
stop " "
stop run.
--
Carlucio Lopes- Cobolito 62-8415-8939 msn:car...@ho...
Entenda Pirataria => http://www.carlinux.v10.com.br
Compilador Cobol Free http://tinycobol.org em Portugues
Porque Cobol? ==> http://www.clubecobol.com.br/cc_porque_cobol_02.asp
Projeto Debian Brasil http://cdd.debian-br.org Tinycobol/Debian Gnu-Linux/Postgresql/Tcl-Tk
|
|
From: David E. <de...@us...> - 2007-03-12 15:42:10
|
A new TC update (0.63.61) is available on SF CVS. Variable length files are now supported for sequential and line-sequential. For sequential files, each record will be prefixed with a 1,2,4 byte unsigned integer or can be user defined when a 'DEPENDING ON identifier-1' FD clause is used. The identifier-1 must be a unsigned integer, with a maximum defined by 9(9) or 9(9)COMP/COMP-5 thus giving a maximum record length of 10e9 - 1. The record length prefix is not defined in the COBOL FD record entries, but is required by non-TC programs. For line-sequential files, no record prefixed is added and trailing blanks are not truncated. Error and warnings have been added to trap programmer errors. Currently, there is no support for SORTs and RELATIVE, INDEXED file organization. Sample programs 'test31[abcd].cob' can be found in the 'test.code/t31' directory. Please forward any comments, bugs to this list. |
|
From: David E. <de...@us...> - 2007-03-10 06:58:22
|
Hi All,
A new TC update (0.63.57) is available on SF CVS.
Changes:
Updated grammar for DISPLAY to use CONSOLE, SYSOUT, SYSERR.
Added preliminary support for variable length sequential files.
Format 1:
FD PHONE-FILE
RECORD CONTAINS 10 TO 60 CHARACTERS.
01 PHONE-RECORD-10.
05 FILLER PIC X(10).
01 PHONE-RECORD-60.
05 FILLER PIC X(60).
01 PHONE-RECORD-20.
05 FILLER PIC X(20).
...
Format 2:
FD PHONE-FILE
RECORD CONTAINS 10 TO 60 CHARACTERS
DEPENDING ON RECORD-LENGTH.
01 PHONE-RECORD-10.
05 FILLER PIC X(10).
01 PHONE-RECORD-60.
05 FILLER PIC X(60).
01 PHONE-RECORD-20.
05 FILLER PIC X(20).
...
WORKING-STORAGE SECTION.
...
01 RECORD-LENGTH PIC 999.
* 01 RECORD-LENGTH PIC 9(4) COMP-5.
Format 3:
FD PARTS-FILE
RECORD VARYING 26 TO 53 CHARACTERS.
01 PARTS-RECORD.
05 PARTS-PART-INFO PIC X(20).
05 PARTS-BIN-IDX PIC 999.
05 PARTS-BIN-NUMBER PIC X(3)
OCCURS 1 TO 10 TIMES DEPENDING
ON PARTS-BIN-IDX.
...
WRITE PHONE-RECORD-60.
...
WRITE PARTS-RECORD.
...
READ PHONE-FILE
For formats 1 and 3 TC will prefix each record with a 1,2,4 byte
unsigned integer, depending on the maximum record length.
For format 2 the record prefix is defined by the 'DEPENDING ON
identifier-1' FD clause. Identifier-1 can be either in a DISPLAY or
COMP/COMP-5 formats.
The record length prefix is not defined in the COBOL FD record entries,
but is required by non-TC programs.
The identifier-1 must be a unsigned integer, with a maximum defined by
9(9) or 9(9)COMP/COMP-5 thus giving a maximum record length of 10e9 - 1.
Notes:
Better error traps will be added at a later date.
When using format 3 (OCCURS ... DEPENDING ON identifier-1), identifier-1
must be initialized to the minimum otherwise a RTL warning will result
(bug ?).
Sample programs 'test31[abcd].cob' can be found in the 'test.code/t31'
directory.
Please forward any comments, bugs to this list.
David Essex
|
|
From: Roger W. <si...@si...> - 2007-02-26 07:31:04
|
>I have downloaded and installed the latest open cobol from the website, >and installed it on a mandriva machine. It appears to be compiling my >hello-world program, but when I try to run it, i get the following: > >./test: error while loading shared libraries: libcob.so.1: cannot open >shared object file: No such file or directory Why are you posting OpenCOBOL questions on the TinyCOBOL list ? Anyway, the answer is NOT as Carlucio stated in previous post. Read the README :-) Roger |
24 messages has been excluded from this view by a project administrator.
