On Wed, 9 Feb 2022 14:26:54 +0100, Radoslaw Skorupka wrote:

>I need to schedule some job under TWS vel IWS vel ZWS.
>
>The job contain full month concatenation of daily datasets.
>//INPUT  DD DISP=SHR,DSN=HLQ.Y2022.D0101
>//             DD DISP=SHR,DSN=HLQ.Y2022.D0102
>//             DD DISP=SHR,DSN=HLQ.Y2022.D0103
>...
>//             DD DISP=SHR,DSN=HLQ.Y2022.D0131
>
/* Rexx  */
trace N
signal on novalue

B = date( 'Base' )
parse value date( 'Standard', B, 'Base' ) with . 5 M0 7 .
do I = B-31 to B+31
    DDD = right( date( 'Days', I, 'Base' ), 3, 0 )
    parse value date( 'Standard', I, 'Base' ) with YYYY 5 MM 7 .
    if MM<>M0 then iterate I
    say 'DSN=HLQ.Y'YYYY'.D'DDD
    end I

-- 
gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to