CA Dynam for VSE User Guide

CA Dynam for VSE User Guide CA Dynam for VSE User Guide

supportcontent.ca.com
from supportcontent.ca.com More from this publisher
03.03.2015 Views

Changing File Characteristics Concatenated Data Sets CA Dynam/FI provides an input data set concatenation facility. This facility allows multiple input data sets to be read as if they were a single data set, in response to a single open issued by the application. Concatenation is invoked by specifying the CONCat option on the label of each data set which is to be concatenated. Multiple concatenated input files may be processed concurrently; that is, an application that issues opens for several different data sets may use concatenation for one or all of them. In the case of tapes, the data sets to be concatenated may be single file data sets or part of multifile data sets, and may each consist of a single or multiple volumes. Input data sets to be concatenated may have different attributes. Data sets may be concatenated without regard to disk or tape residence, varying record formats, blocksizes, or logical units, as these attributes are resolved as part of normal CA Dynam/FI processing in a manner transparent to the application. The following sample JCL demonstrates concatenation: // JOB CONCATEX /* /* PROCESS MONTHLY A/P TRANSACTIONS /* /* INPUT: 1 CONCATENATED DATASET /* CONSISTING OF 2 TAPE DATASETS /* AND 2 DISK DATASETS /* // TLBL INPUT,'TRANS.TAPE.OLDEST',,CONCAT // TLBL INPUT,'TRANS.TAPE.OLDER',,CONCAT // DLBL INPUT,'TRANS.DISK.OLD',,,CONCAT // DLBL INPUT,'TRANS.DISK' // EXEC APMTHLY /& Where other CA Dynam products are installed, the concatenated data sets may be either controlled, uncontrolled, or a mixture of the two. All processing options supported by the other products in the CA Dynam family are supported for use in conjunction with concatenation. In addition, all versions of a particular data set may be read by using CONCAT=ALL or the first nn versions may be concatenated by using CONCAT=nn on the TLBL or DLBL. Additional Examples In this example, COBOL program COBTEST is originally written to read from a card reader (DTFCD) and write the output to a line printer (DTFPR). However, with CA Dynam/FI, the program will read from a tape file labeled 'CARD- INPUT' and write to a tape file labeled 'PRINT-OUTPUT'. 6–24 User Guide

Changing File Characteristics The input tape file is FISYSIN and the output tape file is FISYSLS. The output file generated is a standard labeled tape. Logical unit SYS001 is used for the SYSIN file and SYS002 for the SYSLST file. // JOB TEST1 // TLBL FISYSIN,'CARD-INPUT',,SYS001 // TLBL FISYSLS,'PRINT-OUTPUT',,SYS002,FIOPT=(SL) // ASSGN SYS001,TAPE // ASSGN SYS002,TAPE // EXEC COBTEST,SIZE=100K The file name is derived from: • DTFname in Assembler programs • File SELECT in COBOL programs. By default, the logical unit name is used. Example // DLBL SYS001, ... Recalculate the block size of an output disk file. Note that the block size of the disk file is calculated based upon the OPTBLKS value defined in the DYNAM/FI option record at installation time. For fixed-length records, the block size value is always a multiple of the record size value specified. // DLBL OUTPUT,'DISK-FILE',,SD,BLKSZ=OPT Reblock a tape file and set the options. The file below is reblocked on a tape to 8000 bytes, and double buffering is specified (DB). In addition, a rewind and unload operation is performed on the tape when it is closed (RUN). // TLBL OUTPUT,'TAPE-FILE',,BLKSZ=8000,FIOPT=(RUN,DB) Create a tape file and change the logical unit. Logical unit SYS018 is used to override the logical unit specified in the user's program. // TLBL TAPDISK,'TAPE-DISK',,SYS018 Read a disk file created with reblocked size. Note that if the block size operand were omitted, the block size value would default to the one in the user's program. In many cases, however, this can cause a wrong-length record error to occur. // DLBL DISK,'MASTER',,SD,BLKSZ=OPT Create a SYSLST disk file when SYSLST is program-defined as a printer. Note that the SYSLST file is created on disk with a block size of 1210 bytes and the file name FISYSLS is used. The SYS001 assignment overrides the use of SYSLST. Chapter 6: Controlling File Independence 6–25

Changing File Characteristics<br />

The input tape file is FISYSIN and the output tape file is FISYSLS. The output<br />

file generated is a standard labeled tape. Logical unit SYS001 is used <strong>for</strong> the<br />

SYSIN file and SYS002 <strong>for</strong> the SYSLST file.<br />

// JOB TEST1<br />

// TLBL FISYSIN,'<strong>CA</strong>RD-INPUT',,SYS001<br />

// TLBL FISYSLS,'PRINT-OUTPUT',,SYS002,FIOPT=(SL)<br />

// ASSGN SYS001,TAPE<br />

// ASSGN SYS002,TAPE<br />

// EXEC COBTEST,SIZE=100K<br />

The file name is derived from:<br />

• DTFname in Assembler programs<br />

• File SELECT in COBOL programs.<br />

By default, the logical unit name is used.<br />

Example<br />

// DLBL SYS001, ...<br />

Recalculate the block size of an output disk file. Note that the block size of the<br />

disk file is calculated based upon the OPTBLKS value defined in the DYNAM/FI<br />

option record at installation time. For fixed-length records, the block size value<br />

is always a multiple of the record size value specified.<br />

// DLBL OUTPUT,'DISK-FILE',,SD,BLKSZ=OPT<br />

Reblock a tape file and set the options. The file below is reblocked on a tape to<br />

8000 bytes, and double buffering is specified (DB). In addition, a rewind and<br />

unload operation is per<strong>for</strong>med on the tape when it is closed (RUN).<br />

// TLBL OUTPUT,'TAPE-FILE',,BLKSZ=8000,FIOPT=(RUN,DB)<br />

Create a tape file and change the logical unit. Logical unit SYS018 is used to<br />

override the logical unit specified in the user's program.<br />

// TLBL TAPDISK,'TAPE-DISK',,SYS018<br />

Read a disk file created with reblocked size. Note that if the block size operand<br />

were omitted, the block size value would default to the one in the user's<br />

program. In many cases, however, this can cause a wrong-length record error<br />

to occur.<br />

// DLBL DISK,'MASTER',,SD,BLKSZ=OPT<br />

Create a SYSLST disk file when SYSLST is program-defined as a printer. Note<br />

that the SYSLST file is created on disk with a block size of 1210 bytes and the<br />

file name FISYSLS is used. The SYS001 assignment overrides the use of<br />

SYSLST.<br />

Chapter 6: Controlling File Independence 6–25

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!