Example of IMFEXEC JESALLOC commands
Example 1
This REXX example shows how to allocate a SYSOUT data set in the SYSOUT class A to the DD statement ‘MYPRINT’.
/* REXX */
"IMFEXEC JESALLOC MYPRINT SYSOUT CLASS(A)"
CLIST example:
IMFEXEC JESALLOC MYPRINT SYSOUT CLASS(A)
Note
You can use the TSO FREE command to free this DD statement again.
Example 2
The following example shows how to use the DEST parameter:
/* REXX */
s.0 = 3
s.1 = 'line1'
s.2 = 'line2'
s.3 = 'line3'
dd = 'DD1'
"IMFEXEC JESALLOC "dd" CLASS(R) SYSOUT DEST(BBSYSA,EK1)"
jrc=imfcc
"IMFEXEC MSG '."exname "JESALLOC IMFCC="jrc"'"
if jrc = 0 then do
address mvs "EXECIO * DISKW "dd" (STEM s. OPEN FINIS"
"IMFEXEC MSG '."exname 'EXECIO rc='rc"'"
end
"FREE F("dd")"
Example 3
The following REXX statement specifies an invalid destination for the DEST parameter:
/* REXX */
"IMFEXEC JESALLOC 'dd' CLASS(R) DEST(SJSC,baoeuk)"
This statement causes the following messages to be issued to the BBI Journal:
EM0026I EXEC JAL1 EID= 00003 STARTED ON 19-JUL-11 AT 09:36:14
EM0025I FOLLOWING MSG ISSUED FOR EXEC .. JAL1 ..
IKJ56875I SYSOUT DATA SET NOT ALLOCATED, DESTINATION UNDEFINED TO SUBSYSTEM
EM0022E ERROR PROCESSING .. JAL1 .. Error processing JESALLOC
In the following REXX statement, the DEST parameter specifies a destination name that exceeds the maximum length allowed:
/* REXX */
"IMFEXEC JESALLOC 'dd' CLASS(R) DEST(bbsysa,ek1abcnde)"
This statement causes the following messages to be issued to the BBI Journal:
EM0025I FOLLOWING MSG ISSUED FOR EXEC .. JAL1 ..
IKJ56702I INVALID DEST2, ek1abcnde
Comments
Log in or register to comment.