agsathyan
New User
Joined: 06 Apr 2009 Posts: 4 Location: India
|
|
|
|
Requirement:
-------------------
Need to populate a FTP destination file name in format XXX_RFSI_EXTRA_20121104_104522.TXT where XXX can be 001, 002 ... 009
Sample Code:
------------------
I tried to populate the file name using program EZACFSM1 as below.
But i am not able to pass the value of XXX dynamically.
//STEP001 EXEC PGM=EZACFSM1
//SYSIN DD *
PUT 'KANDA.RFSI.SCRIPT.EXTRA.DATA' +
XXX_RFSI_EXTRA_20&LYYMMDD_&LHHMMSS..TXT
QUIT
/*
//SYSOUT DD DSN=KANDA.SAMPLE.FTPPARM,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB)
//*
Expected Output in KANDA.SAMPLE.FTPPARM :
----------------------------------------------------------
when XXX = 001, output should be:
PUT 'KANDA.RFSI.SCRIPT.EXTRA.DATA' +
001_RFSI_EXTRA_20121104_104522.TXT
QUIT
when XXX = 002, output should be:
PUT 'KANDA.RFSI.SCRIPT.EXTRA.DATA' +
002_RFSI_EXTRA_20121104_104522.TXT
QUIT
Query:
-----------
Is there a way to pass the value of XXX dynamically to EZACFSM1 ?
Thanks & Regards,
Agsathyan |
|