View previous topic :: View next topic
|
Author |
Message |
jaipriya
New User
Joined: 30 Jan 2007 Posts: 2 Location: India
|
|
|
|
Actually rec.i is a variable but i don know why rec.i is not replaced with the value. If anyone found the error in this format please post the reply
Code: |
/*REXX*/
"ISREDIT MACRO (PDS)"
X=OUTTRAP('REC.')
"LISTDS '"PDS"' MEMBERS"
X=OUTTRAP('OFF')
ADDRESS TSO
"ALLOC F(INPFILE) DA('"PDS".BACKUP("REC.I")') SHR"
"ALLOC F(OUTFILE) DA('"PDS".BACKUP("REC.I")') SHR"
"EXECIO * DISKR INPFILE (STEM INPDATA.FINIS"
"EXECIO * DISKW OUTFILE (STEM INPDATA.FINIS"
SAY "FILE COPIED SUCCESSFULLY"
|
|
|
Back to top |
|
|
avaneendra_linga
New User
Joined: 13 Dec 2006 Posts: 73 Location: Hyderabad
|
|
|
|
HI,
I HOPE THIS WILL HELP YOU....
FIRST U NEED TO INITIALIZE I TO 1(I=1)
AND IN LOOP U NEED TO INCREMENT THE I (I=I+1). |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
I believe you missed the DO loop after trapping the output of LISTDS...
O. |
|
Back to top |
|
|
manihcl85 Warnings : 1 New User
Joined: 11 Jan 2007 Posts: 52 Location: chennai
|
|
|
|
Hi,
Try this code
Code: |
/*REXX*/
DATASET=Give Ur PDS Name Here in single quotes
X = OUTTRAP('VAR.')
"LISTDS" DSN "MEMBERS"
X = OUTTRAP('OFF')
DO I = 7 TO VAR.0
CONC = "'"DATASET"("STRIP(VAR.I)")'"
"ALLOC DA("CONC") FI(INDD) SHR REUSE"
"ALLOC DA("CONC") FI(OUTDD) SHR REUSE"
"EXECIO * DISKR INDD (STEM X. FINIS)"
"EXECIO * DISKW OUTDD (STEM X. FINIS)"
END
SAY "FILE COPIED SUCCESSFULLY"
|
Regards,
Mani |
|
Back to top |
|
|
jaipriya
New User
Joined: 30 Jan 2007 Posts: 2 Location: India
|
|
|
|
Hi mani ur code is working fine thanks for ur reply |
|
Back to top |
|
|
|