Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Writing into intrdr with pl1

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
ilan_m1000

New User


Joined: 09 Dec 2006
Posts: 3
Location: Israel

PostPosted: Sat Dec 09, 2006 11:55 pm    Post subject: Writing into intrdr with pl1
Reply with quote

Hello,

I need help running a dynamic job that I create in pl1 in jes.
I know that I need to put the job in INTRDR but how can I do it in pl1.

thank u all helpers,
Back to top
View user's profile Send private message

PeD

Active User


Joined: 26 Nov 2005
Posts: 456
Location: Belgium

PostPosted: Sun Dec 10, 2006 3:35 am    Post subject:
Reply with quote

Just define an output file ( dynamically or not ) to WRITER(INTRDR) SYSOUT(B) ... then write you JCL data into that file, close the file..... and see the job running in JES.

Regards
Pierre
Back to top
View user's profile Send private message
ilan_m1000

New User


Joined: 09 Dec 2006
Posts: 3
Location: Israel

PostPosted: Sun Dec 10, 2006 1:36 pm    Post subject:
Reply with quote

can i have an example for it.
because i try to do it and it failed.

10x
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 456
Location: Belgium

PostPosted: Sun Dec 10, 2006 2:10 pm    Post subject:
Reply with quote

Here sample of code ( not tested )

Code:

DCL  FILRDR                FILE RECORD OUTPUT SEQUENTIAL     
                           ENV(FB,RECSIZE(80),BLKSIZE(3200));
DCL  ZFILRDR               CHAR(80);                         



DCL    BPXWDYN EXTERNAL ENTRY OPTIONS (ASM INTER RETCODE );       
DCL    ALLOC_STR CHAR(300) VAR INIT(' ');                         

FETCH BPXWDYN;

.......

                                                   
ALLOC_STR =  ' FREE  FI(FILRDR) ';                                 
CALL BPXWDYN(ALLOC_STR);                                             
                                                                 
ALLOC_STR =  ' ALLOC FI(FILRDR) SYSOUT(B) WRITER(INTRDR)';         
CALL BPXWDYN(ALLOC_STR);                                             
                                                                 
ZFILRDR = "//USERID  JOB (01212),                   ";     
WRITE  FILE(FILRDR)  FROM (ZFILRDR);                             
ZFILRDR = "//             'PED806',                 ";     
WRITE  FILE(FILRDR)  FROM (ZFILRDR);                             
ZFILRDR = "//             CLASS=A,MSGCLASS=X,       ";
ZFILRDR = "//             MSGLEVEL=(1,1),REGION=512M";     
WRITE  FILE(FILRDR)  FROM (ZFILRDR);                             
ZFILRDR = "//CMPVL121 EXEC PGM=IEFBR14              ";     
WRITE  FILE(FILRDR)  FROM (ZFILRDR);                             
ZFILRDR = "//SYSPRINT DD  SYSOUT=*                  ";     
WRITE  FILE(FILRDR)  FROM (ZFILRDR);                             
CLOSE FILE(FILRDR);                                               

CALL BPXWDYN(ALLOC_STR);                                           
         


If you still have an error, it will help if you show it.

Regards
Pierre
Back to top
View user's profile Send private message
ilan_m1000

New User


Joined: 09 Dec 2006
Posts: 3
Location: Israel

PostPosted: Sun Dec 10, 2006 5:35 pm    Post subject:
Reply with quote

thank u alot i hope it will help me
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts Reading from File 1 and Writing to Fi... shiitiizz CLIST & REXX 2 Thu May 14, 2015 5:49 pm
No new posts writing start time and end time of job senthamizh All Other Mainframe Topics 2 Tue Apr 28, 2015 3:30 pm
No new posts Writing messages between the records ... ssudhanshu CLIST & REXX 4 Tue Apr 28, 2015 12:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us