IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

SDSF REXX for DB2 command output


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Thu Apr 25, 2019 11:29 pm
Reply with quote

Hi,

I am trying to capture the output of a DB2 command in a file.
The command is /-SS12 DISPLAY BUFFERPOOL(ACTIVE) DETAIL

SS12 is the DB2 subsystem ID.
Code:
/*REXX*/                                                       
"ALLOC F(OUTFILE) DS('"WELLS.CONSOLE.OUTPUT"') MOD REUSE"
TRACE  "O"                                                     
PARSE SOURCE _SYS _HOW _CMD .                                   
PARSE ARG ARGS                                                 
DEBUG = 1                                                       
ISFRC = ISFCALLS("ON")                                         
IF ISFRC ¬= 0 THEN DO                                           
    SAY "ISFCALLS RC" ISFRC                                     
    EXIT                                                       
END                                                             
CMD = "/-SS12 DISPLAY BUFFERPOOL(ACTIVE) DETAIL"               
CALL CONSOLEGET                                                 
DROP ISFULOG.                                                   
"FREE DD(OUTFILE)"                                     
CALL  ISFCALLS "OFF"                                           
EXIT                                                           
                                                               
CONSOLEGET :                                                   
ISFDELAY=20                                                     
ADDRESS SDSF "ISFEXEC '" || CMD || "'"                         
IF RC ¬= 0 THEN DO                                             
    SAY "ISFEXEC  RC" RC                                       
    SAY ISFMSG                                                 
    DO  IM = 1 TO ISFMSG2.0                                     
        SAY ISFMSG2.IM                                         
    END                                                         
    EXIT                                                       
END                                                             
 "EXECIO * DISKW OUTFILE (STEM ISFULOG. FINIS"                 
RETURN

But after running this program, The file WELLS.CONSOLE.OUTPUT has only partial output of the command.
Code:
SOMELPAR  2019114  11:56:30.06             ISF031I CONSOLE WELLS ACTIVATED                                     
SOMELPAR  2019114  11:56:30.06            --SS12 DISPLAY BUFFERPOOL(ACTIVE) DETAIL                             
SOMELPAR  2019114  11:56:30.07  STC02418   DSNB401I  -SS12 BUFFERPOOL NAME BP0, BUFFERPOOL ID 0, USE COUNT 658
SOMELPAR  2019114  11:56:30.08  STC02418   DSNB402I  -SS12 BUFFER POOL SIZE = 6000 BUFFERS  AUTOSIZE = NO     
                                                      VPSIZE MINIMUM = 0 VPSIZE MAXIMUM = 0                   
                                                        ALLOCATED       =     6000   TO BE DELETED   =        0
                                                        IN-USE/UPDATED  =      285                             
SOMELPAR  2019114  11:56:30.08  STC02418   DSNB431I  -SS12 SIMULATED BUFFER POOL SIZE = 0 BUFFERS -           
                                                        ALLOCATED       =        0                             
                                                        IN-USE          =        0   HIGH IN-USE     =        0
                                                        SEQ-IN-USE      =        0   HIGH SEQ-IN-USE =        0
SOMELPAR  2019114  11:56:30.08  STC02418   DSNB406I  -SS12 PGFIX ATTRIBUTE -                                   
                                                        CURRENT = NO                                           
                                                        PENDING = NO                                           
                                                      PAGE STEALING METHOD = LRU                               
SOMELPAR  2019114  11:56:30.09  STC02418   DSNB404I  -SS12 THRESHOLDS -                                       
                                                       VP SEQUENTIAL    = 80   SP SEQUENTIAL   =  0           
                                                       DEFERRED WRITE   = 30   VERTICAL DEFERRED WRT  =  5,  0
                                                       PARALLEL SEQUENTIAL =50   ASSISTING PARALLEL SEQT=  0   
SOMELPAR  2019114  11:56:30.09  STC02418   DSNB546I  -SS12 PREFERRED FRAME SIZE 4K                             
                                                   6000 BUFFERS USING 4K FRAME SIZE ALLOCATED                 
SOMELPAR  2019114  11:56:30.10  STC02418   DSNB409I  -SS12 INCREMENTAL STATISTICS SINCE 11:51:10 APR 24, 2019 
SOMELPAR  2019114  11:56:30.10  STC02418   DSNB411I  -SS12 RANDOM GETPAGE    =652                             
                                                       SYNC READ I/O (R) =111                                 
                                                       SEQ.   GETPAGE    =50195                               
                                                       SYNC READ I/O (S) =222                                 
                                                       DMTH HIT          =0                                   
                                                       PAGE-INS REQUIRED =0                                   
                                                       SEQUENTIAL        =4897                                 
                                                       VPSEQT HIT        =3                                   
                                                       RECLASSIFY        =5       


It am unable to capture all the responses till "STC02414 DSN9022I -SS12 DSNB1CMD '-DISPLAY BUFFERPOOL' NORMAL COMPLETION "

Could you please let me know why is this behavior.

Regards,
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Fri Apr 26, 2019 1:51 am
Reply with quote

Possibly because of your EXECIO *. If one of your lines is null that is the signal to EXECIO to stop. Use the actual line count.

That is just a possibility.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India

PostPosted: Fri Apr 26, 2019 3:44 am
Reply with quote

Thank you for the solution. EXECIO * was the problem.

Changed
Code:
"EXECIO * DISKW OUTFILE (STEM ISFULOG. FINIS"

to
Code:
"EXECIO " ISFULOG.0 " DISKW OUTFILE (STEM ISFULOG. FINIS" 


Now all the messages are captured. Wonderful icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top