Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY: CSPDB2XR                                                  *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: THIS UTILITY INVOKES A BATCH JOB WHICH EXTRACTS ALL CSP  *
/*           RECORDS IN THE ENDEVOR-CONTROLLED MSLS INTO EXPORT       *
/*           FORMAT.  AN EDIT MACRO (CSPDB2MA) IS THEN INVOKED TO     *
/*           FORMAT THE INFORMATION INTO A CROSS REFERENCE REPORT OF  *
/*           CSP RECORD NAMES TO DB2 RECORD NAMES AND PUTS THE RESULTS*
/*           INTO THE DOCUMENT LIBRARY TO BE VIEWED ON-LINE.          *
/**********************************************************************
PROC 0 DOCLIB('DUSC1.STR.DOCLIB') +
       PASSFIL1('&SYSUID..TEMP.CSPDB2XR.PASSFIL1') +
       PASSFIL2('&SYSUID..TEMP.CSPDB2XR.PASSFIL2') +
       GDAFILE('DUSC1.STR.CNTLLIB(GDA)') +
       MEMBER('CSPDB2XR') +
       ROMSL('TEDVDEVL TEDVQUAL MEDVMODO PEDVPROD') +
       EDIT +
       FORMAT +
       HELP

/*** CHECK THE DEBUG SWITCH ***/                                              02
ISPEXEC VGET DBGSWTCH PROFILE                                                 02
IF &DBGSWTCH = ON THEN +                                                      02
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH PROMPT ASIS                00000702
ELSE +                                                                        02
    CONTROL NOMSG NOLIST NOFLUSH PROMPT ASIS                            00000902
ISPEXEC CONTROL ERRORS RETURN
IF &HELP = HELP THEN GOTO HELPSEC

/**********************************************************************
/* IF BEING INVOKED WITH THE FORMAT PARAMETER, JUST EDIT THE DATASET  *
/**********************************************************************
IF &FORMAT = FORMAT THEN +
    DO
        SET PASSFIL2 = &STR(&PASSFIL2)
        ISPEXEC EDIT DATASET('&PASSFIL2') MACRO(CSPDB2MA)
        EXIT
    END


/**********************************************************************
/* ESTABLISH SOME PROCESSING VARIABLES                                *
/**********************************************************************
/* INITIALIZE SEVERAL VARIABLES WHICH WILL BE USED LATER IN THE       *
/* PROCESSING.                                                        *
/**********************************************************************
OPEN_CONTINUE: +
CALL 'SYS2.USC1.LINKLIB(USERINFO)' '&SYSUID '
SET JCLDSN = &STR(&SYSUID..TEMP.CSPDB2XR)
SET EXITCC = 0
SET PASSFIL1 = &STR(&PASSFIL1)
SET PASSFIL2 = &STR(&PASSFIL2)
SET LP = &STR((
SET RP = &STR()

/**********************************************************************
/* CREATE THE JCL                                                     *
/**********************************************************************
SET ZEDLMSG = &STR(*** CREATING JCL TO GENERATE CSP/DB2 XREF REPORT ***)
ISPEXEC CONTROL DISPLAY LOCK
ISPEXEC DISPLAY MSG(UTLZ001)

DELETE '&JCLDSN'

FREE DDNAME(ISPFILE)

ALLOCATE DDNAME(ISPFILE) DSN('&JCLDSN') +
                         NEW CATALOG +
                         UNIT(SYSDA) VOLUME(WRK$$$) +
                         SPACE(2,2) TRACKS RELEASE +
                         RECFM(F B) LRECL(80) BLKSIZE(23440) DSORG(PS)

ISPEXEC FTOPEN
ISPEXEC FTINCL CSPDB2XR
ISPEXEC FTCLOSE

FREE DD(ISPFILE)

IF &EDIT = EDIT THEN +
    DO
        SET ZEDLMSG = &STR(NOTE: YOU MUST SUBMIT +
                           THIS JCL YOURSELF.  IT +
                           WILL NOT RUN AUTOMATICALLY.)
        ISPEXEC SETMSG MSG(UTLZ001)
        ISPEXEC EDIT DATASET('&JCLDSN')
        SET EXITCC = 0
        GOTO FINISH

    END

SUBMIT '&JCLDSN'
SET ZEDLMSG = &STR(*** CSPDB2XR JOB SUBMITTED ***)
ISPEXEC SETMSG MSG(UTLZ000)

/**********************************************************************
/* CLOSE UP SHOP                                                      *
/**********************************************************************
FINISH: +
EXIT CODE(&EXITCC)

/**********************************************************************
/* DISPLAY ANY "HELP" WHICH IS AVAILABLE FOR THIS UTILITY             *
/**********************************************************************
HELPSEC: +
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR CSPDB2XR UTILITY +
                   *** NO PROCESSING PERFORMED ***)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT