Who said you can't write to file from CL?

• Clive Griffiths
• Published: 23 Sep 2002

Here you'll learn how to write to a specified physical file from within CL. I have added the command WRTREC with parameters of DATA (what you want to write to the file.) And TOFILE with TOLIB naming the file you want to write to. You can amend or enhance the CL to your hearts content as the basics work fine.

  
/***********************************************************************/  
/* PGM    - WRTRECCPP                                                  */  
/* AUTHOR - CLIVE GRIFFITHS                                            */  
/* DESC   - WRITE A RECORD TO SEPCIFIED FILE                           */  
/* PARMS  - &RECORD 100 CHARACTER - DATA TO BE WRITTEN TO FILE         */  
/*        - &TOLIB 10 CHARACTER   - LIBRARY NAME OF FILE TO BE WRITTEN */  
/*        - &TOFILE 10 CHARACTER  - NAME OF FILE TO BE WRITTEN TO      */  
/***********************************************************************/  
PGM (&RECORD &TOFILE &TOLIB)                                               
DCL &RECORD *CHAR 100                                                      
DCL &TOFILE *CHAR 10                                                       
DCL &TOLIB  *CHAR 10                                                       
DCL &NBRCURREC *DEC 10 0                                                   
DCL &RCDNBR *DEC 10 0                                                      
CRTPF QTEMP/QMHMDT RCDLEN(100)                                             
MONMSG CPF0000                                                             
SNDPGMMSG  MSG(&RECORD)                                                    
DSPJOBLOG  OUTPUT(*OUTFILE) OUTFILE(QTEMP/TEMPF)                           
CPYF FROMFILE(QTEMP/TEMPF) TOFILE(QTEMP/QMHMDT) +                             
  MBROPT(*ADD) NBRRCDS(1) INCREL((*IF QMHMDT *EQ &RECORD)) FMTOPT(*MAP *DROP) 
RTVMBRD FILE(QTEMP/QMHMDT) NBRCURRCD(&NBRCURREC)                              
CPYF FROMFILE(QTEMP/QMHMDT) TOFILE(&TOLIB/&TOFILE) MBROPT(*ADD) +             
  FROMRCD(&NBRCURREC) FMTOPT(*NOCHK)                                          
ENDPGM                                                                        


/***********************************************************************/ 
/* CMD    - WRTREC  - COMMAND FOR CPP WRTRECCPP                        */ 
/* AUTHOR - CLIVE GRIFFITHS                                            */ 
/* DESC   - WRITE A RECORD TO SEPCIFIED FILE                           */ 
/* PARMS  - DATA 100 CHARACTER - DATA TO BE WRITTEN TO FILE            */ 
/*        - TOFILE 10 CHARACTER  - NAME OF FILE TO BE WRITTEN TO       */ 
/*        - TOLIB 10 CHARACTER   - LIBRARY NAME OF FILE TO BE WRITTEN  */ 
/***********************************************************************/ 
CMD PROMPT                                                                
             PARM       KWD(DATA) TYPE(*CHAR) LEN(100) +                  
                          CHOICE('Enter data to be written') +            
                          PROMPT(DATA)                                    
             PARM       KWD(TOFILE) TYPE(*NAME) LEN(10) +                 
                          CHOICE('Target file name') PROMPT(TOFILE)       
             PARM       KWD(TOLIB) TYPE(*NAME) LEN(10) +                  
                          CHOICE('Library name') PROMPT(TOLIB)    

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: Tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Read this Search400.com Featured Topic: Managing your iSeries.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.