Version 8.1.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADACMP with BS2000, z/OS, z/VM, and VSE systems and shows examples of each of the job streams.

Note:
When the recovery log is active, sequential data sets used by the utilities whose runs are logged on the RLOG must be kept and made available for any recovery operation; for example, the DD/EBAND input to an ADALOD LOAD operation.

This document covers the following topics:


User Exits with ADACMP

Compression with User Exit

User exit 6 can be used to perform user processing on a record before it is processed by the ADACMP COMPRESS utility. It can also be used to control the sequence and contents of the decompressed records that are output from the ADACMP DECOMPRESS utility; when used in this way, the user exit controls which decompressed records ADACMP writes to the DDAUSBA data set. For more information about user exit 6, read User Exit 6 (User Processing Before Data Compression) .

If user exit 6 is to be used during ADACMP execution, the specified user exit routine must be loadable at execution time; that is, it must be assembled and linked into the Adabas

The ADACMP COMPRESS utility job must specify:

graphics/util_adarun_uex6.png

where:

exit-name is the name of a user routine that gets control at the user exit; the name can be up to 8 characters long.

For more information, read UEXn : User Exit .

Collation with User Exit

If a collation user exit is to be used during ADACMP execution, the ADARUN CDXnn parameter must be specified for the utility run.

Used in conjunction with the universal encoding support (UES), the format of the collation descriptor user exit parameter is:

graphics/util_adarun_cdxnn.png

where:

nn is the number of the collation descriptor exit, a two-digit decimal integer in the range 01-08 inclusive.
exit-name is the name of the user routine that gets control at the collation descriptor exit; the name can be up to 8 characters long.

Only one program may be specified for each collation descriptor exit. Up to 8 collation descriptor exits may be specified (in any order). For more information, read CDXnn : Collation Descriptor User Exit .

Top of page

BS2000

Data Set Link Name Storage More Information
User input data
(COMPRESS function)
DDEBAND tape/ disk  
Compressed data
(DECOMPRESS function)
DDEBAND tape/ disk Not used if the parameter INFILE is used
Compressed data for a data base with files containing large object (LB) fields
(COMPRESS function)
DDAUSB1 tape/disk This additional data set receives the compressed large object records to be loaded into the LOB file as the compressed records in the first output data set (DDAUSBA) are loaded into the base file.
Compressed data
(COMPRESS function)
DDAUSBA tape/ disk  
Decompressed data
(DECOMPRESS function)
DDAUSBA tape/ disk  
Rejected data DDFEHL tape/ disk  
ECS encoding objects DDECSOJ tape/ disk Required for universal encoding support (UES)
ADARUN parameters SYSDTA/ DDCARD   Adabas Operations Manual
ADACMP parameters and data definitions SYSDTA/ DDKARTE   Adabas Utilities Manual
ADARUN messages SYSOUT/ DDPRINT printer/ disk Adabas Messages and Codes Manual
ADACMP report SYSLST/ DDDRUCK printer/ disk Adabas Messages and Codes Manual

JCL Examples (BS2000)

ADACMP COMPRESS

In SDF Format:

/.ADACMP LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A C M P COMPRESS
/REMARK *
/DELETE-FILE CMP.AUS
/SET-JOB-STEP
/DELETE-FILE CMP.FEHL
/SET-JOB-STEP
/CREATE-FILE CMP.AUS,PUB(SPACE=(48,48)
/SET-JOB-STEP
/CREATE-FILE CMP.FEHL,PUB(SPACE=(48,48))
/SET-JOB-STEP

/ASS-SYSLST L.CMP
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDEBAND,CMP.EIN                  
/SET-FILE-LINK DDAUSBA,CMP.AUS                  
/SET-FILE-LINK DDFEHL,CMP.FEHL                 
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP COMPRESS NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADACMP LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A C M P COMPRESS
/REMARK *
/ER CMP.AUS
/STEP
/ER CMP.FEHL
/STEP
/SYSFILE SYSLST=L.CMP
/FILE ADA.MOD,LINK=DDLIB
/FILE CMP.EIN,LINK=DDEBAND
/FILE CMP.AUS,LINK=DDAUSBA,SPACE=(48,48)
/FILE CMP.FEHL,LINK=DDFEHL,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP COMPRESS NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee
/LOGOFF NOSPOOL

ADACMP DECOMPRESS

In SDF Format:

/.ADACMP LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A C M P DECOMPRESS
/REMARK *

/DELETE-FILE CMP.AUS
/SET-JOB-STEP
/DELETE-FILE CMP.FEHL
/SET-JOB-STEP
/CREATE-FILE CMP.AUS,PUB(SPACE=(48,48))
/SET-JOB-STEP
/CREATE-FILE CMP.FEHL,PUB(SPACE=(48,48))
/SET-JOB-STEP
/ASS-SYSLST L.DEC
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/SET-FILE-LINK DDEBAND,CMP.EIN
/SET-FILE-LINK DDAUSBA,CMP.AUS                  
/SET-FILE-LINK DDFEHL,CMP.FEHL                 
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP DECOMPRESS
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADACMP LOGON
/OPTION MSG=FH,DUMP=YES
/REMARK *
/REMARK * A D A C M P DECOMPRESS
/REMARK *
/ER CMP.AUS
/STEP
/ER CMP.FEHL
/STEP
/SYSFILE SYSLST=L.CMP.DEC

/FILE ADA.MOD,LINK=DDLIB
/FILE CMP.EIN,LINK=DDEBAND
/FILE CMP.AUS,LINK=DDAUSBA,SPACE=(48,48)
/FILE CMP.FEHL,LINK=DDFEHL,SPACE=(48,48)
/EXEC (ADARUN,ADA.MOD)
ADARUN PROG=ADACMP,DB=yyyyy,IDTNAME=ADABAS5B
ADACMP DECOMPRESS
/LOGOFF NOSPOOL

Top of page

z/OS

Data Set DD Name Storage More Information
User input data
(COMPRESS function)
DDEBAND tape/ disk  
Compressed data
(DECOMPRESS function)
DDEBAND tape/ disk Not used if the parameter
INFILE is specified
Compressed data for a data base with files containing large object (LB) fields
(COMPRESS function)
DDAUSB1 tape/disk This additional data set receives the compressed large object records to be loaded into the LOB file as the compressed records in the first output data set (DDAUSBA) are loaded into the base file
Compressed data
(COMPRESS function)
DDAUSBA tape/ disk  
Decompressed data
(DECOMPRESS function)
DDAUSBA tape/ disk  
Rejected data DDFEHL tape/ disk  
ECS encoding objects DDECSOJ tape/ disk Required for universal encoding support (UES)
ADACMP report DDDRUCK printer  
ADARUN messages DDPRINT printer  
ADARUN parameters DDCARD reader  
ADACMP parameters and data definitions DDKARTE reader  

JCL Examples (z/OS)

In the JOBS data set, refer to ADACMP and ADACMPS for the COMPRESS examples and ADACMPD for the DECOMPRESS example.

ADACMP COMPRESS

This example can be found in the ADACMP member of the JOBS data set.

//ADACMP    JOB
//*
//*   ADACMP COMPRESS
//*      COMPRESS A FILE
//*
//CMP       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*

//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.INPUT,UNIT=TAPE, <===
//          VOL=SER=TAPE01                                      <===
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.COMP01,UNIT=DISK, <==
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,UNIT=DISK, <===
//          VOL=SER=DISK01,SPACE=(TRK,1)
//DDCARD    DD   *
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADACMP COMPRESS FILE=1                                                 
ADACMP FNDEF='01,AA,008,B,DE'                                  
ADACMP FNDEF='01,BA,020,A,NU,DE'                               
ADACMP FNDEF='01,BB,015,A,NU,DE'                               
ADACMP FNDEF='01,BC,001,A,FI'                                  
ADACMP FNDEF='01,CA,001,A,NU,DE'                               
ADACMP FNDEF='01,CB,002,U,NU,DE'                               
ADACMP FNDEF='01,CC,010,A,NU,DE'                               
ADACMP FNDEF='01,CD,002,U,NU,DE'                               
ADACMP FNDEF='01,DA,005,U,NU'                                  
ADACMP FNDEF='01,DB,020,A,NU,DE'                               
ADACMP FNDEF='01,DC,015,A,NU,DE'                               
ADACMP FNDEF='01,DD,002,A,NU,DE'                               
ADACMP FNDEF='01,DE,005,U,NU,DE'                               
ADACMP FNDEF='01,DF,008,A,NU,DE'                               
ADACMP FNDEF='01,FA,020,A,NU,DE'                               
ADACMP FNDEF='01,FB,006,U,NU,DE'                               
ADACMP FNDEF='01,FC,006,U,NU'                                  
ADACMP FNDEF='01,GA,002,U,NU'                                  
ADACMP FNDEF='01,HA,002,U,NU'                                  
ADACMP FNDEF='01,IA,002,U,NU'                                  

ADACMP FNDEF='01,KA,002,U,NU'                  
ADACMP FNDEF='01,LA,030,A,NU,DE'                               
ADACMP SUBDE='SB=DE(3,5)'                                      
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'                      
ADACMP PHONDE='PA(BA)'                                         
/*

The following example can be found in member ADACMPS of the JOBS data set. This example shows the use of the ADACMP spanned record parameters and extended MU/PE limit parameters.

//ADACMP    JOB
//* 
//*   ADACMP COMPRESS 
//*      COMPRESS A FILE
//*         USING MUPEX AND SPAN OPTIONS WITH 2-BYTE MU/PE COUNTS
//* 
//CMP       EXEC PGM=ADARUN  
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD   
//*  
//DDDRUCK   DD   SYSOUT=X 
//DDPRINT   DD   SYSOUT=X 
//SYSUDUMP  DD   SYSOUT=X
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.INPUT,UNIT=TAPE, <=== 
//          VOL=SER=TAPE01                                       <===  
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.COMP01,UNIT=DISK, <
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)  
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,UNIT=DISK, <==
//          VOL=SER=DISK01,SPACE=(TRK,1)    
//DDCARD    DD   * 
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=3390,DBID=YYYYY 
/*  
//DDKARTE   DD   *
ADACMP COMPRESS FILE=1 
ADACMP FNDEF='01,AA,008,B,DE' 
ADACMP FNDEF='01,BA,020,A,NU,DE' 
ADACMP FNDEF='01,BB,015,A,NU,DE' 
ADACMP FNDEF='01,BC,001,A,FI'
ADACMP FNDEF='01,CA,001,A,NU,DE'
ADACMP FNDEF='01,CB,002,U,NU,DE'
ADACMP FNDEF='01,CC,010,A,NU,DE'
ADACMP FNDEF='01,CD,002,U,NU,DE'
ADACMP FNDEF='01,DA,005,U,NU'
ADACMP FNDEF='01,DB,020,A,NU,DE'
ADACMP FNDEF='01,DC,015,A,NU,DE'
ADACMP FNDEF='01,DD,002,A,NU,DE'
ADACMP FNDEF='01,DE,005,U,NU,DE'
ADACMP FNDEF='01,DF,008,A,NU,DE'
ADACMP FNDEF='01,FA,020,A,NU,DE'
ADACMP FNDEF='01,FB,006,U,NU,DE'
ADACMP FNDEF='01,FC,006,U,NU'
ADACMP FNDEF='01,GA,002,U,NU'
ADACMP FNDEF='01,HA,002,U,NU'
ADACMP FNDEF='01,IA,002,U,NU'
ADACMP FNDEF='01,KA,002,U,NU'
ADACMP FNDEF='01,LA,030,A,NU,DE'
ADACMP FNDEF='01,MA,010,A,MU,NU,DE'
ADACMP FNDEF='01,PB,PE'
ADACMP FNDEF='02,P1,008,A,NU'
ADACMP FNDEF='02,P2,002,A,NU'
ADACMP FNDEF='02,P3,020,A,NU'
ADACMP SUBDE='SB=DE(3,5)'
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'
ADACMP PHONDE='PA(BA)'
ADACMP MUPEX                       <== EXTENDED MU/PE FILE
ADACMP MUPECOUNT=2                 <== 2-BYTE MU/PE COUNTS IN INPUT
ADACMP SPAN                        <== SPANNED RECORD FILE 
ADACMP DATADEVICE=3390             <== DATA STORAGE DEVICE TYPE
/*
//   

ADACMP DECOMPRESS

The following example can be found in member ADACMPD of the JOBS data set.

//ADACMP    JOB
//*
//*   ADACMP COMPRESS
//*      DECOMPRESS A FILE
//*
//DECMP     EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <===DATA
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <===WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.COMP01,UNIT=TAPE,
//          VOL=SER=TAPE01
//DDAUSBA   DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.DECOMP01,UNIT=DISK,
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,UNIT=DISK,
//          VOL=SER=DISK01,SPACE=(TRK,1)
//DDCARD    DD   *
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADACMP DECOMPRESS INFILE=1                                             
/*

Using ADACMP with UES Parameters, Wide Field Formats, or Collation Descriptions

The following compression example can be found in member ADACMPU of the JOBS data set. It can be used as a basis for compression jobs that make use of UES parameters, wide-character field formats, or collation descriptors.

//ADACMPU   JOB                                                        
//*                                                                    
//*   ADACMP COMPRESS                                                  
//*      COMPRESS A FILE                                               
//*         USING UES FEATURES                                         
//*                                                                    
//* Please update the JCL for current version/release/smlevel numbers  
//* for the ADABAS (ADAvrs) and Software AG internal (APSvrs) libraries, for         
//* changed dataset prefixes or when using a single composite          
//* load library.                                                      
//*                                                                    
//CMP       EXEC PGM=ADARUN                                            
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD  <=== ADABAS LOAD     
//          DD   DISP=SHR,DSN=ADABAS.APSvrs.LDnn  <=== APS LOAD UPD 
//          DD   DISP=SHR,DSN=ADABAS.APSvrs.LD00  <=== APS LOAD BASE
//*                                                                    
//CONFIG    DD  DUMMY                             <--  EXTRA DD FOR UES
//DDECSOJ   DD  DISP=SHR,DSN=ADABAS.ADAvrs.ECS00  <--  EXTRA DD FOR UES
//*                                                                    
//DDDRUCK   DD   SYSOUT=X                                              
//DDPRINT   DD   SYSOUT=X                                              
//SYSUDUMP  DD   SYSOUT=X                                              
//DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.INPUT,UNIT=TAPE, <===    
//          VOL=SER=TAPE01                                     <===    
//DDAUSBA   DD   DSN=EXAMPLE.DByyyyy.COMP01,UNIT=DISK,         <===    
//          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE),DISP=(NEW,KEEP)   
//DDFEHL    DD   DISP=(NEW,KEEP),DSN=EXAMPLE.DByyyyy.FEHL,     <===    
//          VOL=SER=DISK01,SPACE=(TRK,1),UNIT=DISK                     
//DDCARD    DD   *                                                     
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=3390,DBID=yyyyy           
/*                                                                     
//DDKARTE   DD   *                                                     
ADACMP COMPRESS FILE=1                                                 
ADACMP FACODE=273                                                      
ADACMP FNDEF='01,AA,008,B,DE'                                          
ADACMP FNDEF='01,BA,020,A,NU,DE'                                       
ADACMP FNDEF='01,BB,015,A,NU,DE'                                       
ADACMP FNDEF='01,BC,001,A,FI'   
ADACMP FNDEF='01,CA,001,A,NU,DE'         
ADACMP FNDEF='01,CB,002,U,NU,DE'         
ADACMP FNDEF='01,CC,010,A,NU,DE'         
ADACMP FNDEF='01,CD,002,U,NU,DE'         
ADACMP FNDEF='01,DA,005,U,NU'            
ADACMP FNDEF='01,DB,020,A,NU,DE'         
ADACMP FNDEF='01,DC,015,A,NU,DE'         
ADACMP FNDEF='01,DD,002,A,NU,DE'         
ADACMP FNDEF='01,DE,005,U,NU,DE'         
ADACMP FNDEF='01,DF,008,A,NU,DE'         
ADACMP FNDEF='01,FA,020,A,NU,DE'         
ADACMP FNDEF='01,FB,006,U,NU,DE'         
ADACMP FNDEF='01,FC,006,U,NU'            
ADACMP FNDEF='01,GA,002,U,NU'            
ADACMP FNDEF='01,HA,002,U,NU'            
ADACMP FNDEF='01,IA,002,U,NU'            
ADACMP FNDEF='01,KA,002,U,NU'            
ADACMP FNDEF='01,LA,030,A,NU,DE'         
ADACMP SUBDE='SB=DE(3,5)'                
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'
ADACMP PHONDE='PA(BA)'                   
/*                                       
//                                                                              

Top of page

z/VM

Data Set DD Name Storage More Information
User input data
(COMPRESS function)
DDEBAND tape/ disk  
Compressed data
(DECOMPRESS function)
DDEBAND tape/ disk Not used if the parameter INFILE is specified
Compressed data for a data base with files containing large object (LB) fields
(COMPRESS function)
DDAUSB1 tape/disk This additional data set receives the compressed large object records to be loaded into the LOB file as the compressed records in the first output data set (DDAUSBA) are loaded into the base file
Compressed data
(COMPRESS function)
DDAUSBA tape/ disk  
Decompressed data
(DECOMPRESS function)
DDAUSBA tape/ disk  
Rejected data DDFEHL tape/ disk  
ECS encoding objects DDECSOJ tape/ disk Required for universal encoding support
ADACMP report DDDRUCK disk/ terminal/ printer  
ADARUN messages DDPRINT disk/ terminal/ printer  
ADARUN parameters DDCARD disk/ terminal/ reader  
ADACMP control cards and data definitions DDKARTE disk/ terminal/ reader  

JCL Example (z/VM)

ADACMP COMPRESS

DATADEF DDEBAND,DSN=FILE015.CMPD015,MODE=A
DATADEF DDAUSBA,DSN=FILE015.LODD015,MODE=A
DATADEF DDFEHL,DSN=FILE015.CMPERROR,MODE=A
DATADEF DDDRUCK,DSN=ADACMP.DDDRUCK,MODE=A
DATADEF DDPRINT,DSN=ADACMP.DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDCARD,DSN=RUNCMP.CONTROL,MODE=A
DATADEF DDKARTE,DSN=FILE001.CMPC015,MODE=A
ADARUN                                                    
 

Contents of RUNCMP CONTROL A1:

ADARUN PROG=ADACMP,DEVICE=dddd,DB=yyyyy 
 

Contents of FILE001 CMPC015 A1:

ADACMP COMPRESS
NUMREC=1000,FDT=1,USERISN,DEVICE=dddd,eeee

Top of page

VSE

File File Name Storage Logical Unit More Information
User input data
(COMPRESS function)
EBAND tape
disk
SYS010
*
 
Compressed data
(DECOMPRESS function)
EBAND tape
disk
SYS010
*
Not used if parameter INFILE is specified
Compressed data for a data base with files containing large object (LB) fields
(COMPRESS function)
AUSB1 tape
disk
  This additional data set receives the compressed large object records to be loaded into the LOB file as the compressed records in the first output data set (AUSBA) are loaded into the base file
Compressed data
(COMPRESS function)
AUSBA tape
disk
SYS012
*
 
Decompressed data
(DECOMPRESS function)
AUSBA tape
disk
SYS012
*
 
Rejected data FEHL tape
disk
SYS017
*
 
ECS encoding objects ECSOJ tape
disk
SYS020
*
Required for universal encoding support (UES)
ADACMP report - printer SYS009  
ADARUN messages - printer SYSLST  
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADACMP control cards and data definitions - reader SYSIPT  

* Any programmer logical unit may be used.

JCS Examples (VSE)

See Library and File Procedures for VSE Examples for descriptions of the VSE procedures.

Refer to member ADACMP.X for the COMPRESS example and member ADACMPD.X for the DECOMPRESS example.

ADACMP COMPRESS

* $$ JOB JNM=ADACMP,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       COMPRESS A FILE
// JOB ADACMP
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL EBAND,'EXAMPLE.DByyyyy.UNCOMP01'
// MTC REW,SYS010
// DLBL AUSBA,'EXAMPLE.DByyyyy.COMP01',,SD
// EXTENT SYS016,,,,sssss,nnnnn
// ASSGN SYS016,DISK,VOL=DISK01,SHR
// DLBL FEHL,'EXAMPLE.DByyy.FEHL',,SD
// EXTENT SYS017,,,,sssss,nnnnn
// ASSGN SYS017,DISK,VOL=DISK02,SHR
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADACMP COMPRESS FILE=1
ADACMP FNDEF='01,AA,008,B,DE'
ADACMP FNDEF='01,BA,020,A,NU,DE'
ADACMP FNDEF='01,BB,015,A,NU,DE'
ADACMP FNDEF='01,BC,001,A,FI'
ADACMP FNDEF='01,CA,001,A,NU,DE'
ADACMP FNDEF='01,CB,002,U,NU,DE'
ADACMP FNDEF='01,CC,010,A,NU,DE'
ADACMP FNDEF='01,CD,002,U,NU,DE'
ADACMP FNDEF='01,DA,005,U,NU'
ADACMP FNDEF='01,DB,020,A,NU,DE'
ADACMP FNDEF='01,DC,015,A,NU,DE'
ADACMP FNDEF='01,DD,002,A,NU,DE'
ADACMP FNDEF='01,DE,005,U,NU,DE'
ADACMP FNDEF='01,DF,008,A,NU,DE'
ADACMP FNDEF='01,FA,020,A,NU,DE'
ADACMP FNDEF='01,FB,006,U,NU,DE'
ADACMP FNDEF='01,FC,006,U,NU'

ADACMP FNDEF='01,GA,002,U,NU'
ADACMP FNDEF='01,HA,002,U,NU'
ADACMP FNDEF='01,IA,002,U,NU'
ADACMP FNDEF='01,KA,002,U,NU'
ADACMP FNDEF='01,LA,030,A,NU,DE'
ADACMP SUBDE='SB=DE(3,5)'
ADACMP SUPDE='SP=CA(1,1),CB(1,2),CD(1,2)'
ADACMP PHONDE='PA(BA)'
/*
/&
* $$ EOJ

ADACMP DECOMPRESS

* $$ JOB JNM=ADACMPD,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       DECOMPRESS A FILE
// JOB ADACMPD
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// ASSGN SYS010,TAPE
// PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
// TLBL EBAND,'EXAMPLE.DByyyyy.COMP01'
// MTC REW,SYS010
// DLBL AUSBA,'EXAMPLE.DByyyyy.DECOMP01',,SD
// EXTENT SYS016,,,,sssss,nnnnn
// ASSGN SYS016,DISK,VOL=DISK01,SHR
// DLBL FEHL,'EXAMPLE.DByyy.FEHL',,SD
// EXTENT SYS017,,,,sssss,nnnnn
// ASSGN SYS017,DISK,VOL=DISK02,SHR
*
* ******************************************************************
*     REMEMBER TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
* ******************************************************************
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADACMP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADACMP DECOMPRESS INFILE=1
/*
/&
* $$ EOJ

Top of page