Decompressed unload file for Employee and vehicle file

Dear Team,

Can I Please get a copy of Decompressed version (ADACMP DECOMPRESS) of the sample ADABAS files i.e Employee and Vehicle file in mainframe format(UARC =2 i.e high-order byte first, EBCDIC encoding family,IBM370 floating-point format)

Thanks,
Sindhu Jose

ADAULD FILE - Employee and Vehicle (my file is 5)

 //AAFPSAVE JOB (AAFP,DIBD),DBA,CLASS=S,MSGCLASS=A TYPRUN=HOLD                 
 //*UQ ALLOW                                                                    
 //* --------------------------------------------------------------             
 //*              SALVANDO OS DADOS DO FILE ADABAS                              
 //* --------------------------------------------------------------             
 //ADAULD    EXEC AAFAU003,TIME=1440                                            
 //DDOUT1    DD  DSN=AAF.S.F5.DB003.COMPR,DISP=(,CATLG,DELETE),                 
 //          VOL=SER=PRD27A,SPACE=(CYL,(2,4)),UNIT=SYSDA,                       
 //          DCB=(RECFM=VB,BLKSIZE=0,LRECL=0,DSORG=PS)                          
 //* --------------------------------------------------------------             
 //DDCARD    DD *                                                               
 ADARUN PROG=ADAULD,DBID=003                                                    
 //DDKARTE   DD *                                                               
 ADAULD FILE=5                                                                  
 /*                                                                             

Dataset Compress

                                                                      R=00000001
DSN=AAF.S.F5.DB003.COMPR                                VOL=PRD27A UNIT=3100    
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
{. .  H.                         K ..AA...   ..AB..    ..AC...   ..CD ..    .AD.
..   ..AE..    ..AF...   ..AG...   ..AH...   *.AI..    ..AJ...   ..AK  .   :.AL.
.    d.AM..    . . . .  AA .AE .AI *AM d.. . ..AN... . .... .....AO... . .... ..
.. 

JCL for Decompress

 //AAFPC050 JOB (AAFA,DIBD),DBA,CLASS=S,MSGCLASS=A,TYPRUN=HOLD                  
 //*UQ ALLOW                                                                    
 //* --------------------------------------------------------------             
 //*                ADACMP DECOMPRESS FILE 50                                   
 //* --------------------------------------------------------------             
 //ADACMP   EXEC AAFAU003                                                       
 //DDEBAND  DD DSN=AAF.S.F5.DB003.COMPR,          ===> ENTRADA                  
 //         DISP=OLD,UNIT=SYSDA,                                                
 //         VOL=SER=PRD27A                                                      
 //* --------------------------------------------------------------             
 //DDAUSBA  DD DSN=AAF.S.F5.DB003.DECOM,          ===> DESCOMPRESS              
 //         UNIT=SYSDA,                                                         
 //         DISP=(NEW,CATLG,DELETE),                                            
 //         VOL=SER=PRD27A,SPACE=(CYL,(10,5)),                                  
 //         DCB=(LRECL=80,BLKSIZE=6160,RECFM=VB,DSORG=PS)                       
 //* --------------------------------------------------------------             
 //DDFEHL   DD DSN=&&FEHL,UNIT=SYSDA,DISP=(NEW,DELETE),                         
 //         SPACE=(TRK,1)                                                       
 //DDCARD   DD *                                                                
 ADARUN PROG=ADACMP,DBID=003                                                    
 //DDKARTE  DD *                                                                
 ADACMP DECOMPRESS                                                              
 /*                                                                             

Dataset Decompress

                                                                      R=00000001
DSN=AAF.S.F5.DB003.DECOM                                VOL=PRD27A UNIT=3100    
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
AZU-L0031231638  $.50000100RENAULT             CLIO SEDAN          AZUL      80E
P801101FRA. . .                                                                 
BXZ-A0031231881  .<50000200RENAULT             SENIC               AMARELO   80E
P801101FRA. . .                                                                 
VER-M0031231992  .<50000300PEUGEOT             206                 VERMELHO  80E
P801101FRA. . .                                                                 
BXZ-A0031232103 .b.50000400PEUGEOT             306                 PRETO     85E
P851101FRA. . .                                                                 
BXZ-A0031232214 ...50000500FIAT                TIPO                BRANCO    84E
P851201FRA. . .                                                                 
BXZ-A0031232325  ).50000600RENAULT             SENIC ALIZE         PRATA     82E
P821201FRA. . .                                                                 
BXZ-A0031232436 ...50000700RENAULT             CLIO                CINZA     82E
P821201FRA. . .                                                                 
BXZ-A0031232547 ..t50000800PEUGEOT             405                 VINHO     82E
P821201FRA. . .                                                                 
BXZ-A0031232658  ..50000900FIAT                PREMIO              VERDE     82E
P821201FRA. . .                                                                 
BXZ-A0031232769  a.50001000FIAT                ELBA                AZUL      80E
P801011FRA. . .                                                                 

FTP for your DATASET - AAF.S.F5.DB003.DECOM - PC

1 Like

Thanks a lot Claudemar Martins !!!.. This would definitely help me.

I do not know if Software AG allows sharing? If the moderator says that sharing is allowed.