CLIST to write data in PS file

1 post / 0 new
Anonymous (not verified)
CLIST to write data in PS file

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)

"; ; ; ;

Sponsored Listing

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer

Navigation