Use of variable CPYTOIMPF command

10 pts.
Tags:
CL Program
CPYTOIMPF
How do I use a variable as the target file in CPYTOIMPF in a CL program?


Software/Hardware used:
software
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

define a variable  like &FILENAME make it 10 *CHAR

then use the variable in your command TOFILE(&FILENAME)
That should work

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.
  • jdw
    That works if its the file name, but I want to pass a variable folder name in the path., ie

     CPYTOIMPF  FROMFILE(QTEMP/ARAGEPF) +                    
                  TOSTMF('//qntc/ihsdc02/home$/&user' +      
                  *tcat '/aragepf.csv')   +                  
                  MBROPT(*ADD)     +                         
                  STMFCCSID(*PCASCII) STMFAUT(*DFT) +        
                  RCDDLM(*CRLF) DTAFMT(*DLM) +               
                  ORDERBY(b5cunm)                            

    I cannot get this to work, but if I hard code the users folder, it works fine.
    Jim 
    20 pointsBadges:
    report
  • Splat
    I think your code should read:
    . . . TOSTMF('//qntc/ihsdc02/home$/' *tcat &user *tcat '/aragepf.csv') . . . 

    12,915 pointsBadges:
    report
  • JIMMUEHE
    i did something similiar when i copied all the members in a file to the IFS -- sample below.

                PGM        PARM(&LIB &FILE)                              
                                                                         
                DCL        VAR(&LIB)     TYPE(*CHAR) LEN(10)             
                DCL        VAR(&FILE)    TYPE(*CHAR) LEN(10)             
                DCL        VAR(&FOLDER)  TYPE(*CHAR) LEN(80)             
                                                                         
                DCLF       FILE(QAFDMBRL)                                
                DLTF       FILE(QTEMP/MBRLIST)                           
                MONMSG     MSGID(CPF2105)                                
                                                                         
                DSPFD      FILE(&LIB/&FILE) TYPE(*MBRLIST) +             
                             OUTPUT(*OUTFILE) OUTFILE(QTEMP/MBRLIST)     
                OVRDBF     FILE(QAFDMBRL) TOFILE(QTEMP/MBRLIST)          
                                                                         
                CHGVAR     VAR(&FOLDER) VALUE('/HOME/JMUEHE/' *TCAT +    
                             &LIB )                                      
                MKDIR      DIR(&FOLDER)                                  
                MONMSG     MSGID(CPF0000)                                
                                                                         
                CHGVAR     VAR(&FOLDER) VALUE('/HOME/JMUEHE/' *TCAT +    
                             &LIB *TCAT '/' *TCAT &FILE *TCAT '/' )        
                MKDIR      DIR(&FOLDER)                                    
                MONMSG     MSGID(CPF0000)                                  
                                                                           
           LOOP:                                                           
                RCVF                                                       
                MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF))           
                                                                           
                IF         COND(%SST(&MLNAME 1 2) *NE '  ') THEN(DO)       
                CHGVAR     VAR(&FOLDER) VALUE('/HOME/JMUEHE/' *TCAT +      
                             &LIB *TCAT '/' *TCAT &FILE *TCAT '/' +        
                             *TCAT &MLNAME *TCAT '_' *TCAT &MLSEU2 +       
                             *TCAT '.TXT')                                 
                CPYTOIMPF  FROMFILE(&LIB/&FILE &MLNAME) TOSTMF(&FOLDER) +  
                             FROMCCSID(37) STMFCCSID(*STDASCII) +          
                             STMFAUT(*INDIR) RCDDLM(*CRLF) +               
                             STRDLM(*NONE) STRESCCHR(*NONE) FLDDLM(*TAB)   
                MONMSG     MSGID(CPF0000)                                  
                ENDDO                                                      
                GOTO       CMDLBL(LOOP)                                    
        EOF:                                                                
                  ENDPGM                                                    
    40 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: