× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi,

QCMDEXC

D-Spec

D Cmd PR ExtPgm('QCMDEXC')
D command 256A const
D length 15P 5 const
*---------------------------------------------------
Dcmdtxt S 256A INZ(' ')

In your pgogram :

C eval cmdtxt = 'command here...'
C callp(e) Cmd(cmdtxt : %len(%trim(cmdtxt))
C if %error
C* Error handling here.....
C ENDIF

regards

Sean

Am 2019-11-05 13:34, schrieb Rishi Seth:
Hi,

I am trying to use QCMDEXC in my below RPGLE program but it's giving me
compilation errors:-
FUNIX IF F 1000 SPECIAL PGMNAME('UNIXCMD')
F PLIST(UNIXPARM) usropn
FQSYSPRT O F 132 PRINTER
dencodedExcha...
dngeToken s 88
D cmd s 5000a
D mode s 1A inz('P')
dcname s 256
dclen s 15p 5
D record ds 1000
D outrec ds 132

C UNIXPARM PLIST
C PARM CMD
C PARM MODE
/free
XML-INTO encodedExchangeToken %XML('/home/I0RS01HU/+
/INPUT.xml':'doc=file case=any path=+
TokenExchangeResponse/encodedExchangeToken');
eval cname = 'chgjob ccsid(37)';
eval clen = %len(%trim(cname));
call 'QCMDEXC';
PARM CNAME;
PARM CLEN;
cmd = 'echo encodedExchangeToken ö openssl +
enc -d -aes-128-ecb -K +
363631653237354f494d31554c594c4a -nopad -nosalt +
-base64 -A -out record';
open UNIX;
read UNIX record;
dow not %eof(UNIX);
outrec = record;
write QSYSPRT outrec;
read UNIX record;
enddo;

close UNIX;
*inlr = *on;
/end-free


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.