The following CLIST code is an example code to write data to a PS file.

SET PS=&SYSUID..OUTPUT
IF &SYSDSN('&PS') =OK THEN +
  DELETE '&PS'
ALLOC DA('&PS') F(OUTDD) NEW SPACE(20 20) TRACKS RELEASE +
LRECL(80) RECFM(F B) DSORG(PS)
OPENFILE OUTDD OUTPUT
SET OUTDD=TEXT TO BE WRITTE IN FILE
PUTFILE OUTDD
CLOSFILE OUTDD
FREE FILE(OUTDD)

"; ; ; ;