IBM Mainframe Forum

• Determine what other jobs or TSO users are using the data set and get them to go away.
• Prepare and run a job like this.
  Select all

  //xxx      JOB  ...
  //COMPRESS EXEC PGM=IEBCOPY
  //SYSPRINT DD  SYSOUT=*
  //SYSUT1   DD  DISP=SHR,DSN=your-dataset
  //SYSIN    DD  *
   COPY INDD=SYSUT1,OUTDD=SYSUT1
  /*
• Prepare a CLIST something like this and run it.
  Select all

  PROC 1 NAME DISP(SHR)
  LISTDSI &NAME
  SET RC = &LASTCC
  IF &RC NE 0 THEN +
   WRITE I CAN'T FIND &NAME!
  ELSE +
   IF &SYSDSORG NE &STR(PO) THEN +
    WRITE &NAME IS NOT PARTITIONED!
   ELSE +
    DO
     CONTROL NOMSG
     FREE FILE(SYSIN SYSPRINT AFILE)
     CONTROL MSG
     LISTDSI COMPRESS.SYSPRINT
     SET RC = &LASTCC
     IF &RC = 0 THEN +
      DO
       CONTROL NOMSG
       DEL COMPRESS.SYSPRINT
       CONTROL MSG
      END
     ALLOCATE FILE(SYSPRINT) DATASET(COMPRESS.SYSPRINT) SPACE(1 1) CYL +
       RECFM(F B A) LRECL(121) DSORG(PS)
     ALLOCATE FILE(SYSIN) SPACE(1 1) TRACK RECFM(F B) LRECL(80) +
       BLKSIZE(800 )
     OPENFILE SYSIN OUTPUT
     SET SYSIN = &STR( COPY INDD=AFILE,OUTDD=AFILE)
     PUTFILE SYSIN
     CLOSFILE SYSIN
     ALLOCATE FILE(AFILE) &DISP DATASET(&NAME)
     SET RC = &LASTCC
     IF &RC = 0 THEN +
      DO
       CALL *(IEBCOPY)
       SET RC = &LASTCC
       WRITE COMPRESS COMPLETE, IEBCOPY RC = &RC
      END
     FREE FILE(SYSIN SYSPRINT AFILE)
     ALLOCATE FILE(SYSPRINT) DATASET(*)
     ALLOCATE FILE(SYSIN)    DATASET(*)
    END
  Many of the regular contributors to this forum prefer Rexx rather than CLIST. I have used this CLIST for many years; it's not worth rewriting it in Rexx. A Rexx EXEC will be similar.

be aware that compressing a data set with DISP=SHR in the JCL may cause unexpected consequences,

nevilh wrote:.. Allocation is "stupid" it will do the ENQ on majorname.dsname so if you have 2 datasets with the same name on different disks if one is allocated the other is "locked" .

deucalion0 wrote:... I now have issues with insufficient space when copying new Load modules into the PDS, I believe it is to do with Directory Blocks, I am not sure. ...