View COMP-3 and COMP fields using FILEAID

premalatha · New User Joined: 08 Mar 2005 Posts: 1

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?

mainframemouli · New User Joined: 01 Mar 2005 Posts: 52 Location: Mysore

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
//*