Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
how to write pds content to other pds?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
sathikriyaz

New User


Joined: 09 Jun 2008
Posts: 15
Location: india

PostPosted: Wed Jun 11, 2008 11:55 am    Post subject: how to write pds content to other pds?
Reply with quote

can u tell me wat command to be use for this?
its have to be create same member name and copy
its content too
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Wed Jun 11, 2008 11:56 am    Post subject: Reply to: how to write pds content to other pds?
Reply with quote

why post in the pl/i & assembler

use ispf option 3.3 ( COPY MOVE )
Back to top
View user's profile Send private message
sathikriyaz

New User


Joined: 09 Jun 2008
Posts: 15
Location: india

PostPosted: Wed Jun 11, 2008 12:00 pm    Post subject: i have to code in assembler
Reply with quote

i have try with BLDL......but its show abend..........
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Wed Jun 11, 2008 12:02 pm    Post subject: Reply to: how to write pds content to other pds?
Reply with quote

Your posts are confusing, misleading

what are You trying to do? explain

nothing in Your first post implied that You were writing an assembler program

are You trying to reinvent the wheel, maybe
Back to top
View user's profile Send private message
sathikriyaz

New User


Joined: 09 Jun 2008
Posts: 15
Location: india

PostPosted: Wed Jun 11, 2008 12:07 pm    Post subject: i want to write pds(member and its content) to other pds
Reply with quote

i want to write pds(member and its content) to other pds by using assembler coding
not by ispf 3.3 option(copy move)
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Wed Jun 11, 2008 12:18 pm    Post subject: Reply to: how to write pds content to other pds?
Reply with quote

use the sequential file logic

and run it as

Code:
//jobname JOB ...
//*
//stepname EXEC PGM=Yourpgm
//*
//yourlistddname DD sysout *
//yourinputddname DD DSN=yourinputpds(yourinputmember),DISP=SHR
//youroutputddname DD DSN=youroutputpds(youroutputmember),DISP=SHR


Quote:
have try with BLDL......but its show abend..........

Your program was wrong, read the manual and correct the code,
thats the only reasonable reply for such a badly posed question/statement

but still I do not see any reason to reinvent the wheel

read
http://catb.org/~esr/faqs/smart-questions.html
it will help You to get better and more benevolent answers
Back to top
View user's profile Send private message
sathikriyaz

New User


Joined: 09 Jun 2008
Posts: 15
Location: india

PostPosted: Wed Jun 11, 2008 12:31 pm    Post subject: its ps file not pds.............
Reply with quote

i need to read and write the entire pds .............
wat u given is coding for reading and writing ps file..........
i try with bldl instructions in assembler instruction but i cant read more than one line in the first member itself...........



thanks to ur reply....
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Wed Jun 11, 2008 12:35 pm    Post subject: Reply to: how to write pds content to other pds?
Reply with quote

what kind of sick business requirement is that..

spending people time to reinvent the utilities...

IEBCOPY,
ISPF panels
ISPF LMSERVICES
Fileaid
filemanager

just do that, teach Your organization how to use them

or again express more clearly Your requirements
your requirement description duplicate IEBCOPY functionality

if You have sophisticated member filtering to do use ISPF library management services
Back to top
View user's profile Send private message
sathikriyaz

New User


Joined: 09 Jun 2008
Posts: 15
Location: india

PostPosted: Wed Jun 11, 2008 1:26 pm    Post subject: we are designing tool for other assembler project ..........
Reply with quote

we have to read all the members(contain programs) in one pds which is given as input for a program that will run all input member and provide the assembler list for each input member.
Then,write all member along with their assembler list in other pds.all should be done by using assembler instruction not jcl statement.......
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Wed Jun 11, 2008 1:34 pm    Post subject: Reply to: how to write pds content to other pds?
Reply with quote

Quote:
we have to read all the members(contain programs) in one pds which is given as input for a program that will run all input member and provide the assembler list for each input member.
Then,write all member along with their assembler list in other pds.all should be done by using assembler instruction not jcl statement.......


good luck..

let' s translate Your organization requirement to human understandable form

you have a pds with some sources ... OK
a program to run all member ... a program that will do something to each member ??
provide the assemble list ... where will You be getting the assembler list ??
and then write the members along with their assembler...
sorry but I lost track

for this confusing requirement a REXX ISPF approach would be better
more productive by all means

unless somebody in Your organization fouled things up and simply meant
assemble the programs and save the assembler listing to a dataset
and that can be done using a simple/stupid procedure like


Code:
//jobname  JOB ...
//asmproc  PROC
//c        EXEC PGM=YourInstallationAssemblerProgram
//...      DD   the assembler required ddnames
//...      DD   the assembler required ddnames
//...      DD   the assembler required ddnames
//SYSIN    DD   DISP=SHR,DSN=YourSourcePDS(&MBR) 
//SYSPRINT DD   DISP=SHR,DSN=YourListingPDS(&MBR)
//         PEND
//*
//mbr1     EXEC asmproc,MBR=mbr1
//mbr2     EXEC asmproc,MBR=mbr2
//...      EXEC asmproc,MBR=...
//mbrn     EXEC asmproc,MBR=mbr2n
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jun 12, 2008 3:56 am    Post subject:
Reply with quote

Hello sathikriyaz,

Please post the content of a sample "input" pds with only a couple of tiny members in it and the output you want when this pds is processed by the code you are trying to write.

Your post says something about copying all of the members from one pds to another, but the discussion also talks about assembler lists. . . icon_confused.gif

If we can see a small example, we may better understand what you need to do.
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us