unload the members to o/p file

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

hI

My input file contains the PDS name with member names.
I want to copy all the members in to a o/p files.

for ex: i/p file

// DD DSN=XEPSM.JCLPDS(HRH12345),
// DISP=(SHR,KEEP,KEEP)
// DD DSN=XEPSM.HRBSM.JCLPDS(HRH23446),
// DISP=(SHR,KEEP,KEEP)
// DD DSN=XEPSM.HRBSM.JCLPDS(HRH23467),
// DISP=(SHR,KEEP,KEEP)

the o/p file should contain all the contents of members .

How to do it by using IBM utilities......

expat · Posted: Mon Apr 12, 2010 8:08 pm

IEBCOPY

dick scherrer · Posted: Mon Apr 12, 2010 8:09 pm

Hello,

What should be the dsorg of the output file?

Do you want all of the members as one set of data or. . .?

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

yes , i want all the memebers copied into output file.

I am using iebcopy , but getting the errors as below

SYSUT1 VALIDATION ERROR
NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64 BYTES LONG - ACTUAL VALUE IS X'0006E0
IDDNAME SYSUT1 REFERS TO PDSU DATA SET ON VOLUME V9W022 NAMED TDSCM.JAN.TEMPF
NO MEMBERS COPIED TO DATA SET REFERENCED BY SYSUT2
JOB HAS TERMINATED WITH ERROR(S)
END OF JOB - 8 WAS HIGHEST SEVERITY CODE

Robert Sample · Posted: Mon Apr 12, 2010 8:30 pm

IEBCOPY has some restrictions on the sequential file you unload to -- and that file is not going to be human-readable, nor will it be usable with any other platform. If this is what you want, then do not specify the DCB for the sequential file -- IEBCOPY will set the record format to be VB, LRECL will be 16 more than the block size of the PDS, and the block size will be 4 higher than the LRECL.

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

actually my input file is a gdg file.
I want all the members copied into o/p file which is also a gdg.

That o/p file shoule be readable , coz its again used as a i/p file in the very next step.

Robert Sample · Posted: Mon Apr 12, 2010 9:00 pm

Okay, you've managed to confuse me. Is your input data set a sequential GDG or a PDS GDG? If it is a PDS GDG, you must use absolute references (.G1234V00) instead of relative references such as (-3) -- and I had to look in three manuals to find out that tidbit! And yet your examples do not have any generations specified -- which imply no GDG is involved.

Please explain in more detail exactly what you are trying to do. When you say the output will be used as input the next step, will it be input to a print routine? building a new PDS? something else? The answer to your requirements depends upon what you are attempting to do.

dbzTHEdinosauer · Posted: Mon Apr 12, 2010 9:05 pm

I think the TS has an I/P file containing a list of members. the I/P file is a GDG.

he wants the o/P file, also to be a gdg, to contain the members - in readable format.

what the TS should supply at this point is the JCL for the JOB he has used.

dick scherrer · Posted: Mon Apr 12, 2010 9:08 pm

Hello,

Post the dsorg, blksize, and lrecl of all of the files.

Clearly explain the process from "what you have" to what the copied data will be used to accomplish. You have "started in the middle" with no useful information about the inputs and how the output should be built and used. . .

It sounds like there is one input file that contains the names of other input files/members. . .

Showing the jcl used should help someone help you. . .

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

U just tell me how to proceed.

I need to do

my i/p file contains only this statement

/ DD DSN=XEPSM.JCLPDS(HRH12345), ------- 1 job
// DISP=(SHR,KEEP,KEEP)
// DD DSN=XEPSM.HRBSM.JCLPDS(HRH23446),--------- 2 job
// DISP=(SHR,KEEP,KEEP)
// DD DSN=XEPSM.HRBSM.JCLPDS(HRH23467),-------- 3rd job
// DISP=(SHR,KEEP,KEEP)

I want all the members are to be copied into a o/p file.that means my o/p file contains all the 3 jobs.

both the i/p and o/p file are sequential gdg file.

William Thompson · Posted: Tue Apr 13, 2010 12:24 am

superk · Posted: Tue Apr 13, 2010 12:25 am

My possible solution looks like this:

Ronald Burr · Posted: Tue Apr 13, 2010 3:26 am

From what the TS has stated in two posts, this is what I infer:

a) The INPUT file is a physical sequential GDG file which contains JCL statements ( RECFM/LRECL/BLKSIZE all unknown/unstated )

b) The requirement is to parse the JCL contained in the GDG input file, and, using the DSNAMEs contained therein, extract the contents of each named library member and add it to an OUTPUT GDG - which is to be another physical sequential file ( RECFM/LRECL/BLKSIZE all unknown/unstated ).

e.g. INPUT physical sequential GDG file contents:

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

Hi ronald

I want exactly the same.
could you guide me how to achieve that using any ibm utilities

William Thompson · Posted: Tue Apr 13, 2010 10:07 am

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

no. could u help me on that

William Thompson · Posted: Tue Apr 13, 2010 11:21 am

Look at the manual and Kevin's statements, it will make sense if you try.....
INREC Control Statement & PARSE

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

Hi

I think using parse only the member names are to be copied.

I want the contents of the members to be copied to output file.

i needed to do the same as RONALD BURR mentioned in this posting before.

expat · Posted: Tue Apr 13, 2010 12:52 pm

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

I used the jcl given by kevin.

ts taking only the last pds name(memname) mentioned in and copy it into o/p file.

previous pds names its not considering

expat · Posted: Tue Apr 13, 2010 3:38 pm

Well, I don't know what YOU are doing wrong, but Kevins job works perfectly for me.

Can only think that your output GDG is (,CATLG) instead of (MOD,CATLG)

janmejay · New User Joined: 22 Jun 2007 Posts: 85 Location: bangalore

its working fine. thankx.
can anyone or or kevin can explain me the below code.
I gone through the document but did n't understand it fully.

a brief explain is enough.

BUILD=(%2,SQZ=(SHIFT=LEFT,LEAD=C'''',TRAIL=C''''),81:%1)
OPTION COPY
OUTFIL INCLUDE=(81,4,CH,EQ,C'DD'),REMOVECC,
BUILD=(C'ALLOC F(SYSUT1) DA',
1,46,SQZ=(SHIFT=LEFT,LEAD=C'(',TRAIL=C') SHR REU'),80:X,/,
C'CALL *(ICEGENER)'),
TRAILER1=(C'FREE F(SYSUT1)',80:X)