According to the compiler limits appendix of the language reference at
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR31/APPENDIX1.2
the answer is 65,535.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on
Behalf Of
I wonder how COBOL would do if you did try to have more
than 3273 files opened at the same time?
IKJ56866I DATA SET DOTCWS.CTLIB NOT ALLOCATED, CONCURRENT ALLOCATIONS EXCEEDED
This was using BPXWDYN to allocate the files. I did not try to open them just
allocate. Oddly, the return code
We do no C development.
We are beginning to use the CICS Web Services Assistant, which interacts with
the HFS, so we must become functionally literate with the Unix command line.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu]on
Behalf Of P S
Sent:
a listserv, archives and subscription information are available at
https://listserv.meduniwien.ac.at/archives/mqser-l.html
a web board at http://mqseries.net/
--
For IBM-MAIN subscribe / signoff / archive access instructions,
OS/VS COBOL
Using the NOTE statement, the programmer can write commentary that will be
produced on the source listing but not compiled.
Format:
NOTE character string
Any combination of characters from the EBCDIC set may be included in the
character string.
If a NOTE sentence is the first
Which COBOL compiler? If 4.1, did you compile with XMLPARSE(XMLSS) ?
The XML-CODE special register contains different values for the different
parsers. Looking at the codes, though, it appears you're either pre-4.1 or
compiled with XMLPARSE(COMPAT). So...
1 The parser found an invalid
Is there any reason to have 64-bit COBOL on z/OS ?
Parsing or generating _really_ _big_ XML data streams?
In a CICS Web Services provider scenario, one could posit a very large 01
level, only some of which gets filled in for any one request...
01 Work-Areas.
05 Some-Table-Nb
Our solution is to bind twice, once for batch and once for CICS. There is one
application load library for each.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the
I'm afraid to look, but does DB2 behave in a similar manner? Meaning,
you can write a subroutine that does SQL, but you have to create both
a batch load module and a CICS load module because of different binder
requirements?
I believe your fears are become manifest and that you must have
What I'm trying to do is create an internal standard that says all messages
begin with a particular prefix. I'd like to be able to point to an IBM
document that supports the notion of, say, not writing messages to the log
that begin DFH or some such.
I seem to remember reading that IBM
Perhaps CEEISEC
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA3170/2.2.5.4
5?SHELF=CEE2BK71DT=20060629134445 followed by CEEGMTO
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA3170/2.2.5.3
9?SHELF=CEE2BK71DT=20060629134445 followed by adding the offset_seconds
I use the LibraryCenter for my version of z/OS available from
http://www-03.ibm.com/systems/z/os/zos/bkserv/. If you click on your
version of z/OS you get a two-pane browser window with a Java applet running
in the left pane that acts as an index or table of contents. The most
current COBOL,
What I would really like to do is to use Metal C with XPLINK linkage.
Maybe someone more familiar with Metal-C can enlighten me on this.
Kirk, you may want to talk to Chwan-Han Lee. His email address is in his
SHARE presentations, available at
If you need to dynamically allocate the input from your
COBOL program, you can do that to (assuming you're
running Enterprise COBOL).
And there are a number of examples on the CICS Wiki.
http://cicswiki.org/cicswiki1/index.php?title=How_do_I_allocate_a_file_dynam
ically_using_COBOL%3F
Is JCL LALR(1) ? If not, I believe you will have to use a different parser
generator, perhaps ANTLR.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of John McKown
Sent: Friday, August 22, 2008 9:06 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: JCL parser
You can have VS COBOL II modules linked with VS COBOL II and still run
them without VS COBOL II run-time library, you can run them with LE
library.
We have only LE in the DFHRPL. Using ISRDDN I searched the Linklist/LPA
concatenation for IGZ* modules and they are only found in
Has anyone else seen this message in their CICS regions? [z/OS 1.7, CICS TS
3.1]
The program object detecting the error was last compiled in 1999 with VS
COBOL II 1.4 and is _not_ using the LE runtimes. I'm wondering if anyone
else has seen this error and if recompiling with Enterprise COBOL and
Why are you not using the LE runtime?
Not my code, not my app. As I said in the original note, The program
object detecting the error was last compiled in 1999 with VS COBOL II
[...]. At that time, apparently the SYSLIB for the program binder step in
the change management system was set up
Also see http://mqseries.net, the forums are nice.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Ron Wells
Sent: Tuesday, June 10, 2008 10:04 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: MQ
concern or questions is first hand I got-ya's people
I would use SyncSort's JOIN feature (I don't have DFSORT.)
//SORT1EXEC PGM=SORT
//SORTJNF1 DD DISP=SHR,DSN=input.file.1
//SORTJNF2 DD DISP=SHR,DSN=input.file.2
//SYSINDD *
JOINKEYS FILE=F1,
FIELDS=(001,072,A,080,326,A)
JOINKEYS FILE=F2,
Responding to the other possibilities portion, you might find
http://www.cbttape.org/ftp/updates/CBT775.zip interesting. It's the code to
go with SHARE presentation 8247 User Experience: Writing a web-enabled
CICS/COBOL program.
This is _not_ a method to generate a GUI or HTML from your BMS
Regarding optimizing of code done by compilers, I find this interesting:
http://www-1.ibm.com/support/docview.wss?rs=2231context=SS6SG3dc=DA490dc
=DA4A10dc=DA4A30dc=DA420dc=DA480dc=DA500dc=DA410dc=DA4A20dc=DA440dc=
DA460dc=DA430dc=DA470dc=DA400q1=cobpf310.pdfuid=swg27001475loc=en_USc
-8snip-
Thanks for the replies. If I am reading the replies correctly, a move
statement
of:
01 FIELD-1 PIC 9(3).
01 FIELD-2 PIC 9(3) COMP-3.
MOVE FIELD-1 TO FIELD-2.
Will not abend regardless of the data in FIELD-1, unless the fields are
signed.
-8snip-
As Bill Klein pointed
There does not appear to be a combination of NUMPROC and OPT that will cause
an abend.
We did some testing. We ended up passing the literal '86 ' in via the
linkage section to short circuit the compiler's optimizations.
We tried compiling with all the combinations of NUMPROC and OPT. We
This is documented in the Language Environment Programming Guide for your
version of z/OS. If you're z/OS 1.7 or later you can use the CEEOPTS DD,
which is probably the easiest. It's documented for 1.7 at
http://publibz.boulder.ibm.com/bookmgr_OS390/libraryserver/zosv1r7/index.htm
The MA1K MQ SupportPac attempts to mitigate this situation.
http://www-1.ibm.com/support/docview.wss?rs=171uid=swg24009532loc=en_UScs
=utf-8lang=en
Mind the wrap.
-Original Message-
From: Gray, Larry
Also, make sure the task that pulls the last record from the queue
completes
-8snip-
We are having a response problem with an E/Cobol module that has just being
converted from COBII. It is called from an HLASM module not using LE.
-8snip-
If I understand the problem correctly, this is possibly relevant
If you are interested in an Assembler solution, one which executes as a
batch job, I believe I can provide one.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED]
Behalf Of Ira Broussard
Sent: Friday, April 27, 2007 2:32 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject:
Is the zIIP/zAAP suport just for parsing XML documents or does
the support also extend to the creation of XML?
One does have to wonder what's going on inside of IGZCXML. On z/OS 1.7,
compiling a COBOL program containing XML GENERATE and XML PARSE statements
with the Enterprise COBOL 3.4.0
Either JSABESTK or JSABXSTK in the JSAB I believe.
However, my reading of
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2D350/118.0?S
HELF=IEA2BK51DT=20040623161835 [z/OS 1.6] is that this control block is
not GUPI. There is, however, a macro to obtain the information you
Mark [mwvconix] wrote, in part:
-8snip-
With all due respect Tom, I'm not familiar with any IBM documentation
that says I cannot or should not establish my own ESTAE recovery
routines in and around LE based routines. I do not see this in the ASM
manuals, nor have I seen this in the
If the vendor is CA and the product is AllFusion Gen r7.6, then this
statement of direction from CA may give you some relief.
http://supportconnectw.ca.com/public/cool/gen/infodocs/Gen76zOS-Statement_o
f_Direction.pdf
--
For
Oh, I forgot about bit notation. To ignore the
sign nibble (last 4 bits), you'd want to use
2.4 (2 bytes and 4 bits) instead of 2.5.
Thanks for catching my error. Good to have corrections in the archives.
And now I'm not likely to make that mistake again.
Ignore the sign nibble? Or am I missing something?
//SORT EXEC PGM=SORT
//SORTIN DD *
- - 5 Line(s) not Displayed
//SYSINDD *
SORT FIELDS=(1,2.5,BI,A)
//SORTOUT DD SYSOUT=*,LRECL=80
//SYSOUT DD SYSOUT=*
Where the 5 lines not
Well, file 498 on the cbt tape can help you. It's designed for just this
sort of thing. Duplicates in one or both input files don't bother it.
-Original Message-
From: Roberto R. [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 27, 2006 4:41 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re:
Watch the wrap
Page:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/bpxzb641/6.0?DT=2
0040416142419
Book:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/bpxzb641/CONTENTS
?SHELF=DT=20040416142419
Shelf:
I used to have these problems periodically. Eventually I just signed up for
iSource http://www.ibm.com/isource.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message:
I have used CPOOL. Each of my cells was an element of a linked list. I
made no attempt to map/traverse the cell pools themselves. See file 498 on
the CBT site http://www.cbttape.org/ftp/cbt/CBT498.zip.
Using CPOOL instead of GETMAIN/STORAGE created significant performance
improvements in my
I guess I was hoping for some kind of special register ala
SQL as in GE (CURRENT DATE - 365 AYS).
See
http://www-03.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtms
t03.html#t07 and
http://www-03.ibm.com/servers/storage/support/software/sort/mvs/tricks/srtms
t03.html#t7r for
It seems that name/token services are for authorized
assembler programs. That might be a show stopper.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A940/11.1.1?S
HELF=IEA2BK41DT=20040109131857CASE=
--8snip--
11.1.1 Environment
The requirements for the
Jim Horne wrote:
I know this question keeps coming up from time to
time but I couldn't find my the answer in the archives
and I need to know the end of support dates for the
various flavors of COBOL, including the current level
of COBOL.
I use
41 matches
Mail list logo