Merging PDS members into single sequential file.



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Merging PDS members into single sequential file.

Postby jcbrotel » Thu Aug 18, 2022 7:27 pm

Hello there,

I've been trying various z/OS IEB-like utilities and I must say I can't get that properly even though, I know I managed it on another machine, some 15 years ago. :mrgreen:

As we are migrating from Natural/DB2 under z/OS to Natural/SQL-Server under Windows, we would like to bulk retrieve all the members of our various PDS.

Can anyone help?

Many thanks in anticipation!

JaySea
jcbrotel
 
Posts: 3
Joined: Mon Jul 31, 2017 2:51 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Merging PDS members into single sequential file.

Postby jcbrotel » Thu Aug 18, 2022 8:59 pm

Well, I did find the trick after all and here it is:

EDIT EP10.JCLS10.JCL(IEBPTPCH) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //EPBPTBCH JOB 'Merging PDS members to PS',CLASS=A,
000002 // MSGLEVEL=(1,1),MSGCLASS=X
000003 //*
000004 //SQLTOSEQ EXEC PGM=IEBPTPCH
000005 //SYSPRINT DD SYSOUT=*
000006 //SYSUT1 DD DISP=SHR,DSN=EP10.JCB.SQL
000007 //SYSUT2 DD DISP=OLD,DSN=EP10.JCB.SQL.SEQUENTL <-- lrecl=81
000008 //SYSIN DD *
000009 PUNCH TYPORG=PO,DBCS=YES
000010 /*


IEBPTPCH_beware_of_PUNCH_keyword_position!.JPG


Seq file is to be defined with LREL=81, as a stupid V will be placed in column 1 of each output line. :roll:

Anyway, hope it helps anyone!

Cheers
You do not have the required permissions to view the files attached to this post.
Last edited by jcbrotel on Thu Aug 18, 2022 9:03 pm, edited 1 time in total.
jcbrotel
 
Posts: 3
Joined: Mon Jul 31, 2017 2:51 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Merging PDS members into single sequential file.

Postby Robert Sample » Thu Aug 18, 2022 9:02 pm

I've used FTP in the past -- you can get each PDS member into a Windows directory as a separate file. From the Windows side, the FTP commands are:
prompt
cd 'PDS.FILE.NAME'
mget *
after logging onto the mainframe, of course. Prompt is a toggle that will turn off the confirmation for each member; otherwise, you have to respond to each member to be copied.
Robert Sample
Global moderator
 
Posts: 3719
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: Merging PDS members into single sequential file.

Postby willy jensen » Fri Aug 19, 2022 2:09 am

Look at the OFFLOAD pgm at cbttape.org file 093.
willy jensen
 
Posts: 455
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 69 times

Re: Merging PDS members into single sequential file.

Postby prino » Fri Aug 19, 2022 11:20 pm

Create an XMIT file, and use one of the UnXMIT utilities that's around, Dennis Moloney's Xmit is written in Java, and cross-platform (Windoze/Mac/Linux).
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
User avatar
prino
 
Posts: 635
Joined: Wed Mar 11, 2009 12:22 am
Location: Vilnius, Lithuania
Has thanked: 3 times
Been thanked: 28 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post