Search results for query: *

If using the IBM COBOL Set for AIX (or similar compiler), check for MAP and LIST compiler options. You may also want to compare the output with OPT and NOOPT. If you start at: http://publib.boulder.ibm.com/infocenter/comphelp/v7v91/index.jsp?topic=/com.ibm.aix.cbl.doc/pgaix.htm...

Yes, you may include the info in your copy book. So far, there have been NO "conforming" implementations created by any vendor. I don't know of any "programmer oriented" books. (Actually, there is one, but it is in Dutch <G>). Some day, I'll update the FAQ with all the information about it...

Although there was already a FAQ with a "copy-book" of file status codes for "traditional" ('85 Standard) COBOL, I have now added a FAQ with (all the excruciating) details of "standard" file status codes from the '02 Standard. This includes new - 0x *> implementor defined succesful -...

To determin if your compiler supports larger than the base-10 values specified by the number of "9's" in the PICTURE in COMP-? or USAGE BINARY fields, check for a compiler option (or directive) similar to: TRUNC/NOTRUNC or TRUNC(STD) When running in "standard" (TRUNC) mode, then...

It may be in the thread somewhere, but if you are using a compiler that reats COMP the same as USAGE BINARY (which many do - but not all) *AND* you are running in "standard conforming mode" then it is true that a field like: 05 Num1 Pic S9(5)V99 COMP. will "truncate" above +99999.99 or...

If you are using a current IBM mainframe compiler, then make certain that you understand the differences between DBCS and Unicode Checkout the - NSYMBOL compiler option - The NATIONAL-OF and DISPLAY-OF intrinsic functions - What "CCSID" means on an IBM mainframe system All of these...

Also, all the Micro Focus documentation is availabe (for free) online. Check out: http://supportline.microfocus.com//documentation/index.asp Bill Klein

What compiler? What operating system? (Depending upon the answer to these questions, this may be semi-easy or semi-hard or virtually impossible) Bill Klein

Having seen this (or at least a similar) note in another forum, I just wanted to make certain that the original poster understands that when you say "CALL" a program in a CICS environment, that this means that you are using the COBOL CALL statement. If you are using EXEC CICS LINK / XCTL...

Althugh I am aware that some vendors do have extensions allowing OCCURS at the 01 (and some at the 77) level, there are some reasons - not just historical for NOT allowing this. The most obvious (to me) reason has to do with questions of what happens if you allow it for 01-levels under and FD...

To the best of my knowledge, EVERY Micro Focus product since about 1995 has required run-time licenses for ALL applications. I suggest that you check the license agreement, if you have any question about what is and is not legal to distribute without paying run-time licensing fees. Bill Klein

Have you talked to MF about it? Again, it is my understanding that they do hvae some "bundles" (and individual developer prices) that MIGHT meet your needs. Bill Klein

For a 60 to 70 "end-user" situation, you MIGHT also want to contact your Micro Focus "sales representative". I believe that they have "multi-licensing" deals that MIGHT make this more cost-effective than a conversion from one vendor's COBOL to another (depending upon how many Micro Focus...

Working with "mainframe type data items" on a PC raises MANY quesitons. First, what type of mainframe? (My guess is that the person is assuming that all "mainframes" work like IBM MVS, OS/390, and zOS computers - but I could be mistaken on this assumption). That is NOT true. Second, if...

Because I didn't handle the first response correctly, I thought that I would also post a (complete program, you would only need snippets) for converting HEX (in display format) to decimal values. Identification Division. Program-ID. HEX2DEC. Data Division...

OOPS, Please realize that my last reply was WRONG, given the input description that you give us. You said that the input would be in "hex" (2 characters), e.g 00 = X'00' BUT AB = (some charcter) would also be valid. Therefore, to use the approach I suggested, you need to A) allow...

The IBM COBOL for OS/390 and VM (and later IBM MVS and OS/390) compiler all support the ANSI/ISO 1989 Intrinsic Functions module. They do not, however, support one byte binary fields (which I don't think is really necessary for this). Consider using the folloiwng (compatible across platforms...

This also MAY depend upon which release/version of - COBOL - PL/I - Language Environement you are using. There are DEFINITE differences in what is and is not allowable for COBOL / PL/I ILC depending upon what release and version of each of these you are using. Bill Klein

Given the code snippet 03 TABEL1 VALUES ZEROES. 05 XITAB1 PIC S9 OCCURS 10 TIMES INDEXED BY XI1. 03 TABEL2 VALUES ZEROES. 05 XITAB2 PIC S9 OCCURS 10 TIMES. My guess is that you (or the original coder) is not (was not aware that with any ANSI '85 Standard conforming...