what is the function of module IGZ**** in COBOL.

xuwen · Posted: Tue Apr 28, 2015 3:05 pm

Hi Experts,

Would I know where I can find the function description for those IGZ*** (like IGZCXDI, IGZCXMU) modules?

Bill Woodger · Posted: Tue Apr 28, 2015 3:28 pm

You have to search-engine it, and hope to get lucky. Those two look like double-precision (floating point) divide and multiply.

Perhaps quicker than search-engineing is to generate the pseudo-assembler (NOFFSET,LIST) and see what COBOL source is using them.

Why do you want to know?

Robert Sample · Posted: Tue Apr 28, 2015 5:48 pm

You may not be able to find what they do. IBM releases some -- but not all -- information about their systems and compilers. I don't know if the IGZ module descriptions have been released or not.

abhijit.nayak01 · Posted: Thu May 21, 2015 2:45 pm

IGZEDT4 is used to get the date like I am using in one my programs:

Bill Woodger · Posted: Thu May 21, 2015 3:41 pm

No, that's a bad example. In general, it would be a bad idea to CALL IGZ* routines.

In the specific, IGZEDT4 was a workaround supplied by IBM to allow COBOL II programs to get a "current date" with four-digit year. Using ACCEPT ... to get the date only got you two digits.

However, any IBM COBOL beyond COBOL II does not have that problem (I think this was also possible for later releases of COBOL II with the intrinsic functions). The expected way for you to do this for new code is:

Bill O'Boyle · Posted: Thu May 21, 2015 4:22 pm

Try coding this in a test program -

abhijit.nayak01 · Posted: Mon May 25, 2015 5:06 pm

Thanks. I changed the program for date.

Bill Woodger · Posted: Mon May 25, 2015 7:15 pm

Thanks.

Also, I forgot to mention, change your date to a PIC X field. I advise that for all fields which are "numbers" simply because they contain numerals, or they have the word number in the name. In this case, if left a 9(8), the wrong data will get into the date field :-)