Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
midrange.com
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Domenico,
So is this, just also has SQL in it SQLCBLLE. Sorry about calling you by
your last name, I tried compiling with the declaration as you said and the
compiler just throws more errors:
M e s s a g e s
STMT
* 63 MSGID: LNC0915 SEVERITY: 20 SEQNBR: 005702
Message . . . . : The name 'TRANS-COUNT' is not in a unique set
of
names. Accepted.
* 159 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 015601
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 181 MSGID: LNC1326 SEVERITY: 30 SEQNBR: 016502
Message . . . . : 'DATA-AREA' not defined name. Statement or
clause
ignored.
* 193 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 019201
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 201 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 020101
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 209 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 021001
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 217 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 021901
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 227 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 022801
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 235 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 023701
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 243 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 024601
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 251 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 024613
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 259 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 024625
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 267 MSGID: LNC0462 SEVERITY: 20 SEQNBR: 024637
Message . . . . : 'TRANS-COUNT' defined multiple times.
Definition
used is selected by context. Accepted.
* 274 MSGID: LNC1326 SEVERITY: 30 SEQNBR: 025802
Message . . . . : 'DATA-AREA' not defined name. Statement or
clause
ignored.
-----Original Message-----
From: Finucci Domenico [mailto:Domenico.Finucci@Fiditalia.it]
Sent: Friday, October 18, 2002 11:01 AM
To: 'cobol400-l@midrange.com'
Subject: R: Cobol/Seu and Data Areas
Hello, Howard; i'm sorry, i forgot to mention that my source is CBLLE.
Sincerely
Domenico Finucci
Fiditalia , Milano, 02- 4301-2494
-----Messaggio originale-----
Da: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil]
Inviato: venerd́ 18 ottobre 2002 16.47
A: 'cobol400-l@midrange.com'
Oggetto: RE: Cobol/Seu and Data Areas
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Finucci,
That was my first thought but look at this! May be something wrong wit SEU,
certainly something wrong with me! :-)
0023.02 Special-Names.
0023.03 * Trans-Count is Data-Area
0023.04 Data-Area is Trans-Count <== Even checked if case
sensitive nada!
0023.05 .
0024.00 Input-Output Section.
F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=Toggle
F16=Repeat find F17=Repeat change F24=More keys
Syntax error detected at 'DATA-AREA'.
+
Additional Message Information
Message ID . . . . . . : LNC2913 Severity . . . . . . . : 30
Message type . . . . . : Diagnostic
Message . . . . : Syntax error detected at 'DATA-AREA'.
Cause . . . . . : The syntax rules for COBOL do not permit the identified
item at this point in the program.
-----Original Message-----
From: Finucci Domenico [mailto:Domenico.Finucci@Fiditalia.it]
Sent: Friday, October 18, 2002 10:40 AM
To: 'cobol400-l@midrange.com'
Subject: R: Cobol/Seu and Data Areas
Hello, Howard. This works:
SPECIAL-NAMES.
DATA-AREA is YourName
WORKING STORAGE
01 WS-DTAARA pic x.
PROCEDURE ...
ACCEPT WS-DTAARA FROM YourName FOR "DTAARA Phisical name"
Sincerely
Domenico Finucci
Fiditalia , Milano, 02- 4301-2494
-----Messaggio originale-----
Da: Weatherly, Howard [mailto:Howard.Weatherly@dlis.dla.mil]
Inviato: venerd́ 18 ottobre 2002 16.15
A: COBOL400-L@midrange. com (E-mail)
Oggetto: Cobol/Seu and Data Areas
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Has anyone used data areas in COBOL? I am running into an odd problem, here
is a snippet of it:
Create Data Area (CRTDTAARA)
Type choices, press Enter.
Data area . . . . . . . . . . . > DRDACNT Name
Library . . . . . . . . . . . *CURLIB Name, *CURLIB
Type . . . . . . . . . . . . . . > *DEC *DEC, *CHAR, *LGL, *DDM
Length:
Length . . . . . . . . . . . . 13 1-2000
Decimal positions . . . . . . 0 0-9
Initial value . . . . . . . . . 0
Text 'description' . . . . . . . Just a transaction counter
Special-Names.
Trans-Count is Data-Area
.
Input-Output Section.
.
.
1 WS-TRANS-COUNT.
2 TRANS-COUNT Pic S9(13) Packed-Decimal Value 0.
1 WS-MISC-VARIABLES.
2 WS-WORK-LIB Pic X(10) Value Space.
2 WS-NEW-RECORD.
.
.
Accept WS-TRANS-COUNT from Data-Area
for "DRDACNT" library WS-WORK-LIB
.
Display WS-TRANS-COUNT upon Data-Area
for "DRDACNT" library WS-WORK-LIB
.
.
5722WDS V5R1M0 010525 LN IBM ILE COBOL for AS/400 TLMTDOBJ/LMTD615BT
ENDEAVOR 10/16/02 10:25:42 Page 21
M e s s a g e s
STMT
* 11 MSGID: LNC0830 SEVERITY: 20 SEQNBR: 002303
Message . . . . : Environment-name expected, 'TRANS-COUNT' found.
Environment-name CONSOLE assumed.
* 181 MSGID: LNC1400 SEVERITY: 30 SEQNBR: 016502
Message . . . . : A feedback, local data area, data area, or
attribute data mnemonic-name expected. Statement ignored.
* 274 MSGID: LNC1396 SEVERITY: 30 SEQNBR: 025803
Message . . . . : Mnemonic-name of type LOCAL-DATA expected;
'DATA-AREA' found. Statement ignored.
Now what is odd other than the above (which I may have wrong!) is in SEU. If
I put the cursor on either of the "SPECIAL-NAMES." subsection or the
declaration in it, SEU will show an error:
Syntax error detected at 'TRANS-COUNT'.
Additional Message Information
Message ID . . . . . . : LNC2913 Severity . . . . . . . : 30
Message type . . . . . : Diagnostic
____________________________________________
Howard Weatherly
Systems Advisor
Computer Task Group, Inc.
howard.weatherly@dlis.dla.mil
Howard_weatherly@ameritch.net
Howard.Weatherly@ctg.com
"luck favors those who prepare"
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
