CA Dynam for VSE User Guide

Sample JCL
Example 2: Produce a character only dump of all records containing X'FFFF' in
positions 1213. Do not print more than 1,000 records, and stop the dump
when positions 56 are XY. The file is on disk and records are variable blocked.
// DLBL INPUT,'INVENTORY.FILE'
// EXEC DYNCOPY
PRINT,MAX=1000,CHARONLY,LRECL=V,RECFM=VB,BLKSIZE=6000
FEOF=56,2,EQ,C,XY
SEL=1213,2,EQ,X,FFFF
/*
Example 3: Create a test file on disk from the master payroll tape file by
copying record types 1 and 5. The record number is in card column 1. The
records on tape are 100 bytes blocked 20. The output disk file records are to
be blocked 40. Get a hex dump of all records copied to the new test file.
// JOB DYNCOPY
// TLBL TAPEIN,'PAYROLL.MASTER'
// DLBL DISKOUT,'PAYROLL.TEST'
// EXEC DYNCOPY
COPY,PRINT,LRECL=100,RECFM=FB,BLKSIZE=2000,OBLKSIZE=4000
SEL=1,1,EQ,C,1
SEL=1,1,EQ,C,5
/*
/&
Example 4: This is an example of stacking files on one output tape.
// JOB CREATE A MULTIFILE SET
// DLBL IN1,'FILEA' 1ST INPUT FILE
// TLBL OUT1,'BACKUP.FILEA',STACK=A 1ST OUTPUT FILE
// EXEC DYNCOPY,SIZE=22K
COPY,FILEIN=IN1,FILEOUT=OUT1
/*
// DLBL IN2,'FILEB' 2ND INPUT FILE
// TLBL OUT2,'BACKUP.FILEB',STACK=A 2ND OUTPUT FILE
// EXEC DYNCOPY,SIZE=22K
COPY,FILEIN=IN2,FILEOUT=OUT2
/*
// DLBL IN3,'FILEC' 3RD INPUT FILE
// TLBL OUT3,'BACKUP.FILEC',STACK=A 3RD OUTPUT FILE
// EXEC DYNCOPY,SIZE=22K
COPY,FILEIN=IN3,FILEOUT=OUT3
/*
/&
Chapter 13: DYNCOPY−CA Dynam File Utility Program 13–7