If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

 
Go Back  dBforums > Database Server Software > Adabas > Fmove

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old 12-13-11, 19:16
dnaqvi dnaqvi is offline
Registered User
 
Join Date: Dec 2011
Posts: 12
Fmove

I am new to ADABAS and MVS.

Here is my assignment

Unload ADABAS new file definition from Predict which will be used as input for ADACMP in previous Assignment . The new file number is 134.

Here is the JCL I used earlier to create file 54.

//PROCS JCLLIB ORDER=(ADABAST.TEMP.PROCLIB)
//*
//STEP01 EXEC ADAUTILT,UTIL=CMP,DBID=220,MODE=S,ADADBID=ADA220
//DDFEHL DD SYSOUT=*,DCB=(RECFM=VB,LRECL=23472,BLKSIZE=23476)
//DDEBAND DD DUMMY
//DDAUSBA DD DSN=&&AUS,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(1,1) ),
// DCB=(LRECL=9996,BLKSIZE=10000,RECFM=VB)
//DDKARTE DD *
ADACMP COMPRESS
ADACMP FILE=54
ADACMP MINISN=1
ADACMP FNDEF='01,AA,8,B'
ADACMP FNDEF='01,AB,8,A'
ADACMP FNDEF='01,AC,8,A'
ADACMP FNDEF='01,AD,13,A,DE,NU'
//*
//STEP02 EXEC ADAUTILT,UTIL=LOD,DBID=220,MODE=S,ADADBID=ADA220
//DDEBAND DD DSN=&&AUS,DISP=(OLD,DELETE)
//DDKARTE DD *
ADALOD LOAD FILE=54
//** ADALOD NAME='AP-DEF-NEXT-CASE-ADA' ORIGINAL NAME
ADALOD NAME='DAWAR_TST'
ADALOD MAXISN=500
ADALOD UISIZE=1B
ADALOD NISIZE=2B
ADALOD DSSIZE=1
ADALOD ASSOPFAC=5
ADALOD DATAPFAC=10
ADALOD ISNREUSE=YES
ADALOD TEMPSIZE=2
ADALOD SORTSIZE=4
//*
******************************** Bottom of Data *****

Now I am using following JCL unload ADABAS new file definition from Predict which will be used as input for ADACMP above. The file number will be 134.

//************************************************** *******************
//PROCS JCLLIB ORDER=(NATURALT.PDS.PROCLIB)
//************************************************** ******
//* ADA220 HAS TO BE UP
//************************************************** ******
//*
//STEP1 EXEC NATURALT,SYS=N2OCLASS
//CMWKF01 DD DSN=TSSDN.SL9.JOBS(FL220134),DISP=SHR
//SYSIN DD *
SYSDIC,DBADMIN,MAINT
PUNCH FL220134,CMP220
FIN
.
/*
//CMEDIT DD DSN=NATURALT.COMMON.EDITWORK,DISP=SHR
**************** Bottom of Data ****************

is it correct?
Does it create FL220134?

Thank You
Reply With Quote
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On