Connect:Direct for VSE Copy Statement

The COPY statement copies files from one node to another. The Connect:Direct® for VSE COPY statement copies the following types of files:

  • Sequential Access Method (SAM)
  • Virtual Storage Access Method (VSAM)
  • ISAM
  • VSAM-managed SAM
  • VSE/POWER LST and PUN Entries
  • VSE/POWER XMT Entries (creation only)
  • VSE/POWER RDR Entries (creation only)
  • VSE Librarian Members (all types)
  • CA-DYNAM or CA-EPIC Controlled Data Sets

Both disk and tape transfers are supported.

The COPY statement contains a FROM parameter that specifies the source file name and a TO parameter that specifies the destination file name. You can specify additional parameters to further the file transfer operation.

The length of the entire COPY statement cannot exceed 2040 bytes.

To copy from one IBM® Connect:Direct platform to another, refer to the appropriate COPY FROM and TO descriptions for those platforms. For example, if the source file is on a Connect:Direct for HP NonStop node, refer to the COPY FROM description for Connect:Direct for HP NonStop. If the file destination is a Connect:Direct for VSE node, refer to the Connect:Direct for VSE COPY TO description.

The following is the Connect:Direct for VSE COPY statement format. Refer to Sterling Connect for VSE/ESA Process Parameters for more information.

Label Statement Parameters
stepname COPY From (
      DSN=data-set-name /password
      PNODE | SNODE
      DCB=([model-file-name]
[,BLKSIZE=no.-bytes]
[,DEN=0 | 1 | 2 | 3 | 4]
[,DSORG=PS | VSAM | MSAM]
[,LRECL=no.-bytes]
[,OPTCD=W | Q | Z ]
[,RECFM=record-format]
[,TRTCH=C | E | T | ET | COMP | NOCOMP] )
      DISP=([OLD | SHR],KEEP | DELETE])
      LABEL=([file-sequence-number]
,[SL | AL | BLP | LTM | NL]
,[PASSWORD | NOPWREAD]
,[IN | OUT]
,[RETPD=nnnn | EXPDT=yyddd | yyyy/ddd] )
      LIBR=( [EXCLMEM=(generic | mem | start-range/stop-range|list)]
[EXCLSLIB=(generic | sublib | start-range/stop-range|list)]
[EXCLTYPE=(generic | type | start-range/stop-range|list]
[REPLACE=YES | NO]
[SELMEM=member | generic | * | (member, [new-name], [NR|R]) | (generic,,[NR|R]) | (start-range/stop-range,, [NR|R])| (list)]
[SELSLIB=sublibrary | generic | * | (sublibrary, [new-name], [NR | R]) | (generic,,[NR | R]) | (start-range/stop-range,,[NR | R]) | (list)]
[SELTYPE=type | generic | * | (type, new-name) | (start-range/stop-range) | (list)]
[*]
)LIBR=( [EXCLMEM=(generic | mem | start-range/stop-range|list)]
[EXCLSLIB=(generic | sublib | start-range/stop-range|list)]
[EXCLTYPE=(generic | type | start-range/stop-range|list]
[REPLACE=YES | NO]
[SELMEM=member | generic | * | (member, [new-name], [NR|R]) | (generic,,[NR|R]) | (start-range/stop-range,, [NR|R])| (list)]
[SELSLIB=sublibrary | generic | * | (sublibrary, [new-name], [NR | R]) | (generic,,[NR | R]) | (start-range/stop-range,,[NR | R]) | (list)]
[SELTYPE=type | generic | * | (type, new-name) | (start-range/stop-range) | (list)]
[*]
)
      LST=(
[CLASS=class]
[DISP=D|K|H|L]
[PWD=password]
)
      PUN=(
[CLASS=class]
[DISP=D|K|H|L]
[PWD=password]
)
      SPACE=(strt-trk | strt-blk,(prim))
      UNIT=([group name | device-type | unit address | DLBLONLY | TNOASGN])
      UNIT=([group name | device-type | unit address | DLBLONLY | TNOASGN])
      VOL=([PRIVATE],[volume-count]
,[SER=(serial-no [,serial-no,...])]) | ([SER=(serial-no , [serial-no,...]])
      BUFND=number
      VSAMCAT=(dsn, mode, userid, pswd, cuu)
      IOEXIT=exit-name | (exit-name [,parameter,...])
      SYSOPTS="DBCS=(tablename,so,si,PAD|PAD=pc)"
      )
    TO (
      DSN=data-set-name /password
      PNODE | SNODE
      TYPE=typekey
      DCB=([model-file-name]
[,BLKSIZE=no.-bytes]
[,DEN=0 | 1 | 2 | 3 | 4]
[,DSORG=PS | VSAM | MSAM]
[,LRECL=no.-bytes]
[,OPTCD=W | Q | Z ]
[,RECFM=record-format]
[,TRTCH=C | E | T | ET | COMP | NOCOMP]
)
      DISP=([NEW | OLD | RPL | SHR], [KEEP | CATLG])
      LABEL=([file-sequence-number]
,[SL | AL | BLP | LTM | NL]
,[PASSWORD | NOPWREAD], [IN | OUT]
,[RETPD = nnnn | EXPDT = yyddd | yyyy/ddd]
)
      LIBR=(
[DATA=NO | YES]
[LOCKID=lockid]
[MSHP=NO | YES|OVERRIDE]
[REPLACE=YES | NO]
[RESETLOCK=NO | YES]
[REUSE=AUTOMATIC | IMMEDIATE]
[SLIBDISP=SHR | OLD | NEW|RPL]
[SUBLIB=sublibrary]
[TYPE=type]
[*]
)
      LST=(
[BANNER=(literal1=name1, literal2=name2,...)]
[BLDG=building]
[BURST=YES | NO]
[CC=M | ASA | (NOCC,[TOF=1 | char | x'xx'],
[LINECT=55 | nn])]
[CHARS=(tablename, tablename)]
[CICSDATA=CICS-data]
[CKPTLINE=nnnnn]
[CKPTPAGE=nnnnn]
[CKPTSEC=nnnnn]
[CLASS=class]
[COMPACT=compaction-table-name]
[CONTROL=program
single
double
triple]
[COPIES=nnn]
[COPY=nnn]
[DEFAULT=YES | NO]
[DEPT=`department-identification']
[DEST=nodename(nodename, userid)]
[DFLT=YES | NO]
[DISP=D | K | H | L]
[DIST=distribution]
[FCB=fcb-name]
[FLASH=(overlay-name,count)]
[FORMDEF=membername]
[FORMS=form-name]
[FNO=form-name]
[HOLD=YES | NO]
[JSEP=nnnnn]
[MODIFY=module-name]
[PAGEDEF=membername]
[PRI=n]
[PRMODE=process-mode]
[PROGR=`programmer-name']
[PRTY=n]
[PWD=password]
[ROOM=`room-identification']
[SUBNAME=submitter's-name
[SYSID=n]
[THRESHLD=nnnnnnnn]
[TRC=YES | NO]
[UCS=character-set-name (character-set-name,FC)]
[USER=`user-data-description']
[USERID=userid]
[WRITER=writer-name]
)
      PUN=(
[BLDG=building]
[CC=M | ASA | (NOCC)]
[CICSDATA=CICS-data]
[CKPTLINE=nnnnn]
[CKPTPAGE=nnnnn]
[CKPTSEC=nnnnn]
[CLASS=class]
[CONTROL=program
single
double
triple]
[COPIES=nnn]
[COPY=nnn]
[DEPT=`department-identification']
[DEST=nodename (nodename, userid)]
[DISP=D | K | H | L]
[DIST=distribution]
[FORMS=form-name]
[FNO=form-name]
[HOLD=YES | NO]
[JSEP=nnnnn]
[PRI=n]
[PRMODE=process-mode]
[PROGR=`programmer-name']
[PRTY=n]
[PWD=password]
[ROOM=`room-identification']
[SUBNAME=submitter's-name]
[SYSID=n]
[THRESHLD=nnnnnnnn]
[USER=`user-data-description']
[USERID=userid]
[WRITER=writer-name]
)
      SPACE=[(start-track | start-block, (allocation))]
[(trigger key,(allocation))]
[(record size, (primary allocation, secondary allocation))]
      UNIT=([group name | device-type | unit address | DLBLONLY | TNOASGN])
      VOL=([PRIVATE][RETAIN] ,
[volume-count],
[SER=(serial-number,
serial-number,...])]) | ([SER=(serial-no , [serial-no,...])
      VSAMCAT=(dsn, mode, userid, pswd, cuu)
      IOEXIT=exit-name | (exit-name [,parameter,...])
      SYSOPTS="DBCS=(tablename, so ,si, PAD | PAD=pc)" "parameter1 [,parameter2,...]"
      BUFND=number
      )
      CKPT=nK | nM
      COMPRESS [PRIMEchar=X'40' |X'xx' | C'c' | EXTended]
Note: If the SNODE is B2B Integrator, only COMRESS EXT is supported.