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:[email protected]] On
> Behalf Of [email protected]
> Sent: Wednesday, June 28, 2017 8:08 PM
> To: [email protected]
> 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 [email protected] with the message: INFO IBM-MAIN
