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