Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Where you have the RJE program?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
mshulman

New User


Joined: 16 Jun 2005
Posts: 4
Location: Buenos Aires

PostPosted: Tue Dec 18, 2007 6:49 pm    Post subject: Where you have the RJE program?
Reply with quote

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
View user's profile Send private message

ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Dec 18, 2007 7:01 pm    Post subject:
Reply with quote

As far as I know, RJE (and its alias - NATRJE) is part of Software AG's NATURAL load library.

O.
Back to top
View user's profile Send private message
mshulman

New User


Joined: 16 Jun 2005
Posts: 4
Location: Buenos Aires

PostPosted: Tue Dec 18, 2007 7:49 pm    Post subject: Reply to: Where you have the RJE program?
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Tue Dec 18, 2007 7:58 pm    Post subject:
Reply with quote

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
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Dec 18, 2007 7:59 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Dec 18, 2007 11:23 pm    Post subject:
Reply with quote

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
View user's profile Send private message
mshulman

New User


Joined: 16 Jun 2005
Posts: 4
Location: Buenos Aires

PostPosted: Tue Dec 18, 2007 11:58 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Dec 19, 2007 12:23 am    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Dec 19, 2007 12:27 am    Post subject:
Reply with quote

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 icon_smile.gif
Back to top
View user's profile Send private message
acevedo

Active User


Joined: 11 May 2005
Posts: 344
Location: Spain

PostPosted: Wed Dec 19, 2007 3:03 am    Post subject: Reply to: Where you have the RJE program?
Reply with quote


  1. You could have gott Anuj 's answer googleing...http://searchdatacenter.techtarget.com/sDefinition/0,,sid80_gci970011,00.html
  2. in CICS you can use the SPOOL sentence to send a job to jes2.
  3. I know nothing about RJE but...try ISRDDN.


hth.

;)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us