Rexx Calling Cobol Programs

Hi, I need to invoke utility IKJEFT01 in COBOL program so that some DB2 status could be showed. But I was wondering if it is possible. Since it is a utility, I think I need to use dynamic call. But I'm confused by how to put the parameters. For example, the IKJEFT01 input usually looks like: DSN SYSTEM(DB2). END So, I was wondering if I could pass the paramters like this: MOVE 'IKJEFT01' TO WK-IKJEFT01 CALL WK-IKJEFT01 USING WK-SYSTEM WK-MESSAGE WK-END.

I need call from cics to rexx from exec order to racf. I can from rexx to cobol. Definitions The factorial of 0 (zero) is defined as being 1 (unity). The Factorial Function of a positive integer, n, is defined as the.

But, that is based on IKJEFT01 can be invoked in COLOL program. Could anyone please give some suggestions? Posts: 4 Joined: Sat Aug 08, 2009 6:55 am Has thanked: 0 time Been thanked: 0 time. IDENTIFICATION DIVISION. TSO ENVIRONMENT DIVISION. Buku Metode Penelitian Pendidikan Karangan Sugiyono Pdf.

INPUT-OUTPUT SECTION. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION.

05 WS-DUMMY PIC S9(8) COMP. 05 WS-RETURN-CODE PIC S9(8) COMP. 05 WS-REASON-CODE PIC S9(8) COMP. 05 WS-INFO-CODE PIC S9(8) COMP. 05 WS-CPPL-ADDRESS PIC S9(8) COMP. 05 WS-FLAGS PIC X(4) VALUE X'00010001'.

05 WS-BUFFER PIC X(256). 05 WS-LENGTH PIC S9(8) COMP VALUE 256. PROCEDURE DIVISION. CALL 'IKJTSOEV' USING WS-DUMMY WS-RETURN-CODE WS-REASON-CODE WS-INFO-CODE WS-CPPL-ADDRESS. IF WS-RETURN-CODE >0 DISPLAY 'IKJTSOEV FAILED, RETURN-CODE=' WS-RETURN-CODE ' REASON-CODE=' WS-REASON-CODE 'INFO-CODE=' WS-INFO-CODE UPON CONSOLE MOVE WS-RETURN-CODE TO RETURN-CODE STOP RUN. MOVE SPACES TO WS-BUFFER.

MOVE 'PROFILE' TO WS-BUFFER. Free Download Guitar Rig 5 Pro Full Version Crack. CALL 'IKJEFTSR' USING WS-FLAGS WS-BUFFER WS-LENGTH WS-RETURN-CODE WS-REASON-CODE WS-DUMMY. DISPLAY WS-BUFFER UPON CONSOLE.

IF WS-RETURN-CODE >0 DISPLAY 'IKJEFTSR FAILED, RETURN-CODE=' WS-RETURN-CODE ' REASON-CODE=' WS-REASON-CODE UPON CONSOLE MOVE WS-RETURN-CODE TO RETURN-CODE STOP RUN. MOVE 0 TO RETURN-CODE. Global moderator Posts: 810 Joined: Wed Jun 06, 2007 9:37 pm Location: Raleigh NC USA Has thanked: 0 time Been thanked: times. Thank you for your Help. I will test the above code. Ramblin Jeffrey Lee Rarden.

Here is the purpose of my task: IKJEFT01 has a function likes bellow: DSN SYSTEM(DSN) -DIS DB(DSNDB06) SPACENAM(SYSDBASE) END I want to excute these command in a COBOL program. But I don't know if it is possible or not. And I had another thought. I could invoke a batch job which will excute IKJEFT01 in COBOL program when I need.

I think this method is better than the above one. So, could you please give some suggestion on how to invoke a batch job in COBOL? Posts: 4 Joined: Sat Aug 08, 2009 6:55 am Has thanked: 0 time Been thanked: 0 time.