IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

PDS 2 PS ? How to get around this sceanario


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Fri Dec 05, 2008 7:17 pm
Reply with quote

Hi,

This is the code, i use to make contents of a PDS to PS file.
This is the usual scenario.....
INPUT : PDS or PDSE
OUTPUT : Contents of PDS or PDSE in PS file
Code:
   //IEBPTPCH EXEC PGM=IEBPTPCH                                   
//SYSUT1   DD DSN=HXSULL.DBA.UT,DISP=SHR                       
//*SYSUT2   DD SYSOUT=*                                         
//SYSUT2   DD DSN=HXSULL.DBA.L,DISP=(,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(TRK,(10,5),RLSE)                         
//SYSPRINT DD SYSOUT=*                                         
//SYSIN    DD *                                                 
  PUNCH TYPORG=PO                                               
/*                                                             


This is 0.k, if there is couple of PDS or PDSE files.
This time i have a PROBLEM, i have list of PDS & PDSE more than 100,

I will have a file with all the input datasets like
Code:
I557.PDS.12335
I557.P2D.12345
I537.PDS.1232

usually the output datasets naming conventions will be same name with .L added like this....
Code:
I557.PDS.12335.L
I557.P2D.12345.L
I537.PDS.1232.L


How to do this ?

Sushanth
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Dec 05, 2008 7:30 pm
Reply with quote

I would use a REXX exec to build the JCL using ISPF file tailoring and submit the job(s)
Back to top
View user's profile Send private message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1020
Location: India

PostPosted: Fri Dec 05, 2008 7:49 pm
Reply with quote

Expat,

BUILD the JCL using REXX - Does that mean, REXX can prepare a JCL for all my inputs.

Will it be like this,
1. I will have a job to RUN REXX. In this job i will supply the input file which contains the PDS files.
2. REXX program will create JCL's for each PDS & submit the job.

I am not able to think how rexx would do this(since i don't know rexx). Can you point me to links similar to this & a GOOD REXX REFERENCE MANUAL.

Sushanth
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA

PostPosted: Fri Dec 05, 2008 10:12 pm
Reply with quote

Sushanth, I think that whether or not you know REXX is irrelevant. I think that it's more important that you know how to define and use ISPF File Tailoring logic. What language you ultimately choose to use to call those ISPF services is rather unimportant.

If you know how to use File Tailoring, fine. If you want to use ISPF Libray Management (LM) Services in a program, fine. If you don't, than maybe you should consider some other method. Keep in mind that IEBPTPCH is only for PDS's that are RECFM=FB and LRECL=80. The overall task seems relatively simple:

- Read a record from the input file.
- Create a job that uses IEBPTPCH and SORT to format the output to your specific requirements, along with the unique dataset names that you required for your output.
- Submit that job.
- Go back and do the same thing for the next record.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Search our Forums:

Back to Top