Generate ADACMP - JCL

Claudemar_Martins · February 13, 2016, 5:24pm

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

Claudemar_Martins · February 15, 2016, 8:43pm

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.

LOGON SYSDIC
MENU 
GENERATE,ADACMP 
FILE-ID=TEST-FILE,DB=TEST-DA% <-- Continuation record follows 
PUNCH=Y,MEM=TEST,LIB=WANLIB

Claudemar_Martins · February 24, 2016, 2:58pm

I’m running, very good;

//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

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

 >                                       > +  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

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