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

File transfer using High level Qualifier.


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

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 7:31 pm
Reply with quote

hi all,

I am having requirement to transfer files from production region to test region. We are using NDM for transferring files.

i need to transfer files, for which only high level qualifier is alone known.

Eg: if you given a High level qualifier USERID.XXXX.*, is should able to retrieve all the files under that high level qualifier.

USERID.XXXX.A
USERID.XXXX.B
USERID.XXXX.C
etc..

I am not sure of how many files are there in a high level qualifier. Is there a method to do the same?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Tue Jun 05, 2007 7:35 pm
Reply with quote

Hello,

Must you use ndm?

If you create a dfdss backup using one or more hlq(s), you could then restore the files on a target system.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Jun 05, 2007 7:40 pm
Reply with quote

Aaaaaaaaaaaah, Dick, almost the same suggestion as I was going to make.

I have in the past NDM'd DFdss files to other sites where they were then restored with a change to the names.
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 7:43 pm
Reply with quote

Hi Dick,

thanks for the quick reply

For submitting a batch job which invokes NDM, i am not having the info like how many files are under that high level qualifier.

Can you please elaborate your answer?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Jun 05, 2007 7:48 pm
Reply with quote

If you collect all of the datasets into one file using DFdss (PGM=ADRDSSU) you will only have ONE file to NDM across to where ever.
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 8:33 pm
Reply with quote

hi,

i tried the below JCL

//ADRDSSU JOB (YYYY,ZZ),'JCL',MSGCLASS=D,CLASS=B,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1 EXEC PGM=ADRDSSU
//TAPE DD DSN=USER.ADR.BACKUP.ONE,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=8273,BLKSIZE=32760),
// VOL=(,RETAIN),
// LABEL=RETPD=30,
// UNIT=TAPE80
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DUMP OUTDD(TAPE) -
DS(INCL(USER.D22NOV.K22X.*.LOADCARD))
/*

It works fine. Now do we need to NDM, USER.ADR.BACKUP.ONE alone?
If so please let me know how to get back the original files?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Jun 05, 2007 8:34 pm
Reply with quote

Yes, that's the file to NDM

At the remote site, you will need ADRDSSU to restore the files.
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 8:42 pm
Reply with quote

hi expat,

Could you pls tell me what parameter should i change to run ADRDSSU in remote site?
It would be great if you give a sample JCL template?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Tue Jun 05, 2007 9:07 pm
Reply with quote

Code:

//ADRDSSU JOB (YYYY,ZZ),'JCL',MSGCLASS=D,CLASS=B,
// MSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1    EXEC PGM=ADRDSSU
//TAPE     DD DSN=new dataset name,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
  RESTORE INDD(TAPE) DATASET(INCLUDE(**))
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 9:15 pm
Reply with quote

hi expat,

thanks for your support. I am able to do it icon_smile.gif
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Tue Jun 05, 2007 10:38 pm
Reply with quote

hi expat,

One more question

while doing ndm i need to rename the dataset correponding to that remote site. the current HLQ is not supported in the remote region.

In that case will i able to do that?

I tried RENAMEU(SYSTEMA.FILE1*.*. SYSTEMB.FILE2*.*)
and it doesnt work.

i am getting the below error

ADR141E (001)-RI03 (06), ERROR IN DATA SET NAME SYSTEMB.FILE2*.*

ADR017E (001)-CLTSK(01), 2007.156 10:03:27 TASK NOT SCHEDULED DUE TO ERROR. TASK RETURN CODE 0008



Note:SYSTEMA, SYSTEMB are the HLQ in two sites

Kindly throw some light on this

Thanks
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Jun 06, 2007 12:44 am
Reply with quote

Hello,

This
Quote:
I tried RENAMEU(SYSTEMA.FILE1*.*. SYSTEMB.FILE2*.*)
and it doesnt work.

may need a comma between the "*" and "SYSTEMB..." rather than the period that is in your post.

I haven't verified this, but seem to remember using a comma between the "old" and "new" patterns.
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Wed Jun 06, 2007 1:44 am
Reply with quote

hi dick,
i removed the period and given a comma in between old and new dsn, but again i am getting the same error. ADR141E

As per the syntax a space should be given between new and old DSN.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/dgt2r230/3.11.6.38?DT=20040624152404#HDRREND

i am pasting my restore job below

Code:
//RESTORE JOB (CXR0,XXXX,10,10),'ACCT NAME',           
// MSGLEVEL=(1,1),NOTIFY=&SYSUID                         
//STEP1    EXEC PGM=ADRDSSU                             
//TAPE     DD DSN=USERID.FE25200.BK,DISP=SHR             
//SYSPRINT DD SYSOUT=A                                   
//SYSIN DD *                                             
  RESTORE INDD(TAPE) DATASET(INCLUDE(**)) -             
  RENAMEU(SYSTEMA.FILE1*.* SYSTEMB.FILE1*.*)
/*                       



please let me know if you figure out the error?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Jun 06, 2007 3:35 am
Reply with quote

Hello,

Where in the doc did you find that syntax with a space (where you originally had a period and i thought a comma might be better)? I don't see that (the space delimiter) in the link you posted. . .

It is possible that the DATASET parameter needs to be specified before the INDD (not sure, but the manual shows it that way).

I'll try to look around some this evening for some kind of similar example.

You might look around at your site and see if anyone has done a similar RESTORE.
Back to top
View user's profile Send private message
Knowledge Hunter

New User


Joined: 17 Aug 2006
Posts: 22
Location: India

PostPosted: Wed Jun 06, 2007 3:57 am
Reply with quote

Thanks dick

I will try from my end to figure out the problem.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Jun 06, 2007 4:58 am
Reply with quote

Hello,

I believe i may have misunderstood your current problem - i thought it was when you were trying to do the restore of the dfdss-created file.

I just re-read the posts and this got my attention
Quote:
while doing ndm i need to rename the dataset correponding to that remote site. the current HLQ is not supported in the remote region.


Are you trying to rename the dataset you dfdss-created and transferred via ndm or is this rename part of the multiple file restore?

Good luck and i'll check from this end. . .
Back to top
View user's profile Send private message
gm_laks

New User


Joined: 10 Jul 2007
Posts: 7
Location: banagalore

PostPosted: Wed Jul 11, 2007 12:08 am
Reply with quote

i faced the similar error when i tried renaming the files while restoring. I used the same jcl as below.

Code:
                       
//STEP1    EXEC PGM=ADRDSSU                             
//TAPE     DD DSN=USERID.FE25200.BK,DISP=SHR             
//SYSPRINT DD SYSOUT=A                                   
//SYSIN DD *                                             
  RESTORE INDD(TAPE) DATASET(INCLUDE(**)) -             
  RENAMEU(SYSTEMA.FILE1*.* SYSTEMB.FILE1*.*)
/*           


when i tried giving the specific file name insted of the wild card character '*' it worked fine for me.

RESTORE INDD(TAPE) DATASET(INCLUDE(SYSTEMA.FILE1.file1))
RENAMEU(SYSTEMA.FILE1.file1 SYSTEMB.FILE1.file1)

this may not work if you have many datasets being restored.
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

 


Similar Topics
Topic Forum Replies
No new posts FTP VB File from Mainframe retaining ... JCL & VSAM 8
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
Search our Forums:

Back to Top