Data Build Manual
Creating Sample Input Data to Test Data Build
Customizing Data Build
6–28 099331 Tandem Computers Incorporated
Creating Sample Input
Data to Test Data Build
When using Data Build to create a COBOL85 conversion program, it is very useful to
test with a small sample input file, especially if the input is on tape. Frequently a large
file of real data is available. If this data is on tape, the following can be used to create a
data tape with a few records for testing.
In the following examples, the data tape contains records with a record length of 51
and a block size of 23409.
Note that for tape input, Data Build requires an IBM standard labeled tape.
Creating Sample Data
Using One Tape Device
Create the following OBEY file TAPEIN:
1. Insert the following commands:
FUP CREATE TAPE1A,TYPE E,BLOCK 4096,REC 80
FUP CREATE TAPE1B,TYPE E,BLOCK 4096,REC 51
FUP CREATE TAPE1C,TYPE E,BLOCK 4096,REC 80
These commands create intermediate disk files.
2. Insert the following command:
FUP COPY $TAPE,TAPE1A,NO UNLOADIN,BLOCKIN 80,RECIN 80
TAPE1A will contain the Volume label (VOL1) and the data set header labels
(HDR1 and HDR2); the RECIN option should be set to 80.
3. Insert the following commands:
FUP COPY $TAPE,TAPE1B,NO UNLOADIN,BLOCKIN 23409,&
RECIN 51,RECOUT 51,SKIPIN 1, COUNT 900
TAPE1B will contain data records; the RECIN option should be set to the input
data logical record length (LRECL).
This command copies nnn (in this example, 900) records to TAPE1B; RECIN is set
to the logical record size (LRECL, same as the second command under item 1,
above) and BLOCKIN is set to the blocksize on tape (BLKSIZE).
4. Insert the following command:
FUP COPY $TAPE,TAPE1C,BLOCKIN 80,RECIN 80,SKIPIN 2
TAPE1C will contain the data set trailer labels (EOF1 and EOF2 or EOV1 and
EOV2); the RECIN option should be set to 80.
Steps 2 to 4 copy the information from tape to the appropriate file.
Create the following OBEY file TAPEOUT:
1. Insert the following commands:
FUP COPY TAPE1A,$TAPE,NO UNLOADOUT,BLOCKOUT 80,RECOUT 80
FUP COPY TAPE1B,$TAPE,NO UNLOADOUT,BLOCKOUT 23409, &
RECOUT 51,RECIN 51,SKIPOUT 1
FUP COPY TAPE1C,$TAPE,BLOCKOUT 80,RECOUT 80,SKIPOUT 2