View previous topic :: View next topic
|
Author |
Message |
mshulman
New User
Joined: 16 Jun 2005 Posts: 4 Location: Buenos Aires
|
|
|
|
Dear people, this program allows submit a JCL from any program but I can't find it in SYS1.LINKLIB, I used it at other facilities in the following format:
CALL 'RJE' USING PARAMETER.
Where PARAMETER is a working-storage area JCL sentences.
Could you tell me in which library is it? |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
As far as I know, RJE (and its alias - NATRJE) is part of Software AG's NATURAL load library.
O. |
|
Back to top |
|
|
mshulman
New User
Joined: 16 Jun 2005 Posts: 4 Location: Buenos Aires
|
|
|
|
yes the NATRJE exists, I know, but using the RJE program that I have mentioned I submitted JCL from COBOL Batch some years ago (without Natural nor ADABAS), but I want use it again now and it seems that it doesn't exist more... |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hi,
Remote Job Entry (RJE) is a facility that allows remote computer users to submit a batch job (the running of a specific program or group of programs) to a centrally-located computer (typically a mainframe). Widely used for decades in large business enterprises, RJE was first developed in the 1960s as part of IBM's System/360 mainframes. An RJE protocol was defined for use on the early Internet in 1972.
Originally, jobs were submitted to mainframe computers manually on punch cards and initiated by a mainframe operator. When remote typewriter and later display terminals (later called workstations) became available, a program was needed that would allow programs and jobs to be sent to the mainframe electronically. Today, RJE allows for the transfer of jobs and files back and forth among multiple workstations and mainframes.
In some networks, RJE has been supplanted by its extension, Network Job Entry (NJE).
So, I think you will not find any such Library at your site. |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
RJE is a stand-alone load module - you can use it without NATURAL/ADABAS installed (even from within COBOL).
However, it is Software AG's property, so I won't recommend using it without buying a license for NATURAL.
There are many ways for submitting jobs from COBOL. Just search the forum.
O. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
If you want to submit jcl from within your program, you do not need rje.
When you write the jcl out of the program, the output dd statement should point to the internal reader. There are several posts about using the internal reader. You can write to the internal reader from your code or IEBGENER or many other utilities.
If i have misunderstood what you want to do, please clarify. |
|
Back to top |
|
|
mshulman
New User
Joined: 16 Jun 2005 Posts: 4 Location: Buenos Aires
|
|
|
|
Dick, I know that with the JCL statement / /SYSOUT DD (* ,INTRDR) I can submit a JCL from a COBOL batch program, but my problem is how to submitting it from a online COBOL and a CLIST generated both for Visual Age... |
|
Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1512 Location: Virginia, USA
|
|
|
|
mshulman wrote: |
Dick, I know that with the JCL statement / /SYSOUT DD (* ,INTRDR) I can submit a JCL from a COBOL batch program, but my problem is how to submitting it from a online COBOL and a CLIST generated both for Visual Age... |
We submit batch jobs from online cics programs. The program can submit several different jobs so we move the JCL to be submitted to SUBMIT-LINES and the count of the lines to SUBMIT-COUNT then perform Z801-SUBMIT-JOB THRU Z801-EXIT. I don't know how IRDR is defined in CICS.
Code: |
000890 01 IRDR PIC X(4) VALUE 'IRDR'.
000900 01 SLINE PIC X(80) VALUE SPACES.
001070 01 SUBMIT-TABLE.
001080 02 SUBMIT-COUNT PIC S9(3) COMP VALUE 0.
001090 02 SUBMIT-LINES OCCURS 30 TIMES INDEXED BY SLX1, SLX2
001100 PIC X(80).
042720 Z801-SUBMIT-JOB.
042730 IF SUBMIT-COUNT < 1
042740 GO TO Z801-EXIT
042750 END-IF.
042760 ADD 1 TO SUBMIT-COUNT.
042770 SET SLX2 TO SUBMIT-COUNT.
042780 MOVE '/*EOF' TO SUBMIT-LINES (SLX2).
042790 EXEC CICS ENQ
042800 RESOURCE (IRDR)
042810 RESP(WS-RESPONSE)
042820 END-EXEC.
042830 IF WS-RESPONSE EQUAL DFHRESP (NORMAL)
042840 CONTINUE
042850 ELSE
042860 MOVE 'CICS' TO ERMTABO
042870 MOVE WS-RESPONSE TO ERMCOMO
042880 MOVE 'Z801' TO ERMLOCO
042890 PERFORM Z901-SQL-ERROR-PROCESS
042900 END-IF.
042910 PERFORM VARYING SLX1 FROM 1 BY 1 UNTIL SLX1 > SLX2
042920 MOVE SUBMIT-LINES (SLX1) TO SLINE
042930 PERFORM Z802-WRITE-TDQ THRU Z802-EXIT
042940 END-PERFORM.
042950 EXEC CICS DEQ
042960 RESOURCE (IRDR)
042970 END-EXEC.
042980 Z801-EXIT. EXIT.
043000 Z802-WRITE-TDQ.
043010 EXEC CICS WRITEQ TD
043020 QUEUE (IRDR)
043030 FROM (SLINE)
043040 LENGTH (80)
043050 RESP(WS-RESPONSE)
043060 END-EXEC.
043070 IF WS-RESPONSE EQUAL DFHRESP (NORMAL)
043080 CONTINUE
043090 ELSE
043100 MOVE 'CICS' TO ERMTABO
043110 MOVE WS-RESPONSE TO ERMCOMO
043120 MOVE 'Z802' TO ERMLOCO
043130 PERFORM Z901-SQL-ERROR-PROCESS
043140 END-IF.
043150 Z802-EXIT. EXIT.
|
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
You can submit jobs from a CLIST.
I'll move this to the CLIST/REXX part of the forum.
If it might be better served elsewhere, let me know and i'll move it again |
|
Back to top |
|
|
acevedo
Active User
Joined: 11 May 2005 Posts: 344 Location: Spain
|
|
|
|
- You could have gott Anuj 's answer googleing...http://searchdatacenter.techtarget.com/sDefinition/0,,sid80_gci970011,00.html
- in CICS you can use the SPOOL sentence to send a job to jes2.
- I know nothing about RJE but...try ISRDDN.
hth.
;) |
|
Back to top |
|
|
|