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.
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:
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.
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.