JES examples
The following example shows the JCL file USER121.JCL.CNTL(SMFALL)
being submitted to the JES. Before FTP commands are issued, only the
data set USER121.FTP.EXAMPLE exists on MVSXA2.
User: ftp 9.67.113.24 621
System:
IBM FTP CS V1R5
FTP: using TCPCS
FTP.DATA FILE NOT FOUND. USING HARDCODED DEFAULT VALUES.
Connecting to 9.67.113.24, port 621
220-FTPSERVE IBM FTP CS V1R2 at MVSVIC03.TCP.RALEIGH.IBM.COM,
19:03:
on 2003-01-17
220 Connection will close if idle for more than 5 minutes.
NAME (<host>:tsouserid):
User: user121
System:
>>>USER user121
331 Send password please.
Password:
>>>PASS ********
230 user121 is logged on. Working directory is "/u/user121".
Command:
User: site file=jes
System:
>>>SITE file=jes
200 Site command was accepted
Command:
User: put 'user121.jcl.cntl(mvsjob)'
System:
>>>SITE FIXrecfm 80 LRECL=80 RECFM=FB BLKSIZE=27920
200 Site command was accepted
>>>PORT 9,67,112,25,4,37
200 Port request OK.
>>>STOR 'user121.jcl.cntl(mvsjob)'
125 Sending Job to JES Internal Reader FIXrecfm 80
250-It is known to JES as JOB02189.
250 Transfer completed successfully.
1066 bytes transferred in 3.118 seconds. Transfer rate 0.34 Kbytes/sec.
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,38
200 Port request OK.
>>>LIST
125 List started OK.
USER121A JOB00067 INPUT
250 List completed successfully.
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,39
200 Port request OK.
>>>LIST
125 List started OK.
USER121A JOB00067 ACTIVE
250 List completed successfully.
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,40
200 Port request OK.
>>>LIST
125 List started OK.
USER121A JOB00067 OUTPUT 4 Spool Files
250 List completed successfully.
Command:
User: lcd 'user121.ftp.example.'
System:
Local directory name set to USER121.FTP.EXAMPLE.
Command:
User: lpwd
System:
Local directory is USER121.FTP.EXAMPLE.
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,41
200 Port request OK.
>>>LIST
125 List started OK.
USER121A JOB00067 OUTPUT 4 Spool Files
250 List completed successfully.
Command:
User: get job00067.x spoolall
System:
>>>PORT 9,67,112,25,4,42
200 Port request OK.
>>>RETR job00067.x
125 Sending all SPOOL files for requested JOBID.
250 Transfer completed successfully.
5935 bytes transferred in 4.755 seconds. Transfer rate 1.25 Kbytes/sec.
Command:
User: get job00067.1 spool1
System:
>>>PORT 9,67,112,25,4,43
200 Port request OK.
>>>RETR job00067.1
125 Sending data set USER121.USER121A.JOB00067.D000002.JESMSGLG
250 Transfer completed successfully.
1962 bytes transferred in 0.739 seconds. Transfer rate 2.65 Kbytes/sec.
Command:
User: get job00067.2 spool2
System:
>>>PORT 9,67,112,25,4,44
200 Port request OK.
>>>RETR job00067.3
125 Sending data set USER121.USER121A.JOB00067.D000003.JESYSMSG
250 Transfer completed successfully.
1982 bytes transferred in 2.123 seconds. Transfer rate 0.93 Kbytes/sec.
Command:
User: get job00067.3 spool3
System:
>>>PORT 9,67,112,25,45
200 Port request OK.
>>>RETR job00067.3
125 Sending data set USER121.USER121A.JOB00067.D000004.JESYSMSG
250 Transfer completed successfully.
1982 bytes transferred in 2.123 seconds. Transfer rate 0.93 Kbytes/sec.
Command:
User: get job00067.4 spool4
System:
>>>PORT 9,67,112,25,46
200 Port request OK.
>>>RETR job00067.4
125 Sending data set USER121.USER121A.JOB00067.D000103.?
250 Transfer completed successfully.
1227 bytes transferred in 0.380 seconds. Transfer rate 3.23 Kbytes/sec.
Command:
User: get job00067.5 spool5
System:
>>>PORT 9,67,112,25,47
200 Port request OK.
>>>RETR job00067.5
550 Index 5 is greater than number of spool files for JOB00067
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,50
200 Port request OK.
>>>LIST
125 List started OK.
user121A JOB00067 OUTPUT 4 Spool Files
250 List completed successfully.
Command:
User: delete job00067
System:
>>>DELE job00067
250 Cancel Successful
Command:
User: dir
System:
>>>PORT 9,67,112,25,4,51
200 Port request OK.
>>>LIST
125 List started OK.
No jobs found on Held queue
250 List completed successfully.
Command:
User: site filetype=seq
System:
>>>SITE filetype=seq
200 Site command was accepted
Command:
User: quit
System:
>>>QUIT
221 Quit command received. Goodbye.
READY
After executing the FTP commands, the following data sets
now exist on MVSXA2:
- USER121.FTP.EXAMPLE.SPOOLALL
- USER121.FTP.EXAMPLE.SPOOL1
- USER121.FTP.EXAMPLE.SPOOL2
- USER121.FTP.EXAMPLE.SPOOL3
- USER121.FTP.EXAMPLE.SPOOL4
Note: In most situations, the INPUT status is too fast to be
captured by issuing DIR. However, if the ACTIVE or OUTPUT status of
the job is captured, the INPUT status has been passed successfully.
The following are examples displayed by the shown DIR command.
DIR with
JESJOBName=* JESOwner=* JESSTATUS=ALL
JESENTRYLimit=200
shows all jobs in the system. DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
USER1A JOB00001 USER1 INPUT A -HELD-
USER1A JOB00002 USER1 INPUT A -DUP-
USER2B JOB00022 USER2 ACTIVE D STEP=STEPNAME PROC=PROCSTEP CPUT= 7.27 ELAPT= 7.27
*MASTER* STC00002 +MASTER+ ACTIVE STEP= PROC= CPUT= 7.48 ELAPT= 7.48
USER3A JOB00061 USER3 OUTPUT D 3 spool files RC=0000
USER4A JOB00070 USER4 OUTPUT D 17 spool files ABEND=0806
DIR with JESJOBName=* JESOwner=USER1 JESSTATUS=ALL JESENTRYLimit=200
shows all jobs owned by USER1 DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
USER1A JOB00001 USER1 INPUT A -HELD-
USER1A JOB00002 USER1 INPUT A -DUP-
DIR with JESJOBName=* JESOwner=USER14 JESSTATUS=ALL JESENTRYLimit=200
shows all jobs owned by USER14 DIR
250 No tasks found for JESJOBName=*, JESSTATUS=ALL and JESOwner=USER14
DIR T* with JESJOBName=* JESOwner=USER1 JESSTATUS=ALL JESENTRYLimit=200
shows all TSO jobs. DIR T*
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
DIR with JESJOBName=* JESOwner=* JESSTATUS=ALL JESENTRYLimit=5
shows
the first 5 jobs in the system DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
USER1A JOB00001 USER1 INPUT A -HELD-
USER1A JOB00002 USER1 INPUT A -DUP-
USER2B JOB00022 USER2 ACTIVE D STEP=STEPNAME PROC=PROCSTEP CPUT= 7.27 ELAPT= 7.27
*MASTER* STC00002 +MASTER+ ACTIVE STEP= PROC= CPUT= 7.48 ELAPT= 7.48
JESENTRYLIMIT of 5 reached. Additional entries not displayed
If JESINTERFACELevel is set to 2, the DIR or LIST command for a specific jobid allows you to display specific SYSOUT data sets.
DIR JOB00061
with JESJOBName=*
JESOwner=* JESSTATUS=ALL JESENTRYLimit=5
displays SYSOUT
data sets from JOB00061. DIR JOB00061
JOBNAME JOBID OWNER STATUS CLASS
USER3A JOB00061 USER3 OUTPUT D 3 spool files RC=0000
ID STEPNAME PROCSTEP C DDNAME REC-COUNT COMMENT
001 JESE H JESMSGLG 18
002 JESE H JESJCL 11
003 A JESYSMSG 22
If JESINTERFACELevel is set to 2, then the GET command
should produce results similar to those below (
JESJOBName=*
JESOwner=* JESSTATUS=ALL JESENTRYLimit=200
displays SYSOUT
data sets from JOB00061). DIR JOB00061
JOBNAME JOBID OWNER STATUS CLASS
USER3A JOB00061 USER3 OUTPUT D 3 spool files RC=0000
ID STEPNAME PROCSTEP C DDNAME REC-COUNT COMMENT
001 JESE H JESMSGLG 18
002 JESE H JESJCL 11
003 A JESYSMSG 22
DIR 'JOB00061.1'
JOBNAME JOBID OWNER STATUS CLASS
USER3A JOB00061 USER3 OUTPUT D 3 spool files RC=0000
ID STEPNAME PROCSTEP C DDNAME REC-COUNT COMMENT
001 JESE H JESMSGLG 18
GET JOB00061.1
125 Sending data set USER3.USER3A.JOB00061.D0000002.JESMSGLG
250 Transfer completed successfully.
1012 bytes transferred in 0. 40 seconds. Transfer rate 25.30 Kbytes/sec.
GET 'JOB00022.1' (REP
125 Sending data set USER3.USER3A.JOB00022.D0000001.JESMSGLG
250 Transfer completed successfully.
1012 bytes transferred in 0. 40 seconds. Transfer rate 25.30 Kbytes/sec.
If JESINTERFACELevel is set to 2 then the MGET subcommand should produce results similar to those below, which are identical to the GET of just the JOB00061.
At the end of each SYSOUT data set of an MGET, the following
line is stored:
!! END OF JES SPOOL FILE !!
JESJOBName=* JESOwner=* JESSTATUS=ALL JESENTRYLimit=200
displays SYSOUT data sets from JOB00061. DIR JOB00061
JOBNAME JOBID OWNER STATUS CLASS
USER3A JOB00061 USER3 OUTPUT D 3 spool files RC=0000
ID STEPNAME PROCSTEP C DDNAME REC-COUNT COMMENT
001 JESE H JESMSGLG 18
002 JESE H JESJCL 11
003 A JESYSMSG 22
MGET JOB00061.*
125 Sending all spool files for Jobid JOB00061
250 Transfer completed successfully.
5541 bytes transferred in 4.92 seconds. Transfer rate 1.35 Kbytes/sec.
If MGET is specified with an asterisk, it works the same
as in JESINTERFACELevel 1. MGET gets all jobs that match the JES filters.
Also, in the example below, there are two input jobs for user1, no
active jobs, and three output jobs. Care should be taken with the
JES filters because an MGET from the client actually appears to the
server as an NLST followed by several GETs. For example, if JESSTATUS
is set to ALL and there are many jobs returned in the NLST that are
in ACTIVE or INPUT status, then the MGET will not retrieve the number
of output files expected and there will be no message that
"250 No tasks found for JESJOBName..."
. (JESJOBName=*
JESOwner=USER1 JESSTATUS=ALL JESENTRYLimit=1024
.) DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
USER1 JOB00022 USER1 ACTIVE D STEP=STEPNAME PROC=PROCSTEP CPUT= 7.27 ELAPT= 7.27
USER1A JOB00061 USER1 OUTPUT D 3 spool files RC=0000
USER1B JOB00070 USER1 OUTPUT D 5 spool files RC=0000
USER1C JOB00070 USER1 OUTPUT D 17 spool files ABEND=0806
MGET JOB00061.*
125 Sending all spool files for Jobid JOB00061
250 Transfer completed successfully.
5541 bytes transferred in 4. 92 seconds. Transfer rate 1.35 Kbytes/sec.
SITE JESENTRYLIMIT=2
200 Site command was accepted
DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1 TSU00017 USER1 INPUT A
USER1 JOB00022 USER1 ACTIVE D STEP=STEPNAME PROC=PROCSTEP CPUT= 7.27 ELAPT= 7.27
JESENTRYLIMIT of 2 reached. Additional entries not displayed.
Note that the DIR showed jobs TSU00017 and JOB00022, but the MGET
is not able to retrieve them. MGET
550 No spool files available for TSU00017
550 No spool files available for JOB00022
SITE JESSTATUS=OUTPUT
200 Site command was accepted
DIR
JOBNAME JOBID OWNER STATUS CLASS
USER1A JOB00061 USER1 OUTPUT D 3 spool files RC=0000
USER1B JOB00070 USER1 OUTPUT D 5 spool files RC=0000
MGET
125 Nlst started OK
250-JESENTRYLIMIT of 2 reached. Additional entries not received
250 Nlst completed successfully
125 Sending all spool files for requested Jobid JOB00061
250 Transfer completed successfully.
5541 bytes transferred in 0.394 seconds. Transfer rate 14.06 Kbytes/sec.
125 Sending all spool files for requested Jobid JOB00070
250 Transfer completed successfully.
5541 bytes transferred in 0.394 seconds. Transfer rate 14.06 Kbytes/sec.