Delete data sets cataloged in a JCL

This one I developed I guess around 5 yrs back, there were lot of JCL’s in the system, poorly written not to have a delete Step at the top for deleting the datasets cataloged in the JCL. Each time I had to run the job I had to delete all the datasets manually.

One or two dataset to delete was Ok, but was frustrating when there were more than 10.  So friends if you face the similar situation then the following piece of CLIST and ISREDIT macro will rescue you.

How to Use this? – Copy the code to a pds allocated to SYSPROC and then Just give command line command “ACDEL” on the JCL you wish to operate this CLIST on.

/**********************************************************************/* TITLE      : ACDEL/*——————————————————————-/* FUNCTION   : DELETE ALL CATALOGED DATASETS IN A JOB/*——————————————————————-/* AUTHOR     : VIKAS SAXENA (*——————————————————————-/* DESCRIPTION: THIS CLIST SCANS THE JOB AND DELETES ALL DATASETS THAT/*            : ARE CREATED IN THE JOB. IT SAVES THE EFFORT OF WRITING/*            : A DELETE STEP AT THE TOP./*——————————————————————-/* HOW TO RUN : COPY THIS MEMBER TO THE PDS ALLOCATED TO SYSPROC. OPEN/*            : THE JOB WHICH YOU WISH TO SCAN AND TYPE ‘ACDEL’ AT THE/*            : COMMAND LINE AND PRESS ENTER./*——————————————————————-/* COMMENTS   : IT WILL ONLY DELETE DATASETS CATALOGED BY THE USER/**********************************************************************ISREDIT MACRO/*CONTROL MSG CONLIST SYMLIST NOFLUSH/**********************************************************************/* SAVING THE LAST LINE NUMBER AS LAST_ROW IN THE JOB *****************/**********************************************************************ISREDIT FIND LAST  ‘//’ 1ISREDIT (CROW,CPOS) = CURSORISREDIT (CSRDATA) = LINE &CROWSET LAST_ROW=&CROW/**********************************************************************/********* MOVING THE CURSOR AT THE START OF THE JOB    ****************/**********************************************************************ISREDIT FIND FIRST ‘//’ 1/**********************************************************************/********* VALIDATING THAT IT IS A JCL BEFORE SCANNING  ****************/**********************************************************************IF &LASTCC^=0 THEN +DOWRITE IT CAN ONLY SCAN A JOBSET LINE_COUNT=0GOTO ENDCLISTEND/**********************************************************************/********* EXCLUDING THE LINES NOT NEEDED FOR SCANNING ****************/**********************************************************************ISREDIT X ALLISREDIT F ALL ‘//’ 1ISREDIT X ALL //*ISREDIT X ALL EXECSET RETURN_CODE=0SET CURRENT_ROW=0SET LINE_COUNT=0/**********************************************************************/********* PERFORMING TILL FIND FOR ‘DSN’ IS SUCCESSFUL  ***************/**********************************************************************DO WHILE &RETURN_CODE=0 ISREDIT FIND DSN SET RETURN_CODE=&LASTCC IF &RETURN_CODE^=0 THEN +   GOTO ENDCLIST ISREDIT (CROW,CPOS) = CURSOR ISREDIT (CSRDATA) = LINE &CROW SET DDLINE = &CROW SET DSNCOL=&SYSINDEX(&STR(DSN=),&STR(&CSRDATA),1) SET CATLG_POS=0 SET DSN_POS=0 SET CURRENT_ROW=&CROW/**********************************************************************/*******PERFORMING TILL NEXT SEARCH FOR ‘DSN’ IS UNSUCCESSFUL  ********/**********************************************************************  DO WHILE &DSN_POS=0   SET LINE_COUNT=&LINE_COUNT +1   SET CATLG_POS=&SYSINDEX(CATLG,&STR(&CSRDATA),1)   IF &CURRENT_ROW < &LAST_ROW THEN +    SET CURRENT_ROW=&EVAL(&CURRENT_ROW + 1)   ELSE +    GOTO ENDCLIST   ISREDIT (CSRDATA) = LINE &CURRENT_ROW   SET DSN_POS=&SYSINDEX(DD,&STR(&CSRDATA),1)/**********************************************************************/*****  IF ‘CATLG’ IS FOUND DELETE THE DATASET ONLY IF THE  ***********/*****  DATASET EXISTS AND THE USER HAS ACCESS TO DELETE IT ***********/**********************************************************************   IF &CATLG_POS^=0 THEN +    DO     ISREDIT (CSRDATA) = LINE &DDLINE     SET STARTPOS= &SYSINDEX(&STR(DSN=),&STR(&CSRDATA),1)     SET STARTPOS=&STARTPOS+4     SET ENDPOS= &SYSINDEX(&STR(,),&STR(&CSRDATA),&STARTPOS)      IF &ENDPOS= 0 THEN +       SET ENDPOS= &SYSINDEX(&STR( ),&STR(&CSRDATA),&STARTPOS)       SET ENDPOS = &ENDPOS-1       SET DATASET=&SUBSTR(&STARTPOS:&ENDPOS,&STR(&CSRDATA))       SET USER_DS=&SYSINDEX(&STR(&SYSUID),&STR(&DATASET),1)       IF &USER_DS^=0 THEN +         DO          SET DSN_STATUS=&STR(&SYSDSN(‘&DATASET’))        IF &DSN_STATUS=OK THEN +          DO          DELETE ‘&DATASET’          END          END        ELSE +          DO          IF &USER_DS=0 THEN +          WRITE CANNOT DELETE &DATASET          IF &DSN_STATUS^=OK THEN +          WRITE DATASET NOT FOUND          END     SET DSN_POS=&LAST_ROW + 1     SET END_LOOP=&LAST_ROW + 1    END  ENDENDIF &DSN_POS=&END_LOOP THEN +GOTO  ENDCLIST/**********************************************************************/*****  ENDING THE CLIST   ********************************************/**********************************************************************ENDCLIST: +WRITE LINES PROCESSED &LINE_COUNTISREDIT RESET



Please provide your feedback/suggestions regarding this tutorial on contact form. Tutorials related to COBOL, JCL, DB2 etc are also present on the Website for mainframe developers. Mainframe jobs can be posted on our mainframe jobs forum.