Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : programming pearls - Good judgement comes from experience, and experience comes from bad judgement.

Google
 
Web mainframegurukul.com

Programmers Voted for below topics.      Please Vote for good Posts. Votes Salutes
Topic Title Votes Salutes
EJECT Verb in COBOL 21
Cobol Multiple Choice Questions By Shravan Wipro 16
what is index or subscript in cobol. please give me brief ex 14
jcl sort to add leading zeroes 13
SOC 7 abend - interview question 13
what is static or dynamic call in cobol 13
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 12
How to resolve soc7? 12
HOW TO FIND LINKAGE LENGTH 10
Infosys Training Program for freshers 10
VSAM File status 23 ,but records are present in the file 7
splitting of records using cobol 6
JOIN UNPAIRED,F1,F2,ONLY 6
Endevor 6
Changes in copybook 6
Difference Between XCTL and LINK 5
Frequently used commands in FileAid. 5
Comparing two files 4
JCL return codes 4
COBOL Program performance tuning tips 4
Interview questions - 3 years Exp - BOA, HCL and CTS 4
Various Locking mechanism for cursors and other SQL? 4
GDG interview question 4
How to Display COMP-3 value in report 3 3
JOIN UNPAIRED,F1,F2,ONLY 3 3
alphanumeric to numeric value padding with ZEROS in COBOL 3 3
static and dynamic calls 3
restart question 3
What are the issues related with correlated subqueries? 3
Eliminate duplicate records in file 3
What is the difference between Copy and Include? 3
JCL SORT - Count number of records in a file 3
Regarding TSQ 3
JCL to Purge All Held output? 3
S322 abend while sorting records 3
IKJ56500I COMMAND DSN NOT FOUND 3
Call & Execute a COBOL-DB2 from a COBOL program? 3
compare two files using SORT 3
Submit a JCL thru Cobol - sysout=(INTRDR,*) 3
Comparing 2 files based on Acct number without using tables 3
Sort fields difference 3
Sending an Email from JCL with attachment 3
Control flow from one STEP to another 3
Recently faced mainframe cobol Interview Questions. 3
RESTART - Executing 2 and 3 rd step in 5 step jcl 3
sort two files with same sort condition 3
what is index or subscript in cobol. please give me brief ex 2 2
static and dynamic calls 2 2
DB2 Certification Guidelines 2 2
Cobol Multiple Choice Questions By Shravan Wipro 2 2
JCL Errors 2 2
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 2 2
What is the difference between SYNONYM and ALIAS? 2 2
How to copy only one record after sorting to SORTOUT. 2 2
What is the difference between Copy and Include? 2 2
Difference between sysprint, sysout 2 2
Various Locking mechanism for cursors and other SQL? 2 2
When you specify mutiple datasets in a JOBLIB or STEPLIB 2 2
Merging two files into one based on certain key fields: 2 2
CA7 scheduling 1 1
Difference Between XCTL and LINK 1 1
Regarding EXEC CICS ENQ / DEQ 1 1
Use of CHNG and PURGE ? 1 1
Ways to merge the parts of different rows in the single row. 1 1
Copy GDG to GDG (one to one). 1 1
File STatus 41 1 1
CICS ABEND CODES 1 1
Display WITH NO ADVANCING 1 1
Interview questions - 3 years Exp - BOA, HCL and CTS 1 1
What are the valid DSORG values ? 1 1
EJECT Verb in COBOL 1 1
Merging Datasets with removing duplicates 1 1
pls give me answers these are may help for jobhunters.. 1 1
How to fetch and compare the system date in JCL 1 1
what is the diff btw jcl error, maxcc=12 or 8 and abend? 1 1
OVERRIDING A DD CARD IN JCL FOR A MULTIPLE PROC JOB 1 1
REXX Tools 1 1
JCL interview question answer Ebook 1 1
Someone please explain this COMPUTE statement 1 1
Infosys Training Program for freshers 1 1
JCL to run the DB2 Query - IKJEFT01 1 1
Help in Multiplcation of decimal constant 1 1
ICETOOL & DFSORT 1 1
How to write - 'Hello world' program through JCL 1 1
Symbolic Parameters 1 1
JCL to interact with Oracle DB 1 1
SOC 7 abend - interview question 1 1
PROCLIB 1 1
Create a loop in a JCL 1 1
Why browse is substituted on big datasets? 1 1
what is static or dynamic call in cobol 1 1
Frequently used commands in FileAid. 1 1
NUMERIC condition checking on Alphanumeric value with spaces 1 1
sort two files with same sort condition 1 1
Fetching RDW of a VB file in Easytrieve 1 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1 1
JCL SORT - Count number of records in a file 1 1
cics 1 1
Comparing two files 1 1
how to copy multiple vsam files into a single flat file 1 1
Difference between an Object Module and Load Module 1 1
JOIN UNPAIRED,F1,F2,ONLY 22
How to resolve soc7? 22
what is index or subscript in cobol. please give me brief ex 21
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 19
Frequently used commands in FileAid. 18
what is static or dynamic call in cobol 14
jcl sort to add leading zeroes 13
Cobol Multiple Choice Questions By Shravan Wipro 12
RESTART - Executing 2 and 3 rd step in 5 step jcl 12
JCL SORT - Count number of records in a file 11
SORT JCL - SORTING A VB FILE - INREC OUTREC PARSE BUILD 11
Joinkeys using ICETOOL 10
Display WITH NO ADVANCING 8
How to concatenate records from two ps into one ps? 8
Interview questions - 3 years Exp - BOA, HCL and CTS 8
what is sync point in cics 8
EJECT Verb in COBOL 7
SOC 7 abend - interview question 7
Various Locking mechanism for cursors and other SQL? 7
How do you make your BMS maps case sensitive? 7
Sending an Email from JCL with attachment 7
Control flow from one STEP to another 6
what is the step debug the online program to use xpediter 6
Difference Between XCTL and LINK 6
How to retrieve deleted dataset / pds in mainframe 6
What is the difference between Comp-5 and Comp in Cobol ?? 6
Submit a JCL thru Cobol - sysout=(INTRDR,*) 5
How to compare two ps files having millions of records ? 5
abend code S000 U4038 5
Recently faced mainframe cobol Interview Questions. 5
Replacing a larger string with smaller string 5
VSAM File status 23 ,but records are present in the file 5
GDG interview question 5
How to run only 2 steps out of 100 steps??? 5
what is the Length of DSN=.... 5
How to assign System Date/Time to a parameter in a JCL pgm? 5
Sort fields difference 4
how to concatenate the datasets 4
static and dynamic calls 4
How to fetch and compare the system date in JCL 4
What is the function of //JCLLIB statement? 4
Comparing 2 files based on Acct number without using tables 4
FILE-AID vs InSync 4
How to compile list a coolgen batch code using endeavor 4
In cics what is new copy.please give me a example. 4
Difference between an Object Module and Load Module 4
How we can access PDS and its Members thru COBOL ? 4
SORT INREC OUTREC OVERLAY - Adding sequential numbers 4
Mainframe Developer - Cognizant - Chennai 4
INFO about REGION parm 3
In SMS datasets, what is the function of the DD MGMTCLAS 3
To connect EBCDIC records to ASCII during write process 3
compare two files using SORT 3
How to read HEX file and convert it into decimal in REXX. 3
alphanumeric to numeric value padding with ZEROS in COBOL 3
How do you restart a proc from a particular step in jcl? 3
COMP-3 TO ALPHANUMERIC MOVE 3
Cobol question 3
How can a JES3 operator command be entered through the job 3
Merging Datasets with removing duplicates 3
NUMERIC to COMP-3 move 3
JCL to copy from DASD to TAPE 3
JCL-I need to FTP from MF to Local computer 3
difference between Omegamon and Mainview 3
What is MQ SERIES AND why it is used? 3
sort two files with same sort condition 3
PACKAGE VS PLAN ? 3
compile the cics,db2 or cobol program what next step- 3
What is the difference between Copy and Include? 3
Endevor 3
sign stored in Packed Decimal fields and Zoned Decimal field 3
Urgent Help needed !! 3
Editing a Copybook - How to? 3
How to write - 'Hello world' program through JCL 3
CA7 scheduling 3
DB2 query !! 3
Regarding TSQ 3
SQLCODE -811, why always 2nd row is fetched?? 3
Set Return Code using DFSORT 3
FOREIGN KEY 3
SYSTEM COMPLETION CODE=0C4 3
Problem with numeric field with sign in last digit 3
How to find record count of a mainframe dataset? 3
Reg DFSORT utility. 3
help me in creating EXCEL document as OUTPUT FROM COBOL PROG 2
How to know the Primary and Foriegn keys? 2
to merge 2 records of the input file using SORT 2
How can i attach my sig? 2
What is the attribute byte? 2
Immediate Mainframe opening in CSC,Chennai 2
How to write a JCL using IEFBR14 2
A Really Nice One. Don't Miss the Moral. 2
To get the total record count of flat file..... 2
Redefine with occur clause 2
JCL - INCLUDE Condition - SORT INCLUDE COND 2
Executing n th step in a proc - JCL - IEBEDIT 2
Create files with matching and non matching records- SPLICE? 2
block size? 2
pls give me the answers for the following interview quesions 2
how to extract real time in easytrieve 2
To split matched and unmatched records into 2 files 2
To compare two files (SSN fields) 2
Create a loop in a JCL 2
PROCLIB 2
Mainframe PS to Excel and mail it. 2
Cobol Test 1 - Interview Questions 2
benefits with SYNC 2
DATACLAS 2
stored procedure in cobol 2
REXX Tools 2
DB2 PERFORMANCE TUNING TIPS 2
Converting file of RECFM=U to RECFM=FB 2
What is SSRANGE, NOSSRANGE ? 2
Replacing characters Using JCL 2
Eliminate duplicate records in file 2
DBXX NOT OPERATIONAL, RETRY COUNT IS ZERO 2
Comparing two files 2
How to Display COMP-3 value in report 2
COBOL TEST-3 WITH ANSWERS 2
What is a DBRM, PLAN ? 2
VERTICAL ARRAY IN CICS 2
CICS ABEND CODES 2
SOC1 abend 2
generating sequence number starting from 0100000000000000 2
Production Support 2
What is Static,Dynamic linking ? 2
How to send mail having some content of the file via jcl 2
how to calculate age 2
Replace special characters with spaces in a string 2
what s the difference between DB2 & ADB2? 2
IEBGENER - Emptying dataset. 2
Reformatting and calculating time and date values 2
Infosys Training Program for freshers 2
Mainframe jobs in Germany 2
SQL Query using REXX 2
Need to compare two files using sort in jcl 2
Sort and merge two files with a condition 2
Define/Create VSAM-E file 2
ICETOOL & DFSORT 2
What is auditing? 2
DB2 Certification Guidelines 2
Computer based tutorial on IMS DB/DC 2
Stop Run in both called and calling programs !!! 1
COBOL Program performance tuning tips 1
compare 2 files with different LRECL 1
User abend 4038 1
JCL return codes 1
resource unavailable..table is not accessible 1
SQL Code -913 1
88 Level default value 1
Man of the year 1
I need to FTP from MF to UNIX 1
How to handle the null indiactor 1
what is INTRDR ( Internal Read) in JCL ? 1
Using Pointers in a CICS-COBOL program 1
How to copy only one record after sorting to SORTOUT. 1
is multiple STOP RUN are valid? 1
please clear my doubt 1
Simple JCL Tutorial & IBM Tutorials Manuals Pdf Tutor 1
Need sort to compare 2 datasets 1
JCL Error S878 1
maxcc=1 1
What is the difference between CANCEL and INITIAL statement 1
Help regarding Career in Vision Plus, Mainframe 1
S322 abend while sorting records 1
How to convert Julian date format into yyyymmdd date format? 1
Can any one let me know how to resolve +100,-805,-803. 1
QSAM 1
Reg: DDIO file in XPED 1
EZT+ Date manipulation - How do I subtract 30 days sysdate 1
what is STOP RUN OR GOBACK OR EXIT PROGRAM 1
Restart logic (Checkpoint logic) 1
File STatus 41 1
How to FTP a dataset from my mainframe to personal Folder 1
Requirement in INAUTIX - CHENNAI Exp - 3 to 6 Years 1
Difference between physical and symbolic map 1
DB2 COMMIT?? 1
PL/I program - PROC OPTION various attributes 1
Converting Easytrev to EZTPA00 1
I am beginer in db2 , why r using bind ,plan & packge? 1
COBOL MOVE CORRESPONDING DOUBT 1
What is the difference between Static and Dynamic Binding? 1
Endevor 1
Delete a column from a file 1
DFSORT - JOINKEYS 1
File-Aid Batch accessing copybook 1
Copy of Fixed Length file into Variable Length File 1
How to check the return code of PROC 1
SYSUDUMP and SYSABEND 1
create a table in such a way that Delete cannot be used? 1
Call & Execute a COBOL-DB2 from a COBOL program? 1
UDS2000 utility program 1
how to download table data with out extra ? for null values 1
Omitt records from sort but still include them in output 1
To match and remove duplicate records from two files. 1
make a output file from two input files on certain condition 1
In jcl please help me. 1
Appending data to a PDS using REXX 1
HOW TO INCREASE DATASET SPACE 1
CA-7 standby 1
JCL to Purge All Held output? 1
To delete a segment in an IMS DB & create XREF using INS 1
What are the contents of a DCLGEN? 1
XREF Creation 1
What is DCLGEN ? 1
EDIT a STRING 1
Multiple Conditions to Copy a File 1
why include can't be used in procedure division? 1
searching for a special character through sort 1
Join on keys and replace when matched 1
Access DB2 region using rexx 1
Regarding Restart card in JCL 1
Is it possible to add timestamp in the Header Record? 1
Inserting a Delimiter 1
utility IKJEFT1B 1
LEFT OUTER JOIN IN COBOL VSE ENVIRONMENT 1
Endevor tutorial 1
Getting Error while using ICEMAN tool 1
hai 1
delete a record in ps file. 1
DFHAC2016 - Trans XXXX cannot run because program XXX is Not 1
Array setup 1
Copying GDG 1
PARM PARAMETER 1
DFSORT Sorting a pack decimal field. 1
How do you retrieve the data from a nullable column? 1
SORTCARD help 1
How to delete PDS member alone thru a jcl 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1
Capgemini Mainframe opportunity 1
how to split files which has header and trailor 1
link-edit error 1
Difference between internal sort and external sort 1
How to use XREF.. 1
Icetool- Splicing : More than one compare key 1
DB2 checkpoint-restart doubts 1
sort the input file excluding the trailer record 1
Ezyedit selsection panel 1
Add Header and Trailer record also display the recod Count 1
LINKING of Sub-Program 1
HOW TO CAPTURE JOBLOG THROUGH JCL 1
search the given PS file for a string 1
How do you code an instream data in a proc 1
Sending the user a message when job abends? 1
NUMERIC condition checking on Alphanumeric value with spaces 1
REXX tool needed to capture the JCL syntax errors 1
Rexx/Clist to auto-build IEFBR14 for JCL 1
cics 1
"Merge" two files in a special way 1
file manager(unable to view/edit dataset) 1
SORT JCL to Split data using OUTFIL 1
Vaccination for Children 1
joins examples on multiple tables 1
SE37 space abend 1
Easytrieve Job Input statement query 1
Compare 2 files and write O/P accordingly 1
equivalent file-manager command of file-aid command COPYBACK 1
Override 1
To get Volume Serial Number for Uncatalog Dataset 1
How to update records count in the header using JCL 1
difference between -805 and -818 sqlcode 1
Connect Direct to copy data from mainframe to desktop. 1
writing 2 records for each qualifying input record. 1
Inserting NULL 1
COUNT of records based on distinct field value(ICETOOL/SORT) 1
PACKED DECIMAL TO NUMERIC USING EASYTRIEVE 1
Pointers in Cobol 1
U4093 IMS Abend 1
Is it possible to get last modified date of PDS members... 1
Two files Matching Logic 1
how to describe a table in spufi 1
Difference between Ps and ESDS 1
Use of CHNG and PURGE ? 1
Mainframe Jobs - Pune 1
Merging two files into one based on certain key fields: 1
Ways to merge the parts of different rows in the single row. 1
How to copy specific members via fileaid 1
SYNCSORT trick 1
How to write a JCL using IEBCOMPR 1
SORT - Ifthen, when group question 1
types of cursors? 1
Sorting - SORT INREC OUTREC SUM FIELDS 1
CICS Tutorial 1
S0C6 Abend while Opening a DB2 Cursor in a DB2-PLI Proram 1
How to Separate Odd or Even numbers using DFSORT 1
Dynamic name allocation to a file 1
Help required for a sort step. 1
What is length in sysin dd? 1
What is the difference between CS and RR isolation levels? 1
Corresponding statement 1
Tool to practice COBOL Programs 1
Question about Files matching logic 1
Using IDCAMs how to check whether file empty or not 1
Moving cursor to next field in ISPF dialog 1
JCL to run the DB2 Query - IKJEFT01 1
CA-7 1
VSAM File status 34 1
Merged file to remove duplicate so order is not affected 1
Comapare Two Records in the same File 1
Merging of two files with non-unique keys. 1
how to merge two flat files in append manner 1
CODE THAT WAIT X MINUTES BEFORE EXECUTE A STEP 1
using Index other than subscript 1
Compare to files - write the count of matching - Easytrieve 1
Can we take XDC of the production job run? 1
how to deal with the below scenario using iebgener 1
user abend in easytrieve 1
SORT assistance for setting up RC 1
EVALUATE Statement in Easytrieve 1
What is the difference between SYNONYM and ALIAS? 1
too many tables join 1
Hai to All 1
How to convert a decimal valuie to hexadecimal using sort 1
JCL Interpreter :?: 1
conversion by using SORT 1
EASYTRIEVE 1
How can you override/nullify Condition code (COND) in jcl? 1
Technical diff between Microfocus cobol and Mainframe Cobol 1
How to write sort card? 1
Name the macros to be used to define MAP, MAPSET, FIELD 1
need to check a GDG generation is present in catalog or not 1
SORT verb - help 1
Masking some fields in a dataset using JCL 1
Comparing Date with current date 1
how to insert new column in already existing vsam file 1
How to compile codes in changeman through tool in mainframe. 1
Find and Replace using DFSORT 1
Generate list of batch jobs in jobtrac using jcl 1
Mainframe Refresher eBook 1
Disabling CICS 1
Can any one let me know how to resolve +100,-803,-811 1
How to use both lower and upper case letters in cobol? 1
IBM Mainframe certification courses and exam 1
is the answer correct?? 1
Comp-3 variables to Comp variables. 1
retrieving deleted GDG version 1
Production Support 1
executing java program thru JCL 1
Reset Condition Code. 1
HOW TO FIND LINKAGE LENGTH 1
what is the diff btw jcl error, maxcc=12 or 8 and abend? 1
a Sub-Query and a Correlated Sub-Query 1
How can i delete records form a VSAM file. 1
Problems associated with each type of interview question 1
Need to check count of file records and abend if >10. 1
Intertest tool help 1
Mainframe Developer Requirement - Coimbatore 1
PACKMODE ON/OFF 1
BMC Load REPLACE option 1
Compile error (Cobol using copy book) 1
What is use of redefine with real time example? 1
IEBCOPY utility does not execute 2 parms at the same time.

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities
  View previous topic :: View next topic  
Author Message
csylyg11
Member


Joined: 26 Feb 2014
Posts: 6

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Feb 26, 2014 10:32 pm    Post subject: IEBCOPY utility does not execute 2 parms at the same time. Reply with quote

Hi Forum,
I ran IEBCOPY utility:
Code:
//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:
//COPYCOMP EXEC PGM=IEBCOPY,REGION=4M,PARM='REPLACE,COMPRESS'
And result was the same: no member replacement.
When I ran:
Code:
//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?
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

NicC
Active Member


Joined: 24 Jul 2011
Posts: 651
Location: Down on the pig farm

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Feb 27, 2014 3:18 am    Post subject: Reply with quote

Please use the code tags to present your JCL/CODE/DATA. I gave up trying to distinguish between JCL and text.
_________________
Regards
Nic
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
csylyg11
Member


Joined: 26 Feb 2014
Posts: 6

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Feb 27, 2014 6:43 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
NicC
Active Member


Joined: 24 Jul 2011
Posts: 651
Location: Down on the pig farm

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Feb 27, 2014 9:08 pm    Post subject: Reply with quote

Search the forum for "code tags"
_________________
Regards
Nic
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 1001
Location: usa

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Feb 28, 2014 12:09 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
csylyg11
Member


Joined: 26 Feb 2014
Posts: 6

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 05, 2014 7:25 pm    Post subject: Reply with quote

[list=]Target library initial allocation status before IEBCOPY has been run:
Code:
                             Data Set Information

Data Set Name  . . . : VSYS.CSYLYG.JCL

General Data                          Current Allocation
 Volume serial . . . : S0VN01          Allocated cylinders : 18
 Device type . . . . : 3390            Allocated extents . : 10
 Organization  . . . : PO              Maximum dir. blocks : 300
 Record format . . . : FB
 Record length . . . : 80
 Block size  . . . . : 6240           Current Utilization
 1st extent cylinders: 9               Used cylinders  . . : 18
 Secondary cylinders : 1               Used extents  . . . : 10
                                       Used dir. blocks  . : 207
                                       Number of members . : 1,239

                                      Dates
                                       Creation date . . . : 2014/02/04
                                       Referenced date . . : 2014/03/05
                                       Expiration date . . : ***None***
[/list]
[list=]Now I run this job:[/list]
Code:
********************************* 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 (MINS.)--            ----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:
 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:14:22 WED 05 MAR 2014 PARM='COMPRESS,REPLACE'
ACFCOPY2 COPY      INDD=((SYSUT2,R)),OUTDD=SYSUT2   GENERATED STATEMENT
IEB1018I COMPRESSING  PDS  OUTDD=SYSUT2   VOL=S0VN01 DSN=VSYS.CSYLYG.JCL
IEB1097I FOLLOWING MEMBER(S) 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:
     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 (MINS.)--            ----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:24:50 WED 05 MAR 2014 PARM='REPLACE'
    ACFCOPY3 COPY      INDD=((SYSUT1,R)),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(S) 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 ******

[list=]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?[/list]
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
NicC
Active Member


Joined: 24 Jul 2011
Posts: 651
Location: Down on the pig farm

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 05, 2014 9:16 pm    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
William Collins
Active Member


Joined: 24 May 2012
Posts: 714

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Wed Mar 05, 2014 10:15 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
csylyg11
Member


Joined: 26 Feb 2014
Posts: 6

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Mar 06, 2014 9:00 pm    Post subject: Reply with quote

[list=]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:
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 (MINS.)--            ----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
[/list]
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
csylyg11
Member


Joined: 26 Feb 2014
Posts: 6

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Mar 06, 2014 9:16 pm    Post subject: Reply with quote

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.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
DikDude
Moderator


Joined: 22 Jul 2011
Posts: 1001
Location: usa

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Mar 06, 2014 10:52 pm    Post subject: Reply with quote

Not a problem Wink

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

d
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> DFSORT , ICETOOL & Utilities All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts Recently faced mainframe cobol Interview Questions. 15 rangab 20278 Wed Feb 03, 2016 11:06 pm
academyindia4 View latest post
No new posts Why another mainframe forum? 4 MrSpock 6324 Thu Jan 21, 2016 11:59 pm
academyindia4 View latest post
No new posts How do I add sticky in this Forum ? 10 Anuj Dhawan 13769 Mon Dec 06, 2010 3:07 pm
Anuj Dhawan View latest post
No new posts attributes of one SMS dataset be copied to another dataset ? 1 Krishna 3270 Tue May 12, 2009 6:32 pm
Krishna View latest post
No new posts Can I add sticky in this Forum ? 2 Anuj Dhawan 4233 Thu Nov 27, 2008 2:49 pm
Anuj Dhawan View latest post
 


Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-7471.html