|
Hello I'm brand new to the list. I just graduated College and working at a small company programming on the As/400. Anyways. I have question. I looked through the archives and found something almost exactly like my question but I can't get it to work properly. Here is the error I get CALL PGM(mmblib/cpyfiles) PARM('AFB' 'AFBCAB' 'CABDETP' qntc/JAMAICA/TDRI VE/TRANLIB/CABS/AFB/TST.txt') String ' ' contains a character that is not valid. Error found on *N command. Errors occurred in command. Function check. CPF0006 unmonitored by CPYFILES at statement 0000000016, instruction X'0000'. The call to *LIBL/QCMDEXC ended in error (C G D F). The call to *LIBL/QCMDEXC ended in error (C G D F). _________________________________________________________ Hitting F1 on String ' ' contains a character that is not valid Gives me this : Message ID . . . . . . : CPD0018 Date sent . . . . . . : 08/13/04 Time sent . . . . . . : 13:02:01 Message . . . . : String ' ' contains a character that is not valid. Cause . . . . . : The string contains a character that is only valid in a quoted string or a comment. Recovery . . . : Remove the character that is not valid from string X'00000000000000000000', or if it is a parameter value, make the string a quoted string. More information on valid characters can be found in the CL Reference manual. ____________________________________________________ Now the code : D RunCmd PR EXTPGM('QCMDEXC') D 3000 CONST OPTIONS(*VARSIZE) D 15 5 CONST D CMD S 3000 VARYING D Client_Prm S 3A D ClientLib S 6A D FFILE_Prm s 10A D TFILE_Prm S 125A D apos S 4a INZ('''') D tab S 1A INZ(x'05') /free CMD='CPYTOIMPF FROMFILE('+Clientlib+'/'+%trim(FFILE_PRM)+ > ') TOSTMF('+%TRIM(TFILE_PRM)+') MBROPT(*REPLACE) + STMFCODPAG(*PCASCII) RCDDLM(*CRLF) STRDLM(*NONE) + FLDDLM(X''05'')'; RUNCMD(CMD:%LEN(CMD)); *INLR=*ON; RETURN; BEGSR *INZSR; > /end-free C *ENTRY PLIST C PARM CLIENT_Prm C PARM CLIENTLIB C PARM FFILE_PRM C PARM TFILE_PRM /free ENDSR; This program is going to copy a Tab delimited file from the Iseries to a server through the qntc gateway. The parameters that are passed are Client (3 letter acronym for our client) ClientLib( Libary on the as/400 for that client) FFILE_PRM(File records are coming from) TFILE (Full path for copy . This string is built in another rpg program It can be a max length of 110 chars) and example of this is '/qntc/server/shareddrive/test.txt' Thanks for taking the time to read this . thanks for any info. Matt Beckler.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.