View previous topic :: View next topic
|
Author |
Message |
ilan_m1000
New User
Joined: 09 Dec 2006 Posts: 3 Location: Israel
|
|
|
|
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 |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
ilan_m1000
New User
Joined: 09 Dec 2006 Posts: 3 Location: Israel
|
|
|
|
can i have an example for it.
because i try to do it and it failed.
10x |
|
Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
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 |
|
|
ilan_m1000
New User
Joined: 09 Dec 2006 Posts: 3 Location: Israel
|
|
|
|
thank u alot i hope it will help me |
|
Back to top |
|
|
|