Page 1 of 1

File-tailoring

PostPosted: Mon Feb 06, 2012 4:04 pm
by mandor
Hello!

I want to do an FTP transfer from mainframe and would like to build a job fith FT.
Now, obviously I want to make it variably. How can i catch unknown number of members or in stem variable in the skeleton?

In rexx I map mem1, mem2 and mem3:
NUM = 3
DO I = 1 TO NUM
   INTERPRET 'MEM'I ' = PARM'I
END
SAY MEM1 MEM2 MEM3


How do I get them in the skeleton?:
)DO SNUM = 1 TO &NUM
PUT 'xxx.yyyy.zzz(&MEM.SNUM)' &MEM SNUM..TXT
)ENDDO


When i run it can't find the "mem" variable and all i get is:
PUT 'xxx.yyyy.zzz(1)'  1.TXT
PUT 'xxx.yyyy.zzz(2)'  2.TXT
PUT 'xxx.yyyy.zzz(3)'  3.TXT

Re: File-tailoring

PostPosted: Mon Feb 06, 2012 5:39 pm
by mandor
OK, i looped it in rexx and it works...

ADDRESS ISPEXEC 'FTINCL FTP1'
DO I = 1 TO NUM
   INTERPRET 'MEM = PARM'I
   ADDRESS ISPEXEC 'FTINCL FTP2'
END
ADDRESS ISPEXEC 'FTINCL FTP3'