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
