Can anyone tell me how to send SYSPRINT to a file so I can see what the code is echoing? The file gets created but the sysprint does not get written to the file, it continues to come to the screen! What am I doing missing? Doing wrong?
DYNAM FREE FILE SYSPRINT
DYNAM ALLOC FILE SYSPRINT DA 'P625926.SYSPRT.COMRPX3' NEW -
SPACE 1,1 TRACKS LRECL 80 BLKSIZE 8000 RECFM FB

Thanks in advance.

This message has been edited. Last edited by: Kerry,

Isn't this the correct way to direct sysprint to a file?

DYNAM FREE FILE SYSPRINT
DYNAM ALLOC FILE SYSPRINT DA 'P625926.SYSPRT.COMRPX3' NEW -
SPACE 1,1 TRACKS LRECL 80 BLKSIZE 8000 RECFM FB
-RUN
-SET &ECHO=ALL;


TABLE FILE ......
BLAH, BLAH,
END
-RUN
-EXIT

I'm not 100% sure of how MF Webfocus works with respect to this post, but if it is the same as on other platforms, then there is no sysprint. The sysprint thing was actually a feature of focus, not of webfocus. As far as I know, there is no way of sending the output of what used to be sysprint to a file when you're in webfocus.

You are correct, there is no sysprint with WebFOCUS - There should be a sysprint with regular MF FOCUS. You can see the source in the browser page.

It sounds like you are running online FOCUS for z/OS.

If that is the case, try using Session Monitor.

For example, this code:

  
DYNAM ALLOC DD CAR     DS TLA.FOCUS.CAR SHR REUSE
DYNAM FREE  DD FOCSAVE
DYNAM ALLOC DD FOCSAVE DS TLA.SESSMON    SHR REUSE
-*
SET SM = ON
-RUN
-SET &ECHO='ON';
-*
TABLEF FILE CAR
"DATE/TIME: &MDYY/&TOD"
PRINT *
END
-RUN
-*
/TOP
/SAVE
SET SM = OFF
DYNAM FREE DD FOCSAVE

Gives:

  
 BROWSE    TLA.SESSMON                               Line 00000000 Col
 Command ===>                                                  Scroll ==
********************************* Top of Data **************************
 TABLEF FILE CAR
 "DATE/TIME: 04022009/21.22.12"
 PRINT *
 END
0(FOC757) WARNING. YOU REQUESTED PRINT * OR COUNT * FOR A MULTIPATH FILE
  PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
...REPORT KILLED
1
0 NUMBER OF RECORDS IN TABLE=       18  LINES=     18
0
 /TOP
 /SAVE
 SET SM = OFF
 DYNAM FREE DD FOCSAVE

Thanks much - that did the trick. I have working with WebFOCUS for so long, I have forgotten the techniques for plain ole' FOCUS!