Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

PDS 2 PS ? How to get around this sceanario

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sushanth bobby

Senior Member


Joined: 29 Jul 2008
Posts: 1013
Location: India

PostPosted: Fri Dec 05, 2008 7:17 pm    Post subject: PDS 2 PS ? How to get around this sceanario
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: 8593
Location: Back in jolly old England

PostPosted: Fri Dec 05, 2008 7:30 pm    Post subject:
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: 1013
Location: India

PostPosted: Fri Dec 05, 2008 7:49 pm    Post subject:
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

Moderator Team Head


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

PostPosted: Fri Dec 05, 2008 10:12 pm    Post subject: Reply to: PDS 2 PS ? How to get around this sceanario
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:



Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us