Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY: CA11TABL                                                  *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: WHEN LOOKING AT A CA11 OUTPUT SCREEN IN ISPF, IF YOU     *
/*           INVOKE THIS UTILITY, IT WILL COPY TABLE CA11ITBL TO A    *
/*           FLAT FILE WITH A TIME/DATE STAMP.                        *
/**********************************************************************
PROC 0 HELP
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
    CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS
IF &HELP = HELP THEN GOTO HELPSEC

/**********************************************************************
/* SET UP THE OUTPUT DATASET WITH A TIME DATE STAMP                   *
/**********************************************************************
SET D = &STR(D)+
        &SUBSTR(1:2,&STR(&SYSSDATE))+
        &SUBSTR(4:5,&STR(&SYSSDATE))+
        &SUBSTR(7:8,&STR(&SYSSDATE))
SET T = &STR(T)+
        &SUBSTR(1:2,&STR(&SYSTIME))+
        &SUBSTR(4:5,&STR(&SYSTIME))+
        &SUBSTR(7:8,&STR(&SYSTIME))
SET TEMPTABL = &STR(&SYSUID..TEMP.CA11TABL.&D..&T)
DELETE '&TEMPTABL'
FREE DDNAME(ISPFILE)
ALLOCATE DDNAME(ISPFILE) DSN('&TEMPTABL') +
         NEW CATALOG +
         UNIT(SYSDA) VOLUME(WRK$$$) +
         SPACE(1,1) TRACKS RELEASE +
         RECFM(F B) LRECL(80) BLKSIZE(23440) DSORG(PS)

/**********************************************************************
/* UNLOAD THE ISPF TABLE                                              *
/**********************************************************************
ISPEXEC FTOPEN
ISPEXEC FTINCL CA11TABL
SET SAVECC = &LASTCC
ISPEXEC FTCLOSE
FREE DDNAME(ISPFILE)
IF &SAVECC > 0 THEN +
    DO
        ISPEXEC VGET ZERRLM
        SET ZEDSMSG = &STR(TABLE CC: &SAVECC)
        SET ZEDLMSG = &STR(&ZERRLM)
        ISPEXEC SETMSG MSG(UTLZ001)
    END
ELSE +
    ISPEXEC EDIT DATASET('&TEMPTABL')

EXIT

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