DSNTEP2 error in deleting rows from table

srinathds83 · New User Joined: 17 Jul 2007 Posts: 41 Location: pune

Hi,

i'm trying to delete the records in table through JCL using DSNTEP2 utility,
following is the code

//PASO040 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=30
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAI)
RUN PROGRAM(DSNTEP2) PLAN(DSNTIB81) -
LIB('DSN810AI.RUNLIB.LOAD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE FROM Tablename ;

this code is executed with return code 8, however there is no error displayed. all i'm getting in SYSPRINT is "RESULT OF SQL STATEMENT:"

could someone help me to understand why the records are not getting deleted and why i'm getting return code 8.

Thanks in Advance,
Srinath

sushanth bobby · Posted: Thu Nov 19, 2009 4:16 pm

Srinath,

For me this works

dick scherrer · Posted: Thu Nov 19, 2009 9:33 pm

Hello,

srinathds83 · New User Joined: 17 Jul 2007 Posts: 41 Location: pune

Hi Sushanth & Dick Scherrer,

Thanks for you response!!!

i've even tried what Sushanth has mentioned but it was not working. But the problem was with the plan name. the following code workes for me.

//PASO040 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=30
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBAI)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP81) -
LIB('DSN810AI.RUNLIB.LOAD')
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
DELETE
FROM Tablename;

Thanks
Srinath D

dick scherrer · Posted: Fri Nov 20, 2009 10:34 am

You're welcome - thanks for posting the solution

d

sushanth bobby · Posted: Fri Nov 20, 2009 10:50 am

Great. Srinath, you have resolved it.

Just a a little suggestion. Since you are planning on deleting an entire table using DSNTEP2. You can also do it by doing a DUMMY LOAD, which will perform better & less logging.

Thank You,
Sushanth

GuyC · Posted: Fri Nov 20, 2009 2:34 pm