JCL, SDSF in batch



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

JCL, SDSF in batch

Postby 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:
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:
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:
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'
 
crazydoc
 
Posts: 50
Joined: Fri Jul 24, 2015 12:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: JCL, SDSF in batch

 

Re: JCL, SDSF in batch

Postby 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.
willy jensen
 
Posts: 296
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 42 times

Re: JCL, SDSF in batch

Postby 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
crazydoc
 
Posts: 50
Joined: Fri Jul 24, 2015 12:27 pm
Has thanked: 2 times
Been thanked: 0 time

Re: JCL, SDSF in batch

Postby crazydoc » Wed Feb 05, 2020 6:16 pm

Solution:
//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
crazydoc
 
Posts: 50
Joined: Fri Jul 24, 2015 12:27 pm
Has thanked: 2 times
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post