IT Answers » ILE Program

What is the best way of printing to two drawers within the same print job?

LLoyd024 — Fri, 30 Sep 2011 14:49:38 +0000

New Discussion Post by

Handling errors in CL Programs

Dcantwell — Tue, 22 Feb 2011 21:10:13 +0000

I’ve been searching all over the internet (and this site) looking for a good way to generically handle errors within a CL program. Everything’s seems very vauge to me.

What I’m looking to do is something like this:

CHGSPLFA   FILE(&SPOOLFILE) SAVE(*NO)  
MONMSG     MSGID(CPF0000)  EXEC('SEND EMAIL WITH ERROR MESSAGE DETAILS TO A USER AND EXIT PROGRAM')

I’d like to know the line it failed at, and all of the message details in the email.

I know you can do EXEC(GOTO CMDLBL(ERROR)) and use SNDDST to send the email. I’m not really sure how to pull the information our of the exception thrown.

I’m so used to taking care of business with try{} catch(e){} in other languages that I never really learned about proper error handling in CL.

Thanks in advance for the help!
Dave

OPM COBOL Calling ILE Program – Passing Parameters

400Programmer — Thu, 07 Oct 2010 15:27:00 +0000

I have created two modules. One with the CRTCBLMOD. This is *MODULE type named TESTCBLLE. The other one, using the CRTCMOD, I created *MODULE type named TESTCILE. Then I used the CRTPGM to create the single program TESTING with the *PGM type and the attribute *CBLLE. When I did the CRTPGM command, the first entry was the CBL module and the second was the C module. I then created a regulard OPM COBOL program called COBOLOPM. This simply has a call to the SANDBOX *PGM. This works great, no problem. Here is the part that is not working. I want to pass a parm from the COBOLOPM as WS-FLAG. This is simply a test to pass a parm from the COBOLOPM *PGM to the TESTCBLLE *MODULE. I do not know how to do this. Obviously only *PGM’s can be called. But if I call the ILE *PGM TESTING (which contains my COBOL ILE module and my C module), how will it know I am passing a parm to just the COBOL module. All I wanted to do was put in the linkage section, the WS-FLAG1 and move a ‘Y’ to it. Then i had a display back in my COBOLPGM, after my call, to display the flag. This was just a test to pass the parm. Can I call the COBOL module?

Calling C ILE Procedure from COBOL 400 Program

400Programmer — Mon, 04 Oct 2010 20:49:56 +0000

I cannot get the parameters correct on this. I created a module for both the C and the COBOL, then used CRTPGM. My COBOL has WS-FIRST-COBOL-NUM PIC S9(2), WS-SECOND-COBOL-NUM PIC S9(2), WS-NUM-TOTAL-COBOL PIC S9(3) defined in WORKING-STORAGE. Then I use those for my call to the C procedure as: CALL PROCEDURE “TESTC” USING WS-FIRST-COBOL-NUM WS-SECOND-COBOL-NUM WS-NUM-TOTAL-COBOL. In the C program I have the following code: #include [stdio.h][/stdio.h]#include [stdio.h][/stdio.h]void “TESTC”(int num1, int num2, int total) { total = num1 + num2); return; } I display the numbers before the call to (I hardcode them in the COBOL) the C program and after. Before it displays as 08 09 000 and so does after. I know there is something with the call by reference but I cannot figure it out. I tried using *total on the (int *total and *total = num1 + num2). I also tried doing a call to C as a program using void main and doing the call in COBOL as: CALL “TESTC” USING BY REFERENCE WS-FIRST-COBOL-NUM WS-SECOND-COBOL-NUM WS-NUM-TOTAL-COBOL. This just makes it abend. Then I read that you need in the C as: void main(int argc, char * argv[]) but then I didn’t understand how you pass the real parms you need. I am new to C and ILE.

Calling C ILE Program from COBOL 400 ILE Program

400Programmer — Fri, 01 Oct 2010 02:22:38 +0000

[html xmlns="">
I need help in figuring out how to call a C ILE program from a COBOL 400 ILE program. In my example I would like to pass three parameters from the COBOL program (num1, num2, total) to the C program. In the COBOL program I will hardcode the numbers as, say, 9 for num1 and 8 for num2. I would like to pass the num1, num2, and total parms to the C program. The C program would then receive the three variables, comput num1 + num2 and store the result in the variable total. Then return control back to the COBOL program and in the COBOL program, my total variable will be 17. It is very simple as I am trying a proof of concept. I have only developed in COBOL. Having trouble with the calls and the returns.

Open XL file from ILE program

filuphaze — Thu, 05 Mar 2009 20:00:26 +0000

We have a process that converts a spooled file into a .CSV file and stores it in a folder on the IFS. The user then opens Excel and locates and opens the file for editing etc. Is there a way to open up the file in Excel for them after its transferred to the IFS? Could you show me code examples please? Thank you

ILE – module change

RJES — Wed, 28 Jan 2009 09:39:18 +0000

Hi,
1) How to find the list of programs using a module (other than find string or hawkeye) which needs to be modified?
2) If a module used by more than 15 program needs to be changed, what are the ways to update the impacted programs (apart from running UPDPGM command)?

ILE Call(e) error handling

filuphaze — Wed, 26 Nov 2008 17:56:20 +0000

I am calling a CMD from an ILE program (simulates WRKSPLF) that emails a spool file. In my program I use Call(e) and %error indicator is on when CMD is executed if an error occurs during execution however I cannot determine which error happens. I tried using

psds sds
msgid 40 46
msgdsc 91 170

however both msgid and msgdsc are blank. If I use a MONMSG in the CL then my ILE program %error does not show an error. Any suggestions on how I can determine what error occured in my CL. The CL converts spoolfile to PDF and then sends it via email and then deletes (DLO) the pdf. I want to know which process errors out.