Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

DFSURGL0 Utility

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
narasimha.g

New User


Joined: 10 Sep 2009
Posts: 68
Location: Liverpool

PostPosted: Wed Sep 28, 2011 9:32 pm    Post subject: DFSURGL0 Utility
Reply with quote

Hi All,

I am trying to load an IMS database using DFSURGL0 utility with the help of the following jcl

Code:
//PREREORG EXEC PGM=DFSRRC00,PARM='ULU,DFSURPR0',REGION=2048K         
//STEPLIB  DD DISP=SHR,DSN=IMSVSL.RESLIB                               
//IMS      DD DSN=TCZZ.£SCIMSL.DBDLIB,DISP=SHR                         
//DFSURCDS DD DSN=&&URCDS,DISP=(,CATLG),                               
//         DCB=(BLKSIZE=1600),SPACE=(TRK,(1,1)),UNIT=SYSDA             
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=120                                 
//SYSIN    DD *                                                       
OPTIONS=(NOPUNCH,STAT,SUMM)                                           
DBR=ZDP19SDB                                                           
/*                                                                     
//LOAD19   EXEC PGM=DFSRRC00,PARM='ULU,DFSURGL0,ZDP19SDB,,,,,,,,,,,N',
//        REGION=2048K                                                 
//STEPLIB  DD DSN=IMSVSL.SDFSRESL,DISP=SHR                             
//DFSRESLB DD DSN=IMSVSL.SDFSRESL,DISP=SHR                             
//IMS      DD DSN=TCZZ.£SCIMSL.DBDLIB,DISP=SHR                         
//DFSPRINT DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSUDUMP DD SYSOUT=*                                                 
//DFSUINPT DD DISP=SHR,DSN=TLSZ.£S.ZDP19SDB.ZDP19SD1.DATAFIL2         
//DFSURWF1 DD DSN=&&URWF1,DISP=(NEW,PASS,DELETE),       
//         DCB=(RECFM=VB,LRECL=900,BLKSIZE=1008),       
//         SPACE=(TRK,(30,4),RLSE),UNIT=3380             
//ZDP19SD1 DD DISP=SHR,DSN=TLVI.£SIDB.ZDP19SDB.ZDP19SD1 
//ZDC19SD1 DD DISP=SHR,DSN=TLVI.£SIDB.ZDC19SDB.ZDC19SD1 
//ZDI19SD1 DD DISP=SHR,DSN=TLVI.£SIDB.ZDI19SDB.ZDI19SD1 
//DFSURCDS DD DSN=&&URCDS,DISP=(OLD,PASS)               
//DFSVSAMP DD DSN=IMSVSL.PROCLIB(DFSVSM04),DISP=SHR     
//*                                                     



where TLSZ.£S.ZDP19SDB.ZDP19SD1.DATAFIL2 is the production unload.

The job is executing with the Return code zero. But database is not getting uploaded with the given data.

The jcl output says

Code:
                                                                           
                            SEGMENT  LEVEL  STATISTICS                     
                                                                           
                                        TOTAL SEGMENTS BY SEGMENT TYPE     
            SEGMENT      SEGMENT                                           
             NAME         LEVEL            RELOADED     DIFFERENCE         
                                                                           
             GSP19DCN          1              10,832                       
                                                                           
                                                                           
                          TOTAL  SEGMENTS  IN  DATA  BASE                 
                      UNLOADED          RELOADED      DIFFERENCE           
                                                                           
                         10,832           10,832                           
                                                                           
DATABASE ZDP19SDB HAS BEEN SUCCESSFULLY RELOADED BY FUNCTION DR           
FUNCTION DR HAS COMPLETED NORMALLY RC=00                                   


But when I unload the data it still contains the old set of data and the new data is not loaded. Could you please let me know if im doing wrong somewhere
Back to top
View user's profile Send private message

aprocon

New User


Joined: 26 Oct 2010
Posts: 41
Location: chennai

PostPosted: Thu Sep 29, 2011 12:54 am    Post subject: Reply to: DFSURGL0 Utility
Reply with quote

are n't you just unloading and loading the same data?
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Thu Sep 29, 2011 1:12 am    Post subject:
Reply with quote

Hello,

Code:
//DFSURCDS DD DSN=&&URCDS,DISP=(,CATLG),
Why does a temporary file specify catlg. . .

If a backup is run and that output is used to load, why would there be any difference?
Back to top
View user's profile Send private message
narasimha.g

New User


Joined: 10 Sep 2009
Posts: 68
Location: Liverpool

PostPosted: Thu Sep 29, 2011 3:02 pm    Post subject: Re: Reply to: DFSURGL0 Utility
Reply with quote

aprocon wrote:
are n't you just unloading and loading the same data?


Noo... test has a different data now... i hace unloaded from production and trying to load that in test now.... Am i using a wrong utility???
Back to top
View user's profile Send private message
aprocon

New User


Joined: 26 Oct 2010
Posts: 41
Location: chennai

PostPosted: Thu Sep 29, 2011 6:20 pm    Post subject: Reply to: DFSURGL0 Utility
Reply with quote

You are using the right utility. Can i see your unload and Delete/define step?
Back to top
View user's profile Send private message
aprocon

New User


Joined: 26 Oct 2010
Posts: 41
Location: chennai

PostPosted: Thu Sep 29, 2011 9:26 pm    Post subject:
Reply with quote

alternatively, you could use repro to refresh the test database with prod data.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Thu Sep 29, 2011 9:32 pm    Post subject: Reply to: DFSURGL0 Utility
Reply with quote

the whole issue has been flawed from the beginning...
the jcl works.. YES
the statistics at the end match ... YES ( they simply tell that the input/output <record> count match )
the data is what You expected ... oops NO

did it happen to think
that maybe you reloaded the wrong <input> dataset
and it would have been wiser to check that before posting
or that maybe you are looking/using the wrong IMS subsystem
or... or...

give evidence that the input data is the <good> one and after that instead of posting here open a PMR with IBM
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm
No new posts Any docs / links for isub- cobol comp... SRICOBSAS COBOL Programming 4 Fri Aug 26, 2016 2:35 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us