Using the Batch TMP (IKJEFT01)

You can execute the platform server REXX execs by submitting JCL that executes the batch terminal monitor program (TMP), IKJEFT01.

The batch TMP (IKJEFT01) can be used to execute TSO and REXX commands. The SYSTSIN input file defines the REXX execs to be executed. The platform server REXX execs can be executed directly from within the SYSTSIN file or called by another REXX exec. However, only commands can be executed directly from the SYSTSIN file; no REXX keywords can be used within this environment. This means that you can execute TSO and platform server commands directly within the SYSTSIN file, but if you want to use REXX keywords such as IF or DO, you must add the exec to a member of the EXECS, and execute that exec from the IKJEFT01 SYSTSIN.

Examples

The following examples show how to run REXX execs from the batch TMP.

Example 1: 

//jobcard  JOB ,'  ',MSGCLASS=X,CLASS=A       
//S1   EXEC PGM=IKJEFT01                                          
//STEPLIB   DD DSN=FUSION.LOADLIB,DISP=SHR                    
//SYSEXEC   DD DSN=FUSION.EXECS,DISP=SHR                  
//SYSTSPRT  DD SYSOUT=*                                         
//SYSTSIN   DD *                                                
***fusion requests or TSO commands***                                                        
//

This example shows a sample JCL needed for processing the batch TMP.

Example 2: 

//jobcard  JOB ,'  ',MSGCLASS=X,CLASS=A       
//S1   EXEC PGM=IKJEFT01                                          
//STEPLIB   DD DSN=FUSION.LOADLIB,DISP=SHR                    
//SYSEXEC   DD DSN=FUSION.EXECS,DISP=SHR                  
//SYSTSPRT  DD SYSOUT=*                                         
//SYSTSIN   DD *                                                
FUSSEND IPADDR=192.192.192.100 IPPORT=46464 LF=local.file + RF=remote.file INTERVAL=3 
        SAY CFG=fusion wait
//

This examples shows a sample JCL that can be used to execute a platform server REXX exec.

Example 3: 

//jobcard  JOB ,'  ',MSGCLASS=X,CLASS=A       
//S1   EXEC PGM=IKJEFT01                                          
//STEPLIB   DD DSN=FUSION.LOADLIB,DISP=SHR                    
//SYSEXEC   DD DSN=FUSION.EXECS,DISP=SHR                  
//SYSTSPRT  DD SYSOUT=*                                         
//SYSTSIN   DD *                                                
SENDPROD
//

This examples shows a sample JCL that can be used to execute a platform server REXX exec that is a member of the SYSEXEC file. Member SENDPROD of SYSEXEC will then contain the following REXX exec: 

/*     REXX      */       
FUSSEND 'IPADDR=192.192.192.100 IPPORT=46464 LF=local.file’,‘RF=remote.file INTERVAL=3 
         SAY CFG=fusion wait’
IF RC = 0 THEN DO                                                     
   SAY   '0 RETURN CODE FROM FUSSEND'                                     
   EXIT 0                                                                 
 END                                                                     
ELSE   DO                                                                
   SAY   'RETURN CODE FROM FUSSEND=' RC                               
   EXIT 8                                                                 
 END
Note: The parameters of the FUSSEND command are enclosed in single quotation marks, which is required when a REXX exec contains a platform server command. This is a restriction of the TSO and REXX environments.

Advantages and Disadvantage

The following are advantages and disadvantage of using the batch TMP:

  • Advantages
    • You can use this method in an unattended production environment.
    • Return code processing can be used to check the status of the request.
    • Multiple platform server requests can be executed from the SYSTSIN file.
    • You can execute all TSO commands such as ALLOC and FREE in this environment.
  • Disadvantage
    • It is less efficient than the REXX batch processor, IRXJCL.