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: 8593
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: 8593
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 PLI %IF statements Pedro PL/I & Assembler 1 Tue Sep 19, 2017 12:06 am
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Skip file from delete pema_yozer All Other Mainframe Topics 3 Tue Aug 29, 2017 3:19 pm

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