Stuck on SCRATCH'ing a member..

[magik5]

Hello again, more problems my way.

This time I need to scratch a member within a library.
I want to scratch the member 'FRESH' from the library 'MARLEY'.

Here's my code...

Code: Select all

//*
//LIBPROGM EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//ANYNAME  DD  UNIT=SYSDA,
//             VOL=SER=STRG03,
//             DISP=OLD
//SYSIN    DD  *
 SCRATCH MEMBER=FRESH,DSNAME=MARLEY,                                  *
              VOL=SYSDA=STRG03
/*
//

and then again, I get more errors...

Code: Select all

!! END OF JES SPOOL FILE !!
1SYSTEM SUPPORT UTILITIES ---- IEHPROGM                                                                   PAGE 0001     
-                                                                                                                       
  SCRATCH MEMBER=FRESH,DSNAME=MARLEY,                                  *                                                 
 IEH202I  INVALID KEYWORD OR CONTROL STATEMENT SYNTAX                                                                   
-                                                                                                                       
               VOL=SYSDA=STRG03                                                                                         
  IEH201I  INVALID REQUEST... STATEMENT IGNORED                                                                         
-                                                                                                                       
 UTILITY END                                                                                                             
 !! END OF JES SPOOL FILE !!

I'm on a differnet part of my assignment, but I could not finish because I screwed it up and now I need to remove FRESH, so I can try my other steps again.

All help is apperciated ! - Thanks Justin.

[arunprasad.k]

I do not see any problem with your control statements.

Check whether the '*' in the control statement is in 72 position and the next line starts on position 16.

If you want to delete a member from PDS you can also use the below IDCAMS JCL.

Code: Select all

//S01    EXEC PGM=IDCAMS           
//SYSPRINT DD SYSOUT=*             
  DELETE 'MARLEY(FRESH)'           

Post if you still have issues. Arun.

[arunprasad.k]

Justin, Is your code working now

Arun.