How can I make a (Generate ADACMP) for JCL?
I want an example of a jcl that does this.
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
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
> > + 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