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
 

 

formated print in fileaid/batch

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

New User


Joined: 24 Jul 2006
Posts: 6

PostPosted: Tue Dec 12, 2006 5:45 pm    Post subject: formated print in fileaid/batch
Reply with quote

hi,
how can i code a jcl which is using fileaid to print my output data in a formated way.
i tried this but i m getting this message
$$DD01 FPRINT OUT=2,LAYOUT=PS002,SHOW=FORMAT
BVE01-Required DD statement missing - DD??M or DD??RL, where ?? is 00-99.
.....SKIPPING TO NEXT $$DD CARD RC=8

And my JCL is :
Code:

//xxxxxx JOB (00400),'TEST JCL',CLASS=E,MSGCLASS=H,REGION=0M
//STEP2 EXEC PGM=FILEAID                                     
//SYSPRINT  DD   SYSOUT=*                                     
//SYSLIST   DD   SYSOUT=*                                     
//SYSTOTAL  DD   SYSOUT=*                                     
//DD01      DD   DSN=MPDT.TEST.SRC3(PS003),DISP=SHR           
//DD02O     DD   DSN=MPDT.TEST.SRC2(PS003),DISP=SHR           
//DD03RL    DD   DSN=MPDT.TEST.SRC2,DISP=SHR                 
$$DD01  FPRINT OUT=2,LAYOUT=PS002,SHOW=FORMAT                 
/*                                                           
//                                                           
Back to top
View user's profile Send private message

DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Sat Dec 16, 2006 4:03 am    Post subject: Re: formated print in fileaid/batch
Reply with quote

This what I get when I submit a batch job to print via. fileaid.

Code:

//JS10     EXEC PGM=FILEAID,REGION=6M                         
//SYSPRINT DD  SYSOUT=*                                       
//SYSLIST  DD  SYSOUT=*                                       
//DD01     DD  DSN=YOUR.SEQ.DATA,       
//             DISP=SHR                                       
//DD01RL   DD  DSN=YOUR.PDS.COPYLIB,                 
//             DISP=SHR                                       
//DD01SC   DD  DSN=YOUR.FILEAID.SC.D06349.T171959(SELECT),   
//             DISP=(OLD,DELETE,DELETE)                       
//SYSIN    DD  *                                             
$$DD01 FPRINT  SHOW=FORMAT,LAYOUT=YOURCB                   
/*                                                           
//         

   Menu  Utilities  Compilers  Help                                             
 -------------------------------------------------------------------------------
 BROWSE    YOUR.FILEAID.SC.D06349.T171959(SELECT)    Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
/*                                                                             
/* CAUTION:  Manually editing this member with a Product other                 
/* than File-AID will corrupt the directory entry when saving                   
/* this member.  Statistics will overlay information in the                     
/* directory entry required when loading Selection Criteria and                 
/* XREFs, rendering the member unusable.                                       
/*                                                                             
/* COMPUWARE ASSUMES NO LIABILITY FOR RESULTS OF USING MEMBERS                 
/* THAT HAVE BEEN EDITED MANUALLY.                                             
/*                                                                             
/* Copyright (c) 1993-2004 by COMPUWARE Corporation,                           
/* All Rights Reserved.                                                         
                                                                               
DEFINE BLOCKS=SELECTION,                 
                                         
       INITIAL_SKIP=0,                   
       THEN_SELECT=1,                     
       THEN_SKIP=0,                       
                                         
       MAXIMUM_TO_SEARCH=ALL,             
       MAXIMUM_TO_SELECT=ALL             


Note the names of the DD statements

Dave
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 How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
This topic is locked: you cannot edit posts or make replies. MIPS reduction for Batch job Virendra Shambharkar All Other Mainframe Topics 8 Mon Nov 07, 2016 4:02 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts How to show message using batch jobs madprasy TSO/ISPF 7 Fri Sep 09, 2016 6:55 pm
No new posts Don't allow CICS to submit batch jobs prino JCL & VSAM 5 Mon Jul 25, 2016 3:26 pm


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