# Generate ADACMP - JCL **URL:** \ **Category:** Forum\ **Tags:** Adabas-Natural, Natural, Natural-Add-on-Products, Natural-Predict\ **Created:** [February 13, 2016, 5:24pm UTC](https://techcommunity.softwareag.com/t/generate-adacmp-jcl/186887 "2016-02-13T17:24:06Z")\ **Posts on this page:** 4\ **Page:** 1
**Author:** ![Claudemar\_Martins](https://sea1.discourse-cdn.com/techcommunity/user_avatar/techcommunity.softwareag.com/claudemar_martins/32/322_2.png) [@Claudemar\_Martins](https://techcommunity.softwareag.com/u/Claudemar_Martins)\ **Post date:** [February 13, 2016, 5:24pm UTC](https://techcommunity.softwareag.com/t/generate-adacmp-jcl/186887/1 "2016-02-13T17:24:06Z")
How can I make a (Generate ADACMP) for JCL? I want an example of a jcl that does this. ```auto 13:15:25 *****P R E D I C T 4.4.1***** 2016-02-13 Plan 0 - Generate ADACMP/ADAWAN Definitions - File ID ...............* EMPLOYEES-FILE Phys. File number....... Contained in DA ........ Phys. Database number .. Save as member ......... ABOCWXXX Save in library .... ADACMP Overwrite option ....... N (Y,N) Op. system member .. Punch / output ........* N Generate loader ........ N (Y,N) UES ................ N (Y,N) List generated code .... Y (Y,N) Adabas version ....* I7 List input file .......* Y Input file ID .......... NUMREC ................. (-1=zero) Cipher code ........ Occurrences used ......* Y Record length .......... (*,number) Record format .....* Device statistics ...... Y (Y,N) Command ===> Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12--- Help Next Stop Last E-el Flip Print Impl Acmp Ssec Prof Main ``` - ```auto MORE 13:15:45 *****P R E D I C T 4.4.1***** 2016-02-13 - Generate ADACMP Definitions - Page: 1 File ID .. EMPLOYEES-FILE ADACMP COMPRESS ADACMP FILE=1 ADACMP MINISN=1 ADACMP DEVICE=8391 ADACMP FNDEF='01,AA,8,A,DE,UQ' PERSONNEL-ID ********** ADACMP FNDEF='01,AB' FULL-NAME 2016-02-13 ADACMP FNDEF='02,AC,20,A,NU' FIRST-NAME 13:15:45 ADACMP FNDEF='02,AE,20,A,DE' NAME ********** ADACMP FNDEF='02,AD,20,A,NU' MIDDLE-NAME ADACMP FNDEF='01,AF,1,A,FI' MAR-STAT ADACMP FNDEF='01,AG,1,A,FI' SEX ADACMP FNDEF='01,AH,6,U,DE' BIRTH ADACMP FNDEF='01,A1' FULL-ADDRESS ADACMP FNDEF='02,AI,20,A,NU,MU(8)' ADDRESS-LINE ADACMP FNDEF='02,AJ,20,A,DE,NU' CITY ADACMP FNDEF='02,AK,10,A,NU' POST-CODE ADACMP FNDEF='02,AL,3,A,NU' COUNTRY ADACMP FNDEF='01,A2' TELEPHONE ``` ```auto > > + Program ABOCWXXX Lib ADACMP Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. 0010 ADACMP COMPRESS 0010 ADACMP FILE=1 0010 ADACMP MINISN=1 0010 ADACMP DEVICE=8391 0010 ADACMP FNDEF='01,AA,8,A,DE,UQ' PERSONNEL-ID ********** 0010 ADACMP FNDEF='01,AB' FULL-NAME 2016-02-13 0010 ADACMP FNDEF='02,AC,20,A,NU' FIRST-NAME 13:15:45 0010 ADACMP FNDEF='02,AE,20,A,DE' NAME ********** 0010 ADACMP FNDEF='02,AD,20,A,NU' MIDDLE-NAME 0010 ADACMP FNDEF='01,AF,1,A,FI' MAR-STAT 0010 ADACMP FNDEF='01,AG,1,A,FI' SEX 0010 ADACMP FNDEF='01,AH,6,U,DE' BIRTH 0010 ADACMP FNDEF='01,A1' FULL-ADDRESS 0010 ADACMP FNDEF='02,AI,20,A,NU,MU(8)' ADDRESS-LINE 0010 ADACMP FNDEF='02,AJ,20,A,DE,NU' CITY 0010 ADACMP FNDEF='02,AK,10,A,NU' POST-CODE 0010 ADACMP FNDEF='02,AL,3,A,NU' COUNTRY 0010 ADACMP FNDEF='01,A2' TELEPHONE 0010 ADACMP FNDEF='02,AN,6,A,NU' AREA-CODE 0010 ADACMP FNDEF='02,AM,15,A,NU' PHONE ....+....1....+....2....+....3....+....4....+....5....+... S 38 L 1 ``` ---
**Author:** ![Claudemar\_Martins](https://sea1.discourse-cdn.com/techcommunity/user_avatar/techcommunity.softwareag.com/claudemar_martins/32/322_2.png) [@Claudemar\_Martins](https://techcommunity.softwareag.com/u/Claudemar_Martins)\ **Post date:** [February 15, 2016, 8:43pm UTC](https://techcommunity.softwareag.com/t/generate-adacmp-jcl/186887/2 "2016-02-15T20:43:16Z")
I found in - Predict in Batch Mode Generate ADACMP cards for the file TEST-FILE in database TEST-DA, save them in member TEST in library WANLIB and punch them to workfile 1. ```auto LOGON SYSDIC MENU GENERATE,ADACMP FILE-ID=TEST-FILE,DB=TEST-DA% <-- Continuation record follows PUNCH=Y,MEM=TEST,LIB=WANLIB ``` ---
**Author:** ![Claudemar\_Martins](https://sea1.discourse-cdn.com/techcommunity/user_avatar/techcommunity.softwareag.com/claudemar_martins/32/322_2.png) [@Claudemar\_Martins](https://techcommunity.softwareag.com/u/Claudemar_Martins)\ **Post date:** [February 24, 2016, 2:58pm UTC](https://techcommunity.softwareag.com/t/generate-adacmp-jcl/186887/3 "2016-02-24T14:58:56Z")
I’m running, very good; ```auto //AAFPNATB JOB (AABS,OSB),CLAUD,CLASS=S,MSGCLASS=A TYPRUN=HOLD //*UQ ALLOW //* ------------------------------------------------------------ //* GENERATE ADACMP - FILE FISICO //* ------------------------------------------------------------ //LOADDDM EXEC NATURAL,COND=(0,NE), // PARM1='SYS=D MT=0 IM=D INTENS=1,OBJIN=N,ESIZE=36,DATSIZE=80', // PARM2='STACK=(LOGON SYSDIC),EDPSIZE=48',ID='|' //CMWKF01 DD DSN=ADA.LIBR.JCLS(CLAU999),DISP=SHR //SYSIN DD * MENU GENERATE ADACMP FILE-ID=EMPLOYEES-FILE% DBNR=010% PUNCH=Y% MEM=CLAU996% LIB=ADACMP% REPLACE=Y FIN //CMEDIT DD DSN=&&DDM2,DISP=(NEW,PASS),UNIT=SYSDA, // SPACE=(CYL,15) ``` JOB Running ```auto 1Logon accepted to library SYSDIC. 1NEXT MENU 1FIELD DATA GENERATE ADACMP 1FIELD DATA FILE-ID=EMPLOYEES-FILE% 1FIELD DATA DBNR=010% 1FIELD DATA PUNCH=Y% 1FIELD DATA MEM=CLAU995% 1FIELD DATA LIB=ADACMP% 1FIELD DATA REPLACE=Y 109:48:09 *****P R E D I C T 4.4.1***** 2016-02-24 - Generate ADACMP Definitions - Page: 1 0File ID .. EMPLOYEES-FILE 0ADACMP COMPRESS ADACMP FILE=1 ADACMP MINISN=1 ADACMP DEVICE=8391 ADACMP FNDEF='01,AA,8,A,DE,UQ' PERSONNEL-ID ********** ADACMP FNDEF='01,AB' FULL-NAME 2016-02-24 ADACMP FNDEF='02,AC,20,A,NU' FIRST-NAME 09:48:09 ADACMP FNDEF='02,AE,20,A,DE' NAME ********** ADACMP FNDEF='02,AD,20,A,NU' MIDDLE-NAME ADACMP FNDEF='01,AF,1,A,FI' MAR-STAT ADACMP FNDEF='01,AG,1,A,FI' SEX ADACMP FNDEF='01,AH,6,U,DE' BIRTH ADACMP FNDEF='01,A1' FULL-ADDRESS ADACMP FNDEF='02,AI,20,A,NU,MU(8)' ADDRESS-LINE ADACMP FNDEF='02,AJ,20,A,DE,NU' CITY ADACMP FNDEF='02,AK,10,A,NU' POST-CODE ADACMP FNDEF='02,AL,3,A,NU' COUNTRY ADACMP FNDEF='01,A2' TELEPHONE ADACMP FNDEF='02,AN,6,A,NU' AREA-CODE ADACMP FNDEF='02,AM,15,A,NU' PHONE ADACMP FNDEF='01,AO,6,A,DE' DEPT ADACMP FNDEF='01,AP,25,A,DE,NU' JOB-TITLE ADACMP FNDEF='01,AQ,PE(40)' INCOME ADACMP FNDEF='02,AR,3,A,NU' CURR-CODE ADACMP FNDEF='02,AS,5,P,NU' SALARY ADACMP FNDEF='02,AT,5,P,NU,MU(12)' BONUS ADACMP FNDEF='01,A3' LEAVE-DATA ADACMP FNDEF='02,AU,2,U' LEAVE-DUE ADACMP FNDEF='02,AV,2,U,NU' LEAVE-TAKEN ADACMP FNDEF='01,AW,PE(20)' LEAVE-BOOKED ADACMP FNDEF='02,AX,6,U,NU' LEAVE-START ADACMP FNDEF='02,AY,6,U,NU' LEAVE-END ADACMP FNDEF='01,AZ,3,A,DE,NU,MU(15)' LANG ADACMP PHONDE='PH(AE)' PHONETIC-NAME ADACMP SUPDE='H1=AU(1,2),AV(1,2)' LEAVE-LEFT ADACMP SUBDE='S1=AO(1,4)' DEPARTMENT ADACMP SUPDE='S2=AO(1,6),AE(1,20)' DEPT-PERSON ADACMP SUPDE='S3=AR(1,3),AS(1,9)' CURRENCY-SALARY 0DIC1800 SUMMARY: 34 FIELD(S) PROCESSED. 0SAVED AS MEMBER CLAU995 IN LIB ADACMP . PUNCHED TO WORK FILE 1 . 1FIELD DATA FIN 1NAT9995 Natural session terminated normally. -------------------------------------------------------------------------------- OP=S CL=ALL IN=ALL JB=AAFPNATB,03318 DS=1 SI=SO LR=43 LL=80 PP=0 DC= RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 ``` Library Natural ```auto > > + Program CLAU995 Lib ADACMP Top ....+....1....+....2....+....3....+....4....+....5....+....6....+....7.. 0010 ADACMP COMPRESS 0010 ADACMP FILE=1 0010 ADACMP MINISN=1 0010 ADACMP DEVICE=8391 0010 ADACMP FNDEF='01,AA,8,A,DE,UQ' PERSONNEL-ID ********** 0010 ADACMP FNDEF='01,AB' FULL-NAME 2016-02-24 0010 ADACMP FNDEF='02,AC,20,A,NU' FIRST-NAME 09:48:09 0010 ADACMP FNDEF='02,AE,20,A,DE' NAME ********** 0010 ADACMP FNDEF='02,AD,20,A,NU' MIDDLE-NAME 0010 ADACMP FNDEF='01,AF,1,A,FI' MAR-STAT 0010 ADACMP FNDEF='01,AG,1,A,FI' SEX 0010 ADACMP FNDEF='01,AH,6,U,DE' BIRTH 0010 ADACMP FNDEF='01,A1' FULL-ADDRESS 0010 ADACMP FNDEF='02,AI,20,A,NU,MU(8)' ADDRESS-LINE 0010 ADACMP FNDEF='02,AJ,20,A,DE,NU' CITY 0010 ADACMP FNDEF='02,AK,10,A,NU' POST-CODE 0010 ADACMP FNDEF='02,AL,3,A,NU' COUNTRY 0010 ADACMP FNDEF='01,A2' TELEPHONE 0010 ADACMP FNDEF='02,AN,6,A,NU' AREA-CODE 0010 ADACMP FNDEF='02,AM,15,A,NU' PHONE ....+....1....+....2....+....3....+....4....+....5....+... S 38 L 1 ``` Library PS ```auto MEMBER=CLAU999 R=00000001 DSN=ADA.LIBR.JCLS LIB=S4 VOL=PRL303 UNIT=1126 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 ADACMP COMPRESS ADACMP FILE=1 ADACMP MINISN=1 ADACMP DEVICE=8391 ADACMP FNDEF='01,AA,8,A,DE,UQ' PERSONNEL-ID ********** ADACMP FNDEF='01,AB' FULL-NAME 2016-02-24 ADACMP FNDEF='02,AC,20,A,NU' FIRST-NAME 09:48:09 ADACMP FNDEF='02,AE,20,A,DE' NAME ********** ADACMP FNDEF='02,AD,20,A,NU' MIDDLE-NAME ADACMP FNDEF='01,AF,1,A,FI' MAR-STAT ADACMP FNDEF='01,AG,1,A,FI' SEX ADACMP FNDEF='01,AH,6,U,DE' BIRTH ADACMP FNDEF='01,A1' FULL-ADDRESS ADACMP FNDEF='02,AI,20,A,NU,MU(8)' ADDRESS-LINE ADACMP FNDEF='02,AJ,20,A,DE,NU' CITY ADACMP FNDEF='02,AK,10,A,NU' POST-CODE ADACMP FNDEF='02,AL,3,A,NU' COUNTRY ADACMP FNDEF='01,A2' TELEPHONE ADACMP FNDEF='02,AN,6,A,NU' AREA-CODE ADACMP FNDEF='02,AM,15,A,NU' PHONE ``` ---
**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\ **Post date:** [April 2, 2021, 3:35pm UTC](https://techcommunity.softwareag.com/t/generate-adacmp-jcl/186887/4 "2021-04-02T15:35:22Z")