/*

//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 unauthorizedaccess. 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

Page 67
Image 67
IBM SG24-5360-00 manual $$DITTO BLKFACTOR=1 $$DITTO EOJ