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