File-tailoring



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

File-tailoring

Postby mandor » Mon Feb 06, 2012 4:04 pm

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
mandor
 
Posts: 28
Joined: Wed Feb 23, 2011 4:19 pm
Has thanked: 0 time
Been thanked: 0 time

Re: File-tailoring

 

Re: File-tailoring

Postby mandor » Mon Feb 06, 2012 5:39 pm

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'
mandor
 
Posts: 28
Joined: Wed Feb 23, 2011 4:19 pm
Has thanked: 0 time
Been thanked: 0 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post