|
Hello all, I hope there's anybody who can help me with the challenge. Picture this: *========================================================================= * (Externe) Prototype Definitions *========================================================================= // Submit clear D QCmdExc PR ExtPgm('QCMDEXC') D cmdString 90A Const Options(*VarSize) D cmdLen 15P 5 Const *========================================================================= * Variabele declaration *========================================================================= D cmdString S 90A D cmdLen S 15P 5 D pressNum S 2A Inz(*Blanks) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Main processing ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *========================================================================= * SrA999 Clear Optalex_Tx file with a submit *========================================================================= C SrA999 BegSr /Free pressNum=%subSt(trgBufIn.file : 5: 2); cmdString='SBMJOB CMD(CALL PGM(*LIBL/POXTX0CL) PARM(pressNum))'; CallP QCmdExc(cmdString: %Len(cmdString)); /End-Free C EndSr ****************** End of data ******************************************** When I catch the matching variable in the CL program POXTX0CL the value = 'pr". If tried the pass the value hard coded as e.g. '07', but when compiling the compiler gives a "*RNF5377 20 1 The end of the expression is expected. " on the quotation marks. Changing the data type to numeric has also no influence, the received value is blanks en the program comes back wit a decimal data error. The only thing I haven't tried is a compile time array with completely valued command strings, but I don't think that that's the solution for this problem. I'll want to thank everybody in advance for thinking with me. Armand _____________________________________ H.P.J. Perquin Ontwikkelaar AS/400 Boal Beheer B.V. De Hondert Margen 12 2678 AC De Lier Tel. +31 (0)174 527297 Fax +31 (0)174 527264 E-mail: a.perquin@xxxxxxxxxxxxx Internet: http://www.boalgroup.com Panieklijn Tel. +31 (0)612854010
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.