execsap open attrib cd cd copy execsap copy execsap copy execsap close//UDMEXSAP JOB CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//****************************************************************\*
//* Description
//* -----------
//* This sample opens a three-party transfer session between hosts
//* sol9 and SAP001. Three files are transferred from sol9 to
//* SAP001. After each file is transferred, execsap is called to
//* raise an SAP event in the specified SAP system.
//*
//* Presumably, there are jobs in the SAP scheduling system that
//* are waiting to be triggered by the events fired from this job.
//*
// JCLLIB ORDER=#SHLQ.UNV.SUNVSAMP
//*
//STEP1 EXEC UDMPRC
//UNVSCR DD *
#
# Transfer vehicle data to SAP server for batch input processing.
#
open src=sol9 dest=SAP001 xfile=xuser1
attrib dest createop=replace
cd src=/opt/app/data
cd dest=/input
#*****************************************************************\*
#* Copy the car data to SAP system for batch input processing.
#*****************************************************************\*
copy src=cars.dat dest=cars.dat
# Raise SAP event to trigger processing job.
execsap CF5 client=800 xfile=xsapuser1 type=event -
eventid=UDM_TRANSFER_COMPLETE parm="cars.dat"
#*****************************************************************\*
#* Copy the truck data to SAP system for batch input processing.
#*****************************************************************\*
copy src=trucks.dat dest=trucks.dat
# Raise SAP event to trigger processing job.
execsap CF5 client=800 xfile=xsapuser1 type=event -
eventid=UDM_TRANSFER_COMPLETE parm="trucks.dat"
#*****************************************************************\*
#* Copy the boat data to SAP system for batch input processing.
#*****************************************************************\*
copy src=boats.dat dest=boats.dat
# Raise SAP event to trigger processing job.
execsap CF5 client=800 xfile=xsapuser1 type=event -
eventid=UDM_TRANSFER_COMPLETE parm="boats.dat"
close
/* | 