Hi Jason, SEND ' ',SAVE
these look better in fixed font. //* //* //SETBROD EXEC PGM=IKJEFT01,PARM='%SETBROD' //* //* //BRODCAST DD * *********************************************************** ** N O T I C E ** ** =========== ** ** E N D O F M O N T H ** ** ======================= ** ** R E S T R I C T I O N S ** ** ======================= ** ** ** ** Month-End processing period resource restrictions ** ** from 18:00 31Jul2014 to 18:00 01Aug2014 SST:- ** ** ** ** Cards development systems:- ** ** ST06 - System will be not be affected. ** ** ST07 - System will be shutdown. ** ** ** ** Are you logging on to support a PRODUCTION problem ** ** during this period? NO? then LOGOFF ASAP!!!!!!!!!! ** ** ** **Please plan to stop all CICS regions before 31Jul 6pm ** *********************************************************** /* //* //* //SYSTSIN DD DUMMY //SYSPRINT DD SYSOUT=* //SYSPROC DD DISP=SHR,DSN=rexx.dataset //SYSTSPRT DD SYSOUT=* // The REXX - the important part. /****************************************************************/ /* Process control cards **/ /****************************************************************/ Say Say "Reading new brodcast message" Say msg. = "EXECIO * DISKR BRODCAST (FINIS STEM msg." msg_cnt = msg.0 rc=isfcalls('on') /* Enable SDSF environment */ do ix=1 to msg_cnt Address SDSF "ISFEXEC '/SEND ''" || msg.ix || "'',SAVE'" end rc=isfcalls('off') Return > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of ibmm...@foxmail.com > Sent: Wednesday, June 28, 2017 8:08 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: how to keep messages in the sys1.broadcast for ever > > > hi all > > Could you tell us how to keep messages in the sys1.broadcast for ever ? > > Thanks a lot! > > Jason Cai > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN