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: 8685
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: 8685
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 B059 PREMATURE END OF FILE mvmadhuvenkatesh CA Products 4 Tue Jun 19, 2018 10:50 am
No new posts Formating output file Niki DFSORT/ICETOOL 3 Fri Jun 15, 2018 3:27 pm
No new posts Need help on TDQ load from file using... subratarec CICS 4 Wed Jun 13, 2018 11:32 pm
No new posts How to Count a particular record in a... Mounika Nemani DFSORT/ICETOOL 5 Tue May 29, 2018 1:07 pm
No new posts BAMAD file IO Error m1985nehal CICS 1 Fri May 25, 2018 11:51 am

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