|
View previous topic :: View next topic
|
| Author |
Message |
kalais
New User
Joined: 18 Apr 2006
Posts: 22
|
|
|
|
hi,
i want to compress a PDS in REXX .
what macro/function/command can i use for this.
thanks,
kalai |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Use the LMCOMP ISPF Library Management service. Otherwise, run a normal IEBCOPY COMPRESS. |
|
| Back to top |
|
|
kalais
New User
Joined: 18 Apr 2006
Posts: 22
|
|
|
|
hi
i tried to compress the PDS with the following code
/* REXX */
"ISPEXEC LMINIT DATAID(ID) DATASET('PDS') ENQ(EXCLU)"
"ISPEXEC LMCOMP DATAID(ID)"
"FREE DS('PDS')"
But the pds did not get compressed.
Is the above code is valid for the compression? |
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
It worked for me when coded properly:
| Code: |
/* REXX */
"ISPEXEC LMINIT DATAID(ID) DATASET('PDS') ENQ(EXCLU)"
"ISPEXEC LMCOMP DATAID("ID")"
"ISPEXEC LMFREE DATAID("ID")"
|
|
|
| Back to top |
|
|
|
|
