Unload file Definition

Hello,

How we unload the file definition from Predict which we used as input for ADACMP on previously created file?

I have attached the JCL for new file creation we used previously.

Thank You
ForForum.rtf (3.02 KB)

The compress cards (CMP) are created in Predict with the GEN AC command (we used to call them WAN cards). They are stored in a Natural library and can be exported to a sequential file or PDS via Predict’s PUNCH command. Run a batch Natural step; the cards will be punched to CMWKF01.

PUNCH member library

Rather than use Predict to punch cards for a batch COMPRESS, you can have Predict create the Adabas file definition with GEN AF. There is really little need to punch WAN cards these days.

Thanks

Do we need to create member first?

Please see the attached file, our ex DBA used this JCL.

I have also find following member in the Data Set.

I also put member description in the file. My question how he got or from where he got the structure/dictionary of the file.
ForForum_2.rtf (3.6 KB)

If Predict is installed, the maintenance of Adabas file and field definitions should be performed there. Call this “meta-data” rather than a “member”. These definitions are Predict object type FI.

Changes may be implemented in Adabas directly from within Predict (with GEN AF, as mentioned before), or in a batch job using ADACMP cards, which can be created by Predict (GEN AC). The ADACMP card deck can be considered a “member”.

The procedure at your shop would be

1 - make file/field changes in Predict
2 - GEN AC to create the ADACMP cards
3 - run JCL to punch the ADACMP cards (ie DICPUNCH)
4 - run JCL to COMPRESS/load the file

    • make file/field changes in Predict

how do we accomplish? Can you give an example?

2 - GEN AC to create the ADACMP cards

What is AC for?

3 - run JCL to punch the ADACMP cards (ie DICPUNCH)
4 - run JCL to COMPRESS/load the file

Does my first file (newfile) compress and load?
I have attched the file again. I think its need some changes. So far I am new in JCL.
Can u help some?

Thanks
ForForum_1.rtf (3.6 KB)

http://techcommunity.softwareag.com/ecosystem/documentation/natural/prd461/overview.htm

I would STRONGLY encourage you to ask your employer to get you
at least basic training for your job.

You are correct, I has asked them but due to the bad economic every training in hold from last three years here in US.

But there are some senior people I can get some assist but like to ask correct question. So I will get right help. thanks

Will it work?
I like to load an empty file.

//************************************************************
//PROCS JCLLIB ORDER=(NATURALT.PDS.PROCLIB)
//*
//STEP1 EXEC NATURALT,SYS=N2OCLASS,
// NPARM=‘INTENS=1,AUTO=OFF,DATSIZE=128’
//CMWKF01 DD DSN=SYSDBAA.TEMP.PREDICT,DISP=OLD
//SYSIN DD *
%*
SYSDICBE,TSSCC,NOTELL
MENU
LOAD OBJECTTYPE ALL REPLACE=Y
FIN
/*
******************************** Bottom of Data **************

No, this will not load (create) an Adabas file. SYSDICBE is a utility used to copy meta-data between instances of Predict - for example from Test to Production.

I modified my first file as below to upload the file.

My JCL is as below:

********************************* Top of Data **********************************
//TSSDNREP JOB (H1345011000,110,NAURALADABA),ICSDBS.BN58,
// CLASS=A,MSGCLASS=T,REGION=0M,
// NOTIFY=TSSDN
//*
/ROUTE PRINT TEMPSAR
//

//PROCS JCLLIB ORDER=(ADABAST.TEMP.PROCLIB)
//*
//STEP01 EXEC ADAUTILT,UTIL=LOD,DBID=220,MODE=S,ADADBID=ADA220
//DDEBAND DD DUMMY
//*DDEBAND DD DSN=&&AUS,DISP=(OLD,DELETE)
//DDKARTE DD *
ADALOD LOAD FILE=134
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 ********************************

ERROR-081, Error occurred during Opening/Closing of input file
DDEBAND :
04 - SEQ: No DD-Statement; DUMMY; UA, IGN(DOS)

Probably misspelling of the DDNAME, incorrect JCL, etc.

Investigate the cause of the error.
Correct it and rerun the job.

A D A L O D Terminated 2011-12-14 16:43:20

DDEBAND cannot be an empty dataset (ie DUMMY). As explained in the documentation, it must contain the output of an ADACMP COMPRESS (http://techcommunity.softwareag.com/ecosystem/documentation/adabas/ada824mfr/adamf/util/adalod-ReqEx.htm#d0e36097).

Go back to your original example, where the first job step was a compress of ADACMP cards.

can i do without DDEBAND? Actaully I tried but it did not work.

I am at home now.
I will try following values tomorrow morning after

//DDEBAND DD DSN=&&AUS,DISP=(OLD,DELETE)

//DDAUSBA DD DSN=&&AUS,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(LRECL=9996,BLKSIZE=10000,RECFM=VB)

I added in the above JCL as below but still getting JCL error:

//DDAUSBA DD DSN=&&AUS,DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(LRECL=9996,BLKSIZE=10000,RECFM=VB)

//DDEBAND DD DSN=&&AUS,DISP=(OLD,DELETE)


Thanks