Uncategorized

TSO delete via Cyber fusion

Mainframe ability to pick and delete the file from other server via Cyber fusion:

You all might have used FTP(file transfer protocol) to send/ receive files,setting of flags in other server and even deleting the files from other server .Cyber fusion is also one of the secured ,multi protocol,next generation transfer management technique to send information from one server to another sever with encrypted and compressed data .It uses lot of encryption algorithm like Blowfish 56 bit or Blowfish Long 448 bit encryption. Now if we want to pick up a file from one server and then delete it from that server then we need to code the following in Job controlled language:

//ABCU28A EXEC PGM=OSIUC000,
// PARM=('SERVER=FUSION','LOGON_DOMAIN=servername'
// 'RUSER=server user id','RPASS=server password')
//STEPLIB DD DSN=Fusion load lib name ,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTRACE DD SYSOUT=*
//SYSIN DD DSN=SYSD.CFDS(ABCU28AA),DISP=SHR

And in the Control PDS where you are calling subroutine ABCU28AA,you need to code the below:

SET %RF = "F:\TESTFile\"
SET %RF = %RF + "testoutput.txt"
QUOTE OFF
PROCESS,ABCU28A,TRANSFER,RECEIVE
DSN=P1OPSBG.FD999.TSTF01AA(+1)
RF="%RF"
LDISP=NEWR,CATLG,CATLG
LRECL=25
BLOCKSIZE=0
DATASET_TYPE=DSN
RECFM=FB
CRLF=LF
SSL=YES
NOTIFY_TYPE=TSO
RETRYINT=1M
NODE=sever node name
POST_ACTION="S:R:COMMAND:del F:\TESTFile\testoutput.txt"
RETRY=1
WAIT=YES

The POST_ACTION command execute after file is being received from the server to mainframe .This command issue deletion call for deleting the file name testoutput.txt from folder TESTFile of F directory.

We can use another attribute called EMAIL_NOTIFY to send email notification whether the receive and deletion of file was successful or not.Need to put the below tow commands inside the Control PDS member ABCU28AA.Note the GLOBAL EMAIL_GOOD and EMAIL_FAIL are also required before notification take place.

EMAIL_GOOD={EMAIL ADDRESS}
EMAIL_FAIL={EMAIL ADDRESS}
EMAIL_NOTIFY=BOTH

EMAIL_GOOD and EMAIL_FAIL: This defines the email address where Cyber fusion will send a notification message when a file transfer request completed successfully or not.Only one command will execute at one time based on execution result and send notification to defined email address .

EMAIL_NOTIFY=BOTH : Defines email notification on Initiator and Responder tasks

Comments are closed.