PROC 0 YEAR() /* /* GENERATE CALENDAR FOR CURRENT (OR SPECIFIED) YEAR /* AUTHOR: P. SCOTT /* CONTROL NOMSG NOLIST NOFLUSH CLS ALLOC F(SYSOUT) UNIT(SYSDA) TRACKS SPACE(1) DELETE REUSE CALL 'SYS1.PSM.RUNLIB(PSU004)' '&YEAR' ISPEXEC LMINIT DATAID(SYSOUT) DDNAME(SYSOUT) ENQ(SHR) ISPEXEC EDIT DATAID(&SYSOUT) FREE F(SYSOUT)
NOTE: You must first install program PSU004 for this CLIST to work.