ADACMP DECOMPRESS with PE group

, , ,
1

Hi,

I have a problem when I try to decompress a file which contain a PE group (adabas version 7.4.3)

JCL
000110 //CMP0034 EXEC PGM=ADARUN
000111 //DDEBAND DD DISP=SHR,DSN=COGET.COG002.RDFCAT.REPRO
000112 //DDAUSBA DD DSN=COGET.COG002.COMP.RDFCAT,
000113 // DISP=(NEW,CATLG,CATLG),
000114 // SPACE=(CYL,(40,40)),
000115 // UNIT=SYSDA
000116 //DDFEHL DD DSN=COGET.COG002.ANO.RDFCAT,
000117 // DISP=(NEW,CATLG,CATLG),
000118 // SPACE=(CYL,(1,1)),
000119 // UNIT=SYSDA
000120 //DDDRUCK DD SYSOUT=*
000121 //DDPRINT DD SYSOUT=*
000122 //SYSDUMP DD SYSOUT=*
000123 //DDCARD DD *
000124 ADARUN DATABASE=003,DEVICE=3390,SVC=220,PROG=ADACMP
000125 //DDKARTE DD *
000126 ADACMP COMPRESS
000127 ADACMP FILE=25
000128 ADACMP LRECL=437
000129 ADACMP MINISN=1
000130 ADACMP DEVICE=3380
000131 ADACMP FNDEF=‘01,AP,5,A,DE,NU’ CODCATFIN
000132 ADACMP FNDEF=‘01,AG,8,A,NU’ DEBCONFIN
000133 ADACMP FNDEF=‘01,AQ,8,A,NU’ FINCONFIN
000134 ADACMP FNDEF=‘01,AC,3,A,NU’ CODGRPPRO
000135 ADACMP FNDEF=‘01,AD,8,A,NU’ DATDERMOD
000136 ADACMP FNDEF=‘01,AF,8,A,NU’ SIGNATURE
000137 ADACMP FNDEF=‘01,AB,30,A,NU’ LIBCATFIN
000138 ADACMP FNDEF=‘01,AS,2,A,DE,NU’ TYPCATFIN
000139 ADACMP FNDEF=‘01,AW,1,A,NU’ CODREGPAR
000140 ADACMP FNDEF=‘01,AE,PE(5)’ PE-CONFIN
000141 ADACMP FNDEF=‘02,AI,1,A,NU’ NBRPERFIN
000142 ADACMP FNDEF=‘02,AA,1,A,NU’ TYPPERFIN
000143 ADACMP FNDEF=‘02,AN,2,A,NU’ CODTAUFIN

Result : warning in the step with DECOMPRESS

Problem with the AE Field which is the PE group

BROWSE COGET.COG002.ANO.RDFCAT Line 00000000 Col 001 080
Command ===> Scroll ===> CSR
********************************* Top of Data ********
AE.(…SPS0120070101 SPS20070807 SPARE PARSSWE
AE.(…V01S 20070101 NVS20070807 NEW VEHICLES
AE.(…V02S 20070101 NVS20070807 NEW VEHICLES LCV
AE.(…D01S 20070101 DVS20070807 DEMO RENAULT M1
AE.(…D02S 20070101 DVS20070807 DEMO RENAULT M2
AE.(…D03S 20070101 DVS20070807 DEMO RENAULT LCV

Thanks in advance for your help

Regards

Pascal
RESULT-DECOMPRESS.TXT (3.88 KB)
JCL-COMPRESS-DECOMPRESS.TXT (7.33 KB)
OUT-DECOMPRESS.txt (14.5 KB)

2

Your utility cards indicate you are doing a COMPRESS not a DECOMPRESS. Assuming you meant to do a COMPRESS, you need to have data for all 5 occurrences of the PE (and each contains the MU with 4 occurrences) or about 290 bytes for the PE, with numerics in the right places. Layout of the PE portion is AA1,AI1,AN1 (etc1),AA2,AI2,AN2,(etc2),AA3,AI3,AN3…, not AA1,AA2,AA3,AI1,AI2,AI3,etc

3

Remove the occurence number from the PE and MU in the COMPRESS syntax.

When you specify occurence number you must then provide exactly that many corresponding data items.

When you omit occurence number Adabas works out how many occurences you have.

Specify the occurence number if you intend to provide exactly that many data items and require validation, otherwise omit occurence number.