ICETOOL COPY Operator

COPY operator is used to copy the records from input file to one or more output files. Output files can be up to 10. Control statements and other options are used to copy some input records, reformat records before copying to output.

Syntax -

Copy to single output file -

COPY FROM(indd) TO(outdd)

Copy to multiple output files -

COPY FROM(indd) TO(outdd1, outdd2, outdd3)

Copy to output file using a control card -

COPY FROM(indd) TO(outdd) USING(xxxx)

Copy to output file using a control card without outdd (Control card should have OUTFIL FILES) -

COPY FROM(indd) USING(xxxx)

Copy for fixed or Variable length VSAM Files -

COPY FROM(vsamin) TO(vsamout) VSAMTYPE(V/F)

Copy for join keys with outdd -

COPY JKFROM TO(OUT1) USING(xxxx)

Copy for join keys without outdd -

COPY JKFROM USING(xxxx)

Required Operands

  • FROM - specifies ddname of the input file. It is mandatory if FROM is coded.
  • JKFROM - used to JOIN KEYS for matching records. It is mandatory when USING(xxxx) is coded. In xxxxCNTL, a JOINKEYS statement should provide F1=ddname1 for the F1 file, F2=ddname2 for the F2 file, JOIN and REFORMAT statements according to the requirement.
  • TO - specifies 1 to 10 ddnames of output files. TO and USING operands can code at the same time.
  • USING - specifies the first 4-characters of the ddname (xxxxCNTL) for the DFSORT control statement. XXXX name is the user-defined name. Either TO, USING, or both operands can code at the same time.

Optional Operands

  • VSAMTYPE - specifies the record format for a VSAM input file (F or V).

Example -

Scenario - Copy all the records from input file to output file.

INPUT - MATEPK.INPUT.PSFILE

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
001  PAWAN         MAINFRAME           JPM       AP        IN
002  SRINIVAS      TESTING             ORACLE    TG        IN
003  SRIDHAR       SAS                 CG        OR        US
004  VENKATESH     ABAP                CSC       CA        US
005  RAVI          HADOOP              CTS       FL        US
006  PRASAD        HR                  INFOSYS   MI        US
007  RAJA          TESTING             IBM       CA        US

JCL -

Full Example    
----+----1----+----2----+----3----+----4----+----5----+
...
//STEP01   EXEC PGM=ICETOOL 
//INDD     DD DSN=MATEPK.INPUT.PSFILE,DISP=SHR
//OUTDD    DD DSN=MATEPK.OUTPUT.PSFILE, 
//            DISP=(NEW,CATLG,DELETE),VOLUME=SER=DEVHD4,
//            SPACE=(TRK,(1,1),RLSE),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)
//TOOLIN   DD *
  COPY FROM(INDD) TO(OUTDD)
/*
...

OUTPUT - MATEPK.OUTPUT.PSFILE

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
001  PAWAN         MAINFRAME           JPM       AP        IN
002  SRINIVAS      TESTING             ORACLE    TG        IN
003  SRIDHAR       SAS                 CG        OR        US
004  VENKATESH     ABAP                CSC       CA        US
005  RAVI          HADOOP              CTS       FL        US
006  PRASAD        HR                  INFOSYS   MI        US
007  RAJA          TESTING             IBM       CA        US