> .... however, the document mentions that 'ILE COBOL > cannot directly import... Errno variable...'. And it is > suggested that a C module .... Is there a way > to get the error number/description in COBOL or CL - without > having to purchase another compiler? Where do the error > numbers and messages reside? First point - unless your system is on very old release (pre V4R5) you already "own" the C compiler and the RPG compiler and the WDSC development tools and .... But you don't need to install the C compiler - you can do what you need from COBOL. Excuse me if I have this slightly wrong as I do nearly all of my work in RPG and my COBOL is rusty to put it mildly. You will also need to specify PROCESS NOMONOPRC and add the binding directory QC2LE to CRTBNDCBL. If you want the associated error text use 'strerror' working-storage section. 77 p-errno POINTER. 77 p-strerror POINTER. linkage section. 77 errno PIC S9(9) BINARY. * The length of strerror is arbitrary - the actual length is delimited by hex '00' * since this is a C-type character string. 77 strerror PIC X(128). CALL PROCEDURE "__errno" RETURNING p-errno SET ADDRESS OF errno TO p-errno CALL PROCEDURE "strerror" USING errno RETURNING p-strerror SET ADDRESS OF strerror to p-strerror * display of strerror will be a mess - may include the X'00' - but this is just a demo DISPLAY "Error: " errno " - " strerror Jon Paris www.Partner400.com
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.