IEBCOPY utility does not execute 2 parms at the same time.

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
csylyg11
Member
Posts: 6
Joined: Wed Feb 26, 2014 6:45 pm

IEBCOPY utility does not execute 2 parms at the same time.

Post by csylyg11 » Wed Feb 26, 2014 10:32 pm

Hi Forum,
I ran IEBCOPY utility:

Code: Select all

//ACFCOPY PROC
// SET SC=&SYSCHAR
//* COPIES COMMON ACF LIBRARY TO THE AGENCY ACF LIBRARY
//COPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='COMPRESS,REPLACE'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL
//SYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL
What I observed is that target library was compressed, but no members were copied and replaced in the target.
Then I ran:

Code: Select all

//COPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='REPLACE,COMPRESS'
And result was the same: no member replacement.
When I ran:

Code: Select all

//ACFCOPY PROC
// SET SC=&SYSCHAR
//* COPIES COMMON ACF LIBRARY TO THE AGENCY ACF LIBRARY
//COPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='REPLACE'
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL
//SYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL
then members were copied and replaced in target library and, of course, no compress occurred.
IBM IEBCOPY manual says:<< You may specify any of the parameters in any order to IEBCOPY. Separate multiple parameters with a comma between each one.>>
So, what did I do wrong? How to perform compress and replacement in 1 exec?

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Thu Feb 27, 2014 3:18 am

Please use the code tags to present your JCL/CODE/DATA. I gave up trying to distinguish between JCL and text.
Regards
Nic

csylyg11
Member
Posts: 6
Joined: Wed Feb 26, 2014 6:45 pm

Post by csylyg11 » Thu Feb 27, 2014 6:43 pm

Hi Nic, I am new in this forum. Can you please explain me what are <<code tags>>? Can you give me an example for JCL code with <<code tags>>?
My JCL that I pointed out does not have any SYSIN DDs. That means that every line with // Is JCL code. All other lines not having // are just explanatory text.
Thank you.

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Thu Feb 27, 2014 9:08 pm

Search the forum for "code tags"
Regards
Nic

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa

Post by DikDude » Fri Feb 28, 2014 12:09 am

Your post has been "coded". To use the tags, you should be in the Reply Editor (Post a Reply) rather than the Quick Reply.

You need to post the sysout info generated by the problem run so we can see what you see.

Suggest you expirement with the tags on something small so not much is lost if there is a mistake. If you get stuck, we can help. Use Preview to see your post as it willo appear to the forum - not how it appears in the editor.
Have a good one

csylyg11
Member
Posts: 6
Joined: Wed Feb 26, 2014 6:45 pm

Post by csylyg11 » Wed Mar 05, 2014 7:25 pm

  • Target library initial allocation status before IEBCOPY has been run:

    Code: Select all

                                 Data Set Information
    
    Data Set Name  . . . &#58; VSYS.CSYLYG.JCL
    
    General Data                          Current Allocation
     Volume serial . . . &#58; S0VN01          Allocated cylinders &#58; 18
     Device type . . . . &#58; 3390            Allocated extents . &#58; 10
     Organization  . . . &#58; PO              Maximum dir. blocks &#58; 300
     Record format . . . &#58; FB
     Record length . . . &#58; 80
     Block size  . . . . &#58; 6240           Current Utilization
     1st extent cylinders&#58; 9               Used cylinders  . . &#58; 18
     Secondary cylinders &#58; 1               Used extents  . . . &#58; 10
                                           Used dir. blocks  . &#58; 207
                                           Number of members . &#58; 1,239
    
                                          Dates
                                           Creation date . . . &#58; 2014/02/04
                                           Referenced date . . &#58; 2014/03/05
                                           Expiration date . . &#58; ***None***
  • Now I run this job:

Code: Select all

********************************* TOP OF DATA *******************************************************************************
                   J E S 2  J O B  L O G  --  S Y S T E M  O F T V  --  N O D E  T 1 O F T V A N

08.14.22 STC05588 ---- WEDNESDAY, 05 MAR 2014 ----
08.14.22 STC05588  IEF695I START ACFCOPY2 WITH JOBNAME ACFCOPY2 IS ASSIGNED TO USER STCID   , GROUP $STCGRP
08.14.22 STC05588  $HASP373 ACFCOPY2 STARTED
08.14.22 STC05588  IEF403I ACFCOPY2 - STARTED - TIME=08.14.22
08.14.23 STC05588  -                                         --TIMINGS &#40;MINS.&#41;--            ----PAGING COUNTS---
08.14.23 STC05588  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK   SERV  PG   PAGE   SWAP    VIO SWAPS STEPNO
08.14.23 STC05588  -ACFCOPY2          COPYCOMP    00    116    .00    .00    .01    885   0      0      0      0     0     1
08.14.23 STC05588  IEF404I ACFCOPY2 - ENDED - TIME=08.14.23
08.14.23 STC05588  -ACFCOPY2 ENDED.  NAME-                     TOTAL CPU TIME=   .00  TOTAL ELAPSED TIME=   .01
08.14.23 STC05588  $HASP395 ACFCOPY2 ENDED
------ JES2 JOB STATISTICS ------
  05 MAR 2014 JOB EXECUTION DATE
            2 CARDS READ
        1,320 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
           66 SYSOUT SPOOL KBYTES
         0.01 MINUTES EXECUTION TIME
        1 //ACFCOPY2 JOB MSGLEVEL=1                                               STC05588
        2 //STARTING EXEC ACFCOPY2


SDSF OUTPUT DISPLAY ACFCOPY2 STC05588  DSID     3 LINE 0       COLUMNS 02- 133
COMMAND INPUT ===>                                            SCROLL ===> CSR
******************************** TOP OF DATA ********
       1 //ACFCOPY2 JOB MSGLEVEL=1                                               STC05588
       2 //STARTING EXEC ACFCOPY2
       3 XXACFCOPY PROC                                                          00001000
       4 XX SET SC=&SYSCHAR                                                      00002000
         XX* COPIES COMMON ACF LIBRARY TO THE AGENCY ACF LIBRARY                 00003000
         IEFC653I SUBSTITUTION JCL - SC=V
       5 XXCOPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='COMPRESS,REPLACE'           00004004
       6 XXSYSPRINT DD SYSOUT=*                                                  00005000
       7 XXSYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL                              00006000
       8 XXSYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL                           00007000
         IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=VSYS.CSYLYG.JCL
******************************* BOTTOM OF DATA ******

SYSPRINT ACFCOPY2&#58;
 SDSF OUTPUT DISPLAY ACFCOPY2 STC05588  DSID   101 LINE 0       COLUMNS 02- 133
 COMMAND INPUT ===>                                            SCROLL ===> CSR
********************************* TOP OF DATA *******
                                         IEBCOPY MESSAGES AND CONTROL STATEMENTS                              PAGE     1
IEB1135I IEBCOPY  FMID HDZ1D10  SERVICE LEVEL UA67459  DATED 20121210 DFSMS 01.13.00 z/OS    01.13.00 HBB7780  CPU 2097
IEB1035I ACFCOPY2  ACFCOPY2 08&#58;14&#58;22 WED 05 MAR 2014 PARM='COMPRESS,REPLACE'
ACFCOPY2 COPY      INDD=&#40;&#40;SYSUT2,R&#41;&#41;,OUTDD=SYSUT2   GENERATED STATEMENT
IEB1018I COMPRESSING  PDS  OUTDD=SYSUT2   VOL=S0VN01 DSN=VSYS.CSYLYG.JCL
IEB1097I FOLLOWING MEMBER&#40;S&#41; MOVED IN DATA SET REFERENCED BY SYSUT2
IEB154I $$$SEND  HAS BEEN SUCCESSFULLY MOVED
IEB154I $$ACFSUB HAS BEEN SUCCESSFULLY MOVED
IEB154I $$TEMP1  HAS BEEN SUCCESSFULLY MOVED
IEB154I $$TEMP2  HAS BEEN SUCCESSFULLY MOVED
IEB154I ##ACFSUB HAS BEEN SUCCESSFULLY MOVED
IEB154I AA       HAS BEEN SUCCESSFULLY MOVED
IEB154I ACFCOPY  HAS BEEN SUCCESSFULLY MOVED
IEB154I ACFDS1   HAS BEEN SUCCESSFULLY MOVED
IEB154I ACFDS2   HAS BEEN SUCCESSFULLY MOVED
............................................
.......
IEB154I Z        HAS BEEN SUCCESSFULLY MOVED
IEB154I ZAPDUMP  HAS BEEN SUCCESSFULLY MOVED
IEB154I ZAPFZ    HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDITHFS HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDITMVS HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDIT25A HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDI2MVS HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDI225A HAS BEEN SUCCESSFULLY MOVED
IEB154I ZEDTPATH HAS BEEN SUCCESSFULLY MOVED
IEB1098I 1239 OF 1239 MEMBERS MOVED IN DATA SET REFERENCED BY SYSUT2
IEB144I THERE ARE 139 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
IEB149I THERE ARE 93 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
******************************** BOTTOM OF DATA ****
  • So, you can see that no replace copy was performed.
    Now I run this JCL:

    Code: Select all

     SDSF OUTPUT DISPLAY ACFCOPY3 STC05590  DSID     2 LINE 0       COLUMNS 02- 133
     COMMAND INPUT ===>                                            SCROLL ===> CSR
    ********************************* TOP OF DATA *******************************************************************************
                       J E S 2  J O B  L O G  --  S Y S T E M  O F T V  --  N O D E  T 1 O F T V A N
    
    08.24.50 STC05590 ---- WEDNESDAY, 05 MAR 2014 ----
    08.24.50 STC05590  IEF695I START ACFCOPY3 WITH JOBNAME ACFCOPY3 IS ASSIGNED TO USER STCID   , GROUP $STCGRP
    08.24.50 STC05590  $HASP373 ACFCOPY3 STARTED
    08.24.50 STC05590  IEF403I ACFCOPY3 - STARTED - TIME=08.24.50
    08.24.50 STC05590  -                                         --TIMINGS &#40;MINS.&#41;--            ----PAGING COUNTS---
    08.24.50 STC05590  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK   SERV  PG   PAGE   SWAP    VIO SWAPS STEPNO
    08.24.50 STC05590  -ACFCOPY3          COPYCOMP    00    123    .00    .00    .00   1004   0      0      0      0     0     1
    08.24.50 STC05590  IEF404I ACFCOPY3 - ENDED - TIME=08.24.50
    08.24.50 STC05590  -ACFCOPY3 ENDED.  NAME-                     TOTAL CPU TIME=   .00  TOTAL ELAPSED TIME=   .00
    08.24.50 STC05590  $HASP395 ACFCOPY3 ENDED
    ------ JES2 JOB STATISTICS ------
      05 MAR 2014 JOB EXECUTION DATE
                2 CARDS READ
            1,321 SYSOUT PRINT RECORDS
                0 SYSOUT PUNCH RECORDS
               68 SYSOUT SPOOL KBYTES
             0.01 MINUTES EXECUTION TIME
    ******************************** BOTTOM OF DATA *****************************************************************************
    
    SDSF OUTPUT DISPLAY ACFCOPY3 STC05590  DSID     3 LINE 0       COLUMNS 02- 133
    COMMAND INPUT ===>                                            SCROLL ===> CSR
    ******************************** TOP OF DATA ********************************************
           1 //ACFCOPY3 JOB MSGLEVEL=1                                               STC05590
           2 //STARTING EXEC ACFCOPY3
           3 XXACFCOPY3 PROC                                                         00001000
           4 XX SET SC=&SYSCHAR                                                      00002000
             XX* COPIES COMMON ACF LIBRARY TO THE AGENCY ACF LIBRARY                 00003000
             IEFC653I SUBSTITUTION JCL - SC=V
           5 XXCOPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='REPLACE'                    00004000
           6 XXSYSPRINT DD SYSOUT=*                                                  00005000
           7 XXSYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL                              00006000
           8 XXSYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL                           00007000
             IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=VSYS.CSYLYG.JCL
    ******************************* BOTTOM OF DATA ******************************************
    
     SDSF OUTPUT DISPLAY ACFCOPY3 STC05590  DSID   101 LINE 0       COLUMNS 02- 133
     COMMAND INPUT ===>                                            SCROLL ===> CSR
    ********************************* TOP OF DATA **************************************************************************
                                             IEBCOPY MESSAGES AND CONTROL STATEMENTS                              PAGE     1
    IEB1135I IEBCOPY  FMID HDZ1D10  SERVICE LEVEL UA67459  DATED 20121210 DFSMS 01.13.00 z/OS    01.13.00 HBB7780  CPU 2097
    IEB1035I ACFCOPY3  ACFCOPY3 08&#58;24&#58;50 WED 05 MAR 2014 PARM='REPLACE'
    ACFCOPY3 COPY      INDD=&#40;&#40;SYSUT1,R&#41;&#41;,OUTDD=SYSUT2   GENERATED STATEMENT
    IEB1013I COPYING FROM PDS   INDD=SYSUT1   VOL=S0AN03 DSN=ASYS.CSYLYG.JCL
    IEB1014I           TO PDS  OUTDD=SYSUT2   VOL=S0VN01 DSN=VSYS.CSYLYG.JCL
    IEB167I FOLLOWING MEMBER&#40;S&#41; COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1
    IEB154I $$$SEND  HAS BEEN SUCCESSFULLY COPIED
    IEB154I $$ACFSUB HAS BEEN SUCCESSFULLY COPIED
    IEB154I $$TEMP1  HAS BEEN SUCCESSFULLY COPIED
    IEB154I $$TEMP2  HAS BEEN SUCCESSFULLY COPIED
    IEB154I ##ACFSUB HAS BEEN SUCCESSFULLY COPIED
    IEB154I AA       HAS BEEN SUCCESSFULLY COPIED
    IEB154I ACFCOPY  HAS BEEN SUCCESSFULLY COPIED
    IEB154I ACFDS1   HAS BEEN SUCCESSFULLY COPIED
    IEB154I ACFDS2   HAS BEEN SUCCESSFULLY COPIED
    IEB154I ACFDUMP  HAS BEEN SUCCESSFULLY COPIED
    .............................................
    .............................................
    IEB154I Y2SORTA  HAS BEEN SUCCESSFULLY COPIED
    IEB154I Z        HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZAPDUMP  HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZAPFZ    HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDITHFS HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDITMVS HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDIT25A HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDI2MVS HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDI225A HAS BEEN SUCCESSFULLY COPIED
    IEB154I ZEDTPATH HAS BEEN SUCCESSFULLY COPIED
    IEB1098I 1239 OF 1239 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1
    IEB144I THERE ARE 14 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2
    IEB149I THERE ARE 93 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY
    IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE
    ******************************** BOTTOM OF DATA ******
  • So, you can see that COPY REPLACE works when REPLACE is a single parm, but when COMPRESS,REPLACE was specified then compress only occurred.
    Did I do anything wrong?

NicC
Active Member
Posts: 650
Joined: Sun Jul 24, 2011 5:27 pm
Location: Down on the pig farm

Post by NicC » Wed Mar 05, 2014 9:16 pm

Yes - you think IEBCOPY can do more than one task at a time. It doesn't - unless you specify the control data specifically. When you ask it to generate the control data it seems to take the last requested operation. The manual is, perhaps, unclear or plain wrong.
Regards
Nic

William Collins
Active Member
Posts: 732
Joined: Thu May 24, 2012 4:07 am

Post by William Collins » Wed Mar 05, 2014 10:15 pm

Having never, ever, tried to do something at the same time as a COMPRESS, that may be the problem. I always ensure there is a back-up before a COMPRESS. Then doing something else seems pointless. I don't remember seeing a restriction that COMPRESS must be on its own, but I know for sure I've never checked.

Either explicitly or implicitly, I think that will be your problem. Two steps. Three counting the back-up.

csylyg11
Member
Posts: 6
Joined: Wed Feb 26, 2014 6:45 pm

Post by csylyg11 » Thu Mar 06, 2014 9:00 pm

  • Thanks everybody for your opinions. Each opinion is valuable.
    2 reasons I did not specified control data explicitly, cause 1. you cannot put cd into proc and Secondly,
    even I could put cd into another library member, which would be pointed out by SYSIN DD, I wanted to make JCL shortest.
    So, being left with what it is, and not capable to put 2 parms in 1 exec, I acme up with this JCL that works:

    Code: Select all

    09.42.24 STC05821 ---- THURSDAY,  06 MAR 2014 ----
    09.42.24 STC05821  IEF695I START ACFCOPY4 WITH JOBNAME ACFCOPY4 IS ASSIGNED TO USER STCID   , GROUP $STCGRP
    09.42.24 STC05821  $HASP373 ACFCOPY4 STARTED
    09.42.24 STC05821  IEF403I ACFCOPY4 - STARTED - TIME=09.42.24
    09.42.25 STC05821  -                                         --TIMINGS &#40;MINS.&#41;--            ----PAGING COUNTS---
    09.42.25 STC05821  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK   SERV  PG   PAGE   SWAP    VIO SWAPS STEPNO
    09.42.25 STC05821  -ACFCOPY4          COPYCOMP    00    115    .00    .00    .01   1029   0      0      0      0     0     1
    09.42.26 STC05821  -ACFCOPY4          COPYREPL    00    119    .00    .00    .00   1054   0      0      0      0     0     2
    09.42.26 STC05821  IEF404I ACFCOPY4 - ENDED - TIME=09.42.26
    09.42.26 STC05821  -ACFCOPY4 ENDED.  NAME-                     TOTAL CPU TIME=   .00  TOTAL ELAPSED TIME=   .02
    09.42.26 STC05821  $HASP395 ACFCOPY4 ENDED
    ------ JES2 JOB STATISTICS ------
      06 MAR 2014 JOB EXECUTION DATE
                2 CARDS READ
            2,612 SYSOUT PRINT RECORDS
                0 SYSOUT PUNCH RECORDS
              132 SYSOUT SPOOL KBYTES
             0.02 MINUTES EXECUTION TIME
            1 //ACFCOPY4 JOB MSGLEVEL=1                                               STC05821
            2 //STARTING EXEC ACFCOPY4
            3 XXACFCOPY3 PROC                                                         00001000
            4 XX SET SC=&SYSCHAR                                                      00002000
              XX* COPIES COMMON ACF LIBRARY TO THE AGENCY ACF LIBRARY                 00003000
              IEFC653I SUBSTITUTION JCL - SC=V
            5 XXCOPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='COMPRESS'                   00004000
            6 XXSYSPRINT DD SYSOUT=*                                                  00005000
            7 XXSYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL                              00006000
            8 XXSYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL                           00007000
              XX*                                                                     00007100
              IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=VSYS.CSYLYG.JCL
            9 XXCOPYREPL EXEC PGM=IEBCOPY,REGION=4M,PARM='REPLACE'                    00008000
           10 XXSYSPRINT DD SYSOUT=*                                                  00009000
           11 XXSYSUT1   DD DISP=SHR,DSN=ASYS.CSYLYG.JCL                              00010000
           12 XXSYSUT2   DD DISP=SHR,DSN=&SC.SYS.CSYLYG.JCL                           00020000
              IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=VSYS.CSYLYG.JCL

csylyg11
Member
Posts: 6
Joined: Wed Feb 26, 2014 6:45 pm

Post by csylyg11 » Thu Mar 06, 2014 9:16 pm

DikDude, Hello Moderator.
I apologize for creation duplicate post. That was not my intention. Creation of the duplicate post would be silly. As a new member I practiced with tags, eventually did something wrong and/or inadvertently submitted it.
Thank you for your patience.
Csylyg11.

DikDude
Moderator
Posts: 1001
Joined: Fri Jul 22, 2011 8:39 am
Location: usa

Post by DikDude » Thu Mar 06, 2014 10:52 pm

Not a problem :wink:

You're welcome.
Good to hear you have it working. Thank you for posting your solution :)

d

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others