Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 1 Using TIBCO Object Service Broker Utilities : S6BSPDSN (Determine Number of GDGs)

S6BSPDSN (Determine Number of GDGs)
S6BSPDSN is a general purpose utility that assists you with TIBCO Object Service Broker journal processing. Given the name of a generation data group (GDG), S6BSPDSN returns the number of generations that exist.
You can use S6BSPDSN to determine how many journal backups were written to disk and offload them to tape depending upon the return code.
Invocation
The member SPIN01 of the JCL data set distributed with TIBCO Object Service Broker contains sample JCL required to run this utility. This sample is provided as a reference only; modify the JCL for your needs.
The sample SPIN01 JCL uses the GDG= parameter to determine the number of generations that exist for the file. For example, the following JCL will set the step return code to the number of generations of $HLQNONV$.$SLQ$.JOURNAL.SPINOUT:

 
//TESTSPN EXEC PGM=S6BSPDSN,
// PARM='GDG=$HLQNONV$.$SLQ$.JOURNAL.SPINOUT'
//STEPLIB DD DSN=$HLQNONV$.$INSTVER$.AUTH,DISP=SHR

 
Alternate Parameters
You can also specify the following alternative parameters:
If you use the DSN= parameter, S6BSPDSN returns the number of volumes allocated for the specified data set.
This sets the return of S6BSPDSN to the number of data sets cataloged under the specified high level qualifier. This option dynamically invokes IDCAMS. It requires the following additional JCL statements:

 
//SYSIN DD DISP=(new,delete,delete),unit=SYSDA,SPACE=(TRK,(5,5),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=8000)
//SYSPRINT DD DISP=(new,delete,delete),unit=SYSDA,SPACE=(TRK,(5,5))

 
For each of the above PARM functions, you can optionally add the DD statement:
 
//DSLIST DD SYSOUT=A
or
//DSLIST DD DISP=OLD,DSN=$HLQNONV$.$SLQ$.DSLIST
to obtain a list of file names processed by the request. In both cases, the output is FB with LRECL=80. The first two bytes represent the binary length of the data set name followed by the datas et name.
Return Codes
Ordinarily, the return code indicates the number of generations allocated in the GDG specified in the parameter or the number of volumes allocated to a data set if DSN is specified in the parameter.
Other return codes indicate the following error conditions:

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved