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
How to resolve soc7? 12
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 12
Infosys Training Program for freshers 10
HOW TO FIND LINKAGE LENGTH 10
VSAM File status 23 ,but records are present in the file 7
Changes in copybook 6
splitting of records using cobol 6
JOIN UNPAIRED,F1,F2,ONLY 6
Endevor 6
Difference Between XCTL and LINK 5
Frequently used commands in FileAid. 5
Interview questions - 3 years Exp - BOA, HCL and CTS 4
Various Locking mechanism for cursors and other SQL? 4
GDG interview question 4
Comparing two files 4
JCL return codes 4
COBOL Program performance tuning tips 4
JOIN UNPAIRED,F1,F2,ONLY 3 3
alphanumeric to numeric value padding with ZEROS in COBOL 3 3
How to Display COMP-3 value in report 3 3
JCL to Purge All Held output? 3
IKJ56500I COMMAND DSN NOT FOUND 3
S322 abend while sorting records 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
static and dynamic calls 3
What are the issues related with correlated subqueries? 3
restart question 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
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
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
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 2 2
JCL Errors 2 2
SOC 7 abend - interview question 1 1
PROCLIB 1 1
Why browse is substituted on big datasets? 1 1
Create a loop in a JCL 1 1
what is static or dynamic call in cobol 1 1
Frequently used commands in FileAid. 1 1
sort two files with same sort condition 1 1
NUMERIC condition checking on Alphanumeric value with spaces 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
How to write - 'Hello world' program through JCL 1 1
how to copy multiple vsam files into a single flat file 1 1
Comparing two files 1 1
Difference between an Object Module and Load Module 1 1
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
Infosys Training Program for freshers 1 1
Someone please explain this COMPUTE statement 1 1
JCL to run the DB2 Query - IKJEFT01 1 1
Help in Multiplcation of decimal constant 1 1
ICETOOL & DFSORT 1 1
Symbolic Parameters 1 1
JCL to interact with Oracle DB 1 1
How to resolve soc7? 22
JOIN UNPAIRED,F1,F2,ONLY 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
SORT JCL - SORTING A VB FILE - INREC OUTREC PARSE BUILD 11
JCL SORT - Count number of records in a file 11
Joinkeys using ICETOOL 10
Interview questions - 3 years Exp - BOA, HCL and CTS 8
what is sync point in cics 8
Display WITH NO ADVANCING 8
How to concatenate records from two ps into one ps? 8
How do you make your BMS maps case sensitive? 7
Sending an Email from JCL with attachment 7
EJECT Verb in COBOL 7
SOC 7 abend - interview question 7
Various Locking mechanism for cursors and other SQL? 7
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
Control flow from one STEP to another 6
what is the step debug the online program to use xpediter 6
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
Submit a JCL thru Cobol - sysout=(INTRDR,*) 5
How to compare two ps files having millions of records ? 5
abend code S000 U4038 5
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
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
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
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
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
SQL Query using REXX 2
Mainframe jobs in Germany 2
Need to compare two files using sort in jcl 2
Sort and merge two files with a condition 2
What is auditing? 2
DB2 Certification Guidelines 2
Define/Create VSAM-E file 2
ICETOOL & DFSORT 2
Computer based tutorial on IMS DB/DC 2
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
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
joins examples on multiple tables 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
SE37 space abend 1
Easytrieve Job Input statement query 1
Compare 2 files and write O/P accordingly 1
maxcc=1 1
equivalent file-manager command of file-aid command COPYBACK 1
Override 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
How to FTP a dataset from my mainframe to personal Folder 1
Pointers in Cobol 1
U4093 IMS Abend 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
Is it possible to get last modified date of PDS members... 1
Two files Matching Logic 1
Mainframe Jobs - Pune 1
Merging two files into one based on certain key fields: 1
how to describe a table in spufi 1
Difference between Ps and ESDS 1
Use of CHNG and PURGE ? 1
Endevor 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
How to Separate Odd or Even numbers using DFSORT 1
CICS Tutorial 1
S0C6 Abend while Opening a DB2 Cursor in a DB2-PLI Proram 1
SYSUDUMP and SYSABEND 1
Help required for a sort step. 1
Corresponding statement 1
What is length in sysin dd? 1
What is the difference between CS and RR isolation levels? 1
Tool to practice COBOL Programs 1
Question about Files matching logic 1
Using IDCAMs how to check whether file empty or not 1
CA-7 1
Moving cursor to next field in ISPF dialog 1
JCL to run the DB2 Query - IKJEFT01 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
Hai to All 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
How to convert a decimal valuie to hexadecimal using sort 1
Endevor tutorial 1
JCL Interpreter :?: 1
conversion by using SORT 1
EASYTRIEVE 1
How can you override/nullify Condition code (COND) in jcl? 1
need to check a GDG generation is present in catalog or not 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
Comparing Date with current date 1
SORT verb - help 1
Masking some fields in a dataset using JCL 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
IBM Mainframe certification courses and exam 1
How to use both lower and upper case letters in cobol? 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
Problems associated with each type of interview question 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
BMC Load REPLACE option 1
Intertest tool help 1
Mainframe Developer Requirement - Coimbatore 1
PACKMODE ON/OFF 1
What is use of redefine with real time example? 1
Compile error (Cobol using copy book) 1
Stop Run in both called and calling programs !!! 1
COBOL Program performance tuning tips 1
Man of the year 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
To get Volume Serial Number for Uncatalog Dataset 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
What is the difference between CANCEL and INITIAL statement 1
Help regarding Career in Vision Plus, Mainframe 1
S322 abend while sorting records 1
EZT+ Date manipulation - How do I subtract 30 days sysdate 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
File STatus 41 1
what is STOP RUN OR GOBACK OR EXIT PROGRAM 1
Restart logic (Checkpoint logic) 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
Dynamic name allocation to a file 1
What is the difference between Static and Dynamic Binding? 1
I am beginer in db2 , why r using bind ,plan & packge? 1
COBOL MOVE CORRESPONDING DOUBT 1
Delete a column from a file 1
DFSORT - JOINKEYS 1
File-Aid Batch accessing copybook 1
How to check the return code of PROC 1
Copy of Fixed Length file into Variable Length File 1
how to download table data with out extra ? for null values 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
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
CA-7 standby 1
HOW TO INCREASE DATASET SPACE 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
why include can't be used in procedure division? 1
What is DCLGEN ? 1
EDIT a STRING 1
Multiple Conditions to Copy a File 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
delete a record in ps file. 1
Getting Error while using ICEMAN tool 1
hai 1
How do you retrieve the data from a nullable column? 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
SORTCARD help 1
How to delete PDS member alone thru a jcl 1
link-edit error 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
Difference between internal sort and external sort 1
Need to check count of file records and abend if >10. 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
Z/OS Tape Backup

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


Joined: 11 Jan 2011
Posts: 13

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

PostPosted: Tue Jan 11, 2011 4:38 pm    Post subject: Z/OS Tape Backup Reply with quote

Everyone,

I could really really use some help with this tape
backup. I have included the JCL I am using to do this.
The DMQABKJ1 is the first one for backing up PDS's and
DMQABKJ2 is for backing up VSAM files. These members are
attached.
When I run the first job DMQABK1, I keep getting the
following error after file OUTDD18 is backed up. I also
deleted the COPY for all files prior to OUTDD18, thinking it
was the tape, but get the same error. Loaded a new tape,
created the VOL SER and labeled, per your instructions
and got the same results as before.
At this time, I am confused and not sure where to
turn with this, so I am reaching out for help. The
error is as follows:

IEC151I A13-10,IFG0195H,DMQABKUP,STEP2000,OUTDD22,0590,QADM01,ZOS111.QA.DM.TEST.CNTL
IEA995I SYMPTOM DUMP OUTPUT 674

I have looked up this error and that is the reason why
I used a different tape, but the same results. Any assistance
would be greatly appreciated and thanx in advance.
I am using IEBCOPY for the PDS's and IDCAMS - REPRO
for the VSAM files and associated Indexes. Is there one
utility that I can use for BACKUP & RESTORE of PDS libraries
and VSAM files/indexes.
Thanx in advance.

============
To the World, You may be one person.
But to one person, You may be the World!

Jerry Ball
Back to top
View user's profile Send private message Send e-mail AIM Address Yahoo Messenger
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

Anuj Dhawan
Moderator


Joined: 09 Aug 2008
Posts: 1631
Location: Mumbai, India

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

PostPosted: Tue Jan 11, 2011 7:20 pm    Post subject: Reply with quote

Quote:
Loaded a new tape,
created the VOL SER and labeled, per your instructions
and got the same results as before.
Who is "your" here?


Please post the JCL you have used.
_________________
Regards,
Anuj
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.
ballj35
Member


Joined: 11 Jan 2011
Posts: 13

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

PostPosted: Tue Jan 11, 2011 7:27 pm    Post subject: Reply with quote

//DMQABKJ1 JOB CLASS=A,MSGCLASS=A,REGION=32M, 00010013
// MSGLEVEL=(1,1),NOTIFY=&SYSUID 00011012
//* 00020000
//* BACKUP ALL PRODUCT SOURCE PDS(S) ON ZOS111 00030000
//* THIS BACKUP JOB MUST BE KEPT IN SYNC WITH THE RESTORE JOB 00040000
//* NOTE: I COULD NOT GET PDSE'S TO WORK... 00050000
//* 00060000
//* COPY DATASETS FOR THE FOLLOWING PRODUCTS 00070000
//* 00080000
//* DATAMINER 7.1B 00090000
//* 7.1C 00100000
//* 7.1CR1 00110000
//* DATAMINER QA TEST FILES 00120000
//* DATAMINER QA APPLICATION FILES 00130000
//* 00140000
//STEP1000 EXEC PGM=IEFBR14 00160000
//DELDD DD DSN=QA.DM.TEST.DMQABKJ1, 00170013
// SPACE=(TRK,(5,1),RLSE), 00180000
// DISP=(MOD,DELETE,DELETE) 00190000
//* 00200000
//STEP2000 EXEC PGM=IEBCOPY 00210000
//* 00220000
//* INPUT DATASETS 00230000
//* 00240000
//* DATAMINER 7.1B 00250000
//* 00260000
//INDD1 DD DSN=DATAMINE.V71B.INSTALL.DBRMLIB,DISP=SHR 00270000
//INDD2 DD DSN=DATAMINE.V71B.INSTALL.LOADLIB,DISP=SHR 00280000
//INDD3 DD DSN=DATAMINE.V71B.INSTALL.MESSAGE,DISP=SHR 00290000
//INDD4 DD DSN=DATAMINE.V71B.INSTALL.OBJLIB,DISP=SHR 00300000
//INDD5 DD DSN=DATAMINE.V71B.INSTALL.PANELS,DISP=SHR 00310000
//INDD6 DD DSN=DATAMINE.V71B.INSTALL.SOURCE,DISP=SHR 00320000
//* 00330000
//* DATAMINER 7.1C 00340000
//* 00350000
//INDD7 DD DSN=DATAMINE.V71C.INSTALL.DBRMLIB,DISP=SHR 00360000
//INDD8 DD DSN=DATAMINE.V71C.INSTALL.LOADLIB,DISP=SHR 00370000
//INDD9 DD DSN=DATAMINE.V71C.INSTALL.MESSAGE,DISP=SHR 00380000
//INDD10 DD DSN=DATAMINE.V71C.INSTALL.OBJLIB,DISP=SHR 00390000
//INDD11 DD DSN=DATAMINE.V71C.INSTALL.PANELS,DISP=SHR 00400000
//INDD12 DD DSN=DATAMINE.V71C.INSTALL.SOURCE,DISP=SHR 00410000
//* 00420000
//* DATAMINER 7.1CR1 00430000
//* 00440000
//INDD13 DD DSN=DATAMINE.V71CR1.INSTALL.DBRMLIB,DISP=SHR 00450000
//INDD14 DD DSN=DATAMINE.V71CR1.INSTALL.LOADLIB,DISP=SHR 00460000
//INDD15 DD DSN=DATAMINE.V71CR1.INSTALL.MESSAGE,DISP=SHR 00470000
//INDD16 DD DSN=DATAMINE.V71CR1.INSTALL.OBJLIB,DISP=SHR 00480000
//INDD17 DD DSN=DATAMINE.V71CR1.INSTALL.PANELS,DISP=SHR 00490000
//INDD18 DD DSN=DATAMINE.V71CR1.INSTALL.SOURCE,DISP=SHR 00500000
//************** 00500106
//* DATAMINER QA PDS MEMBERS 00505013
//* 00506006
//* COBOL, EZT & DM PROCS/SYSIN, APPLICATION LIBRARIES 00507006
//* JCL, SOURCE, SPUFI & SYSIN CARDS 00508006
//************** 00508113
//INDD19 DD DSN=QA.DM.TEST.CNTL,DISP=SHR 00509113
//INDD20 DD DSN=QA.DM.TEST.COBOL,DISP=SHR 00509213
//INDD21 DD DSN=QA.DM.TEST.CONTROL,DISP=SHR 00509313
//INDD22 DD DSN=QA.DM.TEST.COPYBOOK,DISP=SHR 00509413
//INDD23 DD DSN=QA.DM.TEST.EZ.PROCLIB,DISP=SHR 00509513
//INDD24 DD DSN=QA.DM.TEST.EZ.SYSIN,DISP=SHR 00509613
//INDD25 DD DSN=QA.DM.TEST.EZ.SYSIN1,DISP=SHR 00509713
//INDD26 DD DSN=QA.DM.TEST.LOADLIB,DISP=SHR 00509813
//INDD27 DD DSN=QA.DM.TEST.OBJ,DISP=SHR 00509913
//INDD28 DD DSN=QA.DM.TEST.PROCLIB,DISP=SHR 00510013
//INDD29 DD DSN=QA.DM.TEST.PROCLIB1,DISP=SHR 00510113
//INDD30 DD DSN=QA.DM.TEST.RUNJCL,DISP=SHR 00510213
//INDD31 DD DSN=QA.DM.TEST.SOURCE,DISP=SHR 00510313
//INDD32 DD DSN=QA.DM.TEST.SOURCE1,DISP=SHR 00510413
//INDD33 DD DSN=QA.DM.TEST.SPUFI,DISP=SHR 00510513
//INDD34 DD DSN=QA.DM.TEST.SYSIN,DISP=SHR 00510613
//INDD35 DD DSN=QA.DM.TEST.V71B.SYSIN,DISP=SHR 00510713
//INDD36 DD DSN=QA.DM.TEST.V71C.SYSIN,DISP=SHR 00510813
//* 01300000
//* OUTPUT DATASETS 01340000
//* 01350000
//* DATAMINER 7.1B 01360000
//* 01370000
//OUTDD1 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.DBRMLIB, 01380000
// DISP=(,KEEP), 01381000
// UNIT=590,LABEL=(1,SL), 01390000
// VOL=(,RETAIN,SER=QADM01) 01400002
//OUTDD2 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.LOADLIB, 01410000
// DISP=(,KEEP), 01411000
// UNIT=AFF=OUTDD1,LABEL=(2,SL), 01420000
// VOL=(,RETAIN,REF=*.OUTDD1) 01430000
//OUTDD3 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.MESSAGE, 01440000
// DISP=(,KEEP), 01441000
// UNIT=AFF=OUTDD1,LABEL=(3,SL), 01450000
// VOL=(,RETAIN,REF=*.OUTDD1) 01460000
//OUTDD4 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.OBJLIB, 01470000
// DISP=(,KEEP), 01471000
// UNIT=AFF=OUTDD1,LABEL=(4,SL), 01480000
// VOL=(,RETAIN,REF=*.OUTDD1) 01490000
//OUTDD5 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.PANELS, 01500000
// DISP=(,KEEP), 01501000
// UNIT=AFF=OUTDD1,LABEL=(5,SL), 01510000
// VOL=(,RETAIN,REF=*.OUTDD1) 01520000
//OUTDD6 DD DSN=ZOS111.DATAMINE.V71B.INSTALL.SOURCE, 01530000
// DISP=(,KEEP), 01531000
// UNIT=AFF=OUTDD1,LABEL=(6,SL), 01540000
// VOL=(,RETAIN,REF=*.OUTDD1) 01550000
//* 01560000
//* DATAMINER 7.1C 01570000
//* 01580000
//OUTDD7 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.DBRMLIB,DISP=(,KEEP), 01590000
// UNIT=590,LABEL=(7,SL), 01600000
// VOL=(,RETAIN,REF=*.OUTDD1) 01610002
//OUTDD8 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.LOADLIB,DISP=(,KEEP), 01620000
// UNIT=AFF=OUTDD1,LABEL=(8,SL), 01630000
// VOL=(,RETAIN,REF=*.OUTDD1) 01640000
//OUTDD9 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.MESSAGE,DISP=(,KEEP), 01650000
// UNIT=AFF=OUTDD1,LABEL=(9,SL), 01660000
// VOL=(,RETAIN,REF=*.OUTDD1) 01670000
//OUTDD10 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.OBJLIB,DISP=(,KEEP), 01680000
// UNIT=AFF=OUTDD1,LABEL=(10,SL), 01690000
// VOL=(,RETAIN,REF=*.OUTDD1) 01700000
//OUTDD11 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.PANELS,DISP=(,KEEP), 01710000
// UNIT=AFF=OUTDD1,LABEL=(11,SL), 01720000
// VOL=(,RETAIN,REF=*.OUTDD1) 01730000
//OUTDD12 DD DSN=ZOS111.DATAMINE.V71C.INSTALL.SOURCE,DISP=(,KEEP), 01740000
// UNIT=AFF=OUTDD1,LABEL=(12,SL), 01750000
// VOL=(,RETAIN,REF=*.OUTDD1) 01760000
//* 01770000
//* DATAMINER 7.1CR1 01780000
//* 01790000
//OUTDD13 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.DBRMLIB, 01800000
// DISP=(,KEEP), 01801000
// UNIT=590,LABEL=(13,SL), 01810000
// VOL=(,RETAIN,REF=*.OUTDD1) 01820002
//OUTDD14 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.LOADLIB, 01830000
// DISP=(,KEEP), 01831000
// UNIT=AFF=OUTDD1,LABEL=(14,SL), 01840000
// VOL=(,RETAIN,REF=*.OUTDD1) 01850000
//OUTDD15 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.MESSAGE, 01860000
// DISP=(,KEEP), 01861000
// UNIT=AFF=OUTDD1,LABEL=(15,SL), 01870000
// VOL=(,RETAIN,REF=*.OUTDD1) 01880000
//OUTDD16 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.OBJLIB, 01890000
// DISP=(,KEEP), 01891000
// UNIT=AFF=OUTDD1,LABEL=(16,SL), 01900000
// VOL=(,RETAIN,REF=*.OUTDD1) 01910000
//OUTDD17 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.PANELS, 01920000
// DISP=(,KEEP), 01921000
// UNIT=AFF=OUTDD1,LABEL=(17,SL), 01930000
// VOL=(,RETAIN,REF=*.OUTDD1) 01940000
//OUTDD18 DD DSN=ZOS111.DATAMINE.V71CR1.INSTALL.SOURCE, 01950000
// DISP=(,KEEP), 01951000
// UNIT=AFF=OUTDD1,LABEL=(18,SL), 01960000
// VOL=(,RETAIN,REF=*.OUTDD1) 01970000
//* 01980000
//* DATAMINER QA PDS MEMBERS 02006113
//* 02006207
//* COBOL, EZT & DM PROCS/SYSIN, APPLICATION LIBRARIES 02006307
//* JCL, SOURCE, SPUFI & SYSIN CARDS 02006407
//* 02006507
//OUTDD19 DD DSN=ZOS111.QA.DM.TEST.CNTL,DISP=(,KEEP), 02006613
// UNIT=AFF=OUTDD1,LABEL=(19,SL), 02006713
// VOL=(,RETAIN,REF=*.OUTDD1) 02006809
//OUTDD20 DD DSN=ZOS111.QA.DM.TEST.COBOL,DISP=(,KEEP), 02006913
// UNIT=AFF=OUTDD1,LABEL=(20,SL), 02007013
// VOL=(,RETAIN,REF=*.OUTDD1) 02007107
//OUTDD21 DD DSN=ZOS111.QA.DM.TEST.CONTROL,DISP=(,KEEP), 02007213
// UNIT=AFF=OUTDD1,LABEL=(21,SL), 02007313
// VOL=(,RETAIN,REF=*.OUTDD1) 02007407
//OUTDD22 DD DSN=ZOS111.QA.DM.TEST.COPYBOOK,DISP=(,KEEP), 02007513
// UNIT=AFF=OUTDD1,LABEL=(22,SL), 02007613
// VOL=(,RETAIN,REF=*.OUTDD1) 02007707
//OUTDD23 DD DSN=ZOS111.QA.DM.TEST.EZ.PROCLIB,DISP=(,KEEP), 02007813
// UNIT=AFF=OUTDD1,LABEL=(23,SL), 02007913
// VOL=(,RETAIN,REF=*.OUTDD1) 02008007
//OUTDD24 DD DSN=ZOS111.QA.DM.TEST.EZ.SYSIN,DISP=(,KEEP), 02008113
// UNIT=AFF=OUTDD1,LABEL=(24,SL), 02008213
// VOL=(,RETAIN,REF=*.OUTDD1) 02008307
//OUTDD25 DD DSN=ZOS111.QA.DM.TEST.EZ.SYSIN1,DISP=(,KEEP), 02008413
// UNIT=AFF=OUTDD1,LABEL=(25,SL), 02008513
// VOL=(,RETAIN,REF=*.OUTDD1) 02008613
//OUTDD26 DD DSN=ZOS111.QA.DM.TEST.LOADLIB,DISP=(,KEEP), 02008713
// UNIT=AFF=OUTDD1,LABEL=(26,SL), 02008813
// VOL=(,RETAIN,REF=*.OUTDD1) 02008907
//OUTDD27 DD DSN=ZOS111.QA.DM.TEST.OBJ,DISP=(,KEEP), 02009013
// UNIT=AFF=OUTDD1,LABEL=(27,SL), 02009113
// VOL=(,RETAIN,REF=*.OUTDD1) 02009207
//OUTDD28 DD DSN=ZOS111.QA.DM.TEST.PROCLIB,DISP=(,KEEP), 02009313
// UNIT=AFF=OUTDD1,LABEL=(28,SL), 02009413
// VOL=(,RETAIN,REF=*.OUTDD1) 02009507
//OUTDD29 DD DSN=ZOS111.QA.DM.TEST.PROCLIB1,DISP=(,KEEP), 02009613
// UNIT=AFF=OUTDD1,LABEL=(29,SL), 02009713
// VOL=(,RETAIN,REF=*.OUTDD1) 02009807
//OUTDD30 DD DSN=ZOS111.QA.DM.TEST.RUNJCL,DISP=(,KEEP), 02009913
// UNIT=AFF=OUTDD1,LABEL=(30,SL), 02010013
// VOL=(,RETAIN,REF=*.OUTDD1) 02010107
//OUTDD31 DD DSN=ZOS111.QA.DM.TEST.SOURCE,DISP=(,KEEP), 02010213
// UNIT=AFF=OUTDD1,LABEL=(31,SL), 02010313
// VOL=(,RETAIN,REF=*.OUTDD1) 02010407
//OUTDD32 DD DSN=ZOS111.QA.DM.TEST.SOURCE1,DISP=(,KEEP), 02010513
// UNIT=AFF=OUTDD1,LABEL=(32,SL), 02010613
// VOL=(,RETAIN,REF=*.OUTDD1) 02010707
//OUTDD33 DD DSN=ZOS111.QA.DM.TEST.SPUFI,DISP=(,KEEP), 02010813
// UNIT=AFF=OUTDD1,LABEL=(33,SL), 02010913
// VOL=(,RETAIN,REF=*.OUTDD1) 02011007
//OUTDD34 DD DSN=ZOS111.QA.DM.TEST.SYSIN,DISP=(,KEEP), 02011113
// UNIT=AFF=OUTDD1,LABEL=(34,SL), 02011213
// VOL=(,RETAIN,REF=*.OUTDD1) 02011307
//OUTDD35 DD DSN=ZOS111.QA.DM.TEST.V71B.SYSIN,DISP=(,KEEP), 02011413
// UNIT=AFF=OUTDD1,LABEL=(35,SL), 02011513
// VOL=(,RETAIN,REF=*.OUTDD1) 02011607
//OUTDD36 DD DSN=ZOS111.QA.DM.TEST.V71C.SYSIN,DISP=(,KEEP), 02011713
// UNIT=AFF=OUTDD1,LABEL=(36,SL), 02011813
// VOL=(,RETAIN,REF=*.OUTDD1) 02011907
//* 04340000
//SYSPRINT DD DSN=QA.DM.TEST.DMQABKJ1, 04350013
// DISP=(NEW,CATLG,DELETE), 04360000
// SPACE=(TRK,(5,1),RLSE), 04370000
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133) 04380000
//* 04390000
//SYSIN DD * 04430000
COPY INDD=((INDD1,R)),OUTDD=OUTDD1 04440000
COPY INDD=((INDD2,R)),OUTDD=OUTDD2 04450000
COPY INDD=((INDD3,R)),OUTDD=OUTDD3 04460000
COPY INDD=((INDD4,R)),OUTDD=OUTDD4 04470000
COPY INDD=((INDD5,R)),OUTDD=OUTDD5 04480000
COPY INDD=((INDD6,R)),OUTDD=OUTDD6 04490000
COPY INDD=((INDD7,R)),OUTDD=OUTDD7 04500000
COPY INDD=((INDD8,R)),OUTDD=OUTDD8 04510000
COPY INDD=((INDD9,R)),OUTDD=OUTDD9 04520000
COPY INDD=((INDD10,R)),OUTDD=OUTDD10 04530000
COPY INDD=((INDD11,R)),OUTDD=OUTDD11 04540000
COPY INDD=((INDD12,R)),OUTDD=OUTDD12 04550000
COPY INDD=((INDD13,R)),OUTDD=OUTDD13 04560000
COPY INDD=((INDD14,R)),OUTDD=OUTDD14 04570000
COPY INDD=((INDD15,R)),OUTDD=OUTDD15 04580000
COPY INDD=((INDD16,R)),OUTDD=OUTDD16 04590000
COPY INDD=((INDD17,R)),OUTDD=OUTDD17 04600000
COPY INDD=((INDD18,R)),OUTDD=OUTDD18 04610000
COPY INDD=((INDD19,R)),OUTDD=OUTDD19 04620013
COPY INDD=((INDD20,R)),OUTDD=OUTDD20 04630013
COPY INDD=((INDD21,R)),OUTDD=OUTDD21 04640000
COPY INDD=((INDD22,R)),OUTDD=OUTDD22 04650009
COPY INDD=((INDD23,R)),OUTDD=OUTDD23 04660000
COPY INDD=((INDD24,R)),OUTDD=OUTDD24 04670000
COPY INDD=((INDD25,R)),OUTDD=OUTDD25 04680000
COPY INDD=((INDD26,R)),OUTDD=OUTDD26 04690000
COPY INDD=((INDD27,R)),OUTDD=OUTDD27 04700000
COPY INDD=((INDD28,R)),OUTDD=OUTDD28 04710000
COPY INDD=((INDD29,R)),OUTDD=OUTDD29 04720000
COPY INDD=((INDD30,R)),OUTDD=OUTDD30 04730000
COPY INDD=((INDD31,R)),OUTDD=OUTDD31 04740000
COPY INDD=((INDD32,R)),OUTDD=OUTDD32 04750000
COPY INDD=((INDD33,R)),OUTDD=OUTDD33 04760000
COPY INDD=((INDD34,R)),OUTDD=OUTDD34 04770000
COPY INDD=((INDD35,R)),OUTDD=OUTDD35 04780000
COPY INDD=((INDD36,R)),OUTDD=OUTDD36 04790000
/* 05340012
// 05350000
*********************************************
*********************************************
*********************************************
//DMQABKJ2 JOB CLASS=A,MSGCLASS=A,REGION=32M, 00000101
// MSGLEVEL=(1,1),NOTIFY=&SYSUID,TYPRUN=SCAN 00000202
//* 00020000
//* BACKUP ALL QA ENVIRONMENT DATA FILES FROM 00030001
//* THIS BACKUP JOB MUST BE KEPT IN SYNC WITHRESTORE JOB 00040001
//* NOTE: I COULD NOT GET PDSE'S TO WORK... 00050000
//* 00060000
//* COPY DATASETS FOR THE FOLLOWING PRODUCTS 00070000
//* DATAMINER QA TEST FILES 00120000
//* DATAMINER QA APPLICATION FILES 00130000
//* 00140000
//STEP1000 EXEC PGM=IEFBR14 00160000
//DELDD DD DSN=QA.DM.TEST.DMQABKJ2, 00170003
// SPACE=(TRK,(5,1),RLSE), 00180003
// DISP=(MOD,DELETE,DELETE) 00190000
//* 00200000
//STEP2000 EXEC PGM=IDCAMS 00211000
//* 00220000
//* INPUT DATASETS 00230000
//* DATAMINER QA TEST FILES 00520003
//* 00530000
//INDD39 DD DSN=QA.DM.TEST.ACCOUNT,DISP=SHR 00540000
//INDD40 DD DSN=QA.DM.TEST.ACCT.BASE.DATA.IDX,DISP=SHR 00543000
//INDD41 DD DSN=QA.DM.TEST.ACCT.BASE.DATA.DAT,DISP=SHR 00560000
//INDD42 DD DSN=QA.DM.TEST.ACCT.BASE.DATA,DISP=SHR 00570000
//INDD43 DD DSN=QA.DM.TEST.BILL.BASE.DATA.IDX,DISP=SHR 00573000
//INDD44 DD DSN=QA.DM.TEST.BILL.BASE.DATA.DAT,DISP=SHR 00590000
//INDD45 DD DSN=QA.DM.TEST.BILL.BASE.DATA,DISP=SHR 00600000
//INDD46 DD DSN=QA.DM.TEST.BILLING.DATA.IDX,DISP=SHR 00603000
//INDD47 DD DSN=QA.DM.TEST.BILLING.DATA.DAT,DISP=SHR 00620000
//INDD48 DD DSN=QA.DM.TEST.BILLING.DATA,DISP=SHR 00630000
//INDD49 DD DSN=QA.DM.TEST.DEPT.DATA.IDX,DISP=SHR 00642000
//INDD50 DD DSN=QA.DM.TEST.DEPT.DATA.DAT,DISP=SHR 00660000
//INDD51 DD DSN=QA.DM.TEST.DEPT.DATA,DISP=SHR 00670000
//INDD52 DD DSN=QA.DM.TEST.DEPTCDE.DATA.DATA,DISP=SHR 00682000
//INDD53 DD DSN=QA.DM.TEST.DEPTCDE.DATA,DISP=SHR 00690000
//INDD54 DD DSN=QA.DM.TEST.EMPLTABL.DATA.IDX,DISP=SHR 00703000
//INDD55 DD DSN=QA.DM.TEST.EMPLTABL.DATA.DAT,DISP=SHR 00720000
//INDD56 DD DSN=QA.DM.TEST.EMPLTABL.DATA,DISP=SHR 00730000
//INDD57 DD DSN=QA.DM.TEST.INVMSTR.DATA.DATA,DISP=SHR 00750000
//INDD58 DD DSN=QA.DM.TEST.INVMSTR.DATA,DISP=SHR 00750100
//INDD59 DD DSN=QA.DM.TEST.PERSINPF.DATA.IDX,DISP=SHR 00753000
//INDD60 DD DSN=QA.DM.TEST.PERSINPF.DATA.DAT,DISP=SHR 00770000
//INDD61 DD DSN=QA.DM.TEST.PERSINPF.DATA,DISP=SHR 00780000
//INDD62 DD DSN=QA.DM.TEST.PERSNL.DATA.DATA,DISP=SHR 00800000
//INDD63 DD DSN=QA.DM.TEST.PERSNL.DATA,DISP=SHR 00800100
//INDD64 DD DSN=QA.DM.TEST.PERSNL.DATA1.IDX,DISP=SHR 00803000
//INDD65 DD DSN=QA.DM.TEST.PERSNL.DATA1.DAT,DISP=SHR 00820000
//INDD66 DD DSN=QA.DM.TEST.PERSNL.DATA1,DISP=SHR 00830000
//INDD67 DD DSN=QA.DM.TEST.PROD.BASE.DATA.IDX,DISP=SHR 00842000
//INDD68 DD DSN=QA.DM.TEST.PROD.BASE.DATA.DAT,DISP=SHR 00860000
//INDD69 DD DSN=QA.DM.TEST.PROD.BASE.DATA,DISP=SHR 00870000
//INDD70 DD DSN=QA.DM.TEST.PRODDTL.BASE.DATA.IDX,DISP=SHR 00873000
//INDD71 DD DSN=QA.DM.TEST.PRODDTL.BASE.DATA.DAT,DISP=SHR 00890000
//INDD72 DD DSN=QA.DM.TEST.PRODDTL.BASE.DATA,DISP=SHR 00900000
//INDD73 DD DSN=QA.DM.TEST.PRODDTL.DATA.IDX,DISP=SHR 00903000
//INDD74 DD DSN=QA.DM.TEST.PRODDTL.DATA.DAT,DISP=SHR 00920000
//INDD75 DD DSN=QA.DM.TEST.PRODDTL.DATA,DISP=SHR 00930000
//INDD76 DD DSN=QA.DM.TEST.PRODUCT.DATA.IDX,DISP=SHR 00933000
//INDD77 DD DSN=QA.DM.TEST.PRODUCT.DATA.DAT,DISP=SHR 00950000
//INDD78 DD DSN=QA.DM.TEST.PRODUCT.DATA,DISP=SHR 00960000
//INDD79 DD DSN=QA.DM.TEST.SALE.WR.DATA.IDX,DISP=SHR 00963000
//INDD80 DD DSN=QA.DM.TEST.SALE.WR.DATA.DAT,DISP=SHR 00980000
//INDD81 DD DSN=QA.DM.TEST.SALE.WR.DATA,DISP=SHR 00990000
//INDD82 DD DSN=QA.DM.TEST.SALEDATA.BASE.DATA.INDEX,DISP=SHR 00993000
//INDD83 DD DSN=QA.DM.TEST.SALEDATA.BASE.DATA.DATA,DISP=SHR 01010000
//INDD84 DD DSN=QA.DM.TEST.SALEDATA.BASE.DATA,DISP=SHR 01020000
//INDD85 DD DSN=QA.DM.TEST.SALEDATA.DATA.IDX,DISP=SHR 01023000
//INDD86 DD DSN=QA.DM.TEST.SALEDATA.DATA.DAT,DISP=SHR 01040000
//INDD87 DD DSN=QA.DM.TEST.SALEDATA.DATA,DISP=SHR 01060000
//INDD88 DD DSN=QA.DM.TEST.PERSOUTF.DATA,DISP=SHR 01070000
//* 01300000
//* OUTPUT DATASETS 01340000
//* 01350000
//OUTDD39 DD DSN=ZOS111.QA.DM.TEST.ACCOUNT,DISP=(,KEEP), 02013000
// UNIT=590,LABEL=(39,SL), 02014000
// VOL=(,RETAIN,SER=QADM01) 02021000
//OUTDD40 DD DSN=ZOS111.QA.DM.TEST.ACCT.BASE.DATA.IDX,DISP=(,KEEP), 02039100
// UNIT=AFF=OUTDD1,LABEL=(40,SL), 02039200
// VOL=(,RETAIN,REF=*.OUTDD39) 02039300
//OUTDD41 DD DSN=ZOS111.QA.DM.TEST.ACCT.BASE.DATA.DAT,DISP=(,KEEP), 02039400
// UNIT=AFF=OUTDD1,LABEL=(41,SL), 02039500
// VOL=(,RETAIN,REF=*.OUTDD39) 02039600
//OUTDD42 DD DSN=ZOS111.QA.DM.TEST.ACCT.BASE.DATA,DISP=(,KEEP), 02040000
// UNIT=AFF=OUTDD1,LABEL=(42,SL), 02050000
// VOL=(,RETAIN,REF=*.OUTDD39) 02060000
//OUTDD43 DD DSN=ZOS111.QA.DM.TEST.BILL.BASE.DATA.IDX,DISP=(,KEEP), 02190000
// UNIT=AFF=OUTDD1,LABEL=(43,SL), 02200000
// VOL=(,RETAIN,REF=*.OUTDD39) 02210000
//OUTDD44 DD DSN=ZOS111.QA.DM.TEST.BILL.BASE.DATA.DAT,DISP=(,KEEP), 02210100
// UNIT=AFF=OUTDD1,LABEL=(44,SL), 02210200
// VOL=(,RETAIN,REF=*.OUTDD39) 02210300
//OUTDD45 DD DSN=ZOS111.QA.DM.TEST.BILL.BASE.DATA,DISP=(,KEEP), 02210400
// UNIT=AFF=OUTDD1,LABEL=(45,SL), 02210500
// VOL=(,RETAIN,REF=*.OUTDD39) 02210600
//OUTDD46 DD DSN=ZOS111.QA.DM.TEST.BILLING.DATA.IDX,DISP=(,KEEP), 02213000
// UNIT=AFF=OUTDD1,LABEL=(46,SL), 02214000
// VOL=(,RETAIN,REF=*.OUTDD39) 02215000
//OUTDD47 DD DSN=ZOS111.QA.DM.TEST.BILLING.DATA.DAT,DISP=(,KEEP), 02250000
// UNIT=AFF=OUTDD1,LABEL=(47,SL), 02260000
// VOL=(,RETAIN,REF=*.OUTDD39) 02270000
//OUTDD48 DD DSN=ZOS111.QA.DM.TEST.BILLING.DATA,DISP=(,KEEP), 02280000
// UNIT=AFF=OUTDD1,LABEL=(48,SL), 02290000
// VOL=(,RETAIN,REF=*.OUTDD39) 02300000
//OUTDD49 DD DSN=ZOS111.QA.DM.TEST.DEPT.DATA.IDX,DISP=(,KEEP), 02330000
// UNIT=AFF=OUTDD1,LABEL=(49,SL), 02331000
// VOL=(,RETAIN,REF=*.OUTDD39) 02332000
//OUTDD50 DD DSN=ZOS111.QA.DM.TEST.DEPT.DATA.DAT,DISP=(,KEEP), 02370000
// UNIT=AFF=OUTDD1,LABEL=(50,SL), 02380000
// VOL=(,RETAIN,REF=*.OUTDD39) 02390000
//OUTDD51 DD DSN=ZOS111.QA.DM.TEST.DEPT.DATA,DISP=(,KEEP), 02400000
// UNIT=AFF=OUTDD1,LABEL=(51,SL), 02410000
// VOL=(,RETAIN,REF=*.OUTDD39) 02420000
//OUTDD52 DD DSN=ZOS111.QA.DM.TEST.DEPTCDE.DATA.DATA,DISP=(,KEEP), 02450000
// UNIT=AFF=OUTDD1,LABEL=(52,SL), 02451000
// VOL=(,RETAIN,REF=*.OUTDD39) 02452000
//OUTDD53 DD DSN=ZOS111.QA.DM.TEST.DEPTCDE.DATA,DISP=(,KEEP), 02460000
// UNIT=AFF=OUTDD1,LABEL=(53,SL), 02470000
// VOL=(,RETAIN,REF=*.OUTDD39) 02480000
//OUTDD54 DD DSN=ZOS111.QA.DM.TEST.EMPLTABL.DATA.IDX,DISP=(,KEEP), 02513000
// UNIT=AFF=OUTDD1,LABEL=(54,SL), 02514000
// VOL=(,RETAIN,REF=*.OUTDD39) 02515000
//OUTDD55 DD DSN=ZOS111.QA.DM.TEST.EMPLTABL.DATA.DAT,DISP=(,KEEP), 02550000
// UNIT=AFF=OUTDD1,LABEL=(55,SL), 02560000
// VOL=(,RETAIN,REF=*.OUTDD39) 02570000
//OUTDD56 DD DSN=ZOS111.QA.DM.TEST.EMPLTABL.DATA,DISP=(,KEEP), 02580000
// UNIT=AFF=OUTDD1,LABEL=(56,SL), 02590000
// VOL=(,RETAIN,REF=*.OUTDD39) 02600000
//OUTDD57 DD DSN=ZOS111.QA.DM.TEST.INVMSTR.DATA.DATA, 02650000
// DISP=(,KEEP), 02660000
// UNIT=AFF=OUTDD1,LABEL=(57,SL), 02670000
// VOL=(,RETAIN,REF=*.OUTDD39) 02680000
//OUTDD58 DD DSN=ZOS111.QA.DM.TEST.INVMSTR.DATA, 02680100
// DISP=(,KEEP), 02680200
// UNIT=AFF=OUTDD1,LABEL=(58,SL), 02680300
// VOL=(,RETAIN,REF=*.OUTDD39) 02680400
//OUTDD59 DD DSN=ZOS111.QA.DM.TEST.PERSINPF.DATA.IDX, 02683000
// DISP=(,KEEP), 02684000
// UNIT=AFF=OUTDD1,LABEL=(59,SL), 02685000
// VOL=(,RETAIN,REF=*.OUTDD39) 02686000
//OUTDD60 DD DSN=ZOS111.QA.DM.TEST.PERSINPF.DATA.DAT, 02730000
// DISP=(,KEEP), 02740000
// UNIT=AFF=OUTDD1,LABEL=(60,SL), 02750000
// VOL=(,RETAIN,REF=*.OUTDD39) 02760000
//OUTDD61 DD DSN=ZOS111.QA.DM.TEST.PERSINPF.DATA, 02800100
// DISP=(,KEEP), 02800200
// UNIT=AFF=OUTDD1,LABEL=(61,SL), 02800300
// VOL=(,RETAIN,REF=*.OUTDD39) 02800400
//OUTDD62 DD DSN=ZOS111.QA.DM.TEST.PERSNL.DATA.DATA, 02803000
// DISP=(,KEEP), 02804000
// UNIT=AFF=OUTDD1,LABEL=(62,SL), 02805000
// VOL=(,RETAIN,REF=*.OUTDD39) 02806000
//OUTDD63 DD DSN=ZOS111.QA.DM.TEST.PERSNL.DATA, 02810000
// DISP=(,KEEP), 02820000
// UNIT=AFF=OUTDD1,LABEL=(63,SL), 02830000
// VOL=(,RETAIN,REF=*.OUTDD39) 02840000
//OUTDD64 DD DSN=ZOS111.QA.DM.TEST.PERSNL.DATA1.IDX, 02883000
// DISP=(,KEEP), 02884000
// UNIT=AFF=OUTDD1,LABEL=(64,SL), 02885000
// VOL=(,RETAIN,REF=*.OUTDD39) 02886000
//OUTDD65 DD DSN=ZOS111.QA.DM.TEST.PERSNL.DATA1.DAT, 02930000
// DISP=(,KEEP), 02940000
// UNIT=AFF=OUTDD1,LABEL=(65,SL), 02950000
// VOL=(,RETAIN,REF=*.OUTDD39) 02960000
//OUTDD66 DD DSN=ZOS111.QA.DM.TEST.PERSNL.DATA1, 02970000
// DISP=(,KEEP), 02980000
// UNIT=AFF=OUTDD1,LABEL=(66,SL), 02990000
// VOL=(,RETAIN,REF=*.OUTDD39) 03000000
//OUTDD67 DD DSN=ZOS111.QA.DM.TEST.PROD.BASE.DATA.IDX,DISP=(,KEEP), 03030000
// UNIT=AFF=OUTDD1,LABEL=(67,SL), 03040000
// VOL=(,RETAIN,REF=*.OUTDD39) 03041000
//OUTDD68 DD DSN=ZOS111.QA.DM.TEST.PROD.BASE.DATA.DAT,DISP=(,KEEP), 03080000
// UNIT=AFF=OUTDD1,LABEL=(68,SL), 03090000
// VOL=(,RETAIN,REF=*.OUTDD39) 03100000
//OUTDD69 DD DSN=ZOS111.QA.DM.TEST.PROD.BASE.DATA,DISP=(,KEEP), 03110000
// UNIT=AFF=OUTDD1,LABEL=(69,SL), 03120000
// VOL=(,RETAIN,REF=*.OUTDD39) 03130000
//OUTDD70 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.BASE.DATA.IDX, 03133000
// DISP=(,KEEP), 03134000
// UNIT=AFF=OUTDD1,LABEL=(70,SL), 03135000
// VOL=(,RETAIN,REF=*.OUTDD39) 03136000
//OUTDD71 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.BASE.DATA.DAT, 03170000
// DISP=(,KEEP), 03171000
// UNIT=AFF=OUTDD1,LABEL=(71,SL), 03180000
// VOL=(,RETAIN,REF=*.OUTDD39) 03190000
//OUTDD72 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.BASE.DATA,DISP=(,KEEP), 03200000
// UNIT=AFF=OUTDD1,LABEL=(72,SL), 03210000
// VOL=(,RETAIN,REF=*.OUTDD39) 03220000
//OUTDD73 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.DATA.IDX,DISP=(,KEEP), 03223000
// UNIT=AFF=OUTDD1,LABEL=(73,SL), 03224000
// VOL=(,RETAIN,REF=*.OUTDD39) 03225000
//OUTDD74 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.DATA.DAT,DISP=(,KEEP), 03260000
// UNIT=AFF=OUTDD1,LABEL=(74,SL), 03270000
// VOL=(,RETAIN,REF=*.OUTDD39) 03280000
//OUTDD75 DD DSN=ZOS111.QA.DM.TEST.PRODDTL.DATA,DISP=(,KEEP), 03290000
// UNIT=AFF=OUTDD1,LABEL=(75,SL), 03300000
// VOL=(,RETAIN,REF=*.OUTDD39) 03310000
//OUTDD76 DD DSN=ZOS111.QA.DM.TEST.PRODUCT.DATA.IDX,DISP=(,KEEP), 03313000
// UNIT=AFF=OUTDD1,LABEL=(76,SL), 03314000
// VOL=(,RETAIN,REF=*.OUTDD39) 03315000
//OUTDD77 DD DSN=ZOS111.QA.DM.TEST.PRODUCT.DATA.DAT,DISP=(,KEEP), 03350000
// UNIT=AFF=OUTDD1,LABEL=(77,SL), 03360000
// VOL=(,RETAIN,REF=*.OUTDD39) 03370000
//OUTDD78 DD DSN=ZOS111.QA.DM.TEST.PRODUCT.DATA,DISP=(,KEEP), 03380000
// UNIT=AFF=OUTDD1,LABEL=(78,SL), 03390000
// VOL=(,RETAIN,REF=*.OUTDD39) 03400000
//OUTDD79 DD DSN=ZOS111.QA.DM.TEST.SALE.WR.DATA.IDX,DISP=(,KEEP), 03403000
// UNIT=AFF=OUTDD1,LABEL=(79,SL), 03404000
// VOL=(,RETAIN,REF=*.OUTDD39) 03405000
//OUTDD80 DD DSN=ZOS111.QA.DM.TEST.SALE.WR.DATA.DAT,DISP=(,KEEP), 03440000
// UNIT=AFF=OUTDD1,LABEL=(80,SL), 03450000
// VOL=(,RETAIN,REF=*.OUTDD39) 03460000
//OUTDD81 DD DSN=ZOS111.QA.DM.TEST.SALE.WR.DATA,DISP=(,KEEP), 03470000
// UNIT=AFF=OUTDD1,LABEL=(81,SL), 03480000
// VOL=(,RETAIN,REF=*.OUTDD39) 03490000
//OUTDD82 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.BASE.DATA.INDEX, 03493000
// DISP=(,KEEP), 03494000
// UNIT=AFF=OUTDD1,LABEL=(82,SL), 03495000
// VOL=(,RETAIN,REF=*.OUTDD39) 03496000
//OUTDD83 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.BASE.DATA.DATA, 03530000
// DISP=(,KEEP), 03531000
// UNIT=AFF=OUTDD1,LABEL=(83,SL), 03540000
// VOL=(,RETAIN,REF=*.OUTDD39) 03550000
//OUTDD84 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.BASE.DATA,DISP=(,KEEP), 03560000
// UNIT=AFF=OUTDD1,LABEL=(84,SL), 03570000
// VOL=(,RETAIN,REF=*.OUTDD39) 03580000
//OUTDD85 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.DATA.IDX,DISP=(,KEEP), 03583000
// UNIT=AFF=OUTDD1,LABEL=(85,SL), 03584000
// VOL=(,RETAIN,REF=*.OUTDD39) 03585000
//OUTDD86 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.DATA.DAT,DISP=(,KEEP), 03620000
// UNIT=AFF=OUTDD1,LABEL=(86,SL), 03630000
// VOL=(,RETAIN,REF=*.OUTDD39) 03640000
//OUTDD87 DD DSN=ZOS111.QA.DM.TEST.SALEDATA.DATA,DISP=(,KEEP), 03650000
// UNIT=AFF=OUTDD1,LABEL=(87,SL), 03660000
// VOL=(,RETAIN,REF=*.OUTDD39) 03670000
//OUTDD88 DD DSN=ZOS111.QA.DM.TEST.PERSOUTF.DATA, 03671000
// DISP=(,KEEP), 03672000
// UNIT=AFF=OUTDD1,LABEL=(88,SL), 03673000
// VOL=(,RETAIN,REF=*.OUTDD39) 03674000
//* 03680000
//SYSPRINT DD DSN=QA.DM.TEST.DMQABKJ2, 04350003
// DISP=(NEW,CATLG,DELETE), 04360000
// SPACE=(TRK,(5,1),RLSE), 04370000
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133) 04380000
//* 04390000
//****SYSPRINT DD SYSOUT=* 04400000
//* 04420000
//SYSIN DD * 04430000
REPRO INFILE(INDD39) OUTFILE(OUTDD39) 04820000
REPRO INFILE(INDD40) OUTFILE(OUTDD40) 04821000
REPRO INFILE(INDD41) OUTFILE(OUTDD41) 04822000
REPRO INFILE(INDD42) OUTFILE(OUTDD42) 04823000
REPRO INFILE(INDD43) OUTFILE(OUTDD43) 04824000
REPRO INFILE(INDD44) OUTFILE(OUTDD44) 04825000
REPRO INFILE(INDD45) OUTFILE(OUTDD45) 04826000
REPRO INFILE(INDD46) OUTFILE(OUTDD46) 04827000
REPRO INFILE(INDD47) OUTFILE(OUTDD47) 04828000
REPRO INFILE(INDD48) OUTFILE(OUTDD48) 04829000
REPRO INFILE(INDD49) OUTFILE(OUTDD49) 04830000
REPRO INFILE(INDD50) OUTFILE(OUTDD50) 04840000
REPRO INFILE(INDD51) OUTFILE(OUTDD51) 04850000
REPRO INFILE(INDD52) OUTFILE(OUTDD52) 04860000
REPRO INFILE(INDD53) OUTFILE(OUTDD53) 04870000
REPRO INFILE(INDD54) OUTFILE(OUTDD54) 04880000
REPRO INFILE(INDD55) OUTFILE(OUTDD55) 04890000
REPRO INFILE(INDD56) OUTFILE(OUTDD56) 04900000
REPRO INFILE(INDD57) OUTFILE(OUTDD57) 04910000
REPRO INFILE(INDD58) OUTFILE(OUTDD58) 04920000
REPRO INFILE(INDD59) OUTFILE(OUTDD59) 04930000
REPRO INFILE(INDD60) OUTFILE(OUTDD60) 04940000
REPRO INFILE(INDD61) OUTFILE(OUTDD61) 04950000
REPRO INFILE(INDD62) OUTFILE(OUTDD62) 04960000
REPRO INFILE(INDD63) OUTFILE(OUTDD63) 04970000
REPRO INFILE(INDD64) OUTFILE(OUTDD64) 04980000
REPRO INFILE(INDD65) OUTFILE(OUTDD65) 04990000
REPRO INFILE(INDD66) OUTFILE(OUTDD66) 05000000
REPRO INFILE(INDD67) OUTFILE(OUTDD67) 05010000
REPRO INFILE(INDD68) OUTFILE(OUTDD68) 05020000
REPRO INFILE(INDD69) OUTFILE(OUTDD69) 05030000
REPRO INFILE(INDD70) OUTFILE(OUTDD70) 05040000
REPRO INFILE(INDD71) OUTFILE(OUTDD71) 05050000
REPRO INFILE(INDD72) OUTFILE(OUTDD72) 05060000
REPRO INFILE(INDD73) OUTFILE(OUTDD73) 05070000
REPRO INFILE(INDD74) OUTFILE(OUTDD74) 05080000
REPRO INFILE(INDD75) OUTFILE(OUTDD75) 05090000
REPRO INFILE(INDD76) OUTFILE(OUTDD76) 05100000
REPRO INFILE(INDD77) OUTFILE(OUTDD77) 05110000
REPRO INFILE(INDD78) OUTFILE(OUTDD78) 05120000
REPRO INFILE(INDD79) OUTFILE(OUTDD79) 05130000
REPRO INFILE(INDD80) OUTFILE(OUTDD80) 05140000
REPRO INFILE(INDD81) OUTFILE(OUTDD81) 05150000
REPRO INFILE(INDD82) OUTFILE(OUTDD82) 05160000
REPRO INFILE(INDD83) OUTFILE(OUTDD83) 05170000
REPRO INFILE(INDD84) OUTFILE(OUTDD84) 05180000
REPRO INFILE(INDD85) OUTFILE(OUTDD85) 05190000
REPRO INFILE(INDD86) OUTFILE(OUTDD86) 05200000
REPRO INFILE(INDD87) OUTFILE(OUTDD87) 05210000
REPRO INFILE(INDD88) OUTFILE(OUTDD88) 05220000
/* 05340000
// 05350000
Back to top
View user's profile Send private message Send e-mail AIM Address Yahoo Messenger
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Anuj Dhawan
Moderator


Joined: 09 Aug 2008
Posts: 1631
Location: Mumbai, India

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

PostPosted: Mon Jan 17, 2011 6:12 pm    Post subject: Reply with quote

unfortunately, this did not help much and 'am not sure if the problem is resloved yet, is it?
_________________
Regards,
Anuj
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.
ballj35
Member


Joined: 11 Jan 2011
Posts: 13

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

PostPosted: Mon Jan 17, 2011 6:40 pm    Post subject: Reply with quote

No it is not resolved, still an open issue.
Back to top
View user's profile Send private message Send e-mail AIM Address Yahoo Messenger
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 Two outputs created as a result of generation of a map 5 Krishna 7419 Wed Feb 03, 2016 12:39 am
academyindia4 View latest post
No new posts Error in Executing executable file created under AIX in OMVS 1 Mikku 1711 Tue Apr 08, 2014 2:57 pm
NicC View latest post
No new posts List of datasets created before the date specified 3 phaniyelugula 2360 Tue Jan 21, 2014 10:41 pm
DikDude View latest post
No new posts List of datasets created before the date specified 2 phaniyelugula 2020 Wed Jan 15, 2014 2:18 pm
NicC View latest post
No new posts how to use a file created by EZACFSM1 in the following steps 4 mail4ujyoti 4194 Fri Aug 10, 2012 9:38 am
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-5596.html