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.