Here is my assignment:
Unload ADABAS new file definition from Predict which will be used as input for ADACMP in previous Assignment (below). The new file number is 134.
Here is the DD of the previous file:
********************************* Top of Data **********************************
ADACMP COMPRESS
ADACMP FILE=134
ADACMP MINISN=1
ADACMP DEVICE=3380
ADACMP FNDEF=‘01,AA,8,B,NU’ UPDT-STCK **********
ADACMP FNDEF=‘01,AB,8,A,NU’ UPDT-USR-CODE 2011-04-04
ADACMP FNDEF=‘01,AC,8,A,NU’ UPDT-PGM-NAME 10:20:59
ADACMP FNDEF=‘01,AD,8,A,NU’ UPDT-USR-AREA **********
ADACMP FNDEF=‘01,AE,9,A,NU’ DEF-X-NMBR
ADACMP FNDEF=‘01,AF,4,P,NU’ DCH-CHRONO-DATE
ADACMP FNDEF=‘01,AG,4,P,NU’ DCH-CHRONO-DATX-COMP
ADACMP FNDEF=‘01,AH,7,P,NU’ DCH-CHRONO-SQNC-TIMX
ADACMP FNDEF=‘01,AL,7,P,NU’ DCH-CHRONO-TIMX-COMP
ADACMP FNDEF=‘01,AR,75,A,NU,MU’ DCH-CHRN-TXT
ADACMP FNDEF=‘01,AI,1,A,DE,NU’ DCH-DF07-FLAG
ADACMP SUPDE=‘AJ=AE(1,9),AG(1,4),AL(1,7)’ DCH-CHRONO-COMP-SPDE
******************************** 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 should 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?
From where is getting DD info from previous JCL.
Thank You