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

Reply via email to