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
 

 

View COMP-3 and COMP fields using FILEAID

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

New User


Joined: 08 Mar 2005
Posts: 1

PostPosted: Tue Mar 08, 2005 9:57 pm    Post subject: View COMP-3 and COMP fields using FILEAID
Reply with quote

I have dataset with combination of Regular, COMP and COMP-3. By using HEX ON command I can read COMP-3 fields. But I could NOT binary unpacked fields.
Does anybody know how to convert or copy this dataset with all the fields in regular format?
Back to top
View user's profile Send private message

mainframemouli

New User


Joined: 01 Mar 2005
Posts: 52
Location: Mysore

PostPosted: Wed Mar 09, 2005 7:26 pm    Post subject: Re: View COMP-3 and COMP fields using FILEAID
Reply with quote

check to see the following is working for you.

//*********************************************************** /* THE $$DD01 PARAMETER IS ESSENTIAL FOR FILE AID *
//* THE DD STATEMENT DD01 = INPUT FILE *
//* THE DD STATEMENT DD01M = COBOL LAYOUT DATA SET NAME *
//* THE MAP PARAMETER OPTION IS THE MEMBER IN COBOL LAYOUT DSN *
//* THE OUT PARAMETER SPECIFIES THE NUMBER OF RECORDS THAT YOU NEED *
//* A VALUE OF 0 MEANS ALL THE RECORDS EXISTING IN THE FILE *
//* IF YOU SKIP THIS FIELD THE DEFAULT NUMBER OF RECORDS(250) ET *
//* PRINTED. *
//* THE DSN IN THE DD STATEMENT SYSLIST IS WHERE THE OUTPUT OF THIS *
//***********************************************************//STEP0100 EXEC PGM=FILEAID
//SYSLIST DD DSN=ouput file where u want store the result,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(200,200),RLSE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=0)
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD01 DD DSN=input record layout,
// DISP=SHR
//DD01M DD DSN=file containing the data,
// DISP=SHR
//SYSIN DD *
$$DD01 FPRINT MAP=RTJ01,OUT=0
//*
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 Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts How to see VIEW definition from BMC c... rohanthengal DB2 1 Thu May 04, 2017 1:50 pm
No new posts Sum Fields ballaswaroop DFSORT/ICETOOL 4 Tue May 02, 2017 11:07 am


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