In my application, for every new FTP card we write a module so that the we can use the current working day or previous working day as a part of the Non-Mainframe file name. Rest of the parameter is hard coded.
ex:
ABCDEFGH.US.COM
USERNAME
PASSWORD
CD FOLDER1
CD FODLER2
PUT HXXXXXX.X.XXXXXX.XXXXXXXX.XXXXXXXX +
585_20120916_MAIP.XML
20120916 is the date which will keep changing as per our requirement. It can be todays date/ last working /last Monday.
Now I intend to write to do this by SYNCSORT. I am able to insert current date. I'm thinking to use the OPC passed dates which will fulfill my all requirement. Below is my sort card.
[/img]
Code: Select all
// SET GL0066='120916'
//STEP001 EXEC PGM=SORT PARM='JP1"&GL0066"'
//SORTIN DD *
ABCDEFGH.US.COM
USERNAME
PASSWORD
CD FOLDER1
CD FODLER2
PUT HXXXXXX.X.XXXXXX.XXXXXXXX.XXXXXXXX +
585_MAIP.XML
//SORTOUT DD DSN=FILENAME
//SYSIN DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(1,71,SS,EQ,C'.XML'),
BUILD=(1:1,6,7:&DATENS,13:C'_',14:7,67))
//SYSOUT DD SYSOUT=*
//