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
 

 

A query on the Filemanager code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Wed Apr 06, 2011 1:42 am    Post subject: A query on the Filemanager code
Reply with quote

//TSSTC15 EXEC PGM=FILEMGR
//DD01 DD DSN=PUBLIC.TEMP.STR,
// DISP=SHR
//DD01O DD DSN=PUBLIC.BATCH.FILE2,
// DISP=(NEW,CATLG,DELETE),
// RECFM=FB,LRECL=99,
// SPACE=(CYL,(10,5),,,ROUND)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
*+* FMC2FM: Beginning of File Manager statement output *+*
$$FILEM SET PAD=' '
$$FILEM DSC INPUT=DD01,
$$FILEM MEMBER=MK*,
$$FILEM OUTPUT=DD01O
$$FILEM SET PAD=' '
$$FILEM DSC INPUT=DD01,
$$FILEM MEMBER=M02*,
$$FILEM OUTPUT=DD01O
/*

PUBLIC.TEMP.STR is a PDS with memebrs MKMBR and M02MBR

After successfull execution of the job the file PUBLIC.BATCH.FILE2 has data present in M02MBR only and the data present in the member MKMBR is skipped.

Desired result -- The file PUBLIC.BATCH.FILE2 should have data of both the members MKMBR and M02MBR


Please suggest the modification in the above code to achieve the desired result.
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Wed Apr 06, 2011 6:40 am    Post subject:
Reply with quote

Hi,

just change the DISP to DISP=(MOD,CATLG,DELETE)


Gerry
Back to top
View user's profile Send private message
Mukesh Pandey

Active User


Joined: 11 Nov 2008
Posts: 143
Location: India

PostPosted: Wed Apr 06, 2011 5:58 pm    Post subject:
Reply with quote

Hi Gcicchet,

Thanks for your reply.

The functionality of components in our applications are migrating from file aid to file manager and hence i am testing the above job.

i.e the job produces the desired result ( The file PUBLIC.BATCH.FILE2 has data of both the members MKMBR and M02MBR
) when we use pgm=FILEAID with the below sysin statements.

SYSIN DD *
$$ DD01 COPY MS=MK, PADCHAR='C'
$$ DD01 COPY MS=M02, PADCHAR='C'
/*

Our requirement is to change the functionality from FILEAID to FILEMGR and the DISP=(NEW,CATLG,DELETE) is desireble in the output file as it is.

Need Suggestion how this can be achieved with the FILEMGR since FILEAID is already working and our end goal is to achieve the same functionality with FILEMGR.

Thanks in advance.
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: Wed Apr 06, 2011 6:12 pm    Post subject:
Reply with quote

gcicchet wrote:
just change the DISP to DISP=(MOD,CATLG,DELETE)

Did you try this suggestion

If so, did it work or not work

If not, why not
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu Apr 07, 2011 7:37 am    Post subject:
Reply with quote

Hi,

try this
Code:
$$FILEM SET PAD=''               
$$FILEM DSC INPUT=DD01,         
$$FILEM CPYMBR=(MK*,             
$$FILEM         M02*),           
$$FILEM OUTPUT=DD01O             



Gerry
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm


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