IBM SG24-5360-00 Manual Do Utilizador

Página de 84
/*
// DLBL OUTPUT,
TEST.DATA.1
′,1998/300,
SD
// EXTENT SYS005,PATEV1,1,1,135,450
// LOG
*
BUILD EXPIRED SEQUENTIAL FILE ON 80E
*
5,000 RECORDS, 4,000 BYTES LONG, 
″1″ 
FILL CHARACTER
// NOLOG
// EXEC DITTO,SIZE=AUTO
$$DITTO BSQ FILEOUT=OUTPUT,RECSIZE=4000,NLRECS=5000,FILLCHAR=1,
X
$$DITTO
BLKFACTOR=1
$$DITTO EOJ
/*
// DLBL OUTPUT,
TEST.DATA.2
′ , ,
SD
// EXTENT SYS005,PATEV1,1,1,585,450
// LOG
*
BUILD SEQUENTIAL FILE ON 80E
*
5,000 RECORDS, 4,000 BYTES LONG, 
″2″ 
FILL CHARACTER
// NOLOG
// EXEC DITTO,SIZE=AUTO
$$DITTO BSQ FILEOUT=OUTPUT,RECSIZE=4000,NLRECS=5000,FILLCHAR=2,
X
$$DITTO
BLKFACTOR=1
$$DITTO EOJ
/*
// DLBL OUTPUT,
TEST.DATA.3
′ , ,
SD
// EXTENT SYS005,PATEV1,1,1,1035,1500
// LOG
*
BUILD SEQUENTIAL FILE ON 80E
*
17,000 RECORDS, 4,000 BYTES LONG, 
″3″ 
FILL CHARACTER
// NOLOG
// EXEC DITTO,SIZE=AUTO
$$DITTO BSQ FILEOUT=OUTPUT,RECSIZE=4000,NLRECS=17000,FILLCHAR=3,
X
$$DITTO
BLKFACTOR=1
$$DITTO EOJ
/*
*
BUILD SEQUENTIAL FILE ON 80E
*
5,000 RECORDS, 4,000 BYTES LONG, 
″1″ 
FILL
// LOG
*
BUILD SEQUENTIAL FILE ON 80E
*
17,000 RECORDS, 4,000 BYTES LONG, RANDOM FILL CHARACTER
// NOLOG
// EXEC DITTO,SIZE=AUTO
$$DITTO BSQ FILEOUT=OUTPUT,RECSIZE=4000,NLRECS=17000,FILLCHAR=RAND,
X
$$DITTO
BLKFACTOR=1
$$DITTO EOJ
/*
// LOG
*
DISPLAY RVA DATA FOR PATEV1 (80E) -- AFTER DATA LOAD.
// NOLOG
// EXEC DTRIATTN,PARM=
IXFP REPORT,PATEV1
// EXEC IESWAIT
// EXEC LISTLOG
/&
The result (Figure 39 on page 58) is six sequential files with varying types of
data. Two of the files are data secured to prevent 
unauthorized
″ 
access. Three
of the files are highly compressible because they contain a repeating data
character, and the other three have random fill characters.
Appendix B. IXFP Command Examples
57