/* rexx */
/*-----------------*/
/* LIST OF CHANGES */
/*-----------------*/
/* MM/DD/YY         - ----------------------DESCRIPTION-----*/
/* 4/3/2019         - DATE() ISSUED 1 BYTE VALUE FOR DAYS   */
/*                    STARTING FROM 1 AND 9 AND BECAUSE OF  */
/*                    THIS, THE MONTH VALUE WAS ADVANCED    */
/*                    BY ONE BYTE.                          */
/*                    CHANGED DATE() TO DATE('U') AND ADDED */
/*                    LOGIC TO ENUMERATE MONTH.             */
/*                  - ADDED LOGIC TO ISSUE A MESSAGE WHEN   */
/*                    TC IS INVOKED WITHOUT AN ARGUMENT     */
/*----------------------------------------------------------*/
/* 3/26/2019        - CREATION OF THIS REXX EXEC.           */
/*----------------------------------------------------------*/
address ispexec
"libdef ispslib dataset id('Z01071.REXX.SKELETON')"
arg dsn
if dsn == '' then
    do
        say 'TC COMMAND HAS BEEN INVOKED WIHOUT AN ARGUMENT.'
        say 'PROVIDE A TAPE DATASET NAME AS ARGUMENT.'
        say 'FOR EXAMPLE, TSO TC Z01071.TAPE.DATASET'
        exit
    end
else
    do
        a = strip(dsn,,'''')
        JNUM = random(001,999)
        USRID = userid()
        DSNME = a
        upper = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
        lower = 'abcdefghijklmnopqrstuvwxyz'
        m = substr(date('U'),1,2)
        call find_month
        MON = translate(month,upper,lower)
        DY = substr(date('U'),4,2)
        HH = substr(time(),1,2)
        MM = substr(time(),4,2)
        SS = substr(time(),7,2)
        address ispexec
        "FTOPEN TEMP"
        "FTINCL TCSKEL"
        "FTCLOSE"
        "VGET ZTEMPF"
        address ispexec "EDIT DATASET ('"ZTEMPF"')"
    end

find_month:
select
when m='01' then month = 'Jan'
when m='02' then month = 'Feb'
when m='03' then month = 'Mar'
when m='04' then month = 'Apr'
when m='05' then month = 'May'
when m='06' then month = 'Jun'
when m='07' then month = 'Jul'
when m='08' then month = 'Aug'
when m='09' then month = 'Sep'
when m='10' then month = 'Oct'
when m='11' then month = 'Nov'
when m='12' then month = 'Dec'
end
return