IBM Mainframe Forum

by **crazydoc** » Fri Jan 31, 2020 1:21 pm

Hello

Tried to use the task:

//JOBNAME JOB (1234567),'ABC 123',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),USER=USER,PASSWORD=PASSWORD,NOTIFY=&SYSUID
//REMVLF   EXEC PGM=SDSF,COND=(0,NE),REGION=0M,PARM='++111,240'
//ISFOUT   DD SYSOUT=A
//ISFIN    DD *
/+D009 DISPLAY USAGE PSID(4) TYPE(PAGESET)
/*

And I ran into a problem-often the output of ISFOUT does not include the results of the response. In the examples below.
Please tell me if you have encountered this or have any ideas in which direction to look. Thx

Normal:

Select all

b'1 HQX7780 -----------------  SDSF PRIMARY OPTION MENU  --------------------------'
b'  COMMAND INPUT ===>                                            SCROLL ===> PAGE'
b'  DA    Active users                      INIT  Initiators'
b'  I     Input queue                       PR    Printers'
b'  O     Output queue                      PUN   Punches'
b'  H     Held output queue                 RDR   Readers'
b'  ST    Status of jobs                    LINE  Lines'
b'                                          NODE  Nodes'
b'  LOG   System log                        SO    Spool offload'
b'  SR    System requests                   SP    Spool volumes'
b'  MAS   Members in the MAS                NS    Network servers'
b'  JC    Job classes                       NC    Network connections'
b'  SE    Scheduling environments'
b'  RES   WLM resources                     RM    Resource monitor'
b'  ENC   Enclaves                          CK    Health checker'
b'  PS    Processes'
b'                                          ULOG  User session log'
b'  END   Exit SDSF'
b'  Licensed Materials - Property of IBM'
b'  5694-A01 Copyright IBM Corp. 1981, 2011. All rights reserved.'
b'  US Government Users Restricted Rights - Use, duplication or'
b'  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.'
b'1 HQX7780 -----------------  SDSF PRIMARY OPTION MENU     COMMAND ISSUED'
b'  COMMAND INPUT ===>                                            SCROLL ===> PAGE'
b'  RESPONSE=SYS4                                                                                                                                                                                                                                 \t'
b'   CSQI010I +D009 Page set usage ...                                                                                                                                                                                                            \t'
b'     Page Buffer     Total    Unused  Persistent  NonPersist Expansion                                                                                                                                                                          \t'
b'      set   pool     pages     pages  data pages  data pages        count                                                                                                                                                                       \t'
b'   _    4      3     17997     17983          14           0 USER       0                                                                                                                                                                       \t'
b'    End of page set report                                                                                                                                                                                                                      \t'
b'   CSQP001I +D009 Buffer pool 3 has 20000 buffers, 19907 (99%) stealable                                                                                                                                                                        \t'
b'  LOG   System log                        SO    Spool offload'
b'  SR    System requests                   SP    Spool volumes'
b'  MAS   Members in the MAS                NS    Network servers'
b'  JC    Job classes                       NC    Network connections'
b'  SE    Scheduling environments'
b'  RES   WLM resources                     RM    Resource monitor'
b'  ENC   Enclaves                          CK    Health checker'
b'  PS    Processes'
b'                                          ULOG  User session log'
b'  END   Exit SDSF'
b'  Licensed Materials - Property of IBM'
b'  5694-A01 Copyright IBM Corp. 1981, 2011. All rights reserved.'
b'  US Government Users Restricted Rights - Use, duplication or'
b'  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.'

Bad:

Select all

b'1 HQX7780 -----------------  SDSF PRIMARY OPTION MENU  --------------------------'
b'  COMMAND INPUT ===>                                            SCROLL ===> PAGE'
b'  DA    Active users                      INIT  Initiators'
b'  I     Input queue                       PR    Printers'
b'  O     Output queue                      PUN   Punches'
b'  H     Held output queue                 RDR   Readers'
b'  ST    Status of jobs                    LINE  Lines'
b'                                          NODE  Nodes'
b'  LOG   System log                        SO    Spool offload'
b'  SR    System requests                   SP    Spool volumes'
b'  MAS   Members in the MAS                NS    Network servers'
b'  JC    Job classes                       NC    Network connections'
b'  SE    Scheduling environments'
b'  RES   WLM resources                     RM    Resource monitor'
b'  ENC   Enclaves                          CK    Health checker'
b'  PS    Processes'
b'                                          ULOG  User session log'
b'  END   Exit SDSF'
b'  Licensed Materials - Property of IBM'
b'  5694-A01 Copyright IBM Corp. 1981, 2011. All rights reserved.'
b'  US Government Users Restricted Rights - Use, duplication or'
b'  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.'
b'1 HQX7780 -----------------  SDSF PRIMARY OPTION MENU     COMMAND ISSUED'
b'  COMMAND INPUT ===>                                            SCROLL ===> PAGE'
b'  LOG   System log                        SO    Spool offload'
b'  SR    System requests                   SP    Spool volumes'
b'  MAS   Members in the MAS                NS    Network servers'
b'  JC    Job classes                       NC    Network connections'
b'  SE    Scheduling environments'
b'  RES   WLM resources                     RM    Resource monitor'
b'  ENC   Enclaves                          CK    Health checker'
b'  PS    Processes'
b'                                          ULOG  User session log'
b'  END   Exit SDSF'
b'  Licensed Materials - Property of IBM'
b'  5694-A01 Copyright IBM Corp. 1981, 2011. All rights reserved.'
b'  US Government Users Restricted Rights - Use, duplication or'
b'  disclosure restricted by GSA ADP Schedule Contract with IBM Corp.'

Lines disappear:

Select all

b'  RESPONSE=SYS4                                                                                                                                                                                                                                 \t'
b'   CSQI010I +D009 Page set usage ...                                                                                                                                                                                                            \t'
b'     Page Buffer     Total    Unused  Persistent  NonPersist Expansion                                                                                                                                                                          \t'
b'      set   pool     pages     pages  data pages  data pages        count                                                                                                                                                                       \t'
b'   _    4      3     17997     17983          14           0 USER       0                                                                                                                                                                       \t'
b'    End of page set report                                                                                                                                                                                                                      \t'
b'   CSQP001I +D009 Buffer pool 3 has 20000 buffers, 19907 (99%) stealable                                                                                                                                                                        \t'
 

by **willy jensen** » Fri Jan 31, 2020 2:42 pm

I strongly recommend that you use the REXX API instead. See 'Chapter 4. Using SDSF in batch' in the 'SDSF User's Guide' manual.

by **crazydoc** » Fri Jan 31, 2020 2:51 pm

willy jensen wrote:I strongly recommend that you use the REXX API

In another case, I would use REXX, but now I do not want to alter the logic of what has already been built. The thing is that I use:

1) Python lib for NJEserver: https://github.com/CrazyDoc/NJElib/tree/py3
2) MQ monitor on lib for NJE: https://github.com/CrazyDoc/IBM_MQ_PageSets_Monitor
3) And this is not important, but I will add - django server for the monitor: https://github.com/CrazyDoc/Django_JavaScript_Ajax

It is because of what has already been done that I would like to understand the reason for this behavior of ISFOUT

by **crazydoc** » Wed Feb 05, 2020 6:16 pm

Solution:

Select all

//H4CKRNJE JOB (1234567),'ABC 123',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),USER=USER,PASSWORD=PASSWORD,NOTIFY=&SYSUID
//REMVLF   EXEC PGM=SDSF,COND=(0,NE),REGION=0M,PARM='++111,240'
//ISFOUT   DD SYSOUT=*
//CMDOUT   DD SYSOUT=*
//ISFIN    DD *
SET CONSOLE BATCH
SET DELAY 600
ULOG
/+D009 DISPLAY USAGE PSID(4) TYPE(PAGESET)
PRINT FILE CMDOUT
PRINT
PRINT CLOSE
/*
 

This guarantees the output, though a bit redundant

IBM Mainframe Forum

JCL, SDSF in batch

JCL, SDSF in batch

Re: JCL, SDSF in batch

Re: JCL, SDSF in batch

Re: JCL, SDSF in batch