Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SDSF REXX for DB2 command output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1657
Location: Tirupur

PostPosted: Thu Apr 25, 2019 11:29 pm    Post subject: SDSF REXX for DB2 command output
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: 2247
Location: Hampshire, UK

PostPosted: Fri Apr 26, 2019 1:51 am    Post subject: Reply to: SDSF REXX for DB2 command output
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: 1657
Location: Tirupur

PostPosted: Fri Apr 26, 2019 3:44 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Can you manually set an EOF marker in... Don Allard CLIST & REXX 5 Sat Nov 02, 2019 12:30 am
No new posts Running a REXX exec program using ZOSMF Sakthi344 CLIST & REXX 1 Tue Oct 15, 2019 3:13 pm
No new posts REXX VSAM Harold Barnes CLIST & REXX 3 Sat Oct 05, 2019 2:38 pm
No new posts REXX for Reading SMF type 70-1 AdrielGB Testing & Performance analysis 6 Sat Oct 05, 2019 3:03 am
No new posts Can GLobal variable used under TSOE/REXX Kaliragavendran CLIST & REXX 5 Tue Sep 24, 2019 7:16 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us