JESALLOC
Command | Parameters |
|---|---|
JESALLOC | DDNAME [CLASS] [SYSOUT] [DEST(parm | dest,parm)] |
The following table describes the parameters:
Parameter | Function | Notes |
|---|---|---|
DDNAME | Name of the DD statement that is be allocated | The maximum length is eight characters and must conform to the DD name specifications. |
CLASS | Class to be associated with this SYSOUT DD statement. | This parameter is a one-character valid JES output class. Specify an asterisk (*) for the MSGCLASS of the STC. |
SYSOUT | A literal indicating that this DD statement should be allocated to SYSOUT | Code this parameter to be compatible with future extensions to this command. |
DEST | The DEST parameter for DDNAME which can be DEST=parm or DEST=(dest,parm) | See the IBM publication MVS JCL Reference for information about valid values for the dest and parm keywords. |
Condition codes are listed in the following table:
Value | Description |
|---|---|
0 | Command was executed successfully. |
4 | JES rejected the allocation request. |
8 | Not connected to JES (started under MSTR and no JESCNCT card in BBISSP00) |
16 | Syntax error occurred. |
20 | DD name is in use (use TSO free command first). |
Example 1
This REXX example shows how to allocate a SYSOUT data set in the SYSOUT class A to the DD statement ‘MYPRINT’.
"IMFEXEC JESALLOC MYPRINT SYSOUT CLASS(A)"
CLIST example:
Example 2
The following example shows how to use the DEST parameter:
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:
"IMFEXEC JESALLOC "dd" CLASS(R) DEST(SJSC,baoeuk)"
This statement causes the following messages to be issued to the BBI Journal:
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:
"IMFEXEC JESALLOC "dd" CLASS(R) DEST(bbsysa,ek1abcnde)"
This statement causes the following messages to be issued to the BBI Journal:
IKJ56702I INVALID DEST2, ek1abcnde