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

GDG gens missed when they are remotely created without break


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
harisukumaran

New User


Joined: 14 Jun 2005
Posts: 75

PostPosted: Thu Jan 02, 2014 11:14 pm
Reply with quote

Incrementing G0000V00 is a feature that the system handles. I don't think it would a good idea try and replicate it by coding it again at an application level.
Here is the Rexx that I wrote for this. It seems to be doing what it is supposed to do. I am still testing it.

Code:
****** ***************************** Top of Data ******************************
000001 /* rexx */                                                             
000002 /*------------------------------------------------------------------*   
000003 * Determine the next generation to the processed.                   *   
000004 * Allocate it to the input DDNAME expected by PGM                   *   
000005 * Run the PGM                                                       *   
000006 *------------------------------------------------------------------*/   
000007 parse arg gdgbase ',' retran ',' prg ',' indd ',' profile               
000008 /*------------------------------------------------------------------*   
000009 * gdgbase - Input GDG base name                                     *   
000010 * retran  - File to be submitted manually without altering GDG      *   
000011 *           generation pointer                                      *   
000012 * prg     - Program to be run                                       *   
000013 * indd    - Input DDNAME expected by PGM                            *   
000014 *-------------------------------------------------------------------*   
000015 * Initialize variables                                              *   
000016 *------------------------------------------------------------------*/   
000017 rc1 = 0                                                                 
000018 result = 0                                                             
000019 procgen.1 = ''                                                         
000020 nextgen = ''                                                           
000021 if gdgbase = '' then                                                   
000022 do                                                                     
000023    say '!!! GDG Base has not been passed !!!'                           
000024    say '!!! Program Exiting !!!'                                       
000025    exit 12                                                             
000026 end                                                                     
000027                                                                         
000028 /*------------------------------------------------------------------*   
000029 * If retran generation is passed, use it directly without           *   
000030 * altering the lastgen pointer or trying to locate it under the GDG *   
000031 *------------------------------------------------------------------*/   
000032 if retran /= '' then                                                   
000033 do                                                                     
000034    dsirc = listdsi("'"strip(retran)"'" 'RECALL')                       
000035    if dsirc /= 0 then                                                   
000036    do                                                                   
000037       say '!!! Retran file not found !!!'                               
000038       say '!!! Program Exiting !!!'                                     
000039       exit 12                                                           
000040    end                                                                 
000041    else                                                                 
000042    do                                                                   
000043       procgen.1 = retran                                               
000044       say 'Generation' procgen.1,                                       
000045       'has been submitted for retransmission'                           
000046       rc1 = 1                                                           
000047    end                                                                 
000048 end                                                                     
000049 else                                                                   
000050 do                                                                     
000051 /*------------------------------------------------------------------*   
000052 * Check if lastgen file is empty, if so this is the first run       *   
000053 * of the job. Initialize lastgen file with the most current         *   
000054 * generation and allocate the the current gen to input DD           *   
000055 *------------------------------------------------------------------*/   
000056    "execio 1 diskr lastgen (stem lastgen. finis"                       
000057    if lastgen.0 = 0 then                                               
000058    do                                                                   
000059       call bpxwdyn("alloc dsn('"gdgbase"(0)')" ,                       
000060                "shr reuse rtdsn(procgen.1)")                           
000061       if result /= 0 then                                               
000062       do                                                               
000063          say 'No generations found'                                     
000064          say result                                                     
000065          Exit 12                                                       
000066       end                                                               
000067       rc1 = 2                                                           
000068    end                                                                 
000069    else                                                                 
000070 /*------------------------------------------------------------------*   
000071 * If lastgen populated locate the next generation                   *   
000072 * pull g0000v00 of each generation under the gdg using bpxwdyn      *   
000073 * Start from (0) gen and work backwards                             *   
000074 * Compare each g0000v00 with the saved lastgen                         
000075 *------------------------------------------------------------------*/   
000076    do                                                                   
000077       do n = 0 by -1 while result = 0 & lastgen.1 /= nextgen           
000078 /*------------------------------------------------------------------*   
000079 * Keep on stepping backwards through gdg using relative gens        *   
000080 * Save the G0000V00 from previous bpxwdyn before you pull the one   *   
000081 * prior to it via. Remember,you are going backwards (0),(-1),(-2)...*   
000082 * Compare the saved g0000v00 with one from the lastgen card when you*   
000083 * loop back                                                         *   
000084 * Get out of the loop when one of the following becomes true:       *   
000085 * a) Saved lastgen from PREVIOUS bpxwdyn matched the one on in the  *   
000086 *    lastgen card                                                   *   
000087 *    !!! This means your MOST RECENT bpxwdyn just pulled in the DSN *   
000088 *    after the one saved in the lastgen card !!!                    *   
000089 * b) The result turns non-zero                                      *   
000090 *    Non-zero result means you have gone past the old generation    *   
000091 *------------------------------------------------------------------*/   
000092          procgen.1 = nextgen                                           
000093          call bpxwdyn("alloc dsn('"gdgbase"("n")')",                   
000094                   "shr reuse rtdsn(nextgen)")                           
000095       end                                                               
000096       select                                                           
000097          when result = 0 & n = -2 then                                 
000098             say procgen.1 'will be processed'                           
000099          when result = 0 & n < -2 then                                 
000100          do                                                             
000101             say procgen.1 'will be processed'                           
000102             say abs(n) - 2 'file(s) remaining after this one'           
000103             say 'SRSTAT file is being populated'                       
000104             srstatc.1 = "SRSTAT '"gdgbase"'",                           
000105                        "AVAIL(YES) SUBSYS(EMSG)"                       
000106             "execio 1 diskw srstatc (stem srstatc. finis"               
000107             rc1 = 3                                                     
000108          end                                                           
000109          when result = 0 then                                           
000110          do                                                             
000111             say 'No more generations to process'                       
000112             Exit 4                                                     
000113          end                                                           
000114          otherwise                                                     
000115          do                                                             
000116             say 'Last generation not found'                             
000117             say 'result=' result                                       
000118             Exit 12                                                     
000119          end                                                           
000120       end                                                               
000121    end                                                                 
000122    "execio 1 diskw lastgen (stem procgen. finis"                       
000123 end                                                                     
000124 if prg /= '' then                                                       
000125 do                                                                     
000126    if indd /= '' then                                                   
000127    do                                                                   
000128       "alloc fi("indd") da('"procgen.1"') shr"                         
000129       if rc <> 0 then exit 12                                           
000130       address attchmvs prg                                             
000131       if rc <> 0 then exit rc                                           
000132       address tso "free f("indd")"                                     
000133    end                                                                 
000134    else                                                                 
000135    do                                                                   
000136       say 'Program Name passed without indd'                           
000137       Exit 12                                                           
000138    end                                                                 
000139 end                                                                     
000140 else                                                                   
000141 do                                                                     
000142    "execio 1 diskw procgen (stem procgen. finis"                       
000143    if rc <> 0 then exit 12                                             
000144 end                                                                     
000145 exit rc1                                                               
****** **************************** Bottom of Data ****************************
Code:
Back to top
View user's profile Send private message
harisukumaran

New User


Joined: 14 Jun 2005
Posts: 75

PostPosted: Thu Jan 02, 2014 11:18 pm
Reply with quote

Thank you so much for every one's feed back and suggestions. Especially, Mr Robert Sample. I would greatly appreciate it if you could let me know if you spot problems with this code.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Thu Jan 02, 2014 11:24 pm
Reply with quote

Hello,

What happens when you run it?

Suggest you create a test gdg and do various "things" with it.

If something unexpected happens, post the output of a trace of the problem bit (not hundreds of iterations, please).
Back to top
View user's profile Send private message
harisukumaran

New User


Joined: 14 Jun 2005
Posts: 75

PostPosted: Thu Jan 02, 2014 11:41 pm
Reply with quote

I have been testing this for a few days now. It seems to working. If lastgen file is empty it picks the latest generation that is out there saves it in lastgen, as expected, and allocates and to the input DDNAME and calls the program passed to it as prg. If lastgen has a DSN in it, it decrements relative gen numbers of the gdg iteratively, pulls the DSN for each and compares it with the saved lastgen. If a match is found it identifies the gen to processed as the one after the last gen and processes it by calling prg as before. If there are more than one generation out there after the last gen, it genrates SRSTAT command in sequential file and set rc=3, in additon to processing described before. A subsequent job step submits the command to TWS, if rc=3. The job thus gets 'auto submitted' and the lagging genearion will get picked up. This was done to handle to 'generation lag' introduced (very rarely) due to scheduling issues. There is no listcat being done, no parsing of listing.
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 -> All Other Mainframe Topics Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts How to read unpacked field created in... DFSORT/ICETOOL 12
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts Missing SECTION break DFSORT/ICETOOL 9
No new posts REXX identify the last/latest created... CLIST & REXX 7
No new posts Break Auto update screen without message TSO/ISPF 2
Search our Forums:

Back to Top