Joined: 26 Nov 2002 Posts: 12378 Topics: 75 Location: San Jose
Posted: Fri Aug 12, 2005 10:50 am Post subject:
Jayaram99,
The following JCL prints the file into a readable format.
Code:
//**********************************************************************
//* 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) GET *
//* PRINTED. *
//* THE DSN IN THE DD STATEMENT SYSLIST IS WHERE THE OUTPUT OF THIS *
//* JOB GOES *
//**********************************************************************
//STEP01 EXEC PGM=FILEAID *
//**********************************************************************
//SYSLIST DD DSN=Your.output.PRINT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=PROD,
// SPACE=(CYL,(x,y),RLSE),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTOTAL DD SYSOUT=*
//DD01 DD DSN=your input dataset,
// DISP=SHR
//DD01M DD DSN=your pds library consisting the layout,
// DISP=SHR
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 FPRINT MAP=your copybook,OUT=0
/*
Alternatively you can use SORT to reformat the comp and comp-3 fields to readable format.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
