Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to Write statements in Empty file using FILEAID JCL

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

New User


Joined: 19 Jun 2008
Posts: 39
Location: USA

PostPosted: Thu Jan 08, 2009 12:36 pm    Post subject: How to Write statements in Empty file using FILEAID JCL
Reply with quote

Hello Everyone,

I have a query regarding FILEAID utility, I have a scenario that I need to write some message to empty file using JCL, I am using FILEAID utility but not able to write message.

Can you please give me sample JCL for that? Do we need to use Different utility??

Thank you!
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8620
Location: Back in jolly old England

PostPosted: Thu Jan 08, 2009 12:41 pm    Post subject:
Reply with quote

Show us what you have tried along with the error messages.

As for other products/utilities - many can write to a files, empty or not.
Back to top
View user's profile Send private message
trilokdewangan

New User


Joined: 19 Jun 2008
Posts: 39
Location: USA

PostPosted: Thu Jan 08, 2009 12:54 pm    Post subject:
Reply with quote

Here is the JCL

Code:
//BQBF003R  JOB (B,X,52XX00),'ABHISHEK',PRTY=15,NOTIFY=&SYSUID,
// MSGCLASS=V                                                 
//*************************************************************
//*SET DATE=01/07/2009                                         
//*                                                           
//JOBLIB   DD DSN=BX87FT.AABC.CMNSTAGE.#000871.LOD,DISP=SHR   
//         DD DSN=BXXXB1.DB2.SDSNLOAD,DISP=SHR                 
//         DD DSN=BXXXB1.DB2.RUNLIB.LOAD,DISP=SHR             
//         DD DSN=AX52BG.AABC.BTCHLIB,DISP=SHR                 
//         DD DSN=SYS5.FNLST.V77.LOADLIB,DISP=SHR             
//         DD DSN=AX52BG.AABC.VNDRLIB,DISP=SHR                 
//JCLDSN   JCLLIB  ORDER=BX52XX.DMS93044.TEST.JES.JCLLIB       
//*                                                           
//***********************UNCATALOG DATASETS********************
//UNCAT    EXEC PGM=IEXUNCAT                                   
//SYSIN    DD *                                               
  BX52XX.S00.BQBF003.BRK73.FILEAID2.SSRKR                       
//*                                                             
//**********SORT OUTPUT OF BQP01702 IN PROCESSING TEAM ORDER****
//*                                                             
//FILEAIDE EXEC PGM=FILEAID                                     
//SYSLIST  DD  SYSOUT=*                                         
//SYSTOTAL DD  SYSOUT=*                                         
//*SYSPRINT DD SYSOUT=(,,),OUTPUT=(*.OUT4A,*.OUT4,*.INFO)       
//SYSPRINT DD SYSOUT=*                                         
//DD01O    DD DSN=BX52XX.S00.BQBF003.BRK73.FILEAID2.SSRKR,     
//            DISP=(NEW,CATLG),LABEL=RETPD=5,                   
//            UNIT=DASD,SPACE=(23584,(200,50),RLSE),           
//            DCB=(RECFM=FBA,LRECL=134,BLKSIZE=23584)           
//SYSIN    DD *                                                 
 $$DD010 USER,                                                 
   MOVE=(1,C'1 DATE                         '),                 
   MOVE=(31,C'                       '),                       
   MOVE=(53,C'BF003 - ABC DATABASE ERROR AGING REPORT'),       
   MOVE=(92,C'                                           '),         
  WRITE=DD01O,                                                       
   MOVE=(1,C'                                          '),           
   MOVE=(41,C'                       '),                             
   MOVE=(63,C'LIFE ERROR REPORT'),                                   
   MOVE=(80,C'                                                   '), 
  WRITE=DD01O,                                                       
   MOVE=(1,C'                                          '),           
   MOVE=(41,C'                           '),                         
   MOVE=(68,C'TEAMID'),                                               
   MOVE=(74,C'                                    '),                 
   MOVE=(111,C'                          '),                         
  WRITE=DD01O,                                                       
   MOVE=(1,C'    CLM TM        RLCS  CONTROL ID       ERROR '),       
   MOVE=(48,C'     ERROR DT      SOC SEC NUM      LEGAL CONT '),     
   MOVE=(96,C'     PLAN ID      BENF PYMT GRP        '),             
  WRITE=DD01O,                                                       
   MOVE=(1,C'   ********      ******************     *******'),       
   MOVE=(48,C'    **********    *************    ************'),
   MOVE=(96,C'    *********    ***************       '),         
  WRITE=DD01O,                                                   
   MOVE=(1,C'     '),                                           
   MOVE=(6,C'NO LIVES FOUND                               '),   
   MOVE=(51,C'                                             '),   
   MOVE=(101,C'                                             '), 
  WRITE=DD01O,                                                   



MAX CC is 04, it's creating output dataset as Empty
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8620
Location: Back in jolly old England

PostPosted: Thu Jan 08, 2009 1:03 pm    Post subject:
Reply with quote

Does it issue any error messages to help find out why it does not write to the dataset ?
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Fri Jan 09, 2009 6:06 am    Post subject:
Reply with quote

Hi,



Code:
 $$DD010 USER, 
this should begin in pos 1, if this is your input DD then the value that follows it can only be 00 to 99, although I cannot see where you have defined the input DD in your JCL.



The last statement
Code:
  WRITE=DD01O,

You should remove the comma


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 ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
No new posts Moving a PS file as body of a mail! Vignesh Sid JCL & VSAM 4 Tue Nov 21, 2017 9:23 pm
No new posts unable to set RC = 4 when empty file migusd SYNCSORT 1 Tue Nov 21, 2017 1:21 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us