|
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 |
|
|
|
|
